VB题库
选择题
1..(双击某表项)可以改变目录列表框的Path属性。
2. 在窗体上添加一个命令按钮，并写如下代码
Private Sub Command1_Click()
a = 123:
b = -123:
c = 12.3
stra = Str(a):strb = Str$(b):strc = Str$(c)
result = Len(stra + strb + strc)
Print result
End Sub
运行后，单击命令按钮，显示的结果是13。
3. 在程序中使用过程的主要目的是(使程序模块化).
4. 设定文件列表框中所显示的文件类型，应修改该控件的(Pattern )属性。
5. 下面(dir1.list(0))选项能表示目录列表框控件dir1的当前目录。
6.如果在定义过程时使用了Static关键字，则表明(过程中的局部变量是静态的)
7.如果选用的是Data控件下列(updatecontrols)方法,可终止用户对数据绑定控件内数据修改。
8. 有如下一段程序
Dim result As Integer, abc
Private Sub Command1_Click()
abc = 12345
result = VarType(abc)
Print result
End Sub
单击Command1 后窗体上输出的结果是(2)
9. 下列叙述正确的是(Exit Function和End Function都可以结束Function过程) .
10. 设X为非负实数，求出不大于X的最大偶数的表达式是(Int(x/2)*2)
11. 下列关于数组的说法中，正确的是(定义数组时，数组的每一维元素的个数必须是常数，不能是变量或表达式)。
12. Microsoft Access 97/2000数据库文件的扩展名为(mdb)。
13. Visual Basic中“程序运行”允许使用的快捷键是(F5).
14. 下列关于控件数组的说法中,正确的是(同一控件数组必须由同类型的控件组成).
15. 用户可以通过设置菜单项的(Visible)属性值为False来使该菜单项不可见。
16. BorderStyle属性是用来表示线条的(线形)。
17. 有一如下过程：
Sub fact(n As Integer, result As Long)
result = 1
For i = 1 To n
result = result * i
Next i
End Sub
在窗体上画一个名称为Command1的命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
Dim res As Long
fact 5, res
Print res
End Sub
程序运行后，单击命令按钮，则输出的结果是120 .
18. 数据库系统的核心是(数据库管理系统).
19. 指令” Circle (1000, 100), 500, 8, -6, -3”将绘制(扇形)。
20. 当运行程序时，系统自动执行启动窗体的(Load)事件过程。
21. 标准SQL语言本身不提供的功能是(绑定到数据库)。
22. 要让菜单Ymenu1在程序运行时失效语句是（Ymenu1.Enable=False）
23. 下列命令不包括在“工程”菜单的是（添加工程）
24.(random)方式打开的文件只能读不能写。
25. 语句“Circle(1000,1000),800,,,,2”绘制的是(椭圆)。
26. 在窗体上画一个列表框List1,编写如下两个事件代码:
Private Sub Form_Load()
List1.AddItem "111":List1.AddItem "222"
List1.AddItem "333":List1.AddItem "444"
End Sub
Private Sub List1_DblClick()
Str1 = "666"
Print List1.Text + Str1
End Sub
程序运行后,双击列表框中的”222”,则输出的结果是(222666)
27. 下列(Shell)方法或函数可以调用外部的可执行文件。
28. 窗体模块的扩展名为(.bas)。
29. 如果DBList控件或DBCombo控件上显示的数据是来源于数据库，那么它们与数据库的绑定通过属性(RowSource和Listfield)实现。
30. 设有如下数组定义语句:
Dim s(3) as integer
则下列给数组元素赋值的错误语句是(s(3)=array(0,1,2,3)).
31. 下列事件不属于Visual Basic键盘事件的是(MouseOver)
32. 输入对话框（InputBox）的返回值的类型是(字符串)。
33. 语句“Form1.Print Tab(10);"#"”的作用是在窗体当前输出行(第11列输出字符“#”)。
34. 要计算角度30o的正弦值，下列正确的表达式是(Sin(30*3.14159/180)。
35. 标签控件的标题和文本框控件的显示文本的对齐方式由(Alignment)属性来决定。
36. 下列语句中用来定义窗体或标准模块数组的是(Const n=15 : Dim s (n))。
37. 当文本框的(Enabled)属性设置为True时，在运行时文本框不能编辑。
38. 数组Dim arr(-1 to 4,2 to 4,3) 的元素个数是(72)。
39. 在立即窗口执行？Len("发奋图强") 结果是4。
40 在窗体上添加一个命令按钮，并写如下代码
Private Sub Command1_Click()
Dim var1, var2, var3, var4
var1 = 2345.6
var2 = 6543.2
var3 = CInt(var1)
var4 = CInt(var2)
Print var3, var4
End Sub
运行后，单击命令按钮，显示的结果是、(2346 6543)。
41 由“For i=1 To 9 Step -3”决定的循环结构被执行 0次。
42 将数据控件（Data控件）连接数据库时，在下列属性中，无须使用(EOFAction)属性。
43 要使文本框显示滚动条，除了设置ScrollBars属性外还必须设置(MultiLin)属性。
44 在立即窗口执行以下语句
a$=”1234567890”
print Instr(a$, “678”)
输出的结果是 6。
45 下列不属于文本框的属性是(Interval) 。
46 在Visual Basic中，称对象的数据为(属性)。
47将窗体的KeyPreview 属性设置为True ,然后编写如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode);
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode + 32);
End Sub
在程序运行前先，按下Caps Lock键使Caps Lock指示灯亮。程序运行后按“A”键，则输出的结果为（Aa）
48下列指定非蓝色的表达式是(&hff0000)。
49 关系数据库的任何检索操作都是由3种基本运算组合而成的，这3种运算不包括(索引)。
50下列控件不包含滚动条的是(Label.)
51下列文件复制操作的语句中，格式正确的是( FileCopy "d:\gc.dat", "c:\a.txt")。
52 下面程序段
Dim a(4, 4)
For i = 1 To 4
For j = 1 To 4
a(i, j) = j + j
Next j
Next i
For i = 1 To 4
Print Tab(20 - 3 * i);
For j = 5 - i To 4
Print a(i, j);
Next j
Next i
程序运行后输出的结果是 B .
B、
53 将焦点主动设置到指定的控件或窗体上，应采用(SetFocus)方法。
54 对画出的图形进行填充，应使用(FillStyle)属性。
55 定义一个如下的过程：
Sub Sum(x As Integer, y As Integer, z As Integer)
Print x + y + z
End Sub
下列调用方式与Call Sum (3,4,5)语句不等价的是(Sum y:=3,x:=4,z:=5 )
56 Visual Basic用以下哪一条指令来绘制直线(Line方法)。
57 设计动画时通常用定时器控件(Interval)属性来控制动画速度。
58 下列关于Visual Basic 应用程序的说法中，正确的是(Visual Basic运行时，总是等待事件的发生)
59 (ScaleMode属性)可以改变坐标的单位。
60 菜单能够响应的事件是(Clik)
61 下列( Caption)属性用来表示标签或窗体的标题。
62 每创建一个菜单，它的下面最多可以有6级子菜单。
63 Microsoft Access 97/2000是一种关系型数据库管理系统，所谓关系是指(数据模型是满足一定条件的二维表格式)。
64 在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，
在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F。在F中判断所输入的整数是否是偶数，
如果是偶数，F返回1，否则返回0。能够实现上述功能的代码是 D .
65 工程文件的扩展名为(.vbp)。
66 如果想将DataList控件或DataCombo控件上显示的数据的某一项写入数据库，那么它
们与数据库的绑定通过属性(DataSource和DataField)实现。
67 用下列语句定义的数组元素个数分别为(7、33、66)。
Dim arr1(6) As Integer
Dim arr2(2, -5 To 5) As Single
Dim arr3(-5 To 5, -1 To 4)
68 在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a(4, 4)
For i = 1 To 4
For j = 1 To i
a(i, j) = j + j
Print a(i, j);
Next j
Next i
End Sub
程序运行后,单击命令按钮,则输出的结果是 C .
C、
69 下列叙述正确的是(Exit Function和End Function都可以结束Function过程).
70 Visual Basic中，实现参数的传值方式的关键字是(ByVal) .
71 将Visual Basic编制的程序保存在磁盘上，至少会产生何种文件(.vbp与.frm)。
72 表达式Int(7.8)+Int(-7.2)的结果是(-1)。
73 在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click()
Dim s
s = Array(9, 8, 7, 6, 5, 4, 3, 2, 1, 0)
For i = 4 To 1 Step -2
Print s(10 - i * 2);
Next i
End Sub
程序运行后,单击命令按钮,则输出的结果是8 4 .
74、Visual Basic IDE 窗体设计器的主要功能是（建立用户界面）。
75、若i的初值为8，则下列循环语句的循环次数为（5次）。
Do While i<=17
i=i+2
Loop
76、Visual Basic的过程有三种，它们是（事件过程、函数过程和子程序过程）.
77、若要使命令按钮不可操作，要对（Enabled）属性设置。
78、下列关于Select Case之测试表达式的叙述中，错误的是（只能是变量名）。
79、Visual Basic 是一种面向对象的程序设计语言（变量）不是面向对象系统所包含的三要素。
80 用户可以通过设置菜单项的（Enabled）属性值为False来使该菜单项失效。
81 表达式Round(7.8)+Round(-7.6)的结果是（0）。
82 在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click()
Dim a(3, 3)
For i = 1 To 3
For j = 1 To 3
a(i, j) = (i - 2) * 3 + j
Print a(i, j);
Next j
Next i
End Sub程序运行后,单击命令按钮,则输出的结果是 c .
C、
83 选中复选框控件时，Value属性的值为（1）。
84 描述以（1000，1000）为圆心、以400为半径画1/4圆弧的语句，以下正确的是、
（Circle(1000,1000),400,,0,3.1415926/2）。
85 语句“open "c:\dat.txt" for output”用于打开一个顺序文件，该语句的一个重要错误是没有（指定文件号）。
86 下列不是VB提供的三角函数是（ tg）。
87 RGB函数中的3个数字分别表示（红、绿、蓝）。
88 下列程序段的输出结果是（lg(10000)=4）。
a=10: b=10000: x=log(b)/log(a): Print "lg(10000)=";x
89 当对DrawW idth 进行设置后，将影响（Line、Circle、Pset）。
90 为了使某个菜单能够通过按Alt+M键打开，以下做法正确的是（在菜单编辑器的“标题”栏中的“M”字符前加上“&”）
91 当文本框的（Enabled）属性设置为True时，在运行时文本框不能编辑。
92 设有如下过程：
Sub S1(x, y, z)
z = x - y
End Sub
以下所有参数都是以传地址方式调用的语句是(Call S1(x,y,z)).
93 下列4个选项中不能使用Refresh方法的是(Timer控件)。
94 下列关于函数的说法正确的是( 利用Exit Function 语句可以强制退出函数.)
95 下列函数不能实现一个自然数N的阶乘的是 B .
96 不论何控件,共同具有的是( Name)属性。
97 在正确安装了Visual Basic6.0 后，可以通过多种方式启动 Visual Basic。以下方式中不能启动Visual Basic的是(进入DOS方式,执行vb6.exe ) 。
98 有如下程序：
Sub MySub(ParamArray a())
s = 1
For Each x In a
s = s + x
Next x
Print s
End Sub
Private Sub Command1_Click()
MySub 2, 3, 6, 18
End Sub
程序运行后，单击命令按钮，则输出的结果是（30）
99 有如下一段程序
Private Sub Command1_Click()
Static a As Integer
a = a + 10
Print a
End Sub
单击Command1 5次后窗体上最后输出的结果是（50 ）。
100 表达式Round(7.8)+Fix(-7.2)的结果是（ 0 ）。
101 编写如下3个事件过程： C（ DdD）
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
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode);
End Sub
102 在不按下Shif键和CapsLock键的情况下,运行程序,如果按D键,则程序的输出结果是：
在窗体上画出一个命令按钮，然后编写如下程序：
Function Func(m As Integer, n As Integer) As Integer
Func = IIf(m < n, m, n)
End Function
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
x = 50
y = 40
Print z = Func(x, y)
End Sub
程序运行后，单击命令按钮，则输出的结果是(False)
103 下列说法不正确的是：( 在拖动一个对象的过程中，移动的是对象的本身)
104 编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 5 And Button = 1 Then
Print "XYZ"
End If
End Sub
程序运行后，要在窗体上输出“XYZ”，应执行的操作是：( 同时按下Shift、Alt键和鼠标左键)
105 下列叙述错误的是( 事件过程可以像通用过程一样由用户定义过程名) .
106 当Stretch属性值为False时，(影像框的大小随图片大小进行调整)。
107 要使复选框控件不响应Click事件，可设置复选框的 ( Enabled ) 属性。
108 在立即窗口输入”
a$= "Sichuan University"
print Mid(a$,6,6)
输出的结果是 ( an Uni)。
109 已有如下函数：
Function Fx(x As Integer)
y = 0
Static z
y = y + 1
z = z + 1
Fx = x + y + z
End Function
在窗体上画出一个名称为Command1的命令按钮，编写如下事件过程：
Private Sub Command1_Click()
Dim a As Integer
a = 2
For i = 1 To 3
Print Fx(a);
Next i
End Sub
程序运行后，单击命令按钮，输出的结果是( 4 5 6 ) .
110 滚动条 (SmallChange) 属性用于指定用户单击滚动条的滚动箭头时，Value属性的改变量。111 以下( List1.RemoveItem List1.ListCount-1 )语句将删除列表框List1中的最后一项。112 将命令按钮Command1设置为窗体的取消按钮，可修改该控件的 (Cancel) 属性。
113 执行语句Input #1,k,s,a,d1后，再执行语句Print k;s;a;d1 (k、s、a、d1分别是整型、Single、字符串、Date类型，文件中相应字符为“234,-34.56,"hello",#2001-08-03#”)，输出结果为(234 -34.56 hello2001-08-03 ) 。
114 文本框控件Text4的Text属性默认值( "Text4")。
115 如下语句不能定义一个10×10的数组的是(、Dim s(10, 10) As Integer)。
116 获取字符串a 最右边5个字符的函数是( Right(a,5)) 。
117 下列选项中不属于事件的是( Show) 。
118 下列关于ReDim语句的说法中，正确的是(可以用ReDim语句改变数组元素的个数)。
119 设计一个名为SayHello的菜单项，其标题是“Say&Hello”，在“快捷键”列表框中选择Ctrl+F3，120 则程序运行时，下列方式不可以执行该菜单命令的是(按F3键)
121 没有Caption 属性的控件是 ( text1) 。
122 数据控件的Reposition事件发生在( 记录成为当前记录后) 。
123 当窗体的AutoRedraw属性采用默认值时，若在窗体装入时要使用绘图的方法绘制图形，
则应将程序放在(Paint事件)。
124 下列代码执行的结果是( 6)
Dim a(5)
For i=1 to 5 :a(i)=i+2::next i
Print a(4)
下列语句能正确定义数组的是(用ReDim语句对同一数组重新定义时，可以改变数组大小、维数以及数组元素的数据类型)
125 按Tab键时，焦点在各个控件之间移动的顺序是由(TabIndex )属性来决定的。
126 下列不能打开菜单编辑器的操作是(按Ctrl+M 键)
127 Print语句的一个输出表达式为( Month ) ，则输出包括日期、时间信息。
128 在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i) * j :j = j * 10
Next i
Print s
End Sub
程序运行后,单击命令按钮,则输出的结果是( 1234 ) .
129 滚动条的( SmallChange ) 属性用于指定用户单击滚动条的滚动箭头时，Value属性值的改变量。
130 FontSize属性用以设置字体大小，窗体的FontSize属性缺省值为(9 )。
131 列表框的(List) 属性返回或设置列表框中各列表项的文本。
132 如果在定义Sub过程时没有使用Private、Public和Static关键字，则所定义的过程是(公有的). 133 当需要上下文帮助时，选择要帮助的难题，然后按 (F1 ) 键，就可以出现MSDN窗口及显示所需难题的帮助信息。
134 当使用Line方法画直线后，当前坐标在( 直线终点)。
135 下列对象不具有KeyPress事件的是(标签)
136 在立即窗口输入 ?Val(“123.4”+ “432.1”)
137 将图片框的( AutoSize )属性设置成True时，可使图片框根据图片调整大小。
138 命令按钮、单选按钮，复选框上都有Picture属性，可在控件上显示图片，但需要通过(Style 属性) 来控制。
139 下列语句定义一个变体数据的是( dim c )。
140 有如下事件过程：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button And 2) = 2 Then
Print "ABCD"
End If
End Sub
程序运行后，要在窗体上显示“A BCD”，应执行的鼠标操作是( 按下鼠标右键)
141 以下4个选项中，属性窗口未包含的是(工具箱) 。
142 与传统的程序设计语言相比，Visual Basic 最突出的特点是(事件驱动运行机制)。
143 下列叙述错误的是（需要增加的菜单项的可见性应初始化为 True）
144 打开菜单编辑器的热键是(Ctrl+E)
145 在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a(8)
Const p = 3
For i = 0 To 8
a(i) = 8 - i
Next i
Print a(p + a(p))
End Sub程序运行后,单击命令按钮,则输出的结果是(0)
146 在立即窗口执行？Len(“abcde”) 结果是 ( 5).
147如果要将一个命令按钮仅显示图片，要进行的设置是 A、设置命令按钮的Caption 属性为空B、为命令按钮的Picture属性指定一个图片文件D、将命令按钮的Style属性设置
1---Graphical
148 下列所使用方法中，(不设置DrawStyle)不能减少内存开销。
149 下列语言中支持面向对象的程序设计语言是(Visual Basic )
150 上题Circle语句中最后的2表示的是(椭圆的纵轴和横轴长度比)。
151 数据库、数据库系统、数据库管理系统三者之间的关系是(数据库系统包括数据库和数据库管理系统)
152 执行X=7.835 :y=Int(x*100+0.5)/100 后结果是 (7.84 )。
153 下列4个事件中，数据控件具有的事件是(Click) 。
154 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 5 And Button = 1 Then
Print "XYZ"
End If
End Sub
程序运行后，要在窗体上输出“XYZ”，应执行的操作是：(同时按下Shift、Alt键和鼠标左键) 155 下面正确表示Visual basic中数组 a 的元素的是(a(8))。
156 下列过程中，不能脱离控件或窗体而存在的是(事件过程)
157 Int( Rnd * 100 ) 表示的是( [0，99]) 范围内的整数。
158 若要把"XXX"添加到列表框List1中的第三项，则可执行语句(List1.AddItem "XXX", 3) 159 就功能而言，Visual Basic三个版本的功能从弱到强的顺序是(学习版、专业版、企业版) 160 下列关于变体类型的说法错误的是(变体变量的空值就表示该变量的值为0)。
161 返回删除字符串前导和尾随空格符后的字符串，用函数 ( Trim ) 。
162 下面语句中用来定义窗体或标准模块数组的是(Din)。
163 执行指令"Line (1200, 1200)-Step(1000, 500), B后"，CurrentX=(2200) 。
164 当使用Line方法时，参数B与F可组合使用，下列组合中(F)不允许。
165语句“Circle(1000,1000),800,,-3.1415926/3,-3.1415926/2”绘制的是( 扇形) 。166 下列方法能定义一个包含25 个元素的二维数组的是( Option Base 1 :dim s(5,5) ) 。167窗体各种控件都具有图形属性，下列( AutoRedraw,ClipControls ) 属性可用于显示处理。168假设在菜单编辑器中建立了一个名为的菜单项。要使该菜单运行时不可见，(MyMenu.Visible=False)
169设计时添加到图片框或图象框的图片数据保存在(窗体的Frx文件) 。
170下列关于Select Case的叙述中，错误的是(Case -7,0,100 表示判断Is是否等于字符串"-7，0，100")
171 List1.Clear中的Clear是(方法)。
172 命令按钮、单选按钮，复选框上都有Picture属性，可在控件上显示图片，但需要通过(Style 属性)来控制。
173 下列可以作过程名的是(Sub1 )
174 通用对话框可以通过对( Filter) 属性的设定来过滤文件类型。
175 设计一个名为SayHello的菜单项，其标题是“Say&Hello”，在“快捷键”列表框中选择Ctrl+F3，则程序运行时，下列方式不可以执行该菜单命令的键(按F3)
176 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，
然后编写如下程序：
Sub s1(ByVal x As Integer, ByVal y As Integer, z As Integer)
z = x * y
End Sub
Private Sub Command1_Click()
Dim a, b, c As Integer
a = -3
b = -2
c = 0
Call s1(a, b, c)
Text1.Text = Str(c)
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是(6)
177 ( DrawWidth) 属性可以用来设置所绘线条宽度。
178 表达式Fix(7.8)+Fix(-7.2)的结果是(0)
179下列语句中，属于合法的Visual basic 语句是(Option Base 1) 。
180 改变控件在窗体中的上下位置应修改该控件的(Top)属性。
181 能交换A,B两个变量内容的语句段是(T=A:A=B:B=T)
182 Integer类型数据能够表示的最大整数为(215-1 ) 。
183下列叙述错误的是：( MousePointer 属性只能在属性窗口中设置)
判断题
1 若行If语句中逻辑表达式值为True，则关键字Then后的若干语句都要执行。R
2 OLE控件作为数据绑定控件只能与数据访问接口控件Data控件管理的数据源的特定类型（OLE 对象或Binary）的字段绑定。W
3 影像框和图片框都可以用AutoSize属性来控制控件大小调整的行为，当AutoSize属性值为True 时，两者控件大小根据图片来调整；设置为False时，只有一部分图片可见。W
4 一个程序只能有一个窗体 W
5 在一个窗体的代码中不能使用Unload语句来卸载本窗体,即一个窗体只能由其它窗体卸载.W
6 用Cls方法能清除窗体或图片框图中用Picture属性设置的图形.W
7 控件的属性值不可以在程序运行时动态地修改。W
8 若某文件已存在，用OUTPUT方式打开该文件，等同于用APPEND方式打开该文件。W
9 定义菜单项时,可以不设置分隔线的菜单项控件名称.W
10 组合框(ComboBox)与列表框(ListBox)功能完全相同。W
11 MsgBox()函数建立的消息框能显示信息也能输入用户的信息.W
12 在VB中,可以将在Picture控件中绘制的图形以文件的形式保存在磁盘上 R
13 在VB 6.0中,如果要使窗体上的多个控件具有相同的尺寸,在选择了这些控件之后,应执行VB"格式"菜单中的命令.R
14 清除combo1对象的内容是combo1.clear.R
15 文件按照数据编码方式可以分为ASCII码文件和二进制文件.R
16 在过程中用Dim和Static定义的变量都是局部变量.R
17 Do/Loop Until结构的循环，是“先判断、后执行（循环体）”的循环结构。W
18 Image 控件不能用作容器使用.R
19 通过数据控件和数据绑定控件操作数据库时，必须编写代码才能实现记录的显示和修改。W
20 滚动条控件可作为用户输入数据的一种方法。 R
21 Visual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。 R
22 全局变量用global或public关键字声明,且仅在通用声明处可以定义. W
23 利用通用对话框件显示字体对话框之前必须设置Flags属性,否则发生不存在字体的错误. R
24 某一过程中的静态变量在过程结束后,静态变量及其值可以在其它过程中使用.W
25 在VB 6.0中,如果要增加工具箱中的控件,应执行VB"文件"菜单中的命令. W
26 使用驱动器列表框、目录列表框和文件列表框构成一个文件管理系统时,三者之间可以实现自动同步,即当在驱动器列表框改变驱动器时,目录列表框和文件列表框的内容立即同跟着变. W
27 改变图形对象的坐标系可以用Scale方法。 R
28 “方法”是用来完成特定操作的特殊子程序 R
29 在命令按钮的Click事件过程中,exit与end等效. W
30 直线控件可以在窗体上拖动,因此它具有MOVE方法.W
31 ADO Data控件与内部Data控件以及Remote Data控件功能和使用方法完全相同。W
32 某一过程中的静态变量在过程结束后,静态变量及其值可以在其它过程中使用W
33 VB支持弹出菜单,所谓"弹出菜单"是指单击鼠标后打开的菜单.W
34 通常访问数组内容需要使用循环结构。R
35 赋值语句的功能是计算表达式值并转换为相同类型数据后为变量或控件属性赋值。R
36 用Public申明的变量能被其它模块存取 R
37 同一窗体中的各个数据绑定控件不能绑定到两个不同的数据控件上。W
38 Open语句中的文件号，必须是当前未被使用的、最小的作为文件号的整数值。R
39 BorderWidth属性表示指定直线和形状边界线的线条宽度，该属性值不能设置为0。R
40.在盘驱动器列表框Drive1的Change事件过程中,代码Dir1.Path=Drive1.Drive 的作用是:当Drive1的驱动器改变时,Dir1的目录列表随不同驱动器的作相应改变.R
41. 文本框在其MultiLine属性设置为True之后，具备于数组控件。W
42. 要使输入文本框的字符始终显示“#”，则应修改其PasswordChar属性为“#”。R
43. 面向对象程序设计是一种以对象为基础,由事件驱动对象执行的设计方法.R
44.在标准模块的声明部分中用Publice声明的变量的有效范围是其所在的工程.R
45. Visual Basic的Double类型数据可以精确表示其数值范围内的所有实数。W
46. 标签控件和文本框控件都能用来输入和输出文本。W
47.在VB中,可通过函数 Now返回计算机系统的日期和时间.W
48设置框架时，可先在窗体上画好框架，再往框架内添置控件；也可以先设计控件，
再建立框架，然后将已有控件拖动到框架中。 W
49 对于文件系统控件,当驱动器控件Drive1中的驱动器符改变时,文件夹列表控件Dir1中显示的文件夹也作相应改变,可以在Drive1中的Change事件中使用如令:Dir1.Path=Drive1.Drive.R
50 关系表达式是用来比较两个数据的大小关系的，结果为逻辑值。R
51 Visual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角,如果要把坐标原点放在其它位置,则需使用自定义坐标系统.R
52 同一窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。W
53 在VB中,函数 Fix(-3.6) 的返回值是 -4.W
54 *.bmp格式的图片,如果在autosize设为False的图片框,它会以图片框大小完整显示出来.W
55 命令按钮不但能响应单击事件，而且还能响应双击事件。W
56单击“启动”菜单项将窗体装入内存时，一定触发窗体的load事件和Activate事件。R
57在表达式中,运算符两端的数据类型要求一致.(R
58 SetFocus方法是把焦点移到指定对象上，使对象获得焦点，该方法适用于所有控件。(W)
59 复选框不支持鼠标的双击事件，如果双击则系统会解释为两次单击事件。(R)
60 菜单每一菜单项都是控件,可以通过点击菜单项或通过光标选择并按回车键,以触发Click事件.(R)
61当列表框中表项太多、超出了设计时的长度时，Visual Basic会自动给列表框加上垂直滚动条。(R)
62使用数据访问对象DAO（Data Access Object）技术完成数据库应用程序设计时，不能使用SQL2语言的语句。(W)
63运行时，控件的位置可以通过程序代码改变Left和Top属性来定位，也可以直接用鼠标拖动控件来定位(W)
64在Sub过程中,可以用Return语句退出Sub过程.(R)
65文件操作语句Name不仅可以修改文件名称，而且可以移动文件的位置。(R)
66事件可分为用户事件与系统事件两类(R)
67图片框的Move方法不仅可以移动图片框,而且还可以改变该图片框的大小,同时也会改变该图片框有关属性的值.(W)
68方法是VB 对象可以响应的用户操作.(W)
69文件按照数据编码方式可以分为ASCII码文件和二进制文件.(R)
70一个目标程序所需的所有文件的集合称为工程(R)
71窗体的Enabled属性值为False时,该窗体上的按钮、文本框等控件就不会对用户的操作做出反应.(R)
72 SQL语言的select语句可以对查询结果实现按照升序或降序的排列。R
73 通常访问数组内容需要使用循环结构。R
74 在窗体模块的声明部分中用Private声明的变量的有效范围是其所在的工程.W
75 事件过程可以由某个用户事件触发执行，它不能被其他过程调用。W
76 ActiveX控件是扩展名为*.ocx的独立文件,使用时需用"工程"/"部件"载入或移去.R
77 选中文件列表框File1中某个选项时，File1.FileName属性值为所选文件的全名。W
78 组合框包含了列表框的功能.R
79 单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务.W
80 工具箱提供了Visual Basic中所有控件 W
81 属性是Visual Basic对象性质的描述，对象的数据就保存在属性中。R
82 用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该菜单控件时,触发KeyPress事件.W
83 文件操作语句Name不仅可以修改文件名称，而且可以移动文件的位置。R
84 Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、终止角的大小相关,而且与起始角、终止角的正或负相关 R.
85 在标准模块的声明部分中用Publice声明的变量的有效范围是其所在的工程.R
86 设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字.R
87 可以利用OLE控件显示实例数据库的“学生”表中的“照片”字段。R
程序设计
1 编一函数过程IsH(n)，对于已知正整数n，判断该数是否为回文数，函数的返回值类型为布尔型。
主调函数每输入一个数，调用函数过程IsH(n)，然后在图形框显示输入的数，对于回文数显示一个“★”，界面如图9-1。
注意：部分代码已经给出，请在答题区标记：'******** Begin ******* 和
'********** End **********之间编写代码，不能删除答题区标记，不能修改答题区之外的代码。
Dim l As Integer, i As Integer
l = Len(a)
IsH = True
For i = 1 To l / 2
If Mid(a, i, 1) <> Mid(a, l + 1 - i, 1) Then
IsH = False
Exit For
End If
Next i
2 '题目：(事件)双击窗体。 (响应)写程序解决百钱买百鸡问题：公鸡3元1只，母鸡5元1只，小鸡一元3只，怎样用100元买 100只鸡。把结果输出到窗体上。将答案数存放在变量N中
【参考代码】
Dim i, j, k As Integer
For i = 1 To 20 '母鸡
For j = 1 To 33 '公鸡
For k = 3 To 100 '小鸡
If ((k Mod 3) = 0) And ((i * 5 + j * 3 + k / 3) = 100) And ((i + j + k) = 100) Then
Print (CStr(i))
Print (CStr(j))
Print (CStr(k))
n = n + 1
End If
Next
Next
Next
3 完成排序函数Sort（），功能是：输入一系列字符串，按递减次序排列，
运行界面如图7-3，注意部分代码已经给出，请在答题区标记：
'******** Begin ******* 和 '********** End **********之间编写代码，
不能删除答题区标记，不能修改答题区之外的代码。
图7-3
【参考代码】
Dim s() As String, zf As String
Dim i As Integer, j As Integer
zf = p
s = Split(zf, vbCrLf)
For i = 0 To UBound(s)
For j = 0 To UBound(s)
If j > i Then
If s(j) > s(i) Then
zf = s(i)
s(i) = s(j)
s(j) = zf
End If
End If
Next j
Next i
Sort = Join(s, vbCrLf)
4 '题目：编写函数fun其功能是：根据整型形参m，计算如下公式的值：y=1/2＋1/4＋1/6＋...
＋1/2m 例如：若m=9，则应输出：1.41448412698413
【参考代码】
Dim y As Double
Dim i As Integer
For i = 1 To m
y = y + 1 / (2 * i)
Next
fun = y
5 '题目：(事件)单击窗体。 (响应)输出斐波那契数列1,1,2,3,5,8,13...第20个数的值
' 即 f1=1 (n=1)' f2=1 (n=2)' fn=f(n-1)+f(n-2)(n≥3) 使用for...next语句完成程序，并将结果存入变量sum中
【参考代码】
dim i as integer
for i=1 to 9
f1=f1+f2
f2=f2+f1
next i
? f2
sum=f2
6 '题目：(事件)单击窗体。 (响应)输出一个如图所示的由数字组成的倒三角形请将结果存入变量S中(要求利用msgbox函数显示结果，使用for...next语句完成程序)
【参考代码】
Dim tmp As String
Dim i As Integer, j As Integer
tmp = ""
For i = 10 To 1 Step -1
For j = 0 To i - 1
tmp = tmp & CStr(j)
Next
tmp = tmp & vbCrLf
Next
MsgBox tmp
s = tmp
7利用循环嵌套结构，实现下图所示的九九表。
提示：本题要求使用Picture控件实现显示，
并利用选择语句针对不同的数值进行组合。
【事件】Private Sub Command1_Click()
标准答案： i = 1 To 9
j = 1 To 9
【事件】Private Sub Command2_Click()
标准答案： i = 1 To 9
j = 1 To i
【事件】Private Sub Command3_Click()
标准答案： i = 1 To 9
j = i To 9
【事件】Private Sub Command4_Click()
标准答案： Picture1.Cls
8 '题目：已知，猴子吃一堆桃子，每天吃桃子总数的一半多一个。'到第n天时，桃子只剩一个。编写函数fun，函数的功能是:'求出开始桃子的数量并显示。如：'n为7时，则显示"190"'要求使用For语句来实现。
'注意：请在指定的事件内编写代码
' 代码只能写在两行标识之间
' 不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。
【参考代码】
x = 1
For i = 1 To n - 1
x = (x + 1) * 2
Next i
fun = x
9 '题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中
【参考代码】
Dim i, j, k, m As Integer
s = 0
i = 2
j = 1
For k = 1 To 10
s = s + i / j
m = j
Print (CStr(i)) & "/" & CStr(j)
j = i
i = i + m
Next
10 '题目： (事件)单击命令按钮Command1。 (响应)计算如下表达式s的值,
s=1+(1*2)+(1*2*3)+……+(1*2*3*……*6) 并将结果输出到文本框Text1中。
【参考代码】
Dim j As Integer
Dim i As Integer
j = 1
s = 0
For i = 1 To 6
j = j * i
s = s + j
Next i
Text1.Text = s
11 编写程序完成规范文字，单击窗体时对输入的任意大小写文字进行整理。
规则：所有句子开头为大写字母，其他字母为小写，句子结束符为“.”、“?”或“！”。
界面和运行结果如下图所示。提示：去掉代码中的【?】，添写正确代码。
【事件】Private Sub Form_Click()
标准答案： Len(t)
Asc("A")
"?"
"."
"!"
F = True
F = False
12 在打开的VB工程中进行如下要求的操作，注意控件名称的定义。【功能】程序运行界面如图
【要求】
1、在窗体上放置一个文本框，设置它的MultiLine属性为True。
2、设计一个含有两个主菜单项的菜单系统，分别为“菜单1”和“菜单2”，
名称分别为“menu1”和“menu2”。
其中“菜单1”包括“清除”和“结束”两个菜单命令，
“菜单2”包括“12号字体”、“16号字体”、“分隔线”、
“粗体”和“斜体”五个菜单命令。
菜单1中的子项和其名称的对应关系
菜单2中的子项和其名称的对应关系
3、为菜单项编写相关的程序代码，要求：
⑴“清除”命令：清除文本框的内容，隐藏“菜单2”；
“结束”命令：退出系统；
⑵“菜单2”中的命令，是设置字号或字体，
当设置“粗体”或“斜体”时在菜单项左边加上或取消“√”标记；
⑶文本框输入内容时，显示“菜单2”。
【控件】VB.TextBox_
标准答案：Name=Text1
【控件】VB.Menu_
标准答案：Name=menu1
【控件】VB.Menu_
标准答案：Caption=菜单1 【控件】VB.Menu_
标准答案：Name=jieshu 【控件】VB.Menu_
标准答案：Caption=结束【控件】VB.Menu_
标准答案：Name=qingchu 【控件】VB.Menu_
标准答案：Caption=清除【控件】VB.Menu_
标准答案：Name=menu2
【控件】VB.Menu_
标准答案：Caption=菜单2 【控件】VB.Menu_
标准答案：Name=font1
【控件】VB.Menu_
标准答案：Caption=12号字体【控件】VB.Menu_
标准答案：Name=font2
【控件】VB.Menu_
标准答案：Caption=16号字体【控件】VB.Menu_
标准答案：Caption=-
【控件】VB.Menu_
标准答案：Name=ziti1
【控件】VB.Menu_
标准答案：Caption=粗体【控件】VB.Menu_
标准答案：Name=ziti2
【控件】VB.Menu_
标准答案：Caption=斜体
【事件】Private Sub jieshu_Click()
标准答案： End
【事件】Private Sub font1_Click()
标准答案： Text1.FontSize = 120
【事件】Private Sub font2_Click()
标准答案： Text1.FontSize = 160
【事件】Private Sub ziti1_Click()
标准答案： Text1.FontBold = False
ziti1.Checked = False
Text1.FontBold = True
ziti1.Checked = True
【事件】Private Sub ziti2_Click()
标准答案： Text1.FontItalic = False
ziti2.Checked = False
Text1.FontItalic = True
ziti2.Checked = True
13'题目：编写函数fun其功能是能计算如图1所示的表达式的结果值，m由键盘输入，使用do while...loop语句完成
【参考代码】
Dim i As Integer
Dim sum As Single
i = 1
Do While i <= m
sum = sum + 1 / (2 * i * (-1) ^ (i - 1))
i = i + 1
Loop
fun = sum
14 '题目： (事件)单击窗体。(响应)如果一个数的真因子之和等于这个数本身，则称这样的数为“完全数”。例如，整数 28的真因子为1、2、4、7、14，其和是28。因此28是一个完全数。请编写一个程序，求出500以内最大的完全数。并存入变量SUM中。使用for...next语句完成程序
【参考代码】
Dim i As Integer
dim s as integer
For i = 500 To 1 Step -1
s = i
For j = i - 1 To 1 Step -1
If i Mod j = 0 Then
s = s - j
End If
Next j
If s = 0 Then
Exit For
Next i
Print i
sum=i
15 题目：编写函数fun，函数的功能是：求从m到n的乘积并显示，'如：m为2，n为4时，显示"24" '存储连乘的乘积的变量必须为Product'要求使用For语句来实现。
Product = 1
For i = m To n
Product = Product * i
Next i
fun = Product
16 '题目：(事件)单击窗体。 (响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果，并将结果输出到窗体上。将结果存入变量M中
【参考代码】
Dim i, j As Integer
Dim s As Long
For i = 10 To 15
s = 1
For j = i To i + 2
s = s * j
Next
m = m + s
Next
Print (CStr(m))
17 '题目：(事件)单击窗体。(响应)求数列1+3+3+9+27+……前6项的和，并将结果输出到窗体上。将结果存入变量SUM中。
【参考代码】
Dim i As Integer
Dim j(1 To 6) As Integer
For i = 1 To 6
If i < 3 Then
j(i) = 3 ^ (i - 1)
Else
j(i) = j(i - 1) * j(i - 2)
End If
sum = sum + j(i)
Next
Print sum
18 '题目：编写函数fun，其功能是:能计算从1开始到n的自然数中偶数的平方的和。
【参考代码】
Dim sum As Integer, i As Integer
sum = 0
For i = 2 To n Step 2
sum = sum + i * i
大学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.wendangku.net/doc/3a157974.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部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() Command1.Caption = "计算机等级考试" End Sub B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() Text1.Caption = "计算机等级考试" End Sub D、Private Sub Command1_Click() Text1.Text = "计算机等级考试" End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。
A、, B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y 4、下面（）是合法的字符常量。 A、ABC$ B、“ABC” C、‘ABC’ D、ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为 A、"a" B、"b" C、"B" D、"A" 8、在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x = InputBox("请输入一个整数")
vb题库(选择与填空)
一、单选题（每小题1分，共99 分） 1. 假定Picture1 和Text1 分别为图片框和文本框的名称，下列语句中不正确的是______ 。 A Picture1.Print 25 B Text1.Print 25 C Print 25 D Debug.Print 25 2. 在Visual Basic 中要将一个窗体从内存中释放，应该使用以下语句中的______ 。 A UnLoad B Stop C Close D Hide 3. 如果组合框ComBo1中已有10项数据，应使用语句______将数据"Mydata"插入到第5项。 A ComBo1.Insert "Mydata", 4 B ComBo1.Insert "Mydata", 5 C ComBo1.AddItem "Mydata", 5 D ComBo1.AddItem "Mydata", 4 4. 如果列表框List1中已有10项数据，应使用语句______将数据"Mydata"插入到列表框的第3项。 A List1.Insert "Mydata", 3 B List1.AddItem "Mydata", 2 C List1.AddItem "Mydata" ,3 D List1.Insert "Mydata", 2 5. 语句If x=1 Then y=1，下列说法正确的是____________。 A x=1和y=1为赋值语句 B x=1为赋值语句，y=1为关系表达式 C x=1为关系表达式，y=1为赋值语句 D x=1和y=1均为关系表达式 6. 删除列表框中指定的项目所使用的方法为______ 。 A Move B Clear C Remove D RemoveItem 7. 不论何控件，共同具有的属性是______________。 A ForeColor B Name C Text
vb练习题及答案.doc
vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23
25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb
vb试题及答案
VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。
vb题库及答案
| 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A",
VB测验选择题真题精选
VB测验选择题真题精选
————————————————————————————————作者：————————————————————————————————日期：
VB考试真题精选，考前必备神器20 开通黄钻 21， a = 1: b = 2: plus S, a, b: Print S:不能使其输出结果为3的plus过程为( b )。（1分） A、Sub plus(sum, a , b ): sum = a + b: End Sub B、Sub plus(ByVal sum , a , b ): sum = a + b: End Sub C、Sub plus(sum , ByVal a, ByVal b ): sum = a + b: End Sub D、 D、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: End Sub 22、通过关键字( c )声明的局部变量，在整个程序运行中一直存在。（1分） A、Dim B、Public C、Static D、Private 23、过程的作用域分为( c )。（1分） A、窗体级和局部级 B、模块级和局部级 C、窗体/模块级和全局级 D、窗体/模块级和局部级 24、在窗体的通用段声明变量时，不能使用( d )关键字。（1分） A、Dim B、Public C、Private D、Static 25、能在一个工程的所有程序中使用的变量，称为( b )。（1分） A、局部变量 B、全局变量 C、窗体级变量 D、模块级变量 27、使用Public Const语句声明一个全局的符号常量时，应该将该语句放在( b )。（1分）
VB程序设计考试题库——考试专用
1、题目:（事件）单击窗体（响应)用输入框输入一自然数，判断就是＂正数”、＂负数或＂零”,并根据输入得数用消息框显示”正数"、”负数”或”零". 2、题目:（事件）单击窗体。（响应）求２０0～３0０之间既能被3整除又能被7整除得数.并求出所有数之与存入变量ＳＵＭ中 3、题目：单击窗体。（响应)已知S=1+1/４+１／9+1/1６+1/25+…+1／1０0，结果输出在窗体上。 4、题目：（事件）单击窗体.（响应）在窗体上打印数列２／1，３／2,5/3,8/5，1３/８…得前10项，并求其与，将与保存在变量s中。 5、题目：（事件）双击窗体。(响应)把一元钞票换成一分、二分与五分得硬币每种至少有一枚)，求出其所有得换法，把结果输出在窗体上。将所有得换法得数目存入变量N中 6、题目:单击窗体。）求１！+２！＋3!+4！＋5!并将结果输出到窗体上。结果存入变量S中 7、题目:（事件）单击窗体。（响应)生成一个一维数组（10个数组元素依此为: ' １5、23、７2、４3、9６、2３、３、65、88、１7 写程序求出这个数组中得最大值、最小值与平均值,并输出在窗体上。将最大值，最小值,平均值分别存入变量Max，Min，Aver中 8、题目:(事件）单击窗体。（响应)在窗体上输出100～２0０之间得所有合数。求出所有数之与存入SUＭ中所谓合数就是指自然数中能被1与本数整除以外，还能被其她数整除得数。 ９、题目：（事件）单击窗体.(响应）求10～20之间所有素数得乘积并输出在窗体上。将结果存入变量L中。 1０、题目：(事件）单击窗体。（响应)求1- 1/2＋1/3 －1/4 +……+ 1／99－1/10０得值。将结果存入变量J中。 １题 ｎ = InputＢoｘ（"输入一个自然数”） If n ＞0 Then rｅsulｔ = ”正数＂ ElseIf n < 0 Ｔhen ｒeｓult = ”负数" ElseIf n ＝ 0 Ｔhen result ＝"零＂ End If MsgＢox "输入得数据”& ｎ＆”为：”＆ rｅsuｌt 2题 Dｉｍ i As Inteｇer Fｏｒ i = 201 To 300 Ｉf ((i Mod 3） = 0) Aｎｄ((i Mod ７) = 0） Tｈen Ｐrinｔ (CStｒ(i)） sum = ｓum + i End Iｆ Ｎeｘt Ｐrint sum 3题 DiｍｉAｓ Inteｇeｒ ｓ = 0 For i = 1 To 1０ s ＝ s + 1 / (i ^ i) Next Print (s) ４题 Ｄim i，ｊ, ｋ， m As Integer s ＝ 0 :i = 2:j = １ For k = 1 To 10 s = s ＋ｉ / j ｍ＝ j Prｉnt (CSｔｒ(i)） & "／" ＆ＣＳtｒ(j) j = i ｉ = i + m Ｎexｔ 5题 Ｄｉｍ i, j，ｋAｓＩnｔegｅr For i = １ To １00 Fｏr j = 1 Ｔo 50 For k = 1 Tｏ 20 If （（i + 2 ＊j ＋ k * 5）＝ 100) Ｔｈｅn Print (CＳｔr(i)） Priｎｔ (CStr（j)） Pｒinｔ（CＳtｒ(k)） n ＝n + １
大学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.wendangku.net/doc/3a157974.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选择题库(3)
1.不论哪种控件，共同具有的属性是Name 2.要使某控件在运行时不可显示，应对其设置的属性是Visible 3.要是窗体在运行时不可改变窗体的大小和没有最大化、最小化按钮，需设置的属性是Borderstyle 4.当程序运行时，系统自动执行启动窗体的事件过程是Load 5.要判断在文本框中是否按下了Enter键，应在文本框的Keypress 事件中判断 6.要使标签控件显示时不覆盖其背景内容，要对其设置的属性是Backstyle 7.复选框的Value属性为0时，表示复选框未被选中 8.将数据项“语文”添加到列表框（list1）中成为第一项应使用的语句是“List1.Addltem”“语文”，“0” 9.执行下面的程序,列表框中的数据项有“1，3” Sub Form_Click() For i = 0 To 4 List1.AddItem i Next For i = 0 To 2 List1.RemoveItem i Next End Sub 10.如果列表框（list1）中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是 D A．移去第一项 B．移去最后一项 C．移去最后加入列表的项 D．其他都不对 11.下列可以把当前目录下的图形文件Pic1.jpg装入图片框Picture1中的语句为“Picture1. Picture=Load Picture(“”Pic1.jpg””)” 12.假定在图片框Picture1中装入了一个图形，为了清除该图形（不是删除图片框）应采用的正确方法是“执行语句Picture1. Picture =Load Picture(“””’”)” 13.当组合框的Style属性值设置为2时，其为下拉式列表框 14.要使定时器无效应将Interval属性取值为0 15.假定定时器控件的Interval属性为1000，Enable属性为Ture，并且有下面的事件过程 Private Sub Timer1_Timer() Beep End Sub 计算机将发出Beep声的次数为 A.1000次 B．0次 C．1次 D．其他都不对 16.下面语句能正确地把列表框list1从1数起的第4项的内容设置为“aaaa”的是“List1.List(3)=””aaaa””” 17. 下面语句能正确地把列表框list1从1数起的第3项的内容设置为“aaaa”的是“List1.List(2)=””aaaa””” 18.在窗体上画一个文本框，为了在程序运行后隐藏该文本框，应使用的语句为Text1.Visible=False 19.在窗体上画一个文本框Text1和一个标签Label1，要求程序运行后，如果在文本框输入字符，则立即在标签中显示相同的内容，一下可以实现上述操作的事件过程的是 “Private Sub Text1_Change() Lebel1.Caption = Text1.Text
vb经典题目及答案
1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。
vb题库 1
填空题 1.图像框的strtch属性设置为（true）时，图形将适应图像框的大小。属性设置为（false），图形框将适应图像的大小。 2.文本框的locked属性用来决定文本内容能否被编辑，当其值为（false）时，可以编辑，当其值为（true），不可被编辑。 3.所有控件都具有的共同属性（name） 4.一个控件在窗体上的位置由top和（left）属性决定，其大小由width和（height）属性决定。 5.计时器控件的interval属性值是指时间间隔，单位是毫秒，当每隔此时间间隔定时器会触发一次（timer）事件。注意计时器只有timer事件 6.把“visual basic程序设计”添加到列表listbooks的语句为（listbooks.additem ”visual basic 程序设计”） 7.函数instr（“VB程序设计教程”，“程序”）的值为（3） 8.设置计时器对象触发时间的时间间隔用（interval）属性 9.表达式（-3）mod 8的值为（-3) ,3mod (-8)的值为（3） 10.表达式93/7 mod 8的值为（5） 11.声明定长个数为10个字符变量str的语句（Dim str As String * 10） 12.当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择（视图）菜单的“工具箱”选项，使”工具箱?窗口显示 13.表示x是5的倍数或是9的倍数的逻辑表达式为（x mod 5 =0 or x mod 9 =0） 14.在VB中，1234,1.2346E+5常数分别表示类型(integer),(single) 15.把整数1赋给一个逻辑型变量，则逻辑变量的值为（false） 16.表达式1 and 0 的值是（false） 17.在调试过程中，参数的传递按两种方式，其中（地址）传递方式是默认的。 18.可以同时删除字符串前导和尾部空白的函数是（trim） 19.VB注释语句中采用（…）字符开头，续行符采用（_），若上一行写多句语句，则各语句间用（:）字符分开 20.已知a=3.5,b=5.0,c=2.5,d=true,则表达式：a>=0 and a+c>b+3 or not d 的值是（false） 21.如果：i=11:j=3:i=int(-8.6)+i\j+13\3 mod 5,则i的值是（-2） 22.如果在模块声明段中有option base 1语句，则在该模块中使用dim a(3 to 5,6)声明数组有（18）个元素 23.在通用部分添加option basic 0的语句，在定义十个元素的整型静态数组a时可以定义为（dim a(9) as integer） 24.循环语句for k=1 to 10 step -1控制的循环次数为（0） 25.在一条dim语句中可以声明多个变量，如dim strvar,invar,sngvar as integer,则str int sng 的数据类型分别是variant variant 和（integer） 26.按照数据文件的储存方法不同，文件可以分为三种不同的类型，顺序文件，（随机文件），和二进制文件 27.把整型数1赋给一个逻辑变量，则逻辑变量为（true） 28.VB语言编写的应用程序有（解释）和（编译）两种执行方式 29.定义过程中要设置可选参数使用的命令是（option1） 30.设置控件背景颜色的属性名称（backcolor）前景颜色的属性属性名称（fonecolor）
vb真题(选择题)
1、下列叙述中，错误的是( A )。（1分） A、一条语句可以分为多行书写，但要在上行末加上VBCrLf B、在同一行上书写多条语句，应在两两语句中加上:号 C、可以用Rem或'注释单行语句 D、VB程序代码不区分字母的大小写 2、下列叙述正确的是( D )。（1分） A、Visual Basic的事件是由用户定义的 B、Visual Basic程序从主窗体开始执行 C、Visual Basic程序是过程驱动的 D、保存一个Visual Basic程序，应分别保存其窗体模块、标准模块和工程文件 3、被对象所识别的动作与对象可执行的动作分别称为对象的( A )。（1分） A、方法、事件 B、事件、方法 C、事件、属性 D、过程、属性 4、下列关于VB编码规则的叙述中，正确的是( C )。（1分） A、一条语句可以分为多行书写 B、多条语句不能书写在同一行上 C、每条语句以分号;结尾 D、应用程序代码字母是区分大小写的 5、( D )不属于面向对象系统的三要素。（1分） A、事件 B、属性 C、方法 D、变量 6、下列叙述中，不正确的叙述是( C )。（1分） A、注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译 B、注释语句能放在整个代码程序的最后 C、注释语句可以放在代码中的任何位置 D、代码中加入注释语句的目的是提高程序的可读性 7、下列叙述错误的是( B )。（1分） A、不允许使用行号与标号 B、单条语句可分行书写 C、同一行上可以书写多条语句 D、VB代码不区分字母的大小写 8、窗体设计器是用来设计( B )。（1分） A、应用程序的代码段 B、应用程序的界面 C、对象的属性 D、对象的事件 9、启动Visual Basic后，系统为用户新建的工程起一个名为( A )的临时名称。（1分） A、工程1 B、窗体1 C、工程 D、窗体 10、在界面设计时，双击窗体中的对象后，Visual Basic将显示的窗口是( C )。（1分） A、立即窗口 B、属性窗口 C、代码窗口 D、工程资源管理器窗口 11、VB应用程序在( A )模式下不能编辑代码和设计界面。（1分） A、运行 B、中断 C、设计 D、以上均不能 12、如果要向工具箱中加入控件的部件，可以利用“工程”菜单中的( B )命令（1分） A、引用 B、部件 C、工程属性 D、加窗体 13、如果Visual Basic环境中缺少某个窗口，一般应该从主菜单的( D )下拉菜单中寻找并打开。（1分） A、编辑 B、文件 C、调试 D、视图 14、标准控件不包括( D )控件。（1分） A、驱动器列表框 B、目录列表框 C、文件列表框 D、通用对话框 15、在设计窗体时，如果窗体上没有显示网格会感到不方便，( c )可以使网格出现。（1分） A、使用“编辑”菜单上的相关命令 B、使用“格式”菜单上的相关命令 C、使用“工具”菜单上的相关命令 D、使用“工程”菜单上的相关命令 16、在Visual Basic中，某一事件对应的程序叫( b )。（1分）
vb试题及答案
一、选择题（1-30 题每小题1分，共30分，31-45题每小题2分,共30分，总计60分）要使窗体Form1的标题栏中显示“正在复制文件…”，正确的语句是：a A．Form1.Caption=“正在复制文件…” B．Form1.Title=“正在复制文件…” C．Form1.Text=“正在复制文件…” D．Form1.名称=“正在复制文件…” 如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于：a A．1000 B．100 C．10 D．1 3、下列关于控件的基本操作中，错误的是 A)当控件处于活动状态时，可以对控件进行缩放 B) 在设计阶段不能移动控件 C) Visual Basic 6.0 允许对画好的控件进行复制和删除 D) 可以通过属性窗口改变控件的位置和大小 4、用Visual Basic 开发应用程序的一般步骤有：①设置窗体和控件的属性、②编写代码、③建立用户界面，其中正确的顺序是： A) ①②③B) ①③②C) ③②①D) ③①② 5、为使文本框只能显示不能输入，即只读，应设置文本框的属性是：c A．MaxLength设置为0 B．Cancel设置为True C．Locked设置为True D．Read设置为True 6、InputBox函数返回值的类型为。B A．数值B．字符串C．变体 D．数值或字符串（视输入的数据而定） 7、为了把焦点移到某个指定的控件，所使用的方法是：A A．SetFocus B．Visible C．ReFresh D．GetFocus 8、函数String(3,”str”)的功能是：b A．把数值型数据转换成字符串 B．返回有3个字符串组成的字符串 C．从字符串中第3个字符 D．从字符串中第3个字符的位置开始取字符串 9、双击窗体中的对象后，Visual Basic将显示的窗口是：c A．项目（工程）窗口B．工具箱C．代码窗口D．属性窗口 10、用于获得字符串s最左边4个字符的函数是：a A．Left(s,4) B．Left(1,4) C．LeftStr(s) D．LeftStr(3,4) 11、以下程序段的输出结果是：d a=Sqr(3) b=Sqr(2) c=a>b Print c A．-1 B．0 C．False D．True 12、用下面语句定义的数组的元素个数是：c Dim A (-4 to 6) As Integer A．6 B．7 C．11 D．9
VB期末考试题库及答案
试卷方案：201105 Visual Basic 期末考试方案 一、单项选择_共50题（选：20题*1’=20分） 第1题 以下有关对象属性的说法中，错误的是___________. A. 工具箱中的控件并不是VB 中所有的控件 B. 若将Frame 的Enabled 属性设置为False ，则不能使用放置在Frame 里面的控件 C. 对象的Name 属性在运行时不能改变 D. 对象的所有属性都可以在属性窗口中设置 第2题 数学表达式 ||27sin 3 y x e x +++ 的VB 算术表达式为_______ . A. Sin(27)+Sqr(x+Exp3)/(x+y) B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y) 第3题 下列有关对象的叙述中,正确的是______ A. 对象由属性，事件和方法构成 B. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C. 对象的事件一定就是由VB 预先设置好的人工干预的动作 D. 对象的方法是对象响应某个事件后执行的一段程序代码 第4题 表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是___. A. 1 B. -1 C. –2 D. –3 第5题 下列关于菜单的说法中,错误的是__________. A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件 B. 菜单项不可以响应DblClick 事件 C. VB6.0允许创建超过四级的子菜单 D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled 属性为False 第6题 以下关于数组的说法中,错误的是__________. A. 使用了Preserve 子句的Redim 语句，只允许改变数组最后一维的上界 B. 对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型 C. Erase 语句的功能只是对固定大小的数组进行初始化 D. Lbound 函数返回值是指定数组某一维的下界 第7题 设a=3,b=2,c=1,运行print a>b>c 的结果是____________. A. True B. False C. 1 D. 出错 第8题
VB程序设计试题及答案一
V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……