发布时间 : 星期三 文章Vb专题习题 - 图文更新完毕开始阅读dba07b45c77da26924c5b064
VB专题习题
该程序运行后，变量s的值是()
（A）0 （B）1 （C）5 （D）15 25.下列Visual Basic表达式的值等于56的是() （A）Mid(\（B）Len(\（C）Sqr(56) （D）Abs(-55)+1 26.
27.
9 / 30
VB专题习题
28. 小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现如右图所示的错误信息：
n = 0 m = 0
For i = 1 To 100 If Rnd > 0．5 Then n = n + 1 Else m = m + 1 Next i ??
小金仔细分析该程序段后，发现其中缺少了( ) A. For
B. Next
C. End If
D. If
29. 有如下VB程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer a = Val(text1.Text) b = Val(text2.Text)
c = (a + b + Abs(a - b)) \\ 3 Text3.Text = Str(c) End Sub
运行该程序，分别在文本框Text1、Text2中输入5、9，单击命令按钮Command1后，文本框Text3中显示的内容是（）
A.6
B.5
C.4
D.7
30.如右图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是： （ ） Private Sub Command1_Click() Dim a(1 To 4) As Integer Dim i As Integer a(1) = 1 For i = 2 To 4
a(i) = 2 * a(i - 1) + 1 Next i
List1.AddItem Str(a(i)) End Sub
10 / 30
VB专题习题
A． C．
31. 若x表示能被3整除的正整数，则下面逻辑表达式的值一定为真的是： （ ） A. Int(x / 3) = 0 B. 3 Mod x = 0 C. x Mod 3 = 0 D. x\\3 = 0
32. 、为使下面左右框内的VB程序段实现相同的功能，则左框内划线处填写的代码应该是（ ）。
0 s=0:t= Do While t<=6
s=s+t
Loop A． A.t=2 C.t=t+1
s=0 For t=1 To 6 Step 2 s=s+t Next t D． B．
B．B.t=6 D．D.t=t+2
33. VB表达式S=Int（Rnd()*1000+9000），则S的取值范围是（ ）
,S?R} B. {S|9000?S?10000,S?Z} A.{S|9000?S?10000,S?R} D. {S|9000?S?10000,S?Z} C.{S|9000?S?1000034. 下表记录了6个数据的排序过程。分析表中数据可知，该排序采用的算法与排序方式分别为（ ）
原始数第1遍 第2遍 第3遍 ? 65 44 44 44 ? 57 65 45 45 ? 59 57 65 57 ? 11 / 30
44 59 57 65 ? 45 45 59 59 ? 69 69 69 69 ? VB专题习题
A．冒泡排序，升序 B．选择排序，升序 C．冒泡排序，降序 D．选择排序，降序
35.阶乘是基斯顿﹒卡曼于1808年发明的运算符号。正整数n的阶乘为n！=1×2×3?×n。小王编写了如下VB程序用来求S=1！+2！+3！+?+10！。
Function fac(n As Integer) As Long fac = 1 For i = 1 To n fac = fac * i Next i End Function
Private Sub Command1_Click() Dim s As Long, j As Integer For j = 1 To 10
Next j
Text1.Text = Str(s) End Sub
方框中的正确语句是： A．s = s + fac(j)
B．s = fac(j) D．s = s + fac(i)
C．s = s + i * fac(i)
36. 下列逻辑表达式中，值为False的是（ ）
A．Asc(\．Int( Rnd * 49 ) < 49 C．3+4 <= 7 and 5+6 > 9 D．\
37. 有100个大小形状一样的透明玻璃球，其中有1个玻璃球的重量轻于其他99个玻璃球，小明想利用一台无砝码的天平，运用合理的算法保证一定能找出这颗轻玻璃球的最少的次数为：
A．100
B．10
C．8
D．6
38. 下列VB程序中，f是一个递归函数： Private Sub Command1_Click() Dim y As Integer y = Val(Text1.Text) Label1.Caption = Str(f(y)) End Sub
Function f(n As Integer) As Integer
12 / 30