A) ab B) bd C) ac D) 出错
（28）窗体上有一个名称为Text1 的文本框,一个名称为Command1 的命令按钮。编写如下的代码:
Private Type x a As Integer b As Integer End Type
Private Sub Command1_Click Dim y As x
y.a =inputBox(\ If y.a\\2=y.a/2 Then y.b=y.a*y.a Else
y.b=Fix(y.a/2) End If
Text1.Text=y.b End Sub
对以上程序,下列叙述中错误的是 A) x是用户定义的类型
B) InputBox函数弹出的对话框中没有提示信息 C) 若输入的是偶数,y.b的值为该偶数的平方
D) Fix(y.a/2)把y.a/2的小数部分四舍五入,转换为整数返回
2．填空题
（1）用户可以用 语句定义自己的数据类型。
（2）组合框的Style属性决定了它的3种不同类型，其中使得组合框只能选择而不能输入数据的Style值为 。
（3）下列程序的功能是求sin(0.3125)的值。由台劳级数可知：
sinx=x-x3/3!+ x5/5!- x7/7!+??
用有限步取代sinx的无限步计算，请填空。
（注意：不得增行或删行, 也不得更改程序的结构！） Private Sub Form_Click() k = 2: n = 80 x = 0.3125 sin1 = 0
fn = 1: fx = x For i = 1 To n
sin1 = sin1 + fx / fn
fn = fx = k = k + 2 Next i
Print sin1 End Sub
（4）下列程序的功能是：计算并输出100以内的所有能被3整除且个位数是6的所有整数，请填空。（注意：不得增行或删行, 也不得更改程序的结构！） Private Sub Form_Click()
Dim i As Integer, j As Integer
For i = 0 To j = i * 10 + 6
If Then Print j End If Next i End Sub
（5）在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后,在列表框中添加若干列表项。当双击列表框中的某个项目时,在标签Label1中显示所选中的项目,如图所示。请在空白处填入适当的内容,将程序补充完整。
Private Sub Form_load()
List1.AddItem \北京\ List1.AddItem \上海\ List1.AddItem \河北\ End Sub
Private Sub List1_DblClick() Label1.Caption=? ? End Sub
（6）在窗体上有一个列表框,然后编写如下两个事件过程:
Private Sub Form_Click() List1.RemoveItem 1 List1.RemoveItem 2 List1.RemoveItem 3 End Sub
Private Sub Form_Load() List1.AddItem\List1.AddItem\ List1.AddItem\List1.AddItem\ List1.AddItem\ List1.AddItem\End Sub
运行上面的程序,然后单击窗体,列表框中显示的项目是? ? 。
（7）下列程序功能是,产生10个0~100的随机数,输出其中的最大值。请将程序补充完整。
Private Sub Form_Click() Dim an(10) As Integer Dim max As Integer Randomize For i=1 To 10
an(i)= Next i
max=an(1) For i=2 to 10
if an(i)>max then max=an(i) End If Next Print max End Sub （8）下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中能被5整除的数所占比例,但程序不完整,请补充完整。
Private Sub Form_Click() Randomize Dim a(10) For i=1 To 10
a(i)=Int( ) If Then k=k+1 Print a(i) Next i Print
Print k / 10 End Sub
一、单项选择题答案 1. C 11. B 21. B 2. A 12. A 22. B 3. D 13. B 23. C 4. C 14. A 24. D 5. D 15. C 25. B 6. A 16. C 26. B 7. A 17. C 27. B 8. C 18. C 28. D 9. A 19. A 10. C 20. A 二、填空题答案 1. Type 2. 2 3. 空1：fn*k*(k+1) 或 fn*(i*2)*(i*2+1) 空2：-fx*x^2 4. 空1：9 空2：j mod 3 =0 5. list1.text 6. ItemA ItemC ItemE 7. rnd*100 8. 空1：rnd*99+1 空2：a(i) mod 5=0