《VB语言复习题数据库原理》复习资料
一、 基本概念
下列各题A）、B）、C)、D)四个选项中，只有一个选项是正确的，请选择正确的
答案
八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案
1.以下叙述中错误的是：
A）Visual Basic是事件驱动型可视化编程工具 B）Visual Basic应用程序不具有明显的开始和结束语句 C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D）Visual Basic中控件的某些属性只能在运行时设置
2.以下叙述中错误的是：
A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B）以.BAS为扩展名的文件是标准模块文件
C）窗体文件包含该窗体及其控件的属性
D）一个工程中可以含有多个标准模块文件
3.以下叙述中错误的是：
A）双击鼠标可以触发DblClick事件
B）窗体或控件的事件的名称可以由编程人员确定 C）移动鼠标时，会触发MouseMove事件
D）控件的名称可以由编程人员设定
4.以下不属于Visual Basic系统的文件类型是： A）frm B）bat C）vbg D）vbp
5.在Visual Basic工程中，可以作为启动对象的程序是： A)任何窗体或标准模块
B)任何窗体或过程
C)Sub Main过程或其他任何模块
D)Sub Main过程或任何窗体
6.以下叙述中错误的是：
A）事件过程是响应特定事件的一段程序
B）不同的对象可以具有相同名称的方法
C）对象的方法是执行指定操作的过程
D）对象事件的名称可以由编程者指定
7.以下关于文件的叙述中，错误的是：B
A）顺序文件中的记录一个接一个地顺序存放
B）随机文件中记录的长度是随机的
C）执行打开文件的命令后，自动生成一个文件指针 D）LOF函数返回给文件分配的字节数
8.以下关于多重窗体程序的叙述中，错误的是：A A)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体 B）在多重窗体程序中，各窗体的菜单是彼此独立的 C）在多重窗体程序中，可以根据需要指定启动窗体 D）对于多重窗体程序中，而且单独保存每个窗体
1
9.以下关于MsgBox的叙述中，错误的是：D
A）MsgBox函数返回一个整数
B）通过MsgBox函数可以设置信息框中图标和按钮的类型 C）MsgBox语句没有返回值
D）MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量
10.以下控件中可以入选为容器控件的是：B
A）Image图像框控件 B）Pictur图片框控件
C）TextBox 文本框控件 D）ListBox列表框图控件
11.列表框和单选钮比较中正确的是：A
A）列表框和单选钮都只能在多个选择项中选定一项 B）列表框和单选钮的值（Value）都是（Ture/False） C）单选按钮和列表框都响应DblClick事件
D）要使列表框和单选钮不可用，可设置Enabled 属性为False
12.以下叙述中错误的是： C
A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B）保存Visual Basic程序时，应分别保存窗体文件及工程文件 C）Visual Basic应用程序只能以解释方式执行
D）事件可以由用户引发，也可以由系统引发
13.在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属
性是：D
A）TabStop B）Enabled
C）Visible D）TabIndex
14.以下Case语句中错误的是：C
A）Case 0 To 10 B） Case Is>10
C）Case Is>10 And Is<50 D） Case 3,5,Is>10
15.以下关于图片框控件的说法中，错误的是：D
A）可以通过Print方法在图片框中输出文本
B）清空图片框控件中图形的方法之一是加载一个空图形 C）图片框控件可以作为容器使用
D）用Stretch属性可以自动调整图片框中图形的大小
16.执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是：C A）Visual B）Basic C）6 D）11
17.设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，
但能输出信息，以下属性设置正确的是：B
A)text1.maxlength=0 B)text1.enabled=flase
C)text1.visible=flase D)text1.width=0
18.以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是：C
A)Form1.Name="VisualBasic窗体"
B)Form1.Title="VisualBasic窗体"
C)Form1.Caption="VisualBasic窗体"
D)Form1.Text="VisualBasic窗体”
2
19.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则
以下正确的属性设置语句是：D
A)Timer1.InterVal=0.5 B)Timer1.Interval=5
C)Timer.Interval=50 D)Timer1.Interval=500
20.当一个复选框被选中时，它的Value属性的值是：C
A)3 B)2 C)1 D)0
21.表达式 5 Mod 3+3\5*2的值是：B A)0 B)2 C)4 D)6
22.设x=4,y=8,z=7，以下表达式x
z) Or zx Then Print a(i);
Next i
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是： A）1 2 B） 1 2 3 C) 3 4 5 D） 4 5
28.设a=5,b=4,c=3,d=2，下列表达式 3>2*b Or a=c And b<>c Or c>d的值是：B
A) 1 B) True C) False D) 2
29.设a=”MicrosoftVisualBasic”, 则以下使变量b的值为”VisualBasic”的语句是：C
A)b=Left(a,10) B)b=Mid(a,10) C)b=Right(a,10) D)b=Mid(a,11,10)
30.假定有如下的窗体事件过程：
Private Sub Form_Click()
a$ = "Microsoft Visual Basic"
b$ = Right(a$, 5)
c = Mid(a$, 1, 9)
MsgBox a$, 34, b$, c$, 5
End Sub
程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：C
A)Microsoft Visual B)Microsoft C)Basic D)5
31.为了使命令按钮(名称为Command1)右移200，应使用的语句是：A
A)Command1.Move -200 B) Command1.Move 200
C) Command1.Left= Command1.Left+200 D) Command1.Left= Command1.Left-200
32.在窗体上画一个文本框，然后编写如下事件过程：B Private Sub Form_Click()
x = InputBox("请输入一个整数")
Print x + Text1.Text
4
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：
A)123 B)456 C)579 D)123456
33.在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：A
Private Sub Command1_Click()
Timer1._________
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
在______处应填入的内容是：
A)Enabled=True B)Enabled=False C)Visible=True D)Visible=False
34.假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用
的正确方法是：B
A)选择图片框，然后按Del键 B)执行语句Picture1.Picture=LoadPicture(“”) C)执行语句Picture1.Picture=”” D)选择图片框，在属性窗口中选择Picture属性，然后按回车键
35.在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：C
Private Sub Command1_Click()
Dim i As Integer, x As Integer
For i = 1 To 6
If i = 1 Then x = i
If i <= 4 Then
x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
程序运行后，单击命令按钮，其输出结果为：
A)9 B)6 C)12 D)15
36.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：B
Private Sub Command1_Click()
c = "ABCD"
For n = 1 To 4
Print _________
Next n
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
D
CD
BCD
5
ABCD
则在________处应填入的内容为：
A)Left(c,n) B)Right(c,n) C)Mid(c,n,1) D)Mid(c,n,n)
37.执行以下程序段：B
Dim x As Integer, i As Integer
x=0
For i = 20 To 1 Step -2
x = x + i \ 5
Next I
后，x的值为： A)16 B)17 C)18 D)19
38.在窗体上画一个名称为Label1的标签,然后编写如下事件过程：D
Private Sub Form_Click()
Dim arr(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 2 To 4
For j = 2 To 4
arr(i, j) = i * j
Next j
Next i
Label1.Caption = Str(arr(2, 2) + arr(3, 3))
End Sub
程序运行后,单击窗体,在标签中显示的内容是：
A)12 B)13 C)14 D)15
39.在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件
过程：C
Private Function fun(ByVal m As Integer)
If m Mod 2 = 0 Then
fun = 2
Else
fun = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5
s = s + fun(i)
Next I
Print s
End Sub
程序运行后,单击命令按钮,则窗体上显示的是：
A)6 B)7 C)8 D)9
40.设有如下程序：D
Private Sub Command1_Click()
Dim c As Integer, d As Integer
6
c = 4
d = InputBox("请输入一个整数")
Do While d > 0
If d > c Then
c = c + 1
End If
d = InputBox("请输入一个整数")
Loop
Print c + d
End Sub
程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,
则输出结果是：
A)12 B)11 C)10 D)9
41.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = 1 To 5
Next I
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是：
A) 11 B) 10 C) 9 D) 8
42.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如
下事件过程：
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
Next i
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是：
A) 15 B) 14 C) 13 D) 12
基本概念
7
1.Visual Basic应用程序中标准模块文件的扩展名是 BAS 。
2.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的
_____INTERNAL____属性设置为 500。
3.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是
_____PICTURE1.PICTURE=LOADPICTURE(“C:\MOON.JPG”)
4.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立
一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体
将根据所选择的单选按钮切换，如图所示，请填空。 Private Sub Option1_Click(Index As Integer)
Select Case
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体＿GB2312"
End Select
text1. index.font=a
End Sub
5.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中
的项目在其下面的标签中显示出来。请填空。 Private Sub Combo1_Click()
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click()
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
_____tmplabel_______.Caption =______tmpcombo______.Text
End Sub
6.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
n = 5
f = 1
s = 0
For i = 1 To n
f =_______f(1/i)______
s = s + f
Next I
Print s
End Sub
7.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
8
Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = i
Next
Call swap（__________）
For i = 1 To 10
Print a(i);
Next
End Sub
8.Sub swap(b() As Integer)
n = ubound(b)
For i = 1 To n / 2
t = b(i)
b(i) = b(n)
b(n) = t
____________
Next
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的
值互换，a(2)与a(9)的值互换，„„，a(5)与a(6)的值互换。
9.设有如下程序段： a$="BeijingShanghai"
b$=Mid(a$,InStr(a$,"g")+1)
执行上面的程序段后，变量b$的值为__ __。
10.以下程序段的输出结果是_______。
num =0
While num<=2
num = num+1
Wend
Print num
11.阅读程序：
Option Base 1
Private Sub Form_Click()
Dim a(3) As Integer
Print "输入的数据是："; For i=1 To 3
a(i)=InputBox("输入数据") Print a(i);
Next
Print
If a(1)a(3) Then
m=a(2)
ElseIf a(1)>a(3) Then
m=_____
Else
m=_____
End If
Print "中间数是：";m End Sub
程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数。
以下语句的输出结果是：______________
Print Int(12345.6789*100+0.5)/100
12.在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程：
Private Sub Form_Click()
Text1.Text = "VB程序
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
"
End Sub
Private Sub Text1_Change()
Picture1.Print "VBProgramming"
End Sub
程序运行后,单击窗体,在文本框中显示的内容是 ,而在图片框中显
示的内容是
13.阅读下面的程序：
Private Sub Form_Click()
Dim Check As Boolean, Counter As Integer
Check = True
Counter = 5
Do
Do While Counter < 20
Counter = Counter + 1
If Counter = 10 Then
Check = False
Exit Do
End If
Loop
Loop Until Check = False
Print Counter
End Sub
程序运行后,单击窗体,输出结果是
14.设有如下程序：
Private Sub Form_Click()
Dim a As Integer, s As Integer
n = 8
s = 0
Do
s = s + n
n = n - 1
10
Loop While n > 0
Print s
End Sub
以上程序的功能是求 ,程序运行后,单击窗体,输出结果为
15.设有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer, i As Integer
arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)
Min = arr1(1)
For i = 2 To 8
If arr1(i) < Min Then
Next i
Print "最小值是:"; Min
End Sub
以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出
该数组中的最小值,请填空。
16．求1—100的5的倍数或7的倍数的和。
Private sub form1_click()
Dim sum%,I%
Sum=0
For I=1 to 100
If ___ ____________then
Sum=_ ___________
end if
Next I
print sum
End sub
17.下列程序段找出被3、5、7除，余数为1的最小的5个正整数，请在下划线处填入相应
的内容。
Private Sub Command1_Click()
Dim CountN%,n%
CountN=0
n=1
Do while
n=n+1
If Then
Print n
CountN=CountN+1
End If
Loop
End Sub
18.某次大奖赛，有7个评委打分，如下程序对一名参赛者，输入7个评委的打分分数，去
掉一个最高分和一个最低分后，求出平均分为该参赛者的得分。请在下划线处填入相应的内
容。
11
Private Sub Command1_Click()
Dim mark!,aver!,I%,max1!,min1!
aver=0
For i=1 To 7
Mark=InputBox(“输入第”&i&“位评委的打分”)
If i=1 Then
Max1=mark
Else
If mark＜min1 Then Min1=
ElseIf mark＞max1 Then
Max1=
End If
End If
Aver=aver+mark
Next i
Aver=
Print aver
End Sub
19.下面程序运行后输出的结果是 。
Private Sub Command1_Click()
Dim a$, b$, i%, x$
a$ = "*":: b$ = "$"
For i = 1 To 4
If i Mod 2 = 0 Then
x$ = String(Len(a$) + i, b$)
Else
x$ = String(Len(a$) + i, a$)
End If
Print x$
Next I
End Sub
20.输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成
“GFEDCBA”，请在下划线处填入相应的内容。
Private Sub Command1_Click()
Dim a$, i%, n%, c$, d$
a = InputBox$("输入字符串")
n =
For i = n To
c = Mid(a, i, 1)
Next i
a = d
Print a
End Sub
12
浙公网安备 33021202002483