第一篇：2011年12月考试可视化程序设计(VB)第三次作业及答案
2011年12月考试可视化程序设计（VB）第三次作业
一、填空题（本大题共60分，共 15 小题，每小题 4 分）
1.要使用状态栏控件设计状态栏，应首先在“部件”对话框中选择 Microsoft Windows Common Controls 6.0，然后从工具箱中选择 StatusBar 控件。
2.对象的边框类型由 BorderStyle 属性设置。
3.VB的每个菜单项都有一个下拉菜单，含有若干个 菜单 命令。用鼠标单击某个菜单项就执行相应的菜单命令。
4.菜单的热键指使用 Alt 键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个字符前加上一个 & 符号，在菜单中这一字符会自动加上 下划线，表示该字符是一个热键字符。
5.运行时，要使工具栏控件Toolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句：Toolbarl.Buttons(2).ButtonMenus(3).Enabled＝False。
6.根据文件内容区分，文件分为 程序文件 和 数据文件。
7.当使用Format函数与Print方法一起输出时，格式字符串中的”#”号表示一个数字位，它的个数决定 显示数据 的长度，若要显示的数据位数大于这个长度，则显示时数据按 原样 显示。
8.菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的 Visible 属性设为False，然后在程序中用Load 语句加载。
9.如果将工程的启动对象设置成 Main 子程序，则程序启动时可以不加载任何窗体。
10.要从字符串“Visual Basic 6.0”中截取子字符串“Basic”可使用的函数是 Mid(“Visual Basic 6.0”,8,5)。
11.要在运行时给状态栏 StatusBar1的第二个窗格添加一幅图片，该图片由文件 “c：＼windows＼winupd．ico”指定，应使用语句：StatusBar1.Panels(2).Picture＝LoadPicture（“C：＼Windows＼Winupd．ico”）。
12.若case子句中的表达式表列具有形式：表达式1 To 表达式2，则它的含义是：当测试表达式的值等于 这个范围内的值 时，执行该case子句相应的程序块。
13.表示x是5的倍数或是9的倍数的逻辑表达式是 x mod 5=0 OR x mod 9=0。
14.程序运行过程中，在立即窗口显示变量f的语句是 Debug.Print f。
15.设
Form1.Scaleleft=-250，Form1.Scalertop=300，Form1.Scalewidth=350，Form1.Scaleheight=500，则Form1的右下角坐标为 100,800。
二、程序阅读题（本大题共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
以选择的颜色作为窗体前景色，将一个文本文件显示在Form1窗体上
2.Private Sub Form_Click()
num = 0
Do
num = num + 3
Print num
第1页，共4页
Mod 4 = 0
End Sub
程序运行后，单击窗体，输出结果是：3 6 9 12
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
执行结果是：1 1 2 3 5 8 13 21 34 55
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 = LOF(1)/ Len(zgr)+ 1(2)Put #1, n, zgr
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
执行结果为： a=1 b=1 a=3 b=2 a=7 b=4 a=15 b=8
6.有如下事件过程，写出程序的功能（数学表达式）。
Private Sub Command1_Click()
T=0
M=1
Sum =0
Do
T=T+M
Sum =Sum+T
M=M+2
Print“Sum =”；Sum
End Sub
计算数学表达式：1＋22＋32＋42＋…＋202==2870
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%Dim a()As Integer
n=InputBox(“请输入数据个数：”)ReDim a(n)
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
将数组a倒置
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
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)第三次作业.doc
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<=39
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
第三篇：可视化程序设计(VB)第一次作业
可视化程序设计（VB）第一次作业
一、单项选择题
1.Visual Basic程序中分隔各语句的字符是(:)
2.工程文件的扩展名是（vbp）
3.下列运算符中，运算级别最高的是（*）
4.下列可作为Visual Basic的变量名的是(Filename)
5.下面的程序的输出结果是(21 21)
x=5
For i = 1 To 20 Step 2
x=x+i5
Next i
Print x, i
6.下列赋值语句合法的是（A=A+B）
7.下列属性中，目录列表框和文件列表框都有的属性为（Path）。
8.执行下面的程序段后，x的值为(21)
x=5
For i = 1 To 20 Step 2
x=x+i5
Next i
9.向一个顺序文件中写数据时，（Append）是从文件末尾添加的方式打开顺序文件。
10.Seek方法用于在（表）类型的记录集中查找满足条件的记录。
11.当函数EOF()的返回值为真时，表示文件的指针指向（尾部）
12.如果要退出Do„Loop循环，可使用语句（Exit Do）。
13.在VB中，称对象的数据为（属性）。
14.不论何对象，都具有（Name）属性。
15.使用Public Const语句声明一个全局的符号常量时，该语句应放在（标准模块的通用声明段）。
16.下面关于变量的作用域，正确的描述是（同一模块中不同级的变量不能同名）。
17.设a=2，b=3，c=4，d=5，下列表达式的值是（False）a＞b AND c＜=d OR 2*a＞c
18.把数值型转换为字符（串）型需要使用下列哪一个函数？（Str）
19.以下叙述错误的是（KeyPress事件中可以识别键盘上某个键的按下与释放）
20.用于设置或返回文件类型的属性是（Pattern）。
21.要删除列表框中的某一个项目，需要使用（ReMoveItem）方法。
22.以下语句的输出结果是(在立即窗口中)(Δ27ΔΔ65Δ)a=27 ＜CR＞(＜CR＞为回车)b=65 ＜CR＞ Print a;b ＜CR＞
23.语句Print 5*55/5的输出结果是(25)
24.编写如下事件过程：
private sub form_mousedown（button as integer，shift as integer，x as single，y as single）
if shift=6 and button=2 then
print “BBBB”
end if
end sub
程序运行后，为了在窗体上输出“BBBB”，应执行的操作为（同时按下ctrl、alt键和鼠标右键）
25.如果X是一个正实数，对X的第三位小数四舍五入的表达式是（0.01 * Int(100 *(X +0.005))）
第四篇：2014年4月份考试可视化程序设计(VB)第二次作业
2014年4月份考试可视化程序设计（VB）第二次作业
一、单项选择题（本大题共100分，共 25 小题，每小题 4 分）
1.下列过程不能包含在标准模块中定义的是（）。
A.事件过程
B.子过程
C.函数过程
D.公共过程
2.下列关于数据库说法错误的是（）
A.一个表可以构成一个数据库
B.多个表可以构成数据库
C.一个表的每一条记录中的各数据项具有相同的类型
D.同一个字段的数据具有相同的类型
3.下列属性中，目录列表框和文件列表框都有的属性为（）。
A.List
B.value
C.Path
D.Pattern
4.下列关于菜单访问键和快捷键的说法正确的是（）
A.若一菜单项的Caption属性为“打开(&O)”，则其快捷键是Ctrl+O
B.快捷键指用于执行一个命令的功能键或组合键，可以在菜单编辑器中将快捷键设为Alt+F
C.可以为任意的菜单项都添加快捷键或访问键
D.通过访问键打开某个子菜单时，必须先使焦点位于其上一级菜单
5.要设置列表框的选择方式，应使用（）属性。
A.Columns
B.MultiSelect
C.Style
D.List
6.下面关于随机文件的描述，不正确的是：（）
A.每条记录的长度必须相同
B.一个文件中记录号不必惟一
C.可通过编程对文件中的某条记录方便地修改
D.文件的组织结构比顺序文件复杂
7.下列说法正确的是（）
A.如果框架的Enable设为False，则框架内的所有控件都不可用。
B.时钟控件的Visable属性设为True时，该控件在程序运行时可见，设为False时，则不可见。
C.在列表框中能够将项目按字母顺序从大到小排列。
D.移动框架时，框架内的控件不随之移动。
8.下列控件中，（）不是用于文件操作的控件。
A.List Box
B.DriveListBox
C.DirListBox
D.FileListBox
9.可以在窗体模块的通用声明段中声明（）。
A.全局变量
B.全局常量
C.全局数组
D.全局用户自定义类型
10.通过设置Line控件的（）属性可以绘制虚线、点划线等多种样式的直线。
A.Shape
B.Style
C.Fillstyle
D.Borderstyle
11.当函数EOF()的返回值为真时，表示文件的指针指向（）
A.开头
B.尾部
C.最后一个字节
D.最后一个记录
12.下面的哪一项不能用来在模块之间传递数据（）。
A.全局变量
B.对象属性
C.全局数组
D.模块级变量
13.数据控件用于设置指定数据控件所访问的记录来源的属性是（）
A.RecordSource
B.DataSource
C.DatabaseName
D.RecordSetType
14.将通用对话框CommonDialog1的类型设置为“另存为”对话框，该调用该控件的（）方法。
A.ShowOpen
B.ShowColor
C.ShowSave
D.ShowFont
15.在下列关于对话框的叙述中，错误的是（）：
A.作为对话框窗体的Borderstyle、ControlBox、MaxButton和MinButton应分别设置为l、True、False和 False。
B.语句frmAbout．Show vbModeless，frmMain将 fmAbout窗体显示为 fmMain的无模式子窗体。
C.可以将对话框分成两种类型：模式的和无模式。
D.语句frmAbout．Show将frmAbout作为无模式对话框显示。
16.AVI动画类似电影，由若干帧组成，Animation控件可以显示（）的音频视频动画（AVI文件）。
A.无声
B.有声
C.无声和有声都可以
D.单声道
17.在用菜单编辑器设计菜单时，必须输入的项有（）。
A.快捷键
B.标题
C.索引
D.名称
18.通过文本框的（）事件过程可以获取文本框中键入字符的ASCII码值。
A.Change
B.GotFocus
C.LostFocus
D.KeyPress
19.以下说法正确的是（）。
A.使用Data控件可以直接显示数据库中的数据
B.使用数据绑定控件可以直接访问数据库中的数据
C.使用Data控件可以对数据库中的数据进行操作，却不能显示数据库中的数据
D.Data 控件只有通过数据绑定控件才可以访问数据库中的数据
20.以下关于索引的说法，错误的是（）。
A.一个表可以建立一个到多个索引
B.每个表至少要建立一个索引
C.索引字段可以是多个字段的组合D.利用索引可以加快查找速度
21.以下叙述错误的是（）
A.在KeyUp和KeyDown事件过程中，从键盘上输入A和a是相同的B.在KeyUp和KeyDown事件过程中，从键盘上1和小键盘上的1看作不同数字
C.KeyPress事件中不能识别键盘上某个键的按下与释放
D.KeyPress事件中可以识别键盘上某个键的按下与释放
22.下面关于多重窗体的叙述中，正确的是（）。
A.作为启动对象的 main于过程只能放在窗体模块内
B.如果启动对象是 main子过程，则程序启动时可不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体
C.没有启动窗体，程序不能执行
D.以上都不对
23.改变驱动器列表框的Drive属性将引发（）事件。
A.Load
B.Click
C.Pattern change
D.Change
24.以下的属性和方法中（）可重定义坐标系。
A.DrawStyle属性
B.DrawWidth属性
C.Scale方法
D.ScaleMode属性
25.下面关于过程作用域，错误的描述是（）。
A.全局级过程的作用域为整个工程
B.在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上窗体名称
C.在不同模块中定义的模块级过程可以同名
D.在不同模块中定义的工程级过程不能同名
答案：
一、单项选择题（100分，共 25 题，每小题 4 分）
1.A 2.C 3.C 4.D 5.B 6.B 7.A 8.A 9.A 10.D
11.B 12.D 13.A 14.C 15.A 16.A 17.D 18.D 19.D 20.B
21.D 22.B 23.D 24.C 25.D
第五篇：2012年9月份考试可视化程序设计(VB)第一次作业.doc
2012年9月份考试可视化程序设计（VB）第一次作业
一、单项选择题（本大题共100分，共 25 小题，每小题 4 分）
1.下面的数写成普通的形式是1.2***69E+019()
A.12***6900
B.12***69000
C.12***690000
D.12***6900000
2.下列赋值语句合法的是（）
A.A=A+B
B.A+B=A
C.–A=A
D.A=2B
3.下列选择项中（）不能获得焦点。
A.使用Tab键
B.用鼠标选择对象
C.设置GetFocus的值为True
D.使用SetFocus方法
4.设a=2，b=3，c=4，d=5，下列表达式的值是（）。not a<=c or 4*c=b^2 and b<>a+c
A.－1
B.1
C.true
D.false
5.若将命令按钮设置为默认命令按钮，可以通过（）属性来实现。
A.Value
B.Cancel
C.Default
D.Enabled
6.通用过程可以通过执行“工具”菜单中的（）命令来建立。
A.添加过程
B.通用过程
C.添加窗体
D.添加模块
7.假设A=3，B=7，C=2，则表达式 NOT(B>A)的值是()
A.True
B.False
C.表达式错误
D.不确定
8.以下说法正确的是（）
A.通用过程可以出现在窗体模块和标准模块中
B.不同模块中的通用过程可以重名
C.同一标准模块中的通过过程可以同名
D.不同标准模块中的通用过程不能同名
9.在表达式 y = InputBox(a, b, c)中，b 为输入函数对话框的（）。
A.标题
B.提示
C.预设值
D.帮助文件名
10.如果要退出Do„Loop循环，可使用语句（）。
A.Exit
B.Exit Do
C.Exit For
D.Exit For
11.为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为()
A.1
B.2
C.3
D.4
12.若有数组说明语句：Dim t(1 To 10)As Variant，则t被定义为（）。
A.数值数组
B.可调数组
C.字符串数组
D.可变类型数组
13.Function过程要由函数名返回一个值。如果不使用As数据类型选项来指定函数的类型，函数类型默认为（）类型。
A.Integer
B.Variant
C.Long
D.Siring
14.不论何对象，都具有（）属性。
A.Text
B.Name
C.ForeColor
D.Caption
15.下列语句正确的是（）。
A.For i=1 To m
For j=1 To n
Next i
Next j
B.For i=1 To m
For j=1 To n
Next i,j
C.For i=1 To m
For j=1 To n
Next j,i
D.For i=1 To m
While x>0
Next i
end
16.下列过程调用合法的是（）
A.Call Prog a,b
B.Prog(a,b)
C.Call Prog(a,b)
D.以上都不对
17.以下语句的输出结果是（）。print format$（32548.5，“000，000.00”）
A.2548.5
B.32，548.5
C.032，548.50
D.32548.50
18.数学式子Sin25°写成VB表达式是（）。
A.Sin25
B.Sin（25°）
C.Sin（25）
D.Sin（25*3.14/180）
19.以下程序段中循环语句（）。
x%=0
While Not x
x=x+1
Print x
Wend
A.有语法错误
B.溢出
C.循环体执行一次
D.循环体一次也不执行
20.下列过程说明合法的是（）
A.Sub S1(ByVal n!())
B.Sub S1(n!)as Integer
C.Function S1%(S1%)
D.Function S1(ByVal n!)
21.用下面的语句所定义的数组的元素个数是()Dim arr(3 To 6,-2 To 2)
A.12
B.16
C.18
D.20
22.下面语句书写正确的是（）。
A.If a>max Then
max=a
Else
max=b
End If
B.If a>max Then
max=a
Else
max=b
End If
C.If a>max Then
max=a
Else
max=6
D.If a>max Then
max=a
Else
max=b
End If
23.下列一维数组说明语句错误的是（）。
A.Dim b(100)AS Double
B.Dim b(-5 To 0)AS Byte
C.Dim b(-10To –20)AS Integer
D.Dim b(5 To 5)AS String
24.设已定义函数过程f，它有三个整型数值参数，再设a,b和c为实型变量，则调用该函数过程使用的语句为（）。
A.f
B.f(a+b, b+c)
C.f(a+b, b+c ,c+a)
D.f a+b, b+c, c+a
25.执行下面程序段时，内循环的循环次数是（）。
For m=1 To 3
n=0
While n<=m-1
Print m,n
n=n+1
Wend
Next m
A.3
B.4
C.5
D.6
答案：
一、单项选择题（100分，共 25 题，每小题 4 分）
1.D 2.A 3.C 4.D 5.C 6.A 7.B 8.D 9.A 10.B 11.B 12.D 13.B
14.B 15.C 16.C 17.C 18.D 19.B 20.D 21.D 22.D 23.C 24.D 25.D
点击咨询 