四
1、下面程序是计算1到10之间的奇数之和以及偶数之和。
Private Sub Form_Click() Dim k, a, c As Integer For k = 1 To 9 Step 2 c = c + (1) a = a + (2) Next k
Print \偶数之和为：\ Print \奇数之和为：\End Sub A、(1) k ○(2) k+1 B、(1) k (2) k C、(1) k+1 (2) k D、(1) k (2) c
2、二数相加为316,其中一数为13的倍数, 另一数为11的倍数,求此二数____。 i=0
10 i=i+1
IF (1) THEN 20 (2)
20 PRINT i*13;\
END
A、(1) (316-13*i)=INT((316-13*i)/11) (2) GOTO 10
B、（1) (316-13*i)/11=INT((316-13*i)/11) (2) GOTO 10 C、（1）(316-13*i)/11=INT((316-13*i)/11) (2) GOTO 20 D、（1) (316-13*i)=INT((316-13*i)/11) (2) GOTO 20 3、下边程序的功能是当用鼠标右键单击窗体Form1时，就会出现一个弹出式菜单\。
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = (1) Then Form1. (2) mm End If End Sub
A、（1) 1 (2) PopupMenu B、（1) 2 (2) Show
C、(1) 2 (2) PopupMenu ○
D、 (1) 1 (2) Show
4、下面程序的功能是，输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的\变换成\。 Private Sub Command1_Click() Dim a, c As String
11
2013-4-8第六组
Dim n, i As Integer
a = InputBox(\输入字符串\ n = (1)
For i = 1 To Int(n \\ 2) c = Mid(a, i, 1)
Mid(a, i, 1) = Mid(a, n - i + 1, 1) Mid(a, n - i + 1, 1) = (2) Next i Print a End Sub A、(1)7 (2)a B、(1)a (2)a C、(1)a (2)c D、（1)Len(a) ○(2)c
5、在窗体上画两个列框，当双击列表框1中的某个项目时可把它添加到列表框2中。
Private Sub Form_Load() List1.AddItem \ List1.AddItem \ List1.AddItem \ List1.AddItem \End Sub
Private Sub List1_DblClick() List2.(1) (2) End Sub A、（1）RemoveItem (2) List2.text B、(1) AddItem (2) List1.Text ○
C、(1) AddItem (2)List2.Text D、(1) RemoveItem (2) List1.text
6、下面程序的功能是计算输入数的阶乘值。
Private Sub Form_Click() Dim n As Integer
n = Val(InputBox(\请输入一个大于0的整数:\ Print fact(n) End Sub
Private Function fact(m) Dim i As Integer fact = (1)
For i = 2 To (2)
fact = fact * (3) Next i End Function
A、（1）1 (2)m-1 (3)i B、(1)1 (2)m (3)i ○
12
2013-4-8第六组
C、(1)0 (2)m-1 (3)i D、(1)0 (2)m (3)i
7、下面程序的功能是，当点击命令按钮Command1时，卸载当前窗体，并显示窗体Form2。
Private Sub Command1_Click() (1) Me Form2. (2) End Sub A、(1)Hide (2)Show B、(1)Unload (2)Load C、(1)Load (2)Show D、(1)Unload (2)Show ○
9、以下程序要求能进行4次计算并输出y值,然后结束。 p=1
10 INPUT \ IF _____ GOTO 99 p=p+1 y=9*x+9 PRINT \ GOTO 10 99 END
A、P>4 ○
B、P=4 C、E.P>=4 D、P<4
10、下面程序的功能是标签Label1的字体会随着时间从小变大并且反复循环。
Private Sub Timer1_Timer() If Label1. (1) < 100 Then
Label1.FontSize = Label1.FontSize * 1.2 Else
Label1.FontSize = 10 End If End Sub
上边程序运行后，要求每秒钟改变一次字体大小，则计时器的 (2) 属性应设置成 (3) 。
A、（1）FontSize (2) Enabled (3) 1000 B、(1) FontSize (2) Interval (3) 1000 ○
C、(1) FontSize (2) Enabled (3) 1 D、(1) FontSize (2) Interval (3) 1 11、下面程序的功能是向一个顺序文件\中写入员工姓名、年龄及工资。
Private Sub Command1_Click() Dim name As String * 8 Dim age As Integer Dim wage As Single
13
2013-4-8第六组
name = \张三\age = 22
wage = 156.8
Open \(2) #1, name, age, wage Close #1 End Sub
A、(1) Input (2) Input B、(1) OutPut (2) Input ○C、(1) Output (2) Write D、(1) Input (2) Print
2013-4-8第六组
14