《VB程序设计》历年全真模拟试卷四(含答案)
《VB程序设计》历年全真模拟试卷四（含答案）
一、选择题
1、 VB6.0分为3种版本，这3种版本是企业、专业、学习。
2、与传统的程序设计语言相比,Visual Basic 最突出的特点是 C 。
A) 结构化程序设计 B) 程序开发环境
C) 事件驱动编程机制 D) 程序调试技术
3、构成对象的三要素是属性、方法、事件。
4、假定已在窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置窗体的属性,预先应执行的操作是 A 。
A) 单击窗体上没有控件的地方 B) 单击任一个控件
C) 不执行任何操作 D) 双击窗体的标题栏
5、产生一个100～200（包括100和200）范围内的正整数 INT(RND*101+100) 。
6、表示x是5或7的倍数 X MOD 5=0 OR X MOD 7=0 。
7、取字符变量S中第五个字符起的6个字符 MID(S,5,6) 。
8、X、Y都大于Z X>Z AND Y>Z OR X
9、X、Y中有一个小于Z X>Z AND Y
10、计算下列表达式的值:
(1) 123+23 mod 10\7+Asc("A") 188
(2) 100+"100"&100 200100
(3) int(68.555*100+0.5)/100 68.56
(4)已知A$="87654321",求表达式Val(Left(A$,4)+Mid$(A$,4,2))的值 876554 （5）Len("VB程序设计") 6
11、填空
(1)可以删除字符串左边空格的函数是（ C ）。
A Ltrim
B Rtrim
C Trim
D Mid
(2)以下语句的输出结果是（D ）。
Print Format$(12345.5,"###,000.00")
A 12345.5
B 12,345.5
C 012,345.50
D 12,345.50
(3)设A= “abcdefghijklm”，下面（B ）的函数值为“jklm”。
A Mid(A,9,14)
B Right(A, 4)
C Mid(A,9,4)
D Left(A,10,4)
(4)设a=2,b=3,c=4,d=5下列表达式的值是（ D ）。
4*c=b^2 And b <> a+c
A -1
B 1
C True
D False
(5) 下列可作为VB的变量名的是(D )
A、end
B、abc.1
C、4ABC
D、a_1
(6) 表达式（B ）可以计算字符串变量x 的长度。
A、Str(x)
B、Len(x)
C、Len(x)-1
D、Val(x)
12、下列不能打开代码窗口的操作是D
A) 双击窗体上的某个控件 B) 双击窗体
C) 按F7键 D) 单击窗体或控件
13、下列说法中正确的是
为了装入一个Visual Basic应用程序,应当D
A) 只装入窗体文件(.frm)
B) 只装入工程文件(.vbp)
C) 分别装入工程文件和标准模块文件
D) 分别装入工程文件、窗体文件和标准模块文件
14、下列可作为Visual Basic的变量名的是D
A) 4-Delta B) Integer
C) xm.frm D) Gzff
15、保存VB应用程序，以下正确的操作是( B )
A、只保存窗体文件(.frm)
B、分别保存窗体和工程文件(.vbp)
C、只保存窗体文件，不保存工程文件。
D、只保存工程文件。
16、Visual Basic窗体设计器的主要功能是 (A )
A.建立用户界面
B.编写源程序代码
C.画图
D.显示文字
17、为了删除窗体上的一个控件，下列正确的操作是：B
A按回车键
B选择要清除的控件，然后按Del键
C按Esc键
D选择要清除的控件，然后按回车键。
18、InputBox函数中有5个参数，其中必须写明的参数是( A)
A、指定对话框中显示按钮的数目
B、设置对话框标题
C、提示信息
D、所有参数都是可选的
19、执行下列语句后，列表框中各表项顺序为（ 2 4 6 8 10 ）。
List1.Clear
For i = 2 To 10 step 2
List1.AddItem i
Next i
20、程序运行时可以激活其（B ）事件。
A.Change
B.Load
C.Dblclick
D.Click
21、设组合框Combo1中有5个项目，则以下能删除最后一项的语句是（ D）
https://www.360docs.net/doc/dd18743300.html,bo1.RemoveItem Text
https://www.360docs.net/doc/dd18743300.html,bo1.RemoveItem 2
https://www.360docs.net/doc/dd18743300.html,bo1.RemoveItem 3
https://www.360docs.net/doc/dd18743300.html,bo1.RemoveItem Combo1.ListCount-1
22、确定一个控件大小的属性是（ D ）
A、Width或Height
B、Top和Left
C、Top或left
D、Width和Height
23、假定命令按钮的名称（Name属性）为Command1，则把命令按钮的标题设置为“确定”的语句为（ B ）
https://www.360docs.net/doc/dd18743300.html,mand1.Caption=确定
B.Form1.Caption=“确定”
https://www.360docs.net/doc/dd18743300.html,mand1=“确定”
https://www.360docs.net/doc/dd18743300.html,mand1.Caption=“确定”
24、组合框有三种不同风格的形式:下拉组合框、简单组合框和下拉列表框，通过（A ）属性设置。
A.Style
B.BoderStyle
C.FillStyle
D.Draw
25、假定Pic1和Tex1分别为图片框和文本框的名称,下列不正确的语句是。
A) Print 25 B) Pic1.Print 25
C) Tex1.Print 25 D) Debug.Print 25
26、以下语句的输出结果是(□表示空格)C
x=“VB”
y=“程序设计”
Print x；y
A) VB□程序设计 B) □VB□程序设计
C) VB程序设计 D) □VB□程序设计□
27、执行以下程序段后,变量z的值是
x=“Visual Basic Programming”
y=“Quick”
z=y & Ucase(Mid(x,7,6)) & Right(x,12)D
A) Visual BASIC Programming B)Quick Basic Programming
C) QUICK Basic Programming D) Quick BASIC Programming
28、在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a%, b%
a = InputBox("输入第一个数")
b = InputBox("输入第二个数")
Print b + a
End Sub
程序运行后,单击命令按钮,先后在两个输入对话框中分别输入234和432,则输出结果是B
A) 579 B) 666 C) 456 D) 123456
29、执行下面的语句后,所产生的对话框的标题是
a=InputBox(“ABC”，“DEF”) (C)
A) BBBB B) 空 C) DEF D) 出错，不能产生信息框
30、决定窗体上显示内容的方法是 (D)
A) Text B) Name C) Caption D) Print
31、为了文本框具有垂直滚动条,应先把MuItiLine属性设为True,然后再把ScrollBars属
性设置为 C
A) 0 B) 1 C) 2 D) 3
32、使文本框获得焦点的方法是 B
A) Change B) GotFocus C) SetFocus D) LostFocus
33、表示复选框的状态的属性是 D
A) Align B) Alignment C) Sorted D) Value
****34、设置单选框被选中的属性是 A
A) True B) Alignment C) False D) Value
35、删除列表框中指定的项目所使用的方法为 D
A) Move B) Remove C) Clear D) RemoveItem
36、当拖动滚动条中的滚动块时,将触发滚动条的事件是C
A) Move B) Change C) Scoll D) SetFocus
37、以下正确的语句是 B
A) If a>b Then t=a ; a=b ; b=t
B) If a>b Then t=a : a=b : b=t
C) If a>b Then t=a a=b b=t
D) If a>b Then t=a , a=b , b=t
38、写出程序运行的结果 1 1 1
Private Sub Form＿Click
Dim x as Integer
X=1
If x<=1 Then Print x,
If x<=2 Then Print x;
If x<=3 Then Print x;
End Sub
39、在窗体上添加一文本框和一命令按钮，并编写如下程序：
Private Sub Command1_Click()
Dim x1 As String, x2 As String
x1 = InputBox("请输入x1的值：")
x2 = InputBox("请输入x2的值：")
Text1.Text = x1 + x2
End Sub
在程序运行过程中，单击命令按钮后，在两次出现的输入对话框中的文本框中分别输入23和32并按回车键，则文本框text1中显示的数据是多少？2332
40、写出程序运行的结果 20 。
Private Sub Form＿Click
Dim a as single,b as single, c as single,,m as single
a=-10
b=20
c= -30
m=a
If b>m Then m=b
If c>m Then m=c
Print m
End Sub
41、以下程序段的输出结果为 D 。
x = 1
y = 4
Do Until y > 6
x = x * y
y = y + 1
Loop
Print x
A) 1 B) 4 C) 8 D) 120
42、执行下面的程序段后，s的值为 B 。
s =2
For i = 1 To 10 Step 2
s = s + i \ 4
Next i
A) 21 B) 6 C) 8 D) 24
43、阅读下面的程序段：
For i = 1 To 2
For j = 1 To 2
s = s + 1
Next j
Next i
执行上面的2重循环后，s的值为：B
A) 3 B) 4 C) 14 D) 21
44、事件过程如下：
Private Sub Command1_Click()
Dim a%,b%,c%
x = 0
Do Until x = -1
a = InputBox("请输入a的值")
b = InputBox("请输入b的值")
x = InputBox("请输入x的值")
a = a +
b + x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在对话框中输入5、4、3、2、1、-1，则输出结果为：2
A) 2 B) 3 C) 14 D) 15
45、用下面的语句所定义的数组的元素个数是。
Dim A(-2 To 6) As Integer
A)6 B)7 C)8 D)9
46、在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：
Private Sub Command1_Click()
Dim s(10) As Integer
For i = 1 To 3
s(i) = i+1
Print s(i)；
Next i
Print s(i)
End Sub
写出输出结果是
A)1 2 3 0(显示在一列上) D)2 3 4 0(显示在一行上)
B)1 2 3 C)1 2 3 4
47、假定有如下的Sub过程:
Sub ss(ByeVal x!, y!)
t = x
x = t / y
y = t Mod y
End Sub
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a!, b!
a = 5
b = 4
ss a, b
Print a, b
End Sub
程序运行后,单击命令按钮,输出结果为
A)5 4 B)1 1
C)1.25 4 D)5 1
二、填空
1、结构化程序由 ______、______、______ 三种基本结构组成。
2、VB6.0中工程文件的扩展名是，窗体文件的扩展名是。
3、把条件1<=X<12写成VB关系表达式为
4、下列循环语句控制的循环次数为
FOR K=1 TO 10 STEP 3
5、写出清除图片框Picture1中的文字或图形信息的语句
6、写出清除图片框Picture1中的图片的语句
7、写出向图片框Picture1中添加图片的语句
8、在窗体上画两个文本框和一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Text1.Text = "ABCD"
Text2.Text = Text1.Text
Text1.Text = "VB程序设计"
End Sub
程序运行后, 两个文本框中显示的内容分别是和
.
9、写出下列结果：
(1)删除“大学计算机基础”选项，
(2)向该列表框中添加“大学英语”选项，
(3)选中“数据库技术及应用”选项，
10、窗体上有一个组合框,其中已输入了若干个项目。程序运行时,单击其中一项,即可把该项
与最上面的一项交换。例如:单击图1中的"重庆",则与"北京"交换,得到图2的结果。下面是
可实现此功能的程序,请填空。
图1 图2
Private Sub Combo1_Click()
Dim temp
temp=Combo1.Text
Combo1.List(0)
Combo1.List(0)=temp
End Sub
11、在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后,在列表框中
添加若干列表项。当单击列表框中的某个项目时,在标签Labe1中显示所选中的项目,如图所示。请在空白处填入适当的内容,将程序补充完整。
Private Sub Form_load()
List1.AddItem "北京"
List1.AddItem "上海"
List1.AddItem "河北"
End Sub
Private Sub List1_click()
Labe1.Caption=
End Sub
12、执行下面的程序后，s的值为。
For i = 1.2 To 2.4 Step 0.6
s = s + 1
Next i
13、以下循环的执行次数是。
k = 1
Do While k <= 3
k = k + 1
Loop
14、利用循环结构产生5个30---70的随机整数，然后输出其中的最大值。程序运行后，单
击命令按钮（名称为Command1，标题为"输出最大值"，如图所示），即可求出其最大值，并在窗体上显示出来5个随机数和最大值。
提示：给出主要程序，剩下的自己补充完整。
Dim i%,x%,max%
max=30
For i=1 to
X=Int(Rnd* +30)
Print x;
If x>max then max=x
Next i
Print max
15、在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：
Private Sub Command1_Click()
Dim a()
a = Array(1, 2, 3, 4)
j = 1:s=0
For i = 3 To 0 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
程序运行后，输出结果是。
16、以下程序用来计算数组A中的最大值(假定A中已赋值)，并将结果打印在窗体上。Private Sub Command1_Click()
Dim K% ,i% ,Max%
Dim A(10) as integer
Max = A(0)
For K = ____ _ To 10
If Max < A(K) then ____________
Next K
Print “最大值是”； Max
Eed Sub
17、在过程定义中出现的变量名叫做参数，而在调用过程时传送给过程的常数、变量、表达式或数组叫做参数。
18、在窗体上画一个列表框，然后编写如下两个事件过程：
Private Sub Form_Load（）
List1.Additem "itemA"
List1.Additem "itemB"
List1.Additem "itemC"
List1.Additem "itemD"
List1.Additem "itemE"
End Sub
Private Sub Form_Click（）
List1.Removeitem 1
List1.Removeitem 3
List1.Removeitem 2
End Sub
运行上面的程序，然后单击窗体，列表框中剩余的项目为和。
19、与代数式5×(A＋B)2对应的VB表达式是。
20、在VB中，字符串常量要用括起来，日期/时间型常量要用括起来。
21、假定有以下三个过程,程序运行后结果是 .
Sub s2(x%, y%)
Dim t%
t = x
x = y
y = t
End Sub
Sub s1(ByVal x%, ByVal y%)
Dim t%
t = x
x = y
y = t
End Sub
Private Sub Command1_Click()
Dim x%, y%
x = 10
y = 20
Call s1(x, y)
Print "x="; x, "y="; y
s2 x, y
Print "x="; x, "y="; y
End Sub
三、编程题
1.计算1到100之间偶数(奇数)的个数.
2.计算1+4+7+……+49
3.计算1+1/2+1/3+……+1/10
4.计算10！
5.随机产生10个整数，范围在[0，100]之间，放在数组A中，并在窗体上显示10个数据，求
其和、求最大值（或最小值）。
6. 随机产生10个整数，范围在[0，100]之间，放在数组A中。按递增序列排序。（可选择冒泡法或选择法排序）