2013版VB练习题13_4_15_pdf(8)

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

If (a Mod 2 = 0) Then a = a + 1

ElseIf (b Mod 2 = 0) Then b = b + 2 Else a = a + 2 b = b + 1 End If Print a; b

4.判断下列程序段的执行结果。

Private Sub Form_Click() x = 5 \\ 2 Select Case x Case 1

Print \Case 2

Print \Case Else Print \End Select End Sub

5.判断下列程序段的执行结果。

a = 2 If a > 0 Then Select Case a + 2 Case 2 Print \Case 4 Print \Case Else Print \End Select End If

6.两次单击窗体后，判断下列程序段的执行结果。

Private Sub Form_Click() Static Sum As Integer For i = 1 To 10

第 36 页 共 85 页

2012-2013学年第二学期“计算机程序设计基础 Visual Basic”练习题 Sum = Sum + i Next i Print Sum End Sub

7.判断下列程序段的执行结果。

a = 5 For k = 7 To 0 a = a + k Next k Print k; a

8.判断下列程序段的执行结果。

Private Sub Form_Click() Dim a As String a = \For i = 1 To 5

Print Space(6 - i); Mid(a, 6 - i, 2 * i - 1) Next i End Sub

9.判断下列程序段的执行结果。

For i = 7 To 1 Step -2 Print Tab(7 - i + 1); For k = 1 To i Print \Next k Print Next i

10.在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() a = 0

For i = 1 To 2 For j = 1 To 4

If j Mod 2 <> 0 Then a = a - 1 End If a = a + 1 Next j Next i Print a End Sub

程序运行后，单击命令按钮，判断输出的结果。 11.判断执行下列Visual Basic程序段的结果。

第 37 页 共 85 页

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

n = 0: i = 0 While i < 50

If i Mod 13 = 1 Then n = n + i End If i = i + 3 Wend Print \

12.判断下列程序的执行结果。

Private Sub Command1_Click() Dim x As Long x = 98765 While x > 9 Print x Mod 10; x = x \\ 10 Wend Print x End Sub

13.判断下列程序段的执行结果。

i = 4

x = 5 Do i = i + 1 x = x ^ 2 Loop Until i >= 7 Print \Print \

14.有如下事件过程：

Private Sub Command1_Click()

b = 10 Do Until b = -1

a = InputBox(\请输入a的值\a = Val(a)

b = InputBox(\请输入b的值\b = Val(b) a = a * b Loop Print a

第 38 页 共 85 页

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

End Sub

程序运行后，依次输入数值30，20，10，－1，判断输出结果。 15.判断下列程序段的执行结果。

Sum = 0 For i = 10 To 20 j = 15 While j <= 20 Sum = Sum + 1 j = j + 1 Wend Next i Print Sum

16.在窗体上画一个命令按钮和两个标签，其名称分别为 Command1、Label1 和 Label2，并 编写如下事件过程：

Private Sub Command1_Click() a = 0

For x = 1 To 10 a = a + 1 b = 0

For y = 1 To 10

a = a + 1 b = b + 2 Next y Next x

Label1.Caption = Str(a) Label2.Caption = Str(b) End Sub

程序运行后，单击命令按钮，判断在标签Label1和Label2中输出的结果。 17. 写出下面程序段的输出结果。

For a = 1 To 6 Print Tab(7 - a); For b = 1 To 2 * a -1 Print \Next b Next a

18. 写出下面程序段的输出结果。

N = 1

第 39 页 共 85 页

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

For K = N To 5 Print \Next K Print N = N + 1 Loop Until N>5

19. 写出下面程序段的输出结果。

C = \For N = 1 To 4 Print Right(C,N) Next N

20. 写出下面程序段的输出结果。

For I = 1 To 7

Print Tab(8-I);String(I,Trim(Str(I))) Next I

第 40 页 共 85 页

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