程序设计语言VB试题
一、选择题(每题2分,共10分)
8 ]7 W7 D4 ^6 K7 k( h8 U
1. 表达式4+5\6*7/8 Mod 9的值是 B 。
A) 4 B) 5 C) 6 D) 7
2. 程序运行时复选框如果选中,其Value值是 C 。
A) 0 B) 1 C) True D) False
3. 双击窗体中的对象后,Visual Basic将显示的窗口是 D 。
A)项目(工程)窗口 B)工具箱 C)属性窗口 D)代码窗口
4. 以下选项中,不属于单选按钮属性的是 。
A)Enabled B) Caption C)Name D)Min
5. 当拖动滚动条中的滚动块时,将触发滚动条的事件是 C 。
A) Move B) SetFocus C) Scroll D) Change
二、简述下图程序界面的设计步骤(包括添加控件、设置属性和编程,20分)
三、说明下列程序的运行结果或回答问题(每题10分,共20分)
4 H9 L( P! T) S/ V2 C8 i& g
1. 以下程序的输出结果是 。
Private Sub Command1_Click()
Dim a(9) As Integer, p(3) As Integer
k = 3
For i = 1 To 9
a(i) = i
Next i
For i = 1 To 3
p(i) = a(i * i)
Next i
For i = 1 To 3 第 2 页,共 2 页
k = k + p(i) * 2
Next i
Print k
End Sub
2. 在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下事件过程:
Private Sub Command1_Click( )
Dim a(4,4)
For i=1 To 3
For j=1 to 3
a(i,j)=(i-1)*2+j
Next j
Next i
For i=1 To 3
For j=1 to 3
Print a(i,j);
Next j
Next i
End Sub
程序运行后,单击命令按钮,其输出结果为 。
四、编写程序(前3小题每题10分,4小题20分,共50分)
1. 设计在一框架中包含三个单选框,只有当其3选中时,才在Text2中显示"Good"字符。
2. 从文本框输入你的3位号码,如果是"358",在标签框输出一等奖信息;如果前两位是"35",输出二等奖信息;如果前一位是"3",输出三等奖信息;其余则输出谢谢参与信息。
3. 机票优惠,某航空公司规定在7-9月份,如果订票数超过20张,则票价优惠15%;如果超过10张,则票价优惠5%;在1-5月份和11月份,如果订票数超过20张,则票价优惠25%,如果超过10张,则票价优惠15%。从输入对话框中输入票价、订票数及月份,用文本框显示出所需金额。
4. 输入6个学生的数学成绩,按不及格、60-70、71-99、100统计各个分数段的人数。