重庆大学网院18春可视化程序设计（VB） ( 第1次 )作业题目
第1次作业一、单项选择题（本大题共40分，共 20 小题，每小题 2 分）
1. 表达x大于10且小于100的关系表达式为（ ）。
A.x>10 or x<100 B.10<x<100C.x>10 and x<100 D.10>x<100
2. 关于VB描述错误的是（ ）。
A.VB集成开发环境是一组软件工具，集应用程序的设计、编辑、运行调试等于一体B.VB是面向过程的程序设计语言C.VB具有事件驱动的编程机制D.VB的工具箱窗口由被绘制成按钮形式的图标构成。
3. 下列程序段的执行结果为（ ）。 a=100:b=50 If a>b Then a=a-b elseb=b+a End if Print a
A.10B.50C.100D.200
4. 下列程序段的执行结果是（ ）。 x = Int(Rnd + 4) Select Case x Case5 Print "优秀" Case4 Print "良好" Case 5 Print "通过" Case ElsePrint "不通过" End Select
A.优秀 B.良好C.通过D.不通过
5. 要使循环体至少执行一次，应使用的循环结构是（）。
A.For……next循环B.While……wend循环C.Do……Loop while|until循环 D.do……loop循环
6. 当变量x=2,y=5时，以下程序的输出结果为（ ）。Do until y>5 x=x*y y=y+1 loop print x
A.2B.5C.10D.20
7. 当执行以下程序时，在名为lblResult的标签框内将显示（）。 Private Sub cmdlt_click() Dim I,R R=0 For I=1 To 5 Step 1 R=R+INext I lblResult.Caption=Str（R）End Sub
A.字符串15 B.整数15C.字符串5D.整数5
8. 对象的属性用来描述对象的特征，它们是一组（ ）。
A.数据 B.程序 C.属性名D.操作
9. 下列程序运行时，输出星号的行数是（）。 Private sub Form_click（） For i＝ 1 to 10 For j＝ 1 to i Print”＊”；Next j Print Next i End Sub
A. 10
B. 20
C. 50
D. 100
10. 下列赋值语句中错误的是（ ）。
A. x＝x＋1
B. x＝x＋y
C. x＋y＝x
D. x＝4＞6
11. 在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后在输入框中输入"car"，则输出结果为（）。 Private Sub Command1_Click() s = InputBox("Pleaseinput Password:") If s <> "car" Then Print "您无权使用！" Else Print "谢谢使用！" End IfEnd Sub
A. 您无权使用！
B. 谢谢使用！
C. 什么也没有
D. 程序出错
12. 在文本框Text1中输入“（hello）”，则输出结果为（ ）。Private Sub Text1_KeyPress(KeyAscii As Integer) Dim count1% If Chr(KeyAscii) ="(" Then count1 = count1 + 1 ElseIfChr(KeyAscii) = ")" Thencount1 = count1 - 1 End If If KeyAscii = 13 Then If count1 = 0 Then Print"左右括号配对" ElseIf count1 > 0 Then Print"左括号多于右括号"; count1; "个" Else Print "右括号多于左括号";-count1; "个" End If End If End Sub
A. "左右括号配对"
B. "左括号多于右括号"
C. "右括号多于左括号"
D. 程序出错
13. 有如下语句，执行后该段语句的循环次数是（）。 Dim s,I,j as integer For I=1 to 3 For j=3 To 1 Step-1 S=I*j Next j Next I
A. 3
B. 4
C. 9
D. 10
14. 以下语句输出结果是（ ）。 Private Sub Form_Click()A="Beijing" b="ShangHai" Print a;b End Sub
A. Beijing ShangHai
B. AbeijingShangHai
C. BeijingShangHai
D. Abeijing
15. 对象的属性用来描述对象的特征，它们是一组（ ）。
A. 操作
B. 程序
C. 属性名
D. 数据
16. 下述叙述中正确的是（ ）。
A. 在不同程序中同一个事件的名称可以不同
B. 事件是由用户定义的
C. 事件是对象能够识别的动作
D. 对象的事件是不固定的
17. 表达式为4+5\6*7/8 Mod 9的值为（ ）。
A. 4
B. 5
C. 6
D. 7
18. 不支持双击事件的控件是（ ）。
A. Form
B. TextBox
C. Label
D. CommandButton
19. 下列程序运行后，输出的结果为（ ）。 B=1 Do while (b
A. 1
B. 6
C. 39
D. 42
20. 下列程序段的执行结果为（）。 N=0:J=1 Do Until N>2 N=N+1J=J+N*(N+1) Loop Print N;J
A. 0 1
B. 3 7
C. 3 21
D. 3 13
二、填空题（本大题共24分，共 6 小题，每小题 4 分）
1. 改变窗体前景色的属性是。
2. VB的集成开发环境包括标题栏、、、、、、工程资源管理窗口和代码设计窗口。
3. 隐式声明字符型变量应使用________符号，整型变量应使用________符号。
4. 仅当两个操作数均为真时，结果为真；有一个操作数为假，结果为假，这是逻辑运算规则。
5. 关系表达式"abc" Like "ab[!d-g]"的结果为。
6. 数学式file:///C:/Users/ADMINI~1/AppData/Local/Temp/msohtmlclip1/01/clip_image002.gif写成VB表达式为 ()。
三、程序阅读题（本大题共18分，共 3 小题，每小题 6 分）
1. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() x=0 For i=1 to 3 x=1 For j=1 to 4 x=2 For k=1 to 5 x = x + 2 Next k Next j Next i Print xEnd Sub 程序运行后，单击命令按钮，输出结果为（）
2. 以下程序的输出结果是（ ） Dim iAs Integer, a As Integer Do While i< 20 Do While True If i Mod 10 = 0 Then Exit Do Else i = i -1 End If Loop i = i + 11 : a = a + i Loop Print a
3. 以下程序运行后。 Si, sj, sk, I, j, k的结果分别为( )Privatesubcommand1_click( ) Si=0:sj=0 For I=1 to3Forj=1to ISk=0 Fork=jto3 Sk=sk+1 Next k Sj=sj+1 Next j Si=si+1 Next I Print si,sj,sk,I,j,kEnd Sub
四、简答题（本大题共18分，共 3 小题，每小题 6 分）
1. VB有哪几种工作模式？
2. 叙述建立一个完整的应用程序的过程。
3. 将数字串转换成数值用什么函数？判定是否是数字串用哪个函数？取字符串某几个字符使用什么函数？大小写字母转换用什么函数？
答案：
一、单项选择题（40分，共 20 题，每小题 2 分）
1. C 2. B 3. B 4. B 5. C 6. C 7. A 8. A 9. A 10. C 11. B 12. A 13. C 14. C 15.D 16. C 17. B 18. D 19. D 20. C
二、填空题（24分，共 6 题，每小题 4 分）
1.
参考答案：ForeColor
解题方案：
评分标准：
2.
参考答案：菜单栏、工具栏、控件箱、窗口设计器、属性设置
解题方案：
评分标准：
3.
参考答案：$、%
解题方案：
评分标准：
4.
参考答案：与（and）
解题方案：
评分标准：
5.
参考答案：true
解题方案：
评分标准：
6.
参考答案：
a*h/2
解题方案：
评分标准：
三、程序阅读题（18分，共 3 题，每小题 6 分）
1.
参考答案：12
解题方案：
评分标准：
2.
参考答案：32
解题方案：
评分标准：
3.
参考答案：3,6,1,4,4,4，
解题方案：
评分标准：
四、简答题（18分，共 3 题，每小题 6 分）
1.
参考答案：（1）设计模式；（2）运行模式；（3）中断模式。
解题方案：
评分标准：
2.
参考答案：（1）建立用户界面对象；（2）对象属性设置；（3）创建对象事件过程及编程；（4）运行和调试程序；（5）保存程序及生成可执行文件。
解题方案：
评分标准：
3.
参考答案：（1）数字串转换成数值用val函数；（2）判定是否是数字串用isnumeric函数。（2）取字符串某几个字符使用mid函数。（3）大小写字母转换用lcase函数\ucase函数。
解题方案：
附件为可编辑word版本，内容和帖子内容一样，需要可以下载
页:
[1]