一、选择题(每题2分，共10分)
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分)
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统计各个分数段的人数。
袄要
傻子袄扫册来
飘过....
我上学期VB差点挂掉.....赶快闪....
有心理阴影当年考试 女生给的答案...感谢那位女生~
有没人知道啊...迫切需要答案...
| 欢迎光临 下沙论坛 (http://bbs.xiasha.cn/) | Powered by Discuz! X3.3 |