VB语言程序设计试题库1
VB语言程序设计试题库
选择题：
1、下面（）是Visual Basic语言中的数值常量。
A、ABC
B、E+5
C、TRUE
D、1E-2
2、3896#表示的是（）类型的数值数据。
A、整型
B、单精度实型
C、双精度实型
D、货币型
3、表达式3 \ 3 * 3 / 3 mod 3的值是（）
A、-1
B、1
C、-3
D、3
4、方法Print Sgn（- 3 ^ 2）+ Abs（- 3 ^ 2）+ Int（- 3 ^ 2）的输出结果是（）
A、17
B、27
C、1
D、-1
5、假设硬币有图案一面为0，有字的一面为1，则掷一次硬币出现的随机数可表示为（）
A、Int（Rnd（1）+1）
B、Int（Rnd * 1）
C、Int（Rnd * 2）
D、Int（Rnd * 2 + 1）
6、要将A、B两个变量的值互换，正确的写法是（）
A、A=B：B=A
B、B=A：A=B
C、C=A：A=B：B=C
D、A=C：C=B：B=A
7、函数Int（Rnd（0）* 11）+ 10的取值范围是（）
A、[ 0，10 ]
B、[ 10，10 ]
C、[ 10，20 ]
D、[ 0，20 ]
8、6.8E2与（）数值相同
A、6.8
B、6800
C、68
D、680
9、下列正确的字符串常量是（）
A、”NnMm”
B、ABCD
C、Nn”Mm”
D、Abcd
10、下列符号中合法的常量是（）
A、”x=2.456e-10”
B、10 * 3.4
C、A + B +C
D、1.234E4.5
11、表达式Sin（a + B、^ 3 * 2中，
先进行（）计算。
A、Sin函数
B、+
C、^
D、*
12、下列哪个运算符不能进行字符串比
较
A、=
B、<>
C、>=
D、=<
13、下列（）的值为True。
A、”a” < “b”
B、”9”> “a”
C、”D” > “d”
D、”99”< “100”
14、若变量x的值是实数，下列（）
表达式在x为任何值时都有意义。
A、Sqr（x）
B、Int（Sqr（x））
C、Sqr（Abs（x））
D、Sqr（Int（x））
15、表达式Int（-3.67）mod 4的值是
（）
A、0
B、1
C、-1
D、-9
16、下列表达式值为0的是（）
A、4 / 5
B、4 \ 5
C、4 mod 5
D、5 mod 4
17、X=5是（）表达式
A、关系表达式
B、算术表达式
C、逻辑表达式
D、字符串表达式
18、把2.67赋值为变量A%，则变量A的
值为（）
A、0
B、2
C、3
D、2.67
19、已知x1= -3.67，x2= 4，x3= 5，x4=
6 ，下列关系式的值为真的是（）
A、Sgn（x1 – x2）- Sgn（x3 – x4）
< 0
B、Sgn（x1 + x4）- Sgn（x2 + x3）= -2
C、Sgn（x2 – x1）- Sgn（x3 – x4）>
D、Sgn（x2 – x3）- Sgn（x1 – x4）>
20、若A and B的值是真，则（）
A、A为真，B不必为真
B、B为真，A不必为真
C、A、B都为真
D、A、B全为假
21、下列各变量中，（）是字符串型
的变量。
A、A@
B、B&
C、C$
D、D#
22、e x在VB中应该用（）表示。
A、e**x
B、e^x
C、Exp（x）
D、Exp（e）
23、Sin46°在VB中应该用（）表
示。
A、Sin（46）
B、Sin46
C、Sin
（46*3.14/180）D、Sin46*3.14/180
24、已知字符“A”的十进制ASCII码值
是65，则Asc（”BCD”）的结果是（）
A、66
B、67
C、68
D、69
25、Right（”abcdef”，2）的值是（）
A、”ab”
B、”ef”
C、”f”
D、”fe”
26、Str（2+3）的值是（）
A、5
B、” 5”
C、”2+3”
D、2+3
27、下列赋值语句正确的是（）
A、A+B+C=0
B、A=B+C
C、SIN（A、=B+C
D、A=2*π*R
28、如果x是一个正实数，对x的第3
位小数进行四舍五入的表达式是（）
A、0.01 * Int（x + 0.005）
B、0.01 * Int（100 * （x + 0.005））
C、0.01 * Int（100 * （x + 0.05））
D、0.01 * Int（x + 0.05）
29、A=123：B=456
C=LEN（STR（A、+STR（B、）
PRINT C
运行时输出结果为（）
A、3
B、4
C、6
D、8
30、顺序执行如下语句后，输出结果是
PRINT 1；2；
PRINT 3
PRINT 4
A、1 2 3 4
B、1 2
C、1 2 3
D、1 3 4
4 2 3 4
31．在设计应用程序时，可以查看到应用程序工程中的所有部分的窗口是（）。A．窗体设计．代码C．属性D．工程资源管理器窗口
32．窗体的Load事件的触发时机是（）。
A．用户单击窗体时B．窗体被加载时
C．窗体显示之后D．窗口被卸载时33．与传统的程序设计语言相比，Visual Basuc最突出的特点是（）。
A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术34．VB6.0集成开发环境的主窗口不包括A．标题栏 B．菜单栏
C．状态栏 D．工具栏
35．如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（）。
A．Text.Mytext B．Mytext.text C．Mytext.（Text） D．Mytext*Text 36．下列可以激活属性窗口的操作是（）。
A．用鼠标双击窗体的任何部位 B．执行“工程”菜单中的“属性窗口”命令
C．按Ctrl+F4 D．按F4键
37．假定已在窗体上画了多个控件，并
有一个控件是活动的，为了在属性窗口
中设置窗体的属性，预先应制造的操作
是（）。
A．单击窗体上没有控件的地方
B．单击任一个控件
C．不执行任何操作
D．双击窗体的标题栏
38．如果在文本框中键入字符时，只显
示某个字符，如星号（*），应设置文本
框的（）属性。
A．Caption B．PasswordChar
C．Text D．Char
39．如果想让文本框中的内容在运行时
不能编辑，需将文本框的（）属性设置
为True。
A．Locked B．MultiLine
C．TabStop D．Visible
40．对于定时器（Timer）控件，设计其
定时是否开启的属性是（）。
A．Index B．Tag C．Enabled D．Left
41．要在窗体Form1内显示“myfrm”，
使用的语句是（）。
A．Form.Caption=“myfrm”
B．Form1.Caption=“myfrm”
C．Form1.Print=“myfrm”
D．Form.Print=“myfrm”
42．对象的性质和状态特性称为（）。
A．事件 B．方法 C．属性
D．类
43．下列正确的赋值语句是（）。
A．x+y=20 B．y=x+20 C．3x=y D．s=
π*r*r
44．当使用上下文相关的帮助时，选择
要帮助的内容，然后按（）键，就可出
现MSDN窗口直接显示所需的帮助信息。
A．Help B．F10 C．ESC D．F1
45．将调试通过的工程经“文件”菜单
的“生成.exe.文件”编译成名.exe后，
就该可执行文件放到其它机器上不能运
行的主要原因是（）。
A．运行的机器上无VB系统
B．缺少.frm文件
C．该可执行文件有病毒
D．以上原因都不对
46、定义记录类型通过（）语句
来实现。
A、Dim
B、Record
C、ReDim
D、Type
47、当在文件列表中单击一个文件时将
发生（）事件。
A、Click
B、PathChange
C、PattermChange
D、Change
48、在窗体或图像框中画直线的方法是
A、Line
B、Circle
C、Scale
D、Pset（5）
49、用下面的语句声明的数组元素的个
数是（）
Dim A （4 to 6，-3 to 3）As Integer
A、24
B、36
C、21
D、18
50、由For j=1 To 100 Step 3 语句开
头的循环，循环体被执行的次数为
A、 100
B、 50
C、 33
D、34
51、在鼠标事件中，若shift参数的值
为6，则说明用户按下了（）
A、 Alt键
B、Ctrl键
C、Shift键
D、Ctrl和Alt键
52、运行时要向列表框中添加项目，应
调用（）方法。
A、 Add
B、AddItem
C、Fill
D、FillItem
53．工程文件的扩展名是（）。
A、vbg
B、vbp
C、vbw
D、vbl
54、用于从字符串左边截取字符的函数
是
A、Ltrim( )
B、Trim( )
C、Left( )
D、Instr( )
55、可获得当前系统日期的函数是
A、Date( )
B、Time( )
C、IsDate( )
D、Year( )
56、退出For循环可使用的语句为（）
A、Exit For
B、Exit Do
C、End For
D、End Do
57、窗体的标题栏显示内容由窗体对象的（）属性决定。
A、BackColor
B、BackStyle
C、Text
D、Caption
58以下叙述中错误的是
A、Visual Basic 是事件驱动型可视化编程工具
B、Visual Basic应用程序不具有明显的开始和结束语句
C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D、Visual Basic中控件的某些属性只能在运行时设置
59以下叙述中错误的是
A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B、以.BAS为扩展名的文件是标准模块文件
C、窗体文件包含该窗体及其控件的属性
D、一个工程中可以含有多个标准模块文件
60、以下叙述中错误的是
A、双击鼠标可以触发DblClick事件
B、窗体或控件的事件的名称可以由编程人员确定
C、移动鼠标时，会触发MouseMove事件
D、控件的名称可以由编程人员设定61、以下不属于Visual Basic系统的文
件类型是
A、.frm
B、.bat
C、.vbg
D、.vbp
62、以下叙述中错误的是
A、打开一个工程文件时，系统自动装入
与该工程有关的窗体、标准模块等文件
B、保存Visual Basic程序时，应分别
保存窗体文件及工程文件
C、Visual Basic应用程序只能以解释方
式执行
D、事件可以由用户引发，也可以由系统
引发
63、以下能正确定义数据类型TelBook
的代码是
A、Type TelBook
B、Type TelBook
Name As String*10 Name As String*10
TelNum As Integer TelNum As Integer
End Type End TelBook
C、Type TelBook
D、Typedef TelBook
Name String*10 Name String*10
TelNum Integer TelNum Integer
End Type TelBook End Type
64、以下声明语句中错误的是
A、Const var1=123
B、Dim var2 = 'ABC'
C、DefInt a-z
D、Static var3 As Integer
65、设窗体上有一个列表框控件List1，
且其中含有若干列表项。则以下能表示
当前被选中的列表项内容的是
A、List1.List
B、List1.ListIndex
C、
List1.Index D、List1. Text
66、程序运行后，在窗体上单击鼠标，
此时窗体不会接收到的事件是
A、MouseDown
B、MouseUp
C、Load
D、
Click
67、设a=10，b=5，c=1，执行语句Print
a >
b > c后，窗体上显示的是
A、True
B、False
C、1
D、出错信息
68、如果要改变窗体的标题，则需要设
置的属性是
A、Caption
B、Name
C、BackColor
D、
BorderStyle
69、以下能判断是否到达文件尾的函数
是
A、BOF
B、LOC
C、LOF
D、EOF
70、如果一个工程含有多个窗体及标准
模块，则以下叙述中错误的是
A、如果工程中含有Sub Main过程，则
程序一定首先执行该过程
B、不能把标准模块设置为启动模块
C、用Hide方法只是隐藏一个窗体，不
能从内存中清除该窗体
D、任何时刻最多只有一个窗体是活动窗
体
71、窗体的MouseDown事件过程
Form_MouseDown (Button As Integer,
Shift As Integer, X As Single, Y As
Single)
有4个参数，关于这些参数，正确的描
述是
A、通过Button参数判定当前按下的是
哪一个鼠标键
B、Shift参数只能用来确定是否按下
Shift键
C、Shift参数只能用来确定是否按下Alt
和Ctrl键
D、参数x,y用来设置鼠标当前位置的坐
标
72、设组合框Combo1中有3个项目，则
以下能删除最后一项的语句是
A、Combo1.RemoveItem Text
B、Combo1.RemoveItem 2
C、Combo1.RemoveItem 3
D、Combo1.RemoveItem
Combo1.Listcount
73、以下关于焦点的叙述中，错误的是
A、如果文本框的TabStop属性为False，
则不能接收从键盘上输入的数据
B、当文本框失去焦点时，触发LostFocus
事件
C、当文本框的Enabled属性为False时，
其Tab顺序不起作用
D、可以用TabIndex属性改变Tab顺序
74、如果要在菜单中添加一个分隔线，
则应将其Caption属性设置为
A、=
B、*
C、&
D、-
75、执行语句Open "Tel.dat" For Random As #1 Len = 50后，对文件Tel.dat中的数据能够执行的操作是
A、只能写，不能读
B、只能读，不能写
C、既可以读，也可以写
D、不能读，不能写
76、在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n = Text1.Text
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is < 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是A、10 B、20 C、30 D、40
77、设有以下循环结构
Do
循环体
Loop While <条件>
则以下叙述中错误的是
A、若"条件"是一个为0的常数，则一次
也不执行循环体
B、"条件"可以是关系表达式、逻辑表达
式或常数
C、循环体中可以使用Exit Do语句
D、如果"条件"总是为True，则不停地执
行循环体
78、在窗体上画一个名称为Command1的
命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub
程序运行后，单击命令按钮，则窗体上
显示的内容是
A、1 3.4 5.8
B、1 3 5
C、1 4 7
D、无数据输出
79、在窗体上画一个名称为Command1的
命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a－1
Loop While a <= 0
Print s; a
End Sub
程序运行后，单击命令按钮，则窗体上
显示的内容是
A、 7 9
B、 34 0
C、 9 7
D、死循环
80、设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
在窗体上画一个名称为Command1的命令
按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
x = 10
y=5
y = f(x)
Print x; y
End Sub
程序运行后，如果单击命令按钮，则在
窗体上显示的内容是
A、10 5
B、20 5
C、20 40
D、10 40
81、设有如下通用过程：
Public Sub Fun(a(), ByVal x As
Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框
和一个名称为Command1的命令按钮，然
后编写如下的事件过程：
Private Sub Command1_Click()
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，则在文本
框中显示的内容是
A、10
B、15
C、25
D、24
82、在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) > c Then
d = d + x(i)
c = x(i)
Else
d = d－c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为
A、89
B、99
C、23
D、77
83、在窗体上画两个滚动条，名称分别为Hscroll1 、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、
Label5、Label6，其中标签Label 4~ Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其右侧的
滚动条的数值，Label3 显示A*B的计算
结果。如图所示。当移动滚动框时，在
相应的标签中显示滚动条的值。当单击
命令
按钮"计算"时，对标签Label1、Label2
中显示的两个值求积，并将结果显示在
Label3中。以下不能实现上述功能的事
件过
程是
A、Private Sub Command1_Click()
Label3.Caption =
Str(Val(Label1.Caption )*Val( Labe
l2.Caption))
End Sub
B、Private Sub Command1_Click()
Label3.Caption = HScroll1.＆
#118alue * HScroll2.＆#118alue
End Sub
C、Private Sub Command1_Click()
Label3.Caption = HScroll1 * HScroll2
End Sub
D、Private Sub Command1_Click()
Label3.Caption = HScroll1. Text *
HScroll2.Text
End Sub
84、在窗体上画一个名称为Command1的
命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For n = 1 To 20
If n Mod 3 <> 0 Then m = m + n \ 3
Next n
Print n
End Sub
程序运行后，如果单击命令按钮，则窗
体上显示的内容是
A、15
B、18
C、21
D、24
85、在窗体上画一个名称为Text1的文
本框，并编写如下程序：
Private Sub Form_Load()
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As
Integer, Shift As Integer, X As
Single, Y As Single)
Print "程序设计"
End Sub
Private Sub Text1_KeyDown(KeyCode As
Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程序运行后，如果按"A"键，然后单击窗
体，则在窗体上显示的内容是
A、Visual Basic
B、程序设计
C、A程序设计
D、Visual Basic程序设
计
86、设有如下程序：
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
该程序通过For循环计算一个表达式的
值，这个表达式是
A、1+1/2+ 2/3+3/4+4/5
B、
1+1/2+2/3+3/4
C、1/2+2/3+3/4+4/5
D、
1+1/2+1/3+1/4+1/5
87、表示窗体名称的属性是（）
A．Name B、 caption C、
top D、title
88、以下数据类型中存储空间最大的是
（）
A．长整型 B、货币型 C、单
精度浮点型 D、整型
89、下面对窗体form进行属性设置，
其中不正确的是（）
A．https://www.sodocs.net/doc/f117750341.html,= “cmdsave”
B、 form..caption= “保存（&s）”
C、 form.top=-100
D、form.left=200
90、在下列字符串常量中，值最大的字符串是（）
A．中华人民共和国 B、计算机
C、变量
D、运算方式
91、关于安装Visual Basic6.0集成开发环境，计算所需要的配置的叙述不正确的是（）
A．操作系统：window98或更高版本的操作系统B．内存：16M以上内存C．硬盘空间：48M以上硬盘空间D．显示器：VGA或分辨率更高的显示器92、 Visual Basic6.0的主窗口是指
A．对象窗口 B．工程管理器窗口C．代码窗口 D．属性窗口
93、下面不属于Visual Basic6.0 3种工作模式的是（）
A．编辑模式B．运行模式C．设计模式 D．中断模式
94、窗体设计窗口的主要功能是
A．绘制图形B．编制程序C．设计界面 D．管理资源
95、程序模块文件的扩展名是( ) A．.frm B． .prg
C． .bas D． .visual basicp 96、与传统的程序设计语言相比较，
visual basic的最突出的特点是（）
A．结构化的程序设计
B．访问数据库
C．面向对象的可视化编程
D．良好的中文支持
97、以下不能在工程资源管理器窗口中
列出的文件类型是（）
A．.bas B． .res C． .frm D． .ocx
98、下列（）是日期变量
A．name B．“120” C．12.345
D．#11/16/1999#
99、如果要对窗体进行双击操作去执行
某程序，该事件过程应被取名为（）
A． form_load( )
B、 form_click( )
C、 form_dblclick( )
D、 form_dbclick( )
100、将窗体Form1的标题设置为“学
生成绩”，所使用的语句是( )
A．https://www.sodocs.net/doc/f117750341.html,= ‘学生成绩’
B、 form1.caption = ‘学生成绩’
C、form1 = ‘学生成绩’
D、 caption= ‘学生成绩’
101、在设计阶段,当双击窗体上的某个
控件时,所打开的窗口是( )
A、工程资源管理器窗口
B．工具箱窗口
C．代码窗口 D．属性窗口
102、程序运行装入窗体时,最先触发的
是( )
A．Activate事件 B．Load事件
C．Click事件 D．Unload事件
103.文本框的ScrollBars属性设置了非
零值，却没有效果，原因是（ )
A、文本框的MultiLine属性为True
B、
文本框中没有内容
C、文本框的MultiLine属性为False
D、
文本框的Locked属性为True
104. Visual Basic在程序开发过程中
用于使用窗体或控件对象的属性是
A、 Name
B、 Enabled
C、 Text
D、 Caption
105.下面哪个属性不是标签控件的属性
A、 Text
B、 Alignment
C、
Caption D、 BorderStyle
106.在Visual Basic中，要使一个窗体
不可见，但不从内存中释放，应使用的
语句是（）
A、 Hide
B、 Load
C、 UnLoand
D、 Show
107．在Visual Basic中，默认缺省的
数据类型为（）。
A、 Variant
B、 Integer
C、 Double
D、 Boolean
108. 以下有关Visual Basic语言描述
中错误的是（）。
A、一条语句放在多行中，则在前一行
结束处使用续行符“_”连接下一行
B、不区分大小写
C、语句是一行一句，以回车键结束
D、用“；”分隔一行中的多个语句
109.下面哪个方法是控件获得焦点的方
法（ )
A、 Click
B、 GotFocus
C、 LostFocus
D、 SetFocus
110.若要求从文本框中输入密码时在
文本框中只显示*号，则应当在此文本框
的属性窗口中设置（）。
A、 Passwordchar属性值为空
B、 Passwordchar属性值为*
C、 Text属性值为*
D、 Caption属性值为*
111.以下进入代码编辑器的方法中错误
的是（）
A、单击工程资源管理器窗口中的【查
看代码】按钮 B、单击控件
C、按“F7”键
D、执行【视图】
菜单下的【代码窗口命令】
112.窗体Form1的Name属性为Myfrm,
则它的load事件过程名为( )
A、 Me_load
B、 Form_load
C、
Form1_load D、 Myfrm_load
113.以下多窗体操作中工程文件的扩展名是（ ）。
A 、 .vbp
B 、 .cls
C 、 .frm
D 、 .bas 114.如果希望一个窗体在显示的时候没有边框，应该设置的属性是( ) A 、 将窗体的Enabled 属性置成False B 、 将窗体的BorderStyle 置成None C 、 将窗体的ControlBox 置成False
D 、 将窗体的标题(Caption)设成空字符 115.下列不属于VB 应用程序构成的是 A 、 res 文件 B 、 ocx 文件 C 、 cls 文件 D 、 pas 文件 116. Msgbox 函数返回值的类型为（ ） A 、 字符串 B 、 变体 C 、 整数或字符串（视输入的数据而定） D 、 整型 117.下列赋值语句正确的是（ ）
A 、 A=B+C
B 、 –B=A
C 、 2=A+B
D 、 B+C=A 118.为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是 A 、 Enabled B 、 Visible C 、 Interval D 、 Timer 119.在Visual Basic 中，程序的执行顺序是否( ) A 、 由事件驱动
B 、 由Visual Basic 开发系统决定
C 、 随意执行
D 、 由代码行的顺利决定
120.VB 集成开发环境中用于编写程序代码的窗口是( )
A 、 属性窗口
B 、 工程资源管理器
C 、 工具栏
D 、 代码编辑窗口 121.下列控件中，不能变大小的是（ ）
A 、 Timer
B 、 PictureBox
C 、 Label
D 、 TextBox
122.后缀为frm 的文件表示（ ） A 、 标准类模块文件 B 、 窗体文件 C 、 窗体二进制数据文件 D 、 类模块文件 123.表达式6+10MOD4*2+1的值是（） A 、 11 B 、 10 C 、 8 D 、 9 124.表达式Abs(-5)+Len(“ABCDE”)的值为( )
A 、 -5ABCDE
B 、 0
C 、 5ABCDE
D 、 10
125.关于语句行，下列说法正确的是（） A 、 一行只能写一条语句 B 、 一条语句可以分多行书写
C 、 长度不能超过去了255个字符
D 、 每行的首字符必须大写
126.在编码器中，如果一条语句太长，无法在一行内写下（不包括注释）， 折行书写，可以在行末使用续行字符（ ），表示下一行是当前行的继续
A 、 一个空格加一个连字符（—）
B 、 一个空格加一个下划字符（_）
C 、 一个下划字符（_）
D 、 直接回车 127. 有如下程序段： Dim str1 As String*5 Str1=“Visual Basic”
当该段程序被执行完时，变量str1的值为( )
A 、 “Visual Basic” B、 “V” C 、 “Visual” D、 “Visua” 128.把数值型转换为字符型需要使用的函数是（）
A 、 Str
B 、 Val
C 、 Chr
D 、 Asc
129.下列关于变量的说法不正确的是( ) A 、 局部变量在声明它的过程执行完毕后就被释放了
B 、 局部变量的作用域仅限于声明它的过程
C 、 静态局部变量是在过程中用Static
语句声明的 D 、 局部变量是指那些在过程中用Dim 语句或Static 语句声明的变量 130.如果希望以模态方式显示窗体Form1，下列正确的语句是（ ） A 、 Form1.Show 0 B 、 Form1.Show
C 、 Form1.Show 1
D 、 以下都不正确 131."x"是小于80的非负数，用VB 表达式表示正确的是（)
A 、 0<=x<80
B 、 0<=x Or x<80
C 、 0<=x And x<80
D 、 0≤x<80
132.在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为()
A 、 星号（*）
B 、 减号（-）
C 、 加号（+）
D 、 感叹号（！） 133.可获取字符的ASCII 码的函数是（） A 、 Fix B 、 Chr C 、 val D 、 Asc 134.以下右以作为Visual Basic 变量名的是（）
A 、 SIN
B 、 COS(X)
C 、 X(-1)
D 、 COL
135.按照变量的作用域可将变量划分为A 、 Public 、Private 、Protected B 、 全局变量、模块级变量、过程级变量 C 、 公有、私有、系统 D 、 动态、常量、静态
136.要退出Do….Loop 循环，可使用的语句是（）语句
A 、 Exit
B 、 Exit Do
C 、 End Do
D 、 Exit For 137.Sub 过程与Function 过程最根本的区别是()
A 、 Sub 过程可以使用Call 语句或直接
使用过程名调用，而Function 过程不可以
B 、 Sub 过程的过程名不能返回值，而Function 过程能够通过过程名返回值。
C 、 两种过程参数的传递方式不同
D、 Function过程可以有参数，Sub过程不可
138.要利用通用对话框控件来显示“打开对话框”，需要调用控件的（）方法A、 ShowColor B、 ShowOpen C、 ShowPrinter D、 ShowSave 139.下列可以用来存储图像供其他对象使用的控件是（）
A、 TreeView
B、 ToolBar
C、 StatursBar
D、 ImageList 140. 用下面的语句所定义的数组元素
的个数是（）
Dim A (-3 To 5) As Integer A、 8 B、 7 C、 6 D、 9 141.VB提供了结构化程序设计的三种基本结构是（）
A、递归结构、选择结构、循环结构
B、选择结构、过程结构、顺序结构
C、选择结构、循环结构、顺序结构
D、过程结构、转向结构、递归结构142.如果要在程序中显示一个弹出式菜单，那么要调用Visual Basic 中提供的方法是（）
A、 Print
B、 PopupMenu
C、 Refresh
D、 Move
143、由单精度浮点型的数据组成的字节数是
A、2
B、4
C、8
D、16 144.可以同时删除字符串前导和尾部空
白的函数是
A．Ltrim B．Rtrim C．Trim D．Mid
145.在设计阶段，当双击窗体上的某个
控件时，所打开的窗口是
A、工程资源管理器窗口
B、工具箱窗
口C、代码窗口D、属性窗口
146.在窗体上添加如下命令按钮，然后
编写如下事件过程：C
Private Sub Command1 _ Click()
Dim a(10)As Integer
Dim p(3)As Integer
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
该过程的运行结果为:
A、35
B、33
C、31
D、29
147.VB表达式
Cos(0)+Abs(1)+Int(Rnd(1))的值是
A、1
B、 -1
C、 0
D、 2
148.若m，x，y，均为Integer型变量，
则执行下面语句后m值是
m=1：X=2：Y=3
m=IIf(X＞Y，X+Y，X-Y)
A、-1
B、0
C、1
D、 2
149.设a=″Visual Basic″，下面使
b=″Basic″的语句是
A、b=Left(a，8，12)
B、b=Mid(a，8，5)
C、b=Right(a，5，5)
D、b=Left(a，8,5)
150.以下不能运行工程的操作是
A、.执行"运行"菜单中的"启动"命令
B、单击工具栏中的"启动"命令
C、按下Ctrl+F5键
D、按下F5键
151.下列关于面向对象程序设计的叙述
不正确的是
A、对象具有属性、方法等特性
B、对象之间的通信产生了消息
C、一个对象是一个软件构造块，它包含
数据与相关的操作
D、对象的属性不能被改变
152.在窗体上画一个名称为Command1的
命令按钮，然后编写如下程序：
Private Sub Command1 _ Click（）
Static X As Integer
Static Y As Integer
Cls
Y=l
Y=Y+5
X=5+X
Print X，Y
End Sub
程序运行时，三次单击命令按钮
Command1后，窗体上显示的结果为:
A、15 16
B、15 6
C、15 15
D、5 6
153、在Visual Basic集成环境中，
要添加一个窗体，可以单击工具栏上的
一个按钮，这个按钮是
A 、
B 、
C 、
D 、
154、在Visual Basic集成环境的设
计模式下，用鼠标双击窗体上的某个控
件打开的窗口是
A、工程资源管理器窗口
B、属性
窗口C、工具箱窗口D、代码窗口
155、下列叙述中错误的是
A、列表框与组合框都有List属性
B、
列表框有Selected属性，而组合框没有
C、列表框和组合框都有Style属性
D、组合框有Text属性、而列表框没有
156、设窗体上有一个命令按钮数
组，能够区分数组中各个按钮的属性是
A、Name
B、Index
C、Caption
D、Left
157、滚动条可以响应的事件是
A、Load
B、Scroll
C、Click
D、MouseDown 158、设a=5, b=6, c=7, d=8，执行语句X=Ilf（（a＞B、And （c＞D、, 10, 20）后，x的值是
A、10
B、20
C、30
D、200 159、语句Print Sgn（-6^2）+ Abs（-6^2）+Int（-6^2）的输出结果是
A、-36
B、1
C、-1
D、-72
160、在窗体上画一个名称为Command l 的命令按钮。单击命令按钮时执行如下事件过程：
Private Sub Command 1_Click（）
a$=”software and hardware"
b$=Right（a$，8）
c$=Mid（a$, 1，8）
MsgBox a$,，b$，c$, 1
End Sub
则在弹出的信息框标题栏中显示的标题是
A、software and hardware
B、hardware
C、software
D、1 161、在窗体上画一个文本框（名称为Text 1）和一个标签（名称为Label 1），程序运行后，如果在文本框中输入文本，
则标签中立即显示相同的内容。以下可
以实现上述操作的事件过程是
A、Private Sub Text1_Change（）
Label1.Caption=Text1.Text
End Sub
B、Private Sub Label1_Change（）
Label1.Caption=Text1.Text
End Sub
C、Private Sub Text1_Click（）
Label1.Caption=Text1.Text
End Sub
D、Private Sub Label1_Click（）
Label1.Caption=Text1.Text
End Sub
162、以下说法中错误的是
A、如果把一个命令按钮的Default
属性设置为True，则按回车键与单击该
命令按钮的作用相同
B、可以用多个命令按钮组成命令按
钮数组
、命令按钮只能识别单击（Click）事件
D、通过设置命令按钮的Enabled属
性，可以使该命令按钮有效或禁用
163、以下关于局部变量的叙述中错误的
是
A、在过程中用Dim语句或Static
语句声明的变量是局部变量
B、局部变量的作用域是它所在的过
程
C、在过程中用Static语句声明的
变量是静态局部变量
D、过程执行完毕，该过程中用Dim
或Static语句声明的变量即被释放
164、以下程序段的输出结果是
x=I：y=4
Do Until y＞4
x=x*y：Y=y＋I
Loop
Print x
A、1
B、4
C、
8 D、20
165、有如下事件过程：
Private Sub Form Click（）
Dim n A s Integer：x=0
n=InputBox（"请输入一个整数”）
For i=1 Ton
For j=1 To i
x=x＋I
Next j
Next i
Print x
End Sub
程序运行后，单击窗体，女口果在输
入对话框中输入：，则在窗体上显示的
内容是
A、13
B、14
C、
15 D、16
166、请阅读程序：
Sub subP（b（）As Integer）
For i=1 To 4
b（i）=2＊i
Next i
End Sub
Private Sub Command 1_Click（）
Dim a（l To 4）As Integer
A（l）=5：a（2）=6：a（3）=7：a
（4）=8
subP a（）
For i=1 To 4
Print a（i）
Next i
End Sub
运行上面的程序，单击命令按钮，
则输出结果是
A、2
B、5
C、10
D、出错
4 6 12
6 7 14
8 8 16
167、请阅读程序：
Private Sub Form_ Click（）
m=1
For i=4 To 1 Step-1
Print Str（m）；
m=m＋1
For j=1 To i
Print”＊”；
Next j
Next i
End Sub
程序运行后，单击窗体，则输出结果是
A、1****
B、4****
C、****
D、*
2*** 3*** *** ** 3** 2** ** *** 4* 1* * **** 168、在窗体上画一个命令按钮（其名称为Commandl），然后编写如下代码：Private Sub Command l_Click（）
Dim a
a=Array（1,2,3,4）
I=3：j=1
Do While i＞=0
s=s＋a（i）*j
i=i-1
j=j*10。
Loop
Print s
End Sub
运行上面的程序，单击命令按钮，则输出结果是
A、4321
B、123
C、234
D、1234
169、下列可以打开随机文件的语句是
A、Open "file l .dat" For lnpu't
As＃1
B、Open”file l .dat" For Append
As＃1
C、Open”file1.dat" For Output As
＃1
D、Open”file1.dat" For Random As
＃1 Len=20
170、请阅读程序：
Option Base I
Private Sub Form_ Click（）
Dim Arr（4, 4）As Integer
For i=1 To 4
For j=I To 4
Arr（i, j）=（i - 1）*2＋j
Next j
Next i
For i=3To4
For j=3 To 4
Print Arr（j, i）;
Next j
Next i
End Sub
程序运行后，单击窗体，则输出结
果是
A、5 7
B、6 8
C、7 9
D、8 10
6 8
7 9
8 10 8 11
171、一下面函数的功能应该是：删
除字符串str中所有与变量ch相同的字
符，并返回删除后的结果。例如：若str=
"ABCDABCD", ch= "B",则函数的返回值
为："ACDACD"
Function delchar（str As String,
ch As String）As String
Dim k As Integer, temp As String,
ret As String
ret=""
For k=1 To Len（str）
temp=Mid（str, k, 1）
If temp= ch Then
ret=ret＆temp
End If
Next k
delchar=ret
End Function
但实际上函数有错误，需要修改。
下面的修改方案中正确的是
A、把ret=ret＆temp改为ret=temp
B、把If temp=ch Then改为If temp
＜＞ ch Then
C、把delchar=ret改为
delchar=temp
D、把ret =""改为temp=""
172、在窗体上画一个命令按钮和
两个文本框，其名称分别为Command1、
Text I和Text2,在属性窗口中把窗体的
KeyPreview属性设置为True，然后编写
如下程序：
Dim S I As String, S2 As String
Private Sub Form Load（）
Text 1 .Text=""
Text2.Text=""
Text 1．Enabled=False
Text2．Enabled=False
End Sub
Private Sub Form_ KeyDown
（KeyCode As Integer, Shift As
Integer）
S2=S2＆Chr（KeyCode）
End Sub
Private Sub Forin_ KeyPress
（KeyAscii As Integer）
S1=S1＆Chr（KeyAscii）
End Sub
Private Sub Command l Click
Text l .Text=Sl
Text2.Text=S2
S1=""
S2=""
End Sub
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Textl和Text2中显示的内容分别为
A、abc和ABC
B、空白
C、ABC和abc
D、出错
173、如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性
A、Value
B、Visible
C、Default
D、Enabled
174、在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是
A、设置Enabled的值为True
B、设置TabIndex的值为1
C、设置TabIndex的值为0
D、设置Index的值为0
175、下列几项中，属于合法的日期型常量的是
A、 "10/10/02"
B、 10/10/02
C、 {10/10/02}
D、 #10/10/02#
176、下列程序段的执行结果为
A=2
B=5
If A * B < 1 Then B=B - 1 Else B=-1
Print B - A > 0
A、 True
B、 False
C、 -1
D、 1
177、以下语句的输出结果是
a=Sqr(26)
Print Format$ (a, "$####.###")
A、$5.099
B、5.099
C、5099
D、$0005.099
178、标签控件能够显示文本信息，
决定其文本内容的属性是
A、Alignment
B、Caption
C、Visible
D、BorderStyle
179、在属性窗口中，加载指定的
图形放入当前对象中的属性是
A、CurrentY
B、Picture
C、CurrentX
D、Caption
180、在使用应用程序时，常常用作在
单击时执行指定的操作的控件是
A、命令按钮
B、图片框
C、复选框
D、单选按钮
181、当直线或形状的BorderStyle
属性设置为1时，控件是
A、虚线
B、点线
C、不可见
D、实线
182、通过设置何属性可以改变所画图
形的形状？
A、Shape
B、Index
C、 Enabled
D、 Height
183、在窗体上画一个命令按钮，然后
编写如下事件过程：
Private Sub Command1_Click()
s=1
Do
s=(s + 1) * (s + 2)
Number=Number + 1
Loop Until s >=30
Print Number, s
End Sub
程序运行后，输出的结果是
A、2 3
B、2 56
C、5 12
D、10 20
184、下列程和序段的执行结果为
x=Int(Rnd() + 9)
Select Case x
Case 10
Print "excellent"
Case 9
Print "good"
Case 8
Print "pass"
Case Else
Print "fail"
End Select
A、excellent
B、good
C、pass
D、 fail
185、下列程序段的执行结果为
a=75
If a > 60 Then Score=1
If a > 70 Then Score=2
If a > 80 Then Score=3
If a > 90 Then Score=4
Print " Score="; Score
A、Score＝1
B、Score＝2
C、
Score＝3 D、Score＝4
186、下列程序段的执行结果为
I=1
x=5
Do
I=I + 1
x=x + 2
Loop Until I >=7
Print "I="; I
Print "x="; x
A、I＝4 x＝5
B、 I＝7 x＝15
C、I＝6 x＝8
D、 I＝7 x＝17
187、下面的程序的运行结果是
a=1 :b=1
Do
a=a^2: b=b + 1
Loop Until b > 5
Print "k="; a; Spc(4) ; "b="; b + a
A、 k＝7 b＝14
B、 k＝6 b＝6
C、 k＝4 b＝8
D、 k＝1 b＝7
188、单击命令按钮，下列程序的执
行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=32: y=42
Call PCS(x, y)
Print x; y
End Sub
Public Sub PCS(Byval n As Integer, ByVal m As Integer)
n=n Mod 10+1
m=m Mod 10+1
End Sub
A、32 42
B、2 32
C、2 3
D、12 3
189、下列程序的执行结果为
Private Sub Command1_Click()
Dim s1 As String, s2 As String
s1="abcd"
Call Transfer(s1, s2)
Print s2
End Sub
Private Sub Transfer (ByVal xstr As String, ystr As String)
Dim tempstr As String
i=Len(xstr)
Do While i >=1
tempstr=tempstr + Mid(xstr, i, 1)
i=i - 1
Loop
ystr=te mpstr
End Sub
A、dcba
B、abdc
C、abcd
D、dabc
190、单击命令按钮，下列程序的执行结果是
Private Sub Blck(x As Integer)
x=x * 2 + 1
If x < 6 Then
Call Blck(x)
End If
x=x * 2 + 1
Print x;
End Sub
Private Sub Command1_Click()
Blck 2
End Sub
A、 23 47
B、 10 36
C、 22 44
D、 24 50
191、下列过程定义语句中，参数不是对
象的定义语句是
A、Sub Pro4(x As Form)
B、Sub Pro4(y
As Control)
C、Sub Pro4(Form1 As Form,Labell As
Control)D、Sub Pro4(x As Currency)
192、下列说法正确的是
A、任何时候都可以使用标准工具栏
的"菜单编辑器"按钮打开菜单编辑器
B、只有当代码窗口为当前活动窗口
时，才能打开菜单编辑器
C、任何时候都可以使用"工具"菜单
下的"菜单编辑器"命令，打开菜单编辑
器
D、只有当某个窗体为当前活动窗
体时，才能打开菜单编辑器
193、下列各选项说法错误的一项是
A、文件对话框可分为两种即打开(Open)
文件对话框和保存(Save As) 文件对话
框
B、DefaultEXT属性和DialogTitle属性
都是打开对话框的属性，但非保存对话
框的属性
C、打开文件对话框可以让用户指定一个
文件，由程序使用；而用保存文件对话
框可以指定一个文件，并以这个文件名
保存当前文件
D、通用对话框的名称属性的默认值为
CommonDialogX(X＝1，2……) ，此外，
每种对话框都有自己的默认标题
194、下列数组定义语句错误的是
A、 k%=10
Dim Arr(k)
B、 Const k%=10
Dim Arr(k)
C、 Dim Arr1(10) As Integer
Dim Arr2 (10)
D、 Dim Arr1(1 To 10)
Dim Arr2(1 To 10, 2 To 11)
195、在Visual Basic中按文件的数据
性质不同，可将文件分为
A、数据文件和程序文件
B、文本文
件和数据文件
C、顺序文件和随机文件
D、ASCII
文件和二进制文件
196、菜单控件只包括一个事件，
即（1），当用鼠标单击或键盘选中后
按“回车”键时触发该事件，除分隔条
以外的所有菜单控件都能识别该事件。
A、GotFocus
B、Load
C、Click
D、KeyDown
197、滚动条控件(如图所示)的Max属性
所设置的是（2）。
A、滚动框处于最右位置时，一个滚动条
位置的Value属性最大设置值
B、单击滚动条和滚动箭头之间的区域
时，滚动条中滚动块的最大移动量
C、单击滚动条的箭头区域时，滚动条中
滚动块的最大移动量
D、滚动条控件无该属性
198、SQL 语句 Select * Form student
中的 *表示（3）。
A、所有记录
B、所有字段
C、所有表
D、都不对
199、以下选项中，不属于标签的属性
是（4）。
A、Enabled
B、Caption
C、Default
D、Font
200、要求改命令按钮显示的文本，应当
在属性窗口中改变的属性是（5）。
A、Caption
B、Name
C、Text
D、Label
201、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是（6）。
A、Caption
B、Name
C、Text
D、Value
202、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？（7）。
A、在标题项中输入&，然后打勾
B、在索引项中打勾
C、在有效项中打勾
D、在复选项中打勾
203、语句Print "The answer is:";20/4-2的结果为（9）。
A、The answer is 20/4-2
B、The answer is 3
C、The answer is "20/4-2"
D、非法语句
204、下列哪个控件是容器控件（10）。
A、Image
B、Picture
C、ComboBox
D、FileListBox 205、若要将窗体从内存中卸载出去，其实现的方法是（11）。
A、Show
B、Hide
C、Load
D、UnLoad
206、以下选项中，不是 Visual Basic 控件的是（12）。
A、窗体
B、定时器
C、
单选框 D、命令按钮
207、双击窗体中的对象后，Visual Basic
将显示的窗口是（13）。
A、代码窗口 B．工具箱 C．项目
（工程）窗口 D．属性窗口
208、可决定窗体的左上角是否有控制菜
单的属性是（14）。
A、ControlBox
B、MinButton
C、MaxButton
D、BorderStyle
209、设有如下语句：
Strl＝InputBox（"输人"，""，"练
习"）
从键盘上输人字符“示例”后，Strl的
值是（15）。
A．“输入” B．“ ”
C．“练习” D．“示例”
210、窗体Form1的Name属性是Frm1,
它的单击事件过程名是（16）。
A、 Form1_Click
B、Form_Click
C、 Frm1_Click
D、 Me_Click
211、窗体的hide属性的含义
是（17）。
A、隐藏
B、展现
C、装入
D、卸载
212、若要设置定时器控件的定时时间，
需设置的属性是（18）。
A．Enabled B．Value
C．Interval D．Text
213、能够改变复选框中背景颜色的属性
是（19）。
A．Value B．FontColor
C．BackColor D．Font
214、窗体能响应的事件
是（20）。 A．ActiveForm
B．Load C．Drive D．Change
判断题
1、设置属性的语句格式为：“对象名.
属性名＝属性值”． ( )
2、若用户在键盘上按下一个键，则会产
生一个单击事件（Click事
件）． ( )
3．VB窗体坐标系默认的度量单位是英
寸。（）
4、FSO对象模型包含在Scripting类型
库中。（）
5、ReDim语句只能出现有事件过程或通
用过程中，用它定义的数组是一个临时
数组。（）
6、Visual Basic6.0 有典型和自定义两
种安装方式。（）
7、控件的Caption属性和Name 属性值
相同,说明这两种属性是等同的
8、只能从工具栏中添加控件,不能在窗
体上复制已经画好的控件。（）
9、代码窗口是用户用来编写程序的窗
口。（）
10、，同一类对象的属性完全相同。
（）
11、对像使用的所有方法都是由系统提
供的。（）
12、图形化界面下只能使用鼠标进行操
作。（）
13、窗体设计窗口又称为窗体布局窗口。
14、三种方式的组合框都允许用户输入
哪些不在列表框中的选项。
15、图象框中的Stretch属性为true时，
其作用是图形自动调整大小以适应图象
控件。
16、在菜单编辑器中使用“索引”时，
可有一组菜单项具有相同的“名字”。
17、通过改变属性窗口中的Name属性，
来改变窗体的标题。
18、创建VB应用程序的三个主要步骤是：
(1)创建应用程序界面(2)设置控件(3)
编写代码。
19、变量是指在程序运行过程中其值可
以改变的那些量，而值不能改变的是常
量。
20、已知P＝MsgBox(“Howareyou?"，
VbYesNo+VbQuestion，“Hello!”)，变
量P是Integer数据类型。
21、工程文件的扩展名是 .vbg 。
22、VB允许设计和使用用户自己设计的
控件。
23、OptionButton控件没有DblCliek事件。
24、同一条记录中的各数据具有相同的类型。
25、使用Data控件可以直接显示数据库中的数据。
26、ImageList 是一个图像容器控件，可用作工具栏的图像库。
27、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。
28、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除）。
29、如果列表框的ListConut的属性为10，则列表框最后一项的ListIndex值为10。
30、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。
31、使用数组定义语句：Dim D$（10），则数组D中各元素的值为空。
32、如果在一行中输入多条语句，各语句之间用使用；分隔。
33、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。
填空题1、VB中的整型数在计算机中占
个字节，表示数的范围
是。
2、变量命名规则要求变量名必须以
开头，其后可由字母、数字、下划线组
成，长度不超过个字符。
3、CHR（ASC（“ABCD”））的值是
LOG（EXP（3））的值是
4、RND函数产生的随机数区间是
5、逻辑运算符中，运算级别最高的是
6、语句X=X+1的含义是
7、Print方法具有和功
能。
8、语句X = 5 = 3中，第一个“=”
是号，第二个“=”是号
9、要定义一个单精度符号常量PI，
其值为3.1416应该使用的语句是：
10、有如下语句：Dim x as
Integer，y ，z as String * 8，则
声明的变量x，y，z的类型分别是
型、型和型。
11．当进入VB集成开发环境后，发现没
有显示“工具箱”窗口，应选择( )
菜单的 ( )选项，使“工具箱”窗
口显示。
12．在VB中，事件过程名由( ) 和
( ) 构成。
13．工程文件的扩展名是 ( ) ，窗
体文件的扩展名是 ( ) 。
14．对象是代码和数据的集合，例如，
Visual Basic中的() 、()
（）、等都是对象。
15．对象的方法应用于( ) 。当对象
不需要任何参数并且也没有返回值时，
调用对象的方法的格式为( ) 。例
如，对窗体Form1使用Show方法，应写
成( ) 。
16．要使文本框显示滚动条，需要将其
( ) 属性设置为 ( ) 。
17．欲设置定时器的时间间隔为4秒，
则属性的Interval属性设置为
________
18．要使标签框的大小随Caption属性
作自动调整，应将 ________ 属性设
置为 ________
19．通过 ________ 可以在设计时直
观地调整窗体在屏幕上的位置。
20．要想在代码中给名为txtshow的文
本框赋予文本：GOOD WORK！时，应当编
写的语句是 ________ 。
21．若命令按钮的名称为Cmdopen，程序
要求单击以上命令按钮时，打开一个窗
口frm1时，请对以下事件过程填空。
Private Sub Cmdopen________
________ End Sub
22．事件就是在对象上所方式的事情，
Visual Basic中的事件如________
________ ________ 等。一个对象响
应的事件可以有（）个，用户不能建
立新的事件。事件过程是指
________ 。假设一个事件过程如下：
Private Sub cmd1_Click( )
Form1.Caption=”VB示例” End Sub 则
响应该过程的对象名是 ________ ，
事件名是 ________ 。
23．对象的方法应用于 ________ 。
当对象不需要任何参数并且也没有返回
值时，调用对象的方法的格式为
________ 。例如，对窗体Form1使用
Show方法，应写成________ 。
24．为了在编写代码时能自动进行语法
检查，必须执行________ 菜单中的
________ 命令，打开 ________ 对
话框，然后选择“编辑器”选项卡中的
________ 。
25．定时器控件可识别的事件是
________ ，发生该事件的时间间隔由
定时器的________ 属性设置，其单位
为 ________ 。
26、驱动器列表框的属性返回或
设置运行时选择的驱动器。
27、以随机访问方式打开文件时需要在
Open语句中使用。
28、在VB中若要让某对对象获取焦点，则可通过方法来实现。
29、窗体或控件的背景颜色用属性设置，前景颜色用属性设置。
30、窗体的属性用于指定窗体坐标系的度量单位。
31、要使一个窗体成为MDI子窗体，应将其属性设置为True。
32、方法可从列表框控件中删除一项。
33、属性指定用户是否可用Tab 键来选定文本框。
34、窗体或控件的名称对应于属性。
35、在过程内声明静态变量采用的关键字是，在执行一个过程结束时，过程中所用到的静态变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。
38、 Visual Basic 6.0包括了________，_____________ ，_________三种版本。
39、新建一个标准EXE工程文件，默认打开的窗口包括工程管理器窗口、_______________ ，_____________，
________________。
40、Visual Basic采用的是
_______________驱动的编程机制。
41、 Visual Basic中提供了四类工具栏
_________ ，__________，________，
_______。
42、不包含数据库访问工具的Visual
Basic 版本是_________。
43、对象的基本特征中，描述对象特点
的被称为_______________。
44、 Visual Basic 6.0程序设计的基本
步骤是____________，____________，
___________。
45、VB将数值型变量划分为
___________和_________类型两大类。
46、布尔型常量具有两个值________和
_________________ 。
47、 VB提供了注释是用什么符号表示
______，分行时用到什么符号______，
合并行书规范_______________。
48、_______________是系统担供的用于
控制对像的功能函数。
49、在VB中用_____或者______来作为
日期常量的定界符。
50、我国古代数学家张丘建在其著名的
《算经》中提出了百鸡问题：每只公鸡5
元，每只母鸡3元，三只雏鸡1元；如
何用100元买100只鸡，即公鸡、母鸡、
雏鸡各多少只。请在空白处填入适当的
内容，将程序补充完整。
Private Sub Command1_Click()
Dim Cock As Integer
Dim Hen As Integer
Dim Chick As Integer
Form1.Print "公鸡数", "母鸡数",
"雏鸡数"
For Cock=0 To 20
For Hen=0 To 33
For Chick=0 To 100
If 【7】 Then
Form1.Print Cock, Hen, Chick
End If
Next Chick
Next Hen
Next Cock
End Sub
51、每一个窗体或者控件都有一个名
字，为提高程序的可读性，可以用前缀
的方式来表示对象的类型，如Form的前
缀为frm，则Image的前缀为【8】，
Picture的前缀为【9】。
52、在一个工程中有两个窗体，窗体
Form1上有一个命令按钮Disp，单击该
按钮，Form1窗体隐藏，显示Form2窗体，
程序如下，请补充完整。
Private Sub Disp_Click ()
Me.Hide
Form2. 【10】
End Sub
(10) 在窗体上有几个对象，运行
程序时，当对象得到焦点时，会触发
【11】事件，当对象失去焦点时将触发
【12】事件。
(11) 下面是用冒泡法将5个整数
按升序排列，请将程序补充完整。
Sub GASR()
Dim m
m=Array(10, 1, 5, 6, 7)
For i=0 To 3
For j= 【13】
If m(i) >=m(j) Then
【14】
m(i) =m(j)
m(j) =t
End If
Next j
【15】
For i=0 To 4
Print m(i)
Next i
End Sub
1、VB程序设计的主要特点
是和。
53、在VB 中，最主要的两种对象是 和 。 54、工程是构成应用程序文件的 。
55、方法是VB 提供的一种 ，用来完成一定的操作。
56、浮点类型数据包括单精度型和___ __数据。
57、事件是窗体或控件对象识别的___ ____。
58、可用窗体的___ _ 方法在窗体中显示文字。
59、 复选框控件Value 属性指示复选框处于___ ___或禁止状态(暗淡的)中的某一种。 60、在
VB
中，修改窗体
的 和 属性值，可改变窗体的大小。
61、双击工具箱中的控件图标，可在窗体的 出现一个尺寸为缺省值的控件。
62、在MsgBox 函数中，如果缺省title
参数，则使用 作为消息框的标题。 63、设x ＝34.58，语句Print Format(x,“000.0”)的输出结果是 。
64、在VB 中，数值型变量的初值为 ，Varant 型变量的初值
为 ，布尔型变量的初值为 。
65、设置窗体的 属性，可在窗体上显示图片。
66、程序运行工程中，清除MP 图片框中的图片应使用语句 。
计算表达式的值：
1、 3 * 4 / 2 * 3
2、6 * Sqr （4）+ 3 ^ 2 * 2
3、 6 + 10 mod 4 * 2 + 1
4、4 * 5 * （8 mod 3）* 2 / 5
5、 14.4 \ 3.6 * 5 < 14.4 / 3.6 * 5
6、121.9 mod 11.7
7、 3 ^ 2 \ 4 + 3 ^ 2 / 2
8、Fix （-1.8）+ Int （-1.8）
9、 3 + 1 < = 3 – 2 or 3 + 5 > 8
+ 6 and 7 < 2
10、（3 ^ 3 \ 2）mod 2 *（Sgn （Abs （Int （-25.8）））） 程序填空：
1、下列程序是计算一元二次方程
2x 2+5x-8=0的两个实根。请补充完整 A = 2：B=5： D = B ^ 2 – 4 *A*C X1 = X2 =
PRINT X1，X2
2、利用公式V=4/3 πr 3
求半径为5的圆球的体积。 R = 5
V =
PRINT “半径为5的圆球的体积
是：”；V
请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得
分。
3、执行下面的程序段后，i 的值为 【1】 ，
s 的值为 【2】 。 s = 2
For i = 3.2 To 4.9 Step 0.8 s = s + 1
Next i
4、把窗体的KeyPreview 属性设置为True ，然后编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii) End Sub
程序运行后，如果直接按键盘上的"A"键（即不按住Shift 键），则在窗体上输出的字符分别是 【3】 和 【4】 。
（3）在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程： Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 【5】 End Sub
Private Sub Form_Click() Timer1.Enabled = 【6】 End Sub
Private Sub Timer1_Timer() Label1.Caption = 【7】 End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。请填空。
（4）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事 件过程：
Private Sub Command1_Click() S$ = InputBox("请输入一个字符串") Text1.Text = S$ End Sub
Private Sub Text1_Change() Label1.Caption
=
UCase(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"VisualBasic"，则在标签中显示的内容
是【8】。
5、在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表
框中的项目设置为："第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，
然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第三个项目
"的情况)。下面是实现上述功能的程序，请填空。
Private Sub Command1_Click()
If List1.ListIndex >= 【9】 Then List1.RemoveItem 【10】
Label1.Caption = 【11】
Else
MsgBox "请选择要删除的项目"
End If End Sub
6、设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54,
866, 43)
【12】 = arr1(1)
For i = 1 To 8
If arr1(i) > Max Then 【13】
Next i
Print "最大值是: "; Max
End Sub
以上程序的功能是：用Array函数建立
一个含有8个元素的数组，然后查找并
输出该数组中元素的最大值。请填空。
7、以下程序的功能是：把当前目录下的
顺序文件smtext1.txt的内容读入内存，
并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text = ""
Open ".\smtext1.txt" 【14】 As #1
Do While 【15】
Input #1, inData
Text1.Text = Text1.Text & inData
Loop
Close #1
End Sub
8、计算1*2*3*...*3000，当积大于3000
时停止计算。请在_______处将程序补充
完整。
Private Sub FormClick()
Dim t As Single,j As Integer
J=1
For j=1 To 3000
__________________
If t＞3000 Then Exit For
Next j
Debug.Print j,t
End Sub
9、下面程序运行后，输出的结果是
_______。
For J= 1 To 10
A(J)=2*J
B(J)=A(J)*2
Next J
Print B(J/2+0.1)
End
10、设有如下程序：程序运行后，单击
窗体，则在窗体上显示的是6 5 4 3，请
在_______处将程序补充完整。
Option Base 0
Private Sub Form _ Click（）
Dim a
Dim i As Integer
a=Array(1，2，3，4，5，6，7，8，9)
For i=0 To 3
Next i
End Sub
（1）执行下面的程序段后，i的值为
【1】，s的值为【2】。
s = 2
For i = 3.2 To 4.9 Step 0.8
s = s + 1
Next i
（2）把窗体的KeyPreview属性
设置为True，然后编写如下两个
事件过程：
Private Sub
Form_KeyDown(KeyCode As
Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub
Form_KeyPress(KeyAscii As
Integer)
Print Chr(KeyAscii)
End Sub
程序运行后，如果直接按键盘上
的"A"键（即不按住Shift键），
则在窗体上输出的字符分别是
【3】和【4】。
11、在窗体上画一个标签（名称
为Label1）和一个计时器（名称
为Timer1），然后编写如下几个事
件过程：
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 【5】
End Sub
Private Sub Form_Click()
Timer1.Enabled = 【6】
End Sub
Private Sub Timer1_Timer()
Label1.Caption = 【7】
End Sub
程序运行后，单击窗体，将在标
签中显示当前时间，每隔1秒钟
变换一次（见图）。请填空。12、在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事
件过程：
Private Sub Command1_Click()
S$ = InputBox("请输入一个字符串") Text1.Text = S$
End Sub
Private Sub Text1_Change() Label1.Caption =
UCase(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令按钮，将显示一
个输入对话框，如果在该对话框中输入
字符串"VisualBasic"，则在标签中显示
的内容
是【8】。
13、在窗体上画一个列表框、一个命令
按钮和一个标签，其名称分别为List1、
Command1和Label1，通过属性窗口把列
表
框中的项目设置为："第一个项目"、"第
二个项目"、"第三个项目"、"第四个项
目"。程序运行后，在列表框中选择一个
项目，
然后单击命令按钮，即可将所选择的项
目删除，并在标签中显示列表框当前的
项目数，运行情况如图所示(选择"第三
个项目
"的情况)。下面是实现上述功能的程序，
请填空。
Private Sub Command1_Click()
If List1.ListIndex >= 【9】 Then
List1.RemoveItem 【10】
Label1.Caption = 【11】
Else
MsgBox "请选择要删除的项目"
End If
End Sub
14、设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54,
866, 43)
【12】 = arr1(1)
For i = 1 To 8
If arr1(i) > Max Then 【13】
Next i
Print "最大值是: "; Max
End Sub
以上程序的功能是：用Array函数建立
一个含有8个元素的数组，然后查找并
输出该数组中元素的最大值。请填空。
15、以下程序的功能是：把当前目录下
的顺序文件smtext1.txt的内容读入内
存，并在文本框Text1中显示出来。请
填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text = ""
Open ".\smtext1.txt" 【14】 As #1
Do While 【15】
Input #1, inData
Text1.Text = Text1.Text & inData
Loop
Close #1
End Sub
（2）程序分析题：（每空4分，共8分）
依次执行下列语句：
X = 567：Y= 984
X = X + Y 运行该
段代码后，输出结果是：
Y = X – Y 该段程
序的主要功能是：
X = X – Y
PRINT X，Y
1、Private Sub Form_Click( )
Dim i As Integer
Dim a As Integer
I=0
While i<10
i=i+1
i=i*i+i
a=a+i
Wend
Print a
End Sub
（）
2、Private Sub Form_Click( )
Static Sum As Integer
For I=1 To 10
Sum= Sum+I
Next I
Print Sum
End Sub
（）
16、、读下列程序，当程序运行后用户单击窗体会显示什么结果？(8分)
Private sub form_click( )
Print “欢迎光临”
End sub
结果是:
17、读下列程序，当程序运行后用户双击窗体内的某个位置，命令按钮command1的标题为？(8分)
Private sub form_dblclick( )
Command1.caption= “def”
End sub
Private sub form_load( )
Command2.caption= “abcd”
End sub
结果是:
18．读下程序，用户单击鼠标左健后会显示什么？(10分)
Private sub form_ MouseDown(Button As Integer,Shift As Integer, X As Single , Y As Single)
print “AAAAA”
End sub
Private sub form_ MouseUP(Button As Integer,Shift As Integer, X As
Single , Y As Single)
prin t “BBBBB”
End sub
结果是:
19、 Private Sub Form_Click()
Static SUM As Integer
I = 1
Do While I<=10
SUM = SUM + I
I = I + 1
Loop
Print SUM
End Sub
运行程序，第一次单击窗
体：
第二次单击窗体：
20、 Private Sub Form_Click()
Print "*"; Tab(6); 2, Tab(15); 5
For I = 15 To 16
Print I;
For j = 2 To 6 Step 3
Print Tab(3 * j); j * I;
Next j
Next I
End Sub
程序运行结
果：
程序设计题
1．在窗体上添加一个文本框和两个命令
按钮，并把两个命令按钮的标题分别色
绘制为“隐藏文本框”和“显示文本框”。
当单击第一个命令按钮时，文本框消失；
而当单击第二个命令按钮时，文本框重
新出现，并在文本框显示“VB程序设计”
（字体大小为16）程序运行界面如图1
所示。
图一
答案：程序代码：Private Sub
Command1_Click() Text1.Visible =
False End Sub Private Sub
Command2_Click() Text1.Visible =
True Text1.Text = "VB程序设计" End
Sub
2．设计一个计算程序。该程序用户界面
如图2所示，由四个文本框：文本框1
（text1）、文本框2（text2）、文本框3
（text3）、文本框4（text4），和三个命
令按钮：命令按钮1（command1）、命令
按钮2（command2）、命令按钮3
（command3）组成。程序运行后，用户
按清除按钮，则清除文本框中显示的内
容，按计算按钮，则计算三科平均成绩。
单击退出按钮则退出。
图二
答案：程序代码：Private Sub
Command1_Click() Text1.Text = ""
Text2.Text = "" Text3.Text = ""
Text4.Text = "" End Sub Private Sub
Command2_Click() Text4.Text =
Trim(Str((Val(Text1.Text) +
Val(Text2.Text) + Val(Text3.Text)) /
3)) End Sub Private Sub
Command3_Click() End End Sub
3、在窗体上有一个文本框控件，名
称为TxtTime；一个计时器控件，名称为
Timer1。要求每一秒钟在文本框中显示
一次当前的时间。程序如下，请在下划线上填入恰当的内容。
Private Sub Timer1（ ） TxtTime.text= （ ）
End Sub
1. 用随机函数产生10个不大于100的
整数存入一维数组a 中，并找出这组数中能被3整除余2的数赋值于数组b 。点击开始按钮在窗体中显示数组a 和数组b 。
2.编写一段程序，实现label1（我爱我家）的无规则运动，要求使用时钟控件，同时命令按钮1实现自动运动，命令按钮
2
实
现
手
动
控
制
。
（一） 窗体中有图片框(Picture1)和
计时器(Timer1)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip （20分之一像素）。请填空：
Private Sub Form_load( ) （1） =loadPicture(“c:\pic \ball.ico”) .Interval=200 End Sub
Private Sub Timer1_Timer( ) Static x , y As Integer x=x+100 ： y=y+100 Picture1.Move （3） End Sub
（二）有一个单击按钮过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请填空：
Private Sub Command1_Click() Dim x As Integer, N% Dim Counter As Integer (1) Timer For N=1 To 50
X=Rnd()* (2) If (3) =2 Then Print x
Counter= (4) (5) Next N
Print Counter End Sub 简答题
1．什么是可视化编程和事件驱动？ 答案：编程人员只需针对某个事件编写程序代码称为可视化编程。应用程序是在响应不同的事件时执行不同的代码片段称为事件驱动。
2．对象、属性、事件和方法指的关系任何？
答案：窗体和控件是创建应用程序所使用的对象，方法是对象的动作，事件是
对象的响应，属性可看作对象的性质。 3．简述事件驱动编程机制与传统编程方式的不同。
答案：传统编程方式是结构化程序设计，
它从系统的功能入手，按照工程的标准和严格的规范将系统分解为若干功能模块，系统是实现功能模块的函数和过程的集合。事件驱动编程则是从所处理的数据入手，以数据为中心而不是以服务（功能）为中心来描述系统。它把编程问题视为一个数据集合，数据相对于功能而言，具有更强的稳定性。事件驱动编程与传统编程方式相比，最大的区别在于：前者首先关系关心的是所要处理的数据，而后者首先关心的是功能。 4．简述事件驱动的工作过程。 答案：答：事件驱动的工作过程为： 1.启动应用程序，装载和显示窗体。 2.窗体或窗体上的控件等待事件的发生。 3.当某个事件发生后，执行其对应的事件过程代码。 4.重复执行第2和第3步，直到遇到End 语句或单击结束按钮停止程序的运行。
大学VB考试题库
大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.sodocs.net/doc/f117750341.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。
A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0
程序设计语言VB_习题集(含答案)
《程序设计语言VB》课程习题集 一、单选题 1.Visual Basic是一种面向（）的程序设计语言。 A.用户 B.事件 C.程序 D.对象 2.在Visual Basic6.0中规定工程文件的扩展名是（）。 A.vbp B.for C.frm D.bas 3.Visual Basic6.0中规定窗体文件的扩展名是（）。 A.for B.frm C.vbp D.bas 4.如何使一个标签或按钮控件在运行时不可用（）。 A.把它的Visible属性设置成False B.把它的Visible属性设置成True C.把它的Enabled属性设置成False D.把它的Enabled属性设置成True 5.控件的字体可在属性窗口的（）属性中调整？ A.Font B.Color C.Text D.Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。 A.Value B.Cancel C.Default D.Enabled 7.在VB中，记录对象数据的是（）。 A.方法 B.事件 C.属性
8.在文本框上显示文本的属性是（）。 A.Value B.Text C.Print D.Enabled 9.InputBox函数返回值的类型为（）。 A.字符串 B.数值 C.变体 D.数值或字符串（视输入的数据而定） 10.设有语句：a=InputBox("请输入数值:","输入示例","100")程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。 A.字符串"20" B.字符串"120" C.默认值100 D.数值120 11.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 https://www.sodocs.net/doc/f117750341.html,bel控件 B.TextBox控件 C.Timer控件 https://www.sodocs.net/doc/f117750341.html,mandButton控件 12.语句PRINT"25*4"的输出结果是（）。 A.25*4 B."100" C.100 D.出现错误信息 13.只能用来显示字符信息的控件是（）。 A.文本框 B.标签框 C.图片框 D.图像框 14.下列可作为Visual Basic变量名的是（）。 A.A%A B.4A C.?xy D.Stemp 15.下列哪个符号不能作为VB中的变量名（）。 A.timefly
VB语言程序设计试题库
VB程序设计 一、判断题 1、同一Form窗体中的各控件可以相互重叠,其显示的上下层次的次序不可以调整。( X ) 2、一个对象的若能识别多个事件,我们只能对其中一个事件编程( ) 3、单选按钮与复选框对象的Value属性类型不同,且只能取值True与False。( √ ) 4、事件过程由某个用户事件或系统事件触发执行,它不能被其她过程调用。( ) 5、图片框的Move方法不仅可以移动图片框,而且还可以改变该图片框的大小,同时也会改变该图片框有关属性的值。( √ ) 6、“A=B=C”就是一个合法的Visual Basic语句。( ) 7、当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时,组合框会自动把这一条目添加到它的列表框中。( ) 8、 Visual Basic程序的运行可以从 Main()过程启动,也可以从某个窗体启动。( √ ) 9、在图片框中放置的控件既可以在该图片框内移动,也可以移出该图片框外。( ) 10、对于文件系统控件,当驱动器控件Drivel中的驱动器符改变时,文件夹列表控件Dir1中显示的文件夹也作相应的改变,可以在Drive1中的Change事件中使用如下命令。Dir1、Path＝ Drive1、 Drive( √ ) 11、滚动条控件可作为用户输入数据的一种方法。( √ ) 12、单选按钮控件与复选框控件都具有Value属性,它们的作用完全相同。( ) 13、静态变量就是一种局部变量,当原过程再次被执行时,静态变量的初值就是上一次过程调用后的值。( √ ) 14、 Visual Basic提供的几种标准坐标系统的原点都就是在绘图区域的左上角,如果要把坐标原点放在其她位置,则需使用自定义坐标系统。( √ ) 15.注释语句REM可自成一语句。( √ ) 16、用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该菜单控件时,触发KeyPress( ) 17、组合框兼有文本框与列表框两者的功能,用户可以通过键人文本或选择列表中的项目来进行选择。( √ ) 18、当定时器控件的Interval属性值设置为0时,会连续不断地激发Timer事件。( ) 19.执行程序 x=0:for I=2 to 10 step –2:x=x+10:next I后x的值为0。( √ ) 2、句“FontName="宋体" ”与“Form1、FontName="宋体" ”的作用完全相同,无一例外。( ) 21局变量只能在窗体的通用区内用Public或global定义。( ) 22、在盘驱动器列表框Drivel的Change事件过程中,代码Dirl、 Path＝Drivel 、 Drive 的作用就是:当Drivel的驱动器改变时,Dirl的目录列表随不同驱动器作相应改变。( √ ) 23.直到型循环至少能执行一次循环体。( √ )
大学-VB期末考试试题
VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。 13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）
VB语言程序设计
VB语言程序设计 《VB语言程序设计》课程实验教学大纲 一、制定实验教学大纲的依据 根据本校《2004级本科指导性培养计划》和《VB语言程序设计》课程教学大纲制定。 二、本实验课在专业人才培养中的地位和作用 《VB语言程序设计》课程是非计算机专业的一门公共基础课，是一门实践性和实用性都非常强的课程。其主要任务是使学生掌握程序设计的思想、方法和技巧，为应用程序开发打好必要的基础。实验课是本课程重要的教学环节,其目的是使学生掌握VB程序设计的开发环境的基本操作，以及设计图形用户界面的一般方法和技巧，重点掌握程序设计的基本思想和方法。通过接受基本实验技能的训练，提高学生的动手能力和分析、解决问题的能力。 三、本实验课程讲授的基本实验理论 1、对象的概念，常用控件的设置方法和用户界面的设计技巧。 2、变量、数据类型等概念及顺序、选择、循环三大结构的程序设计。 3、数组、过程的概念和基本操作，熟悉一些常用算法。 四、本实验课学生应达到的能力 1、熟悉Visual Basic的程序设计集成开发环境，掌握图形用户界面的一般设计方法和技巧，掌握常用控件的设置方法和其相关事件的应用。 2、掌握条件语句、循环语句、数组和过程的使用，能够运用所学语言解决实际问题，熟悉一些常用算法。
3、掌握程序调试技术，当程序出错时，有能力很快地判断出错误位置和出错原因，并且能很快排除这些错误，使程序能正确运行，培养分析问题、解决问题的能力。 4、加深课堂讲授和书本内容的理解及对语法规则的理解，达到灵活运用和培养程序设计能力的目的。 5、培养良好的程序设计风格。 五、学时、教学文件 学时:本课程总学时为56学时，其中实验为20学时，占总学时的35.7%。 教学文件:教材《Visual Basic程序设计简明教程(第二版)》实验部分;实验报告学生自拟。 要求学生实验前预习实验内容，并编写出源程序或给出初步的解决方案。指导教师应概述实验的设计思想和方法等，具体实验步骤和编写、调试程序由学生独立完成。 六、实验考核办法与成绩评定 1、实验考核每次依据预习、实验完成情况、纪律等综合给出实验成绩。未参加实验者或实验成绩不 合格者，本课程不予通过。 2、实验成绩占该课程总成绩的10%。 七、仪器设备及注意事项 仪器设备:微型计算机、Visual Basic 6.0软件 注意事项:注意保护设备 八、实验项目的设置及学时分配 序号实验项目学时实验类型要求适用专业 1 熟悉VB集成开发环境 2 验证必做工业工程(管理)
(完整版)《VB语言程序设计基础》课程教学大纲.
《VB语言程序设计基础》课程教学大纲 课程编号：0806606506 课程名称：VB语言程序设计基础 英文名称：Visual Basic Language Programming Design 课程类型：专业选修课 总学时：24 讲课学时：14 上机学时：10 学分：1.5 适用对象：电气工程及自动化专业电网监控技术方向 先修课程：《大学计算机基础》、《C语言程序设计》 一、课程性质、目的和任务 本课程是电气工程及自动化专业电网监控技术方向的一门专业选修课，是一门实用性强、面向程序开发与应用的重要的专业课程。随着面向对象的程序设计方法日益成熟，人们考虑将各种图形界面和图像元素作为"对象"预先进行定义，用户在开发时只需直接调用。Visual Basic正是基于这种思想产生的一种Windows应用程序开发工具。它具备易学易用的特点，且功能相当强大，它还拥有非常庞大的Windows应用程序开发用户群。通过本课程的学习，要求学生掌握VB语言的结构及开发环境，程序设计方法与基本数据结构，掌握已有控件与函数的调用方法；通过上机实践培养学生分析具体问题、解决实际问题的能力，为其它编程工具的学习以及今后的基于专业的系统开发打下坚实的基础。 二、教学基本要求 本课程是理论与实践并重的课程，要求学生既要掌握基础理论知识，又要掌握操作计算机和运行程序的基本技能；能够熟练运用VB6.0集成开发环境编制具有中等难度的应用程序，在实践中培养独立分析问题和解决问题的能力。 本课程的基本要求如下： 1．了解VB的特点，掌握在VB集成开发环境中编辑、编译、运行、调试程序的全过程，具备较强的程序调试能力。 2．掌握VB语言的基本语法成分和面向对象程序设计方法。 3．掌握VB 常用控件的使用方法。 4．掌握VB 的用户界面、菜单与多文档界面设计方法。 本课程让学生既掌握了结构化程序设计方法又学会面向对象的编程思想，在实际应用中将两者有机结合。 三、教学内容及要求 1．Visual Basic 程序设计概述 （1）了解VB的发展，功能及特点，了解VB的安装和启动过程。 （2）掌握VB集成开发环境。 2．简单的VB程序设计 （1）掌握对象的概念。
VB语言程序设计
第一题 设计程序，从文本框中输入一个整数n（n<500），单击“处理”按钮是产生3个1~n 的随机整数，并分别显示在3个标签中。 程序如下： Private Sub Form_Load() ‘加载 Dim n As Integer, a As Integer ‘定义随机变量 Dim b As Integer, c As Integer Randomize ‘使rnd函数产生不同序列的随机数 n = Val(InputBox("请输入一个正整数n（n<500）")) 'inputbox函数产生对话框供用户输入数值 a = Int(n * Rnd) ‘在小于n的数随机选取一树值“下同” b = Int(n * Rnd) c = Int(n * Rnd) Label1.Caption = a ‘随机选取的数值n显示在标签上面“下同” Label2.Caption = b Label3.Caption = c End Sub ‘结束运行
第二题 设计程序，在窗体上建立5个文本框和1个命令按钮，利用4个文本框输入4个数，单击命乏按钮进行处理，求出这4个数中的最大数显示在第5个文本框中 [提示]①数值的数据类型可以定义为单精度型；②可以参考例4.2的处理方法；也可以分两组数（2个数为一组）进行比较，再从两组数中的较大数中求出最大数. 程序如下： Private Sub Command1_Click() '执行 Dim m As Single, a As Single '定义变量为单精度 Dim b As Single, c As Single Dim d As Single a = Val(Text1.Text) '为变量赋值 b = Val(Text2.Text) c = Val(Text3.Text)
大学VB期末考试试题
VB 期末考试试题A 卷 一、填空题 1、VB 程序设计的主要特点是可视化设计和事件编程。 2、在VB 中，最主要的两种对象是窗体（form ）和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB 提供的一种特殊子程序，用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作___ 。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value 属性指示复选框处于 _____ 选中___或禁止状态（暗淡的）中的某一种。 9、在VB中，修改窗体的高度（height）和宽度（width ）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox 函数中，如果缺省title 参数，则使用工程1 作为消息框的标题。 12、设x = 34.58，语句Print Format（x, “ 000.0”）的输出结果是34.6。 13、在VB 中，数值型变量的初值为0 ，Varant 型变量的初值为空，布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP 图片框中的图片应使用语句cls 。 二、选择题 1 、菜单控件只包括一个事件，即C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B 、Load C 、Click D 、KeyDown 2、滚动条控件（如图所示）的Max 属性所设置的是A 。 A 、滚动框处于最右位置时，一个滚动条位置的Value 属性最大设置值 B 、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中的*表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D 、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B 、Name C、Text D、Label 6、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B 、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ D 。 A、在标题项中输入&,然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click（） Print "VB"; Print "Hello! "; Print "VB"
《VB语言程序设计》习题参考答案
《VB语言程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y) (3) a*a–3*a*b/(3+a) (4) x^(3/8)+Sqr(y*y+4*a*a/(x+y^3))
大学VB考试卷试题库题集.doc
大学 VB 考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。 A、结构化程序设计 B 、程序开发环境 C、事件驱动编程机制 D 、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（C）。 A、 "12334" B 、 123 C、 12334 D 、 157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B 、窗体文件和工程文件 C、窗体文件和标准模块文件 D 、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、 ="VisualBasic窗体" B、 ="VisualBasic窗体" C、 ="VisualBasic窗体" D、 ="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm ） B、只装入工程文件（.vbp ）
C、分别装入工程文件和标准模块文件（.bas ） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B 、不相同C、两可 D 、都不对 7、下面正确的赋值语句是（C）。 A、 x+y=30 B 、y=π*r*r C 、y=x+30 D、 3y=x 8、 VisualBasic集成环境的主窗口中不包括（C）。 A、标题栏 B 、菜单栏 C 、状态栏 D 、工具栏 9、以下叙述中错误的是(C) 。 A、 Visual Basic是事件驱动型可视化编程工具 B、 Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic 工具箱中的所有控件都具有宽度（Width ）和高度（ Height ）属性 ( 计时器 ) D、 Visual Basic中控件的某些属性只能在运行时设置 10、要使 Print方法在Form_Load事件中起作用，要对窗体的(C) 属性进行设置。 A、 Backcolor B、ForeColor C、 AutoRedraw D、 BackStyle 11、若要使命令按钮不可操作，要对(A) 属性进行设制。 A、 Enabled B、 Visible C、 BackColor D 、 Caption
大学vb课程题库全集
大学vb课程题库全集 vb单选、操作部分 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123 & MID(\执行后，a变量中的值是（C）。 A、\ B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示\窗体\的语句是（C）。 A、https://www.sodocs.net/doc/f117750341.html,=\窗体\B、Form1.Title=\窗体\C、Form1.Caption=\窗体\D、Form1.Text=\窗体\ 5、为了装入一个Visual Basic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30
B、y=π*r*r C、y=x+30 D、3y=x 8、Visual Basic 6.0集成环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件
VB语言程序设计
VB语言程序设计 (1/44) VB支持自定义数据类型,在某程序中我们定义了如下类型Type Student number As string name As String age As Integer End Type ?针对上述定义,如下几项用法正确的是:( )正确答案：B ?A https://www.sodocs.net/doc/f117750341.html,="张三" ?B Dim s As Student https://www.sodocs.net/doc/f117750341.html,＝"张红" ?C Dim s As Type Student https://www.sodocs.net/doc/f117750341.html,="张三" ?D Dim s As Type https://www.sodocs.net/doc/f117750341.html,="张三" (2/44) ?以下能够触发文本框Change事件的操作是( )正确答案：D ?A 文本框失去焦点 ?B 文本框获得焦点 ?C 设置文本框的焦点
?D 改变文本框的内容 (3/44) ?下面程序运行后输出的结果是( ) 正确答案：B DIM C1,C2 C1="CHINA" C2=STRING$(2, C1) PRINT Left(C1,1) + C2 移除错题 ?A CHI ?B CCC ?C INA ?D AAA (4/44) ?设窗体上有一个文本框,名称为text1,程序运行后,要求该文本框不能接受键盘输入,但能输出信息,以下属性设置正确的是:正确答案：B ?A text1.maxlength=0 ?B text1.enabled=flase ?C text1.visible=flase ?D text1.width=0
(5/44) ?用于返回窗体可用区域宽度的属性是( )正确答案：A ?A ScaleWidth ?B ScaleLeft ?C ScaleHeight ?D ScaleTop (6/44) ?Visual Basic提供的On Error Resume next错误陷阱语句表示( )正确答案：C ?A 当发生错误时，使程序转跳到语句标号为0的程序块 ?B 当发生错误时，不使用错误处理程序块 ?C 当发生错误时，忽略错误行，继续执行下一语句 ?D 当发生错误时，终止本过程执行，继续执行下一过程 (7/44) 为了检测到用户按下键盘上的所有键,应该使用的键盘事件为( ) ?正确答案：C ?A KeyPress ?B
大学计算机VB程序设计考试题目
实验三 第1题四则运算题 设计如下窗体,为五个命令按钮编写5段代码完成四则运算及退出程序,其中在计算除法时,如果第二个数就是零,在消息框中显示信息“除数为零”。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a + b End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a - b End Sub Private Sub Button3_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button3、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a * b End Sub Private Sub Button4_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button4、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text
VB语言程序设计试题库
VB程序设计 一、判断题 1. 同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。（ X ） 2. 一个对象的若能识别多个事件，我们只能对其中一个事件编程（ ） 3. 单选按钮与复选框对象的Value属性类型不同，且只能取值True和False。（√） 4. 事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。（ ） 5. 图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框有关属性的值。（√） 6. “A=B=C”是一个合法的Visual Basic语句。（ ） 7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。（ ） 8. Visual Basic程序的运行可以从 Main（）过程启动，也可以从某个窗体启动。（√） 9. 在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。（ ） 10. 对于文件系统控件，当驱动器控件Drivel中的驱动器符改变时，文件夹列表控件Dir1中显示的文件夹也作相应的改变，可以在Drive1中的Change事件中使用如下命令。Dir1. Path＝ Drive1. Drive（√） 11. 滚动条控件可作为用户输入数据的一种方法。（√） 12. 单选按钮控件和复选框控件都具有Value属性，它们的作用完全相同。（ ） 13. 静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。（√） 14. Visual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其他位置，则需使用自定义坐标系统。（√） 15．注释语句REM可自成一语句。（√） 16. 用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发 KeyPress （ ） 17. 组合框兼有文本框和列表框两者的功能，用户可以通过键人文本或选择列表中的项目来进行选择。（√） 18. 当定时器控件的Interval属性值设置为0时，会连续不断地激发Timer事件。（ ）19．执行程序 x=0:for I=2 to 10 step –2:x=x+10:next I后x的值为0。（√） 2.句“FontName="宋体" ”与“Form1.FontName="宋体" ”的作用完全相同，无一例外。（ ） 21局变量只能在窗体的通用区内用Public或global定义。（ ） 22. 在盘驱动器列表框Drivel的Change事件过程中，代码Dirl. Path＝Drivel . Drive 的作用是：当Drivel的驱动器改变时，Dirl的目录列表随不同驱动器作相应改变。（√）
2020年国家开放大学电大《VB程序》形成性考核题库
客观题_0001 试卷总分：100 测试时间：240 单项选择题判断题 一、单项选择题（共20 道试题，共80 分。） 1. 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（）。 A. List B. Listindex C. Text D. Listcount 2. 在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置 为（）。 A. 加号（+） B. 减号（-） C. 星号（*） D. 感叹号（!） 3. 保存新建的工程时，默认的文件夹是（）。 A. My Document B. VB98 C. "\ " D. Windows 4. 要清除列表框的所有内容，可用（）方法来实现。 A. RemoveTtem B. Cls C. Clear D. 以上均不可以 5. 用标准工具栏中的工具按钮不能执行的操作是（）。 A. 添加工程
B. 打印源程序 C. 运行程序 D. 打开工程 6. 改变驱动器列表框的Drive属性值，将激活（）事件。 A. Change B. Scoll C. KeyDown D. KeyUp 7. 下列语句语法正确的是（）。 A. a=1 b=2 c=3 B. a=l：b=2：c=3 C. a=1，b=2，c=3 D. a=1；b=2；c=3 8. 要在窗体Form1内显示“myfrm”，使用的语句是（）。 A. Form. print "myfrm" B. Form.caption="myfrm" C. Form1.print "myfrm" D. Form1.caption="myfrm" 9. 图象框Image没有的属性是（）。 A. Picture B. Appearance C. AutoRedraw D. 以上属性都没有 10. 可获得字符的ASCII码的函数是（）。 A. Val
VB程序语言设计科学计算器
V B程序语言设计科学 计算器 标准化工作室编码[XX968T-XX89628-XJ668-XT689N]
VB程序语言设计 课程大作业 题目名称：科学计算器设计 班级： 姓名： 学号： 课程教师：温海骏 学期：2014-2015学年第2学期 完成时间：2015年5月 一、实验内容 《科学计算器》设计 本科学计算器是一种能实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现了Windows自带计算器的所有功能。要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题，也是我们实训要达到的目的。 二、实验目的 1、通过本实验，进一步理解Visual?Basic的编程方法。 2、?提高运用Visual?Basic编程的能力。 3、培养对所学知识的综合运用能力。 4、用所学的VB知识编写程序来实现运算功能并解决问题，达到实训的目的 三、实验设备 计算机、VB软件 四、实验过程 1、课题的选材过程（设计思路） 由VB程序设计的科学计算器是一种能实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现了Windows自带计算器的所有功能。
思路：为实现上述功能，我的基本思路是在窗体上建立4个控件数组，第一个控件数组是标准型，实现简单的四则运算；第二个控件数组是科学型，用来进行正弦余弦、正切余切、正割余割、反正弦反余弦、对数和n！等函数功能；第三个控件数组为程序员，实现进制转换；另外一个按钮实现单位转换。 2、设计的将要达到的目标 实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现Windows自带计算器的所有功能。 3、总体设计结构与功能 （1）总体设计结构介绍（绘制：结构流程图） （2）各功能模块运行界面的功能、算法和操作步骤 VB程序算法如下： 4、设计结果分析（运行结果展示、正确性分析） 经调试，程序运行基本正确。运行结果如下： 五、总结 1、对学习者知识的要求：
大学VB考试题库及答案
大学V B考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.sodocs.net/doc/f117750341.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏
9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0 B、将控件的TabStop属性设置为True
《VB语言程序设计》期末试题
一、单项选择题 1．与传统的程序设计语言相比，VB最突出的特点是（） A）结构化程序设计B）程序开发环境 C）事件驱动编程机制D）程序调试技术 2．如果要改变窗体的标题，则需要设置的属性是（） A）Caption B) Name C) BackColor D) BorderStyle 3．下列说法正确的是（） A）窗体中活动控件只能有一个 B）若一个控件上有4个黑色的小方块，表明该控件是活动的 C）在活动窗体中只能通过拖拉右上角和左下角的小方块来同时调整高度和宽度上缩放控件 D）非活动控件在窗体上是隐藏的 4．下列不能打开代码窗口的是（） A）双击窗体上的某个控件B）双击窗体 C）按F7键D）单击窗体或控件 5．假定在窗体上有一个名称（Name属性）为Command1的命令按钮，如果把按钮的标题设为“进入系统”，则下列赋值语句正确的是（） A) Command1=“进入系统”B）Command1.Caption=“进入系统” C）Command1.Text=“进入系统”D）https://www.sodocs.net/doc/f117750341.html,=“进入系统” 6．设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 7．在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() A=InputBox(“Enter the First integer”) B=InputBox(“Enter the Second integer”) Print B+A End Sub 程序运行后，单击命令按钮，先后在两个输入对话框中输入456和123，则输出结果为（） A）579 B）123 C）456 D）123456 8．为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是（）A）ControlBox B) MinButton C) Enabled D) Maxbutton 9．使文本框获得焦点的方法是（） A）Change B) GotFocus C) SetFocus D) LostFocus 10．在窗体上画两上单选按钮，名称分别为Option1，Option2，标题分别为“宋体”和黑体；两个复选框，名称分别为Check1，Check2，标题分别为“粗体”和“斜体”，一个文本框，名称为Text1，Text属性为“改变文字字体，样式”。要求程序运行时，“宋体”单选钮和“粗体”复选框被选中（窗体外面如下图所示），则能够实现上述要求的语句序列是（） A）Option1.Value=True B) Option1.Value=True Check1.Value=False Check1.Value=True C) Option1.Value=False D) Option1.Value=True Check1.Value=True Check1.Value=1