2013版VB练习题13_4_15_pdf(6)

2012-2013学年第二学期“计算机程序设计基础 Visual Basic”练习题

C.

6 5 6 4 5 6 3 4 5 6 2 3 4 5 6 1 2 3 4 5 6

29. 下列程序的输出结果为【 】。

n = 2

While n <= 3 n = n + 1 Print n; Wend A. 3 A = 16 B = 12 While B > 0 R = A Mod B A = B B = R Wend Print A A. 2 S = 0 X = 1 While X < 50 X = X + 1 S = S + X Wend Print S

A. 计算2 + 3 + 4 +...+ 49 C. 计算2 + 3 + 4 +...+ 50 32. 下列程序的执行结果为【 】。

A = 1 B = 1 While A < 15

B. 计算1 + 2 + 3 +...+ 49 D. 计算1 + 2 + 3 +...+ 50

B. 4

C. 0

D. 12

31. 下面程序完成的功能的是【 】。

B. 3 4

C. 3 4 5

D. 0

D. 6 5 4 3 2 1

5 4 3 2 1 4 3 2 1 3 2 1 2 1 1

30. 成功地执行下述程序后，窗体上输出的A值为【 】。

第 26 页 共 85 页

2012-2013学年第二学期“计算机程序设计基础 Visual Basic”练习题 If (A Mod 4 = 0) Then B = B + A A = A + 1 Wend Print B A. 15

B. 25

C. 30

D. 40

33. 设x，y都是自然数，为求x除以y的余数，现编写了以下程序段：

cut = 0 While x > y x = x - y Wend cut = x

在执行程序时发现结果是错误的，为了能产生正确的结果，应做的修改是【 】。 A. 把x = x - y改为x = y - x B. 把x = x - y改为x = x \\ y C. 把While x > y改为While x <= y D. 把While x > y改为While x >= y

34. 在设计循环语句时，若有以下要求：在执行循环之前先测试条件表达式 expression， 然后让代码循环执行到该条件表达式的值取“真”为止，则应使用的循环语句是【 】。

A. do until expression

…… Loop C. do while expression

…… Loop

35. 下列程序段的执行结果为【 】。

a = 9

b = 5 Do a = a + 1 b = b + 2 Loop Until a >= 7 Print \Print \A. a＝4 b＝5

B. a＝7 b＝15

C. a＝6 b＝8

D. a＝10 b＝7

B. do

……

Loop until expression D. do

……

Loop while expression

36. 下列程序段的执行结果为【 】。

x = 1

y = 5 Do

第 27 页 共 85 页

2012-2013学年第二学期“计算机程序设计基础 Visual Basic”练习题 x = x + y y = y + 1 Loop While x < 10 Print x; y A. 1 5

Do While m <> n

Do While m > n: m = m - n: Loop Do While m < n: n = n - m: Loop Loop A. 1

B. 2

C. 4

D. 8

B. 12 7

C. x y

D. 10 25

37. 若m = 20、n = 18执行下列程序后，m值会变为【 】。

38. 下列程序段的执行结果为【 】。

a = 0

b = 2

Do Until a > 3 a = a + 1 b = b + a * (a - 1) Loop Print a; b A. 1 2 i = 1: j = 1 Do While i < 5 Do While j < 5 j = j + 1 Loop i = i + 1 Loop Sum = i + j A. 10 s = 0: c = 1 While c <> 5 For i = 1 To c s = s + 1 Next i c = c + 1

B. 15

C. 225

D. 345

40. 下列Visual Basic程序段的执行结果为【 】。

B. 4 6

C. 4 22

D. 4 17

39. 执行下列Visual Basic程序段，顺利运行后，变量sum的值为【 】。

第 28 页 共 85 页

2012-2013学年第二学期“计算机程序设计基础 Visual Basic”练习题

Wend Print s A. 4

B. 7

C. 9

D. 10

41. 下列Visual Basic程序段执行后，b的值为【 】。

a = 1: b = 2 Do

While a < 10 a = a + 1 Wend b = a + b

If (b Mod 2 = 0) Then b = b + 5 Else b = b + 3 End If Loop Until b > 50 A. 55 s = 0: x = 1 Do

For y = 1 To x s = s + 1 Next y x = x + 1 Loop While x <= 10 Print s A. 36

B. 45

C. 55

D. 65

B. 58

C. 68

D. 73

42. 下列程序执行后，显示的结果为【 】。

二、填空题

1. 结构化程序设计的基本结构有：顺序结构、 2. 选择结构的语句有 、 3. 循环结构的语句有 、

和循环结构。

、 。

。 、

4. 选择结构中的条件为If \时，其逻辑值是 。 5. 在循环语句中，有循环次数的循环是 。

6. 下面程序的作用是用InputBox函数输入一个整数，然后判断能否同时被2和7整除，如 果能则输出该数，请填空。

Private Sub Command1_Click()

Dim numX As Integer

numX = Val(InputBox(\请输入一个整数\

第 29 页 共 85 页

2012-2013学年第二学期“计算机程序设计基础 Visual Basic”练习题

Then

Form1.Print End If

End Sub

7. 下列这段程序代码将变量 A与 B的数值依据大小重新调整，把较大的数存放到变量 A中， 较小的数存放到变量 B中，则空格中应填入的程序代码为：

If B > A Then

B = A A = H End If

8. 在窗体上有一个“背景色变换”按钮和一个“结束”按钮，名称分别为cmdChange和

cmdExit。单击“背景色变换”按钮，背景色变为红色；再单击，背景色变为绿色；再单击， 背景色变为蓝色；再单击背景色变为红色……如此循环。单击“结束”按钮，程序运行结束。 请填空。

Private Sub cmdChange_Click() If Mark = 0 Then Mark = 1 ElseIf Then

Form1.BackColor = vbGreen Mark = 2 ElseIf Mark = 2 Then

Form1.BackColor = vbBlue

End If End Sub

Private Sub cmdExit_Click() End End Sub

9. 在窗体上放入一个名称为Button1的命令按钮和两个名称分别为Text1、Text2的文本框， 然后编写如下事件过程：

Private Sub Button1_Click() Dim n As Integer, x As Integer n = Int(Text1.Text) Select Case n Case 1 To 20 x = 10 Case 2, 4, 6

x = 20 Case Is < 10

x = 30

第 30 页 共 85 页

If

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库2013版VB练习题13_4_15_pdf(6)在线全文阅读。