程序设计语言VB期末考试模拟题（2011秋第一学期）
一、 单选题  (  下列各小题备选答案中，只有一个符合题意的答案。多选、错选、不选均不得分    )
1. 下列控件中可用于接受用户输入文本，又可用于显示文本的是（B）。
A. Label控件
B. TextBox控件
C. Timer控件
D. CommandButton控件
2. 选拔身高T超过1.7米且体重W小于60公斤的人，表示该条件的布尔表达式为（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、vb设计模拟密码输入器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，清除文本框内容。提示：可用定时器控制时间，用系统函数No
w显示时间（如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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。