相关试卷
-
1、小明用VB编写了查找第二小的数的程序界面如图所示，程序随机产生50个范围在1~1000之间的随机整数，单击“查找”按钮能够在标签 Label1中显示第二小的数字。
Private Sub Command1_ Click( )
Dim n As Integer, i As Integer
Dim a(1 To 50) As Integer
Randomize
For i=1 To 5
①
List1 AddItem Str(a(i))
Next i
If a(1) < a(2) Then
firstmin=a(1)
secondmin =a(2)
Else
firstmin=a(2)
secondmin=a(1)
End if
For i=3 To 50
If a(i) < secondmin Then
If ② then
Secondmin = firstmin
firstmin = a (i)
Else
③
End If
End If
Next i
Label1. Caption = "第二小的数是" str(secondmin)
End Sub
(1)、为了在列表框List1中加入随机产生的数字，小明在程序中写了语句 “List1. AddItem Str(a(i))”，其中Addltem是List1对象的。（填字母：A .属性/B .事件/C .方法）(2)、为实现上述功能，请在划线处填入合适的代码。① ② ③
-
2、杨辉三角是二项式系数在三角形中的一种几何排列，以10行的杨辉三角为例，如图所示。
某同学设计了以下程序用来输出杨辉三角。在文本框Text1里输入需要输出的杨辉三角的行数n，单击“打印”按钮Command1后，在列表框List1中输出n行的杨辉三角。
(1)、要使程序运行时自动清空文本框（Text1）中的内容，则应在事件处理过程（填字：A .Form_Load/B .Text1_Click/C .Command1_Click）中编写相应代码。(2)、实现上述功能的VB程序如下，请在划线处填入适当的代码。Private Sub Command1 _ Click( )
Dim n As String, i As Integer, j As Integer
Dim a(0 To 30) As Long
Dim s As String
List1. Clear
①
a(1)=1
List. AddItem “ 1”
For 1=2 To n
a(1)=1
s = “”
For j=i To 1 Step-1
②
s=Str(a(3)) +”” + s
Next j
③
Next i
End sub
① ② ③
-
3、有一个数组data存放了n个数据，现从中删除了一个元素，其余的元素依次向前递补（假设删除的是第3个元素，则将第4个元素移到第3个元素处，第5个元素移到第4个元素处，以此类推），然后输出数组内容。输入要删除数的位置，点击“删除”按钮后删除指定数，并把剩余的数依次输出到List中，程序运行界面如图所示。
Dim data (10) As Integer ‘①
Dim n As Integer
Private Sub Command1_Click( )
Dim t As integer
t=Val (Text1. Text)
For i= t To n-1
②
Next i
n = n-1
For i =1 To n
③
Next i
End sub
Private Sub Form Load ( )
Dim i As Integer
n=10
For i =1 To n
data (i)=i*2
List1. AddItem Str(data(i))
Next i
End sub
(1)、与①处语句功能一样的是________（填字母）。A、Dim data ( 0 To 10) As Integer B、Dim data (1 To 10) As Integer(2)、为实现程序功能，请在划线处填入合适的代码。② ③
-
4、有如下VB程序:
Private Sub Command1_Click( )
For 1 = 1 To 10
f(i)= False
Next i
For i=2 To 10
If d(i)-d(i-1) > 0 Then
f(i)= True
d(1)=d(i)-d(i-1)
End If
Next i
For i=1 To 10
If f(i) Then ans = ans+1
Next i
Label1 Caption = Str (ans)
End sub
程序运行时，数组元素d(1)~d(10)的赋值分别为25、15、10、8、1、7、8、11、16、5，则标签Label1中显示的内容为（ ）
A、3 B、4 C、5 D、6 -
5、有如下VB程序段:
For i=2 To 5
j = i
k = a(j)
Do While a (j-1) < k And j > 1
a(j) = a (j-1)
Loop
a (j) = k
Next i
数组元素a(1)～a(5)的值依次为79，20，34，5661，该程序段运行后，数组元素a(1)～a(5)的值依次是（ ）
A、79，56，34，20，61 B、79，61，56，34，20 C、20，34，56，61，79 D、20，34，56，79，61 -
6、有如下VB程序段：
a(1) = 1: a(2) = 2
b(1) = 1: b(2) = 2
For i = 3 To 10
a(i) = a(i-1) + a(i-2)
b(i) = b(i-1) + a(i)
Next i
执行该程序段后，数组元素b(5)的值为（ ）
A、11 B、15 C、16 D、18 -
7、某VB程序如下：
Private Sub Command1_ Click( )
Dim a(1 To 15) As Integer
Dim i As Integer
a(1) = 1
For i = 1 To 15
a(i) = a(i-1) + i
Next i
Text1. Text = str(a(i))
End Sub
运行程序，单击命令按钮 Command1后，出现的错误提示为（ ）
A、下标越界 B、子程序或函数未定义 C、溢出 D、类型不匹配 -
8、有如下VB程序段:
For i = 1 To 6
a(i) = Int(Rnd*10) + 1
Next i
For i = 1 To 5
If i Mod 2 = 1 And a(i) > a(i + 1) Then
t = a(i): a(i) = a(i + 1): a(i + 1) = t
Else
a(i) = a(i) + 1
End if
Next i
执行该程序后，数组a各元素可能是（ ）
A、11，11，7，9，3，9 B、6，2，8，10，5，9 C、6，9，3，7，8，12 D、3，9，0，8，2，7 -
9、有如下VB程序段：
s = 0
For i = 2 To 5
For j = i To 5
If j Mod = i o Then
a(j) = a(j) + 1
s = s + a(j)
End if
Next j
Next i
数组a的初始值均为0，该程序段运行后，变量s的值为（ ）
A、3 B、4 C、5 D、6 -
10、有如下VB程序段：
Dim a(0 To 9)As Integer, t As Integer, x As Integer t = Val(Text, Text)
Do While t<>0
a(t Mod 10) = 1
t = t\10
LooP
For i = 0 To 9
x = x + a(i)
Next i
在Text1中输入20181230，执行该程序段后，x的值为（ ）
A、3 B、5 C、8 D、9 -
11、有如下VB程序段：
For i = 1 To 20
a(i) = 0
Next i
For i = 1 To 20
If i Mod 3 = 0 Then a(i) = 1-a(i)
Next i
For i = 1 To 20
If a(i) = 1 Then n = n + 1
Next i
执行该程序段后，变量n的值为（ ）
A、6 B、13 C、14 D、15 -
12、有如下VB程序段：
Dim a(1 To 5)As Integer
Dim res As string
n = 19: i = 0
Do While n < 0
i = i + 1
a(i) = n Mod 2
n = n\2
Loop
程序运行后，数组元素a(1)～a(5)的值依次是（ ）
A、1，0，0，1，1 B、1，1，0，0，1 C、1，0，0，1，0 D、1，0，1，0，0 -
13、有如下VB程序段：
Dim i As Integer, ans As Integer
Dim a(1 to 9) As Integer
ans = 0
For i = 1 To 9
a(i) = i^2
If a(i) Mod 3 = 0 Then ans = ans + a(i)
Next i
Text1. Text = Str (ans)
该程序段运行后，文本框Text中显示的内容是（ ）
A、55 B、126 C、259 D、385 -
14、下列程序段能正确表示将斐波那契数列1、1、2、3、5、8、13、21的前20项存入数组a的是（ ）
A、
B、
C、
D、
-
15、有如下 Visual Basic程序段：
Dim a(1 To 10)As Integer
a(1) = 1: a(2) = -1
For i = 3 To 10
a(1) = 2*a(i-1) + a(i-2)
Next i
Text1 Text = str (a(5))
该程序段运行后，Text1中显示的值是（ ）
A、0 B、-1 C、-2 D、-7 -
16、有如下VB程序段：
Dim a (1 To 10)As Integer
a(10) = 10
For i = 9 To 1 Step-1
a(i) = a(i + 1) + i
Next i
该程序段运行后，数组元素a(7)的值为（ ）
A、7 B、13 C、25 D、34 -
17、有如下VB语句：Dim a (-10 To 10) As Integer，以的理解有误的是（ ）A、定义一维数组a B、该数组有20个元素 C、所有数组元素均为整型 D、a(-10) = 0表示对第1个元素进行赋值
-
18、要输出1至100内所有能被7整除的数字，下列不能实现该功能的程序是（ ）A、
B、
C、
D、
-
19、某算法的流程图如图所示，执行该算法后，输出的结果是（ ）
A、5 B、20 C、50 D、210 -
20、某算法流程图如图所示。执行该算法后，下列说法错误的是（ ）
A、该算法执行后m的值是3 B、该算法执行后n的值是3 C、该算法执行后r的值是3 D、该算法中语句r=m-n执行了4次