VB期中复习.doc

VB期中复习.docVB期中复****br/>以下语句的输出结果是 o
Print Format$(〃32548. 5〃，〃000, 000. 00〃)
答案：032, 548. 50
在窗体上画一个命令按钮(名称为Command 1),编写如下事件过程： Private Sub Commandl_Click()
b 二 5 c 二 6
Print a 二 b + c
End Sub
程序运行后，单击命令按钮，输出的结果是：O
答案：False
在窗体上画一个名称为Textl的文本框，并编写如下程序：
Private Sub FormLoad()
Show
=
Textl. SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print程序设计〃
End Sub
Private Sub Textl KeyDown(KeyCode As Integer, Shift As Integer) Print Visual Basic”;
End Sub
程序运行后，如果按〃A〃键，然后单击窗体，则在窗体上显示的内容是 o
答案：Visual Basic程序设计
在窗体上画两个名称分别为Textl、Text2的文本框和一个名称为Command 1的命令按钮, 然后编写如下事件过程：
Private Sub Commandl_Click()
Dim x As Integer, n As Integer x = 1 n 二 0
Do While x < 20
x 二 x * 3
n = n + 1
Loop
二 Str(x)
= Str (n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是 O
答案：27和3
在窗体上画一个名称为Command 1的命令按钮，然后编写如下程序: Option Base 1
Private Sub Commandl_Click()
Dim c As Integer, d As Integer d 二 0 c = 6
x = Array (2, 4, 6, 8, 10, 12) For i = 1 To 6
If x(i) > c Then d = d + x(i) c = x(i) Else d 二 d - c End If
Next
Print d
End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 O
答案：12
以下程序段运行的结果是：o
Dim a(-l To 5) As Boolean Dim flag As Boolean flag 二 False Dim i As Integer Dim j As Integer Do Until flag = True For i = T To 5 j 二 j + 1 If a(i)二 False Then a(i) = True Exit For End If If i 二 5 Then flag = True End If
Next
Loop
Print