loading
Case (3) y = 2 * x
Case (4) y = 3 * x + 2 Case Else y = 0 End Select
Print \End Sub
3. 下面程序的功能是计算s=1+2+4+6+…+998。
Private Sub Command1_Click()
s = （5） n = 2
Do While n < （6） s = s + n n = n + 2 Loop
Print \End Sub
4. 下面程序的功能是：寻找能同时被5和9整除的5个最小正整数。
Private Sub Command1_Click() Dim n As Integer, m As Integer n = 0: m = 4 Do
m = m + 1
If （7） Then
Print m n = n + 1 End If
Loop While （8） End Sub
5．下面程序功能是计算1! + 3! + 5! + 7! + 9! 的值。
Private Sub Form_Click() Sum = 0
For i = 1 To 9 (9) Sum = Sum + (10) Next i Print Sum End Sub
Private Function dg(x) As Single
If x = 1 Then dg = 1 Else dg = x * dg(x - 1) End Function
五、分析程序(每小题4分, 共20分)
1．下面的程序运行后，单击窗体，窗体上输出的结果是（ ） Private Sub Form_Click()
k = 15
第 5 页 共 7 页
If k <= 10 Then a = 2 * k + 100 If k <= 20 Then a = 2 * k + 200 If k <= 30 Then a = k + 10 Print k; a End Sub
（A）15 130 （B）15 230 （C）15 25
2．下列程序运行后，单击窗体，输出结果为（ D ） Private Sub Form_Click()
Dim s As Integer, i As Integer Do While i <= 100 s = s + i Loop Print s End Sub （A）100 （B）5050 （C）5500
3．运行下列程序，单击窗体，在窗口上显示的结果为（ ）
Private Sub Form_Click() Dim a As Integer a = 4
Print a = 3 + 2 End Sub （A）4 （B）5 （C）True
4．下面程序运行后在窗体上显示的结果是 （ ）
Private Sub Form_Click ( ) For k = 1 To 7 For j = 1 To 7
If k < j Then Print 1; Else Print 0; Next j Print Next k End Sub
（D）25 15
（D）溢出错误
（D）False
（A）
（B）
（C）
（D）
5．在VB程序的窗体上添加定时器Timer1，然后书写下述代码，程序启动运行1分钟之后，窗体上显示的最后结果为（ ） Private Sub Form_Load() i = 0
Timer1.Enabled = True Timer1.Interval = 1000
第 6 页 共 7 页
End Sub
Private Sub Timer1_Timer()
Me.Cls i = i + 1 Print i End Sub （A）0 （B）1 （C）60 （D）1000
六、编制程序(每小题10分, 共20分) 1． 编写程序，统计文本框Text1内出现的英文单词数目（数字不能视为英文单词），统计结果显示在标签
控件Label1中。
2． 编写程序，单击“计算”命令按钮Command1时，能按如下公式计算自然对数底数e的值，并将计算结
果显示在标签Label1中(直到最后一项小于10-7为止)。
e?1?1111????? 1!2!3!n!
第 7 页 共 7 页