bishi

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 页