12月考试可视化程序设计(VB)第三次作业.doc_vb程序设计期末考试
12月考试可视化程序设计(VB)第三次作业.doc由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb程序设计期末考试”。
2011年12月考试可视化程序设计（VB）第三次作业
一、填空题（本大题共60分，共 15 小题，每小题 4 分）
1.要使用状态栏控件设计状态栏，应首先在“部件”对话框中选择 ______，然后从工具箱中选择 ______ 控件。
2.对象的边框类型由 ______ _属性设置。
3.VB的每个菜单项都有一个下拉菜单，含有若干个 ______ 命令。用鼠标单击某个菜单项就执行相应的菜单命令。
4.菜单的热键指使用 ______ 键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个字符前加上一个 ______ 符号，在菜单中这一字符会自动加上 ______，表示该字符是一个热键字符。
5.运行时，要使工具栏控件Toolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句： ______。
6.根据文件内容区分，文件分为 ______ 和 ______。
7.当使用Format函数与Print方法一起输出时，格式字符串中的”#”号表示一个数字位，它的个数决定 ______ 的长度，若要显示的数据位数大于这个长度，则显示时数据按 ______ 显示。
8.菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的 ______ 属性设为False，然后在程序中用 ______ 语句加载。
9.如果将工程的启动对象设置成 ______ 子程序，则程序启动时可以不加载任何窗体。
10.要从字符串“Visual Basic 6.0”中截取子字符串“Basic”可使用的函数是 ______。
11.要在运行时给状态栏 StatusBar1的第二个窗格添加一幅图片，该图片由文件 “c：＼windows＼winupd．ico”指定，应使用语句： ______。
12.若case子句中的表达式表列具有形式：表达式1 To 表达式2，则它的含义是：当测试表达式的值等于 ______ 时，执行该case子句相应的程序块。
13.表示x是5的倍数或是9的倍数的逻辑表达式是 ______。
14.程序运行过程中，在立即窗口显示变量f的语句是 ______。
15.设
Form1.Scaleleft=-250，Form1.Scalertop=300，Form1.Scalewidth=350，Form1.Scaleheight=500，则Form1的右下角坐标为 ______。
二、程序阅读题（本大题共40分，共 10 小题，每小题 4 分）
1.若窗体Form1上添加了通用对话框CommonDialog1，下面程序的功能是什么？
Dim filename As String
Dim str As String
CommonDialog1.Filter = “文本文件(*.TXT)|*.txt”
CommonDialog1.Action = 1
filename = CommonDialog1.filename
CommonDialog1.ShowColor
Form1.ForeColor = CommonDialog1.Color
Open filename
For Input As #1
Do While Not EOF(1)
str = str + Input(1, #1)
Loop
Form1.Print str
Close ＃1
2.Private Sub Form_Click()
num = 0
Do
num = num + 3
Print num
Loop Until num
Mod 4 = 0
End Sub
程序运行后，单击窗体，输出结果是_____________
3.写出下面事件过程的执行结果。
Private Sub Command1_Click()
Dim f(10)As Integer
f(0)=1
f(1)=1
For i=2 To 10
f(i)=f(i1)
Next i
For i=0 To 9
If i Mod 4=0 Then
Print f(i)
Next i
End Sub
4.下列标准模块和窗体模块的功能是给通信录文件“d:txrf1.dat”添加新记录，在横线上填上适当内容。
标准模块：
Type txr num As Integer
name As String * 10
tel As String * 8
addr As String * 20
End Type
窗体模块：
Private Sub Command1_Click()
Dim n%, zgr As txr
Open “d:txrf1.dat” For Random As #1
Len = Len(zgr)
zgr.num = InputBox(“输入新职工编号：”)
zgr.name = InputBox(“输入新职工姓名：”)
zgr.tel = InputBox(“输入新职工电话号码：”)
zgr.addr = InputBox(“输入新职工住址：”)
n =(1)
(2)
Close #1
End Sub
5.写出下面的程序运行后，连续单击4次窗体，在Form1上的执行结果。Private Sub Form_Click（）
Static a As Integer
Dim b As Integer
b=a+b+1
a=a+b
Form1.Print “a=”;a, “b=”;b
End Sub
6.有如下事件过程，写出程序的功能（数学表达式）。
Private Sub Command1_Click()
T=0
M=1
Sum =0
Do
T=T+M
Sum =Sum+T
M=M+2
Loop While M
Print“Sum =”；Sum
End Sub
7.编写如下代码：
dim flag as Boolean
private sub form_mousedown（button as integer，shift as integer，x as single，y as single）
flag=true
end sub
private sub form_mousemove（button as integer，shift as integer，x as single，y as single）
flag=false
end sub
private sub form_mouseup（button as integer，shift as integer，x as single，y as single）
if flag=false then
print “DDDD”
end if
end sub
程序运行后，如果在窗体上输出“DDDD”，则应执行的操作为__________。
8.下面事件过程的功能是从键盘上输入若干个数据存放到一维数组a中，并求出这组数据的平均值，在横线上填上适当内容。
Private Sub Command1_Click()
Dim n%, i%
（１）
n=InputBox(“请输入数据个数：”)
（２）
For i=1 To n
a(i)=InputBox(“请输入第” & Str(i)& “个数据：”)
Next i
For i=1 To n
Sum=Sum+a(i)
Next i
Print “平均值：”;Sum / n
End Sub
9.下面程序的作用是什么？
Private Sub Command1_Click()
Dim a()
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
For n = 0 To 8
Print a(n);
Next
Call s1(a)
For n = 0 To 8
Print a(n);
Next
End Sub
Private Sub s1(ByRef x())
s = UBound(x)
For n = 0 To s / 2
temp = x(n)
x(n)= x(sn)= temp
Next
End Sub
10.使用情况语句改写下列事件过程。
Private Sub Command1_Click()
Dim score!, grade$
score=InputBox(“请输入一个学生的分数：”)
If score>=90 Then
Grade=”A”
ElseIf score>=80 Then
Grade=”B”
ElseIf score>=70 Then
Grade=”C”
ElseIf score>=60 Then
Grade=”D”
Else
Grade=”E”
End If
Print “该学生的分数等级为：”;grade;
End Sub
答案：
一、填空题（60分，共 15 题，每小题 4 分）
1.参考答案：Microsoft Windows Common Controls 6.0、StatusBar
2.参考答案：BorderStyle
3.参考答案：菜单
4.参考答案：Alt、&、下划线
5.参考答案：Toolbarl．Buttons（2）．ButtonMenus（3）．Enabled＝False
6.参考答案：程序文件、数据文件
7.参考答案：显示数据、原样
8.参考答案：Visible，Load
9.参考答案：Main
10.参考答案：Mid(“Visual Basic 6.0”,8,5)
11.参考答案：StatusBar1．Panels（2）．Picture＝LoadPicture（”C：＼Windows＼Winupd．ico”）
12.参考答案：这个范围内的值
13.参考答案：x mod 5=0 OR x mod 9=0
14.参考答案：Debug.Print f
15.参考答案：100,800
二、程序阅读题（40分，共 10 题，每小题 4 分）
1.参考答案：
以选择的颜色作为窗体前景色，将一个文本文件显示在Form1窗体上
2.参考答案：3 6 9 12
3.参考答案：1 1 2 3 5 8 13 21 34 55
4.参考答案：(1)LOF(1)/ Len(zgr)+ 1(2)Put #1, n, zgr
5.参考答案：执行结果为： a=1 b=1 a=3 b=2 a=7 b=4 a=15 b=8
6.参考答案：
程序的功能：程序用于计算数学表达等式为：1＋22＋32＋42＋„＋202==2870
7.参考答案：移动鼠标并松开鼠标左键。
8.参考答案：（1）Dim a()As Integer（2）ReDim a(n)
9.参考答案：将数组a倒置
10.参考答案：
Private Sub Command1_Click()
Dim score!, grade$
score=InputBox(“请输入一个学生的分数：”)
Select Case score
Case Is>=90
grade=“A”
Case Is>=80
grade=“B”
Case Is>=70
grade=“C”
Case Is>=60
grade=“D”
Case Else
grade=“E”
End Select
Print “该学生的分数等级为：”;grade;End Sub
2011年12月考试可视化程序设计（VB）第三次作业一、填空题（本大题共60分，共 15 小题，每小题 4 分）1.要使用状态栏控件设计状态栏，应首先在“部件”对话框中选择 Microsoft Windows Co......
可视化程序设计（VB）第一次作业一、单项选择题1.Visual Basic程序中分隔各语句的字符是(: )2.工程文件的扩展名是（ vbp）3.下列运算符中，运算级别最高的是（* ）4.下列可作为Visual Bas......
2013年9月份考试可视化程序设计（VB）第一次作业一、单项选择题（本大题共100分，共 25 小题，每小题 4 分）1.确定一个控件在窗体上的位置的属性是( )A.Width或HeightB.Width和LeftC.To......
2014年4月份考试可视化程序设计（VB）第二次作业一、单项选择题（本大题共100分，共 25 小题，每小题 4 分）1.下列过程不能包含在标准模块中定义的是（ ）。A.事件过程B.子过程C.函数过程D.......
2012年9月份考试可视化程序设计（VB）第一次作业一、单项选择题（本大题共100分，共 25 小题，每小题 4 分）1.下面的数写成普通的形式是1.2***69E+019 ( )A.12***6900B......
