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