程序
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
语言VB ★
程序设计语言VB期末考试模拟题(2011秋第一学期)
一、 单选题 ( 下列各小题备选
答案
八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案
中,只有一个符合题意的答案。多选、
错选、不选均不得分 )
1. 下列控件中可用于接受用户输入文本,又可用于显示文本的是(B)。
A. Label控件
B. TextBox控件
C. Timer控件
D. CommandButton控件
2. 选拔身高T超过1.7米且体重W小于60公斤的人,
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
示该条件的布尔表达式为(C)。
A. T>=1.7 And W<=60
B. T<=1.7 Or W>=60
C. T>1.7 And W<60
D. T>=1.7 Or W<60
3. Len(“Friend”)的值是(A)。
A.6
B.7
C.8
D.9
4. 若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是(C )。
A. Value
B. Cancel
C. Default
D. Enabled
5. 表达式4+5 \ 6 * 7 / 8 Mod 9 的值是(B)。
A. 4
B. 5
C. 6
D. 7
6. 在Select判断结构中,下面的表述中不正确的是(B)。 A. Case 1
B. Case a > 5
C. Case 3 To 6
D. Case is <10
7. 为了把焦点移到某个指定控件,所使用的方法是 (D)。 A. GetFocus
B. Visible
C. Refresh
D. SetFocus
8. 使用Line方法时,参数B和F可以组合使用,下列组合中( D )是不允许的。
A. 不使用B和F
B. B
C. B和F
D. F
9. VB编程中顺序文件的处理将用到关键字是(C)。 A. File
B. Save
C. Open
D. Disk
10. 下列叙述中,错误的是( A)。
A. 顺序文件打开后,既可以读又可以写
B. 随机文件打开后,既可以读又可以写
C. 顺序文件打开后,只能读或者只能写
D. 顺序文件和随机文件的打开都使用Open语句 11. 设在窗体上有一通用对话框控件Commonialog1,通过调用(C)语句可以建立“颜色”
对话框。
A. Commonialog1.ShowOpen B. Commonialog1.Action=2 C. Commonialog1.ShowColor D. Commonialog1.Action=5 12. 在窗体内声明的变量是(B)。
A. 局部变量
B. 模块变量
C. 公共变量
D. 任意变量
二、 填空题1
13. 假定有如下的Sub过程:
Sub S(x As Single, y As Single)
t = x
x = t + x
y = t - y
End Sub
Private Sub Command2_Click()
Dim a As Single, b As Single
a = 6
b = 4
Call S(a, b)
Print a, b
End Sub
程序运行后,单击命令按钮输出结果为 12、2 。 14. 阅读下列程序段
Private Sub Command1_Click() Dim i As Integer
Dim k As Integer
k = 0
For i = 0 To 10
k = k + 1
i = i + k
Next
Print k; i
End Sub
请问其循环体共执行了 4 次,i的值是 14 。
三、 简答题
15. 简述下图程序界面的设计步骤,包括添加控件、设置属性和编程。
(1)调整窗体到合适的大小,并将Caption属性设为“复选框的应用”。
(2)添加框架Frame1,将其Caption属性设置为“字体格式选择”。
(3)在框架中,添加复选框Check1、Check2、Check3,分别将其Caption属性修改为“加粗” 、“倾斜” 、“下划线”。
(4)添加标签Label1,修改其属性为“字体格式效果:”。
(5)添加文本框Text1,修改其Text属性为“你好吗,”。
(6)添加按钮Command1,修改其Caption属性为“确定”。
(7)编制程序:
Private Sub Command1_Click()
If check1.Value=1Then Text1.FontBold=True Else Text1.FontBold=False
If check2 Value=1Then Text1.FontItalic= True Else Text1. FontItalic= False
If check3 Value=1Then Text1.FontUnderline=True Else Text1. FontUnderline=False
End Sub
四、 综合设计题
16. 编制程序:求出100-200之间所有可以被3整除的数的总和,将结果用消息框显示输出。 Private Sub Command1_Click()
Dim i, s As Integer
For i = 100 To 200
If i Mod 3 = 0 Then s = s + i Next i
MsgBox ("100-200之间所有可以被3整除的数的总和为:" & Str(s)) End Sub
17. 编制程序实现:在窗体上,单击按钮1,在文本框中动态显示当前时间;单击按钮2,则停止动态显示;单击按钮3,清除文本框内容。提示:可用定时器控制时间,用系统函数Now显示时间(如Text1.Text = Now)。
Private Sub Command1_Click()
Timer1.Interval = 5
Timer1.Enabled = True End Sub
Private Sub Command2_Click()
Timer1.Enabled = False End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
Text1.Text = ""
End Sub
Private Sub Timer1_Timer()
Text1.Text = Now
End Sub