- 二一组卷

题型：单选题题类：模拟题难易度：普通

浙江省金华十校2020届高三上学期信息技术11月模拟考试试卷

有如下VB程序段：

Dim s As String, i As Integer, n As Integer

Dim ch As String, ans As Integer

s= Text1.Text

n Len(s): ans=0

For i=1 To n

ch =Mid (s, i, 1)

ans =ans *2+ Val(ch)

Next i

Text2 Text ans

若程序运行后Tex2中显示的是“38”，则Text中输入的是（）

A、100110 B、209 C、45 D、19

举一反三

有下列VB程序段，为了使运行结束后s=1，t=5，则a和b的值应满足的条件是（）

s = 1: t = 1

If a > 0 Then s = s + 1

If a > b Then

t = s + t

ElseIf a = b Then

t = 5

Else

t = 2 * t

End If

执行后将会清空文本框Text1中文本的语句是（）

编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击“计算累加和”按钮，在标签Label3中显示起始值与结束值之间所有奇数的累加和。界面如图所示。

在VB中，与语句b = n \ 10 Mod 10 功能相同的是（）

调试如下VB程序段，出现如图所示的错误信息。

For i = 1 To 10
If d(i) >= 0 Then
   t=t+1
    List1.AddItem Str(d(i))
  Else
    t=t-1
    List2.AddItem Str(d(i))
Next
则该程序段出错的原因是缺少了（  ）

编写VB程序，实现如下功能:在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a₁ ， a₂ ， …， a_n ，其中a_i+1比a_i大1，使得a₁+a₂+…+a_n。这样a₁ ， a₂ ， …，a_n称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的程序如下，请在划线处填写合适代码。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, sum As Integer

Dim n As Integer, k As Integer, tmp As String

n = Val (Text1.Text)

sum = 0:List1.Clear

For i = 1 To n-1

j=i

Do While sum < n

{#blank#}1{#/blank#}

j = j + 1

Loop

If sum = n Then

{#blank#}2{#/blank#}

For k=i+1 To j-1

tmp = tmp + “+” + Str(k)

Next k

List1.AddItem tmp +“=”+ Str(n)

End If

{#blank#}3{#/blank#}

Next i

End Sub

相关试卷

公司介绍

服务介绍

帮助中心