VB自我练习1
09级期末考试（A）
一、单项选择题（1分/小题，共10分）
1、语句PRINT"SGN(-26)=";SGN(-26)的输出结果为( ).
（A）SGN(-26)=26 （B）SGN(-26)=-26（C）SGN(-26)=+1（D）SGN(-26)=-1 2、VB应用程序保存在磁盘上,至少会有以( )为扩展名两个文件.
（A）.DOC和.TXT （B）.COM和.EXE （C）.VBW和.BAS （D）.VBP和.FRM 3、组合框有三种风格,它们由Style属性所决定,其中为下拉列表框时,Style属性值应为( ).
（A）0 （B）1 （C）2 （D）3
4、Int(198.555*100+0.5)/100的值( ).
（A）198 （B）199.6 （C）198.56 （D）200
5、若要访问组合框Comb1中被用户选中的表项，应使用（）
（A）Comb1.Text （B）Comb1.List （C）Comb1.ListIndex （D）Comb1.ListCount 6、下列各项变量中,哪一项所占的内存空间最多( ).
（A）dim x as currency x=99 （B）dim st1 as string st1='good' （C）dim st2 as string st2='goodbye' （D）dim d as data d='1898/09/12' 7、清除列表框的所有选项应选择下列哪种方法( ).
（A）Clear （B）Cls （C）ClearItem （D）RemoveItem
8、如果在窗体上已经创建了一个文本框对象Text1,可以通过( )事件获得输入键值的ASCII码.
（A）Change （B）LostFocus （C）KeyPress （D）GotFocus
9、以下不属于VisualBasic系统的文件类型是( ).
（A）.frm （B）.bat （C）.vbg （D）.vbp
10、控件是( ).
（A）建立对象的工具（B）设置对象属性的工具
（C）编写程序的编辑器（D）建立图形界面的编辑窗口
二、程序阅读（3分/题，共45分）
1、在窗体上画一个名称为Label1、标题为"VisualBasic考试"的标签,两个名称分别为Command1和Command
2、标题分别为"开始"和"停止"的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500. 编写如下程序:
Private Sub Form_Load()
Timer1.Enabled = False
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If Label1.Left < Width Then
Label1.Left = Label1.Left + 120
Else
Label1.Left = 0
End If
End Sub
（1）程序运行后,单击"开始"按钮,标签在窗体中移动. 对于这个程序,以下叙述中错误的是（）
（A）标签的移动方向为自左向右
（B）单击"停止"按钮后再单击"开始"按钮,标签从停止的位置继续移动
（C）当标签全部移出窗体后,将从窗体的另一端出现并重新移动
（D）标签每隔1秒移动一次
（2）程序使用了几个控件（）
（A）1 （B）2 （C）3 （D）4
（3）Timer控件的Interval属性的单位是（）
28 （A）秒（B）毫秒（C）微秒（D）纳秒
2、程序如下
Function f(m As Integer) As Integer
b = 1
Static c As Integer
b = b + 1
c = c + 1
f = m * b * c
End Function
Private Sub Command1_Click()
Dim a As Integer
Sum = 0
For i = 1 To 3
Sum = Sum + f(a)
Next i
Print Sum
End Sub
(4) 程序运行后，窗体上显示的值为（）。
(A) 24 (B) 12 (C) 28 (D) 32
(5) 如果将Static c As Integer改为dim c As Integer，则sum的值为（）。
(A) 24 (B) 12 (C) 28 (D) 32
(6) 如果将语句b=1去掉，则sum的值又为（）。
(A) 24 (B) 12 (C) 28 (D) 32
3、程序如下
Dim x As Integer, y As Integer, z As Integer
Sub s1(a As Integer, b As Integer)
Dim c As Integer
a = 2 * a
b = b + 2
c = a + b
End Sub
Sub s2(a As Integer, ByVal b As Integer)
Dim c As Integer
a = 2 * a
b = b + 2
c = a + b
End Sub
Private Sub Command1_Click()
x = 4
y = 4
z = 6
Call s1(x, y)
Print x + y + z;
Call s2(x, y)
Print x + y + z
End Sub
（7）程序运行后，窗体上显示的结果为（）。
(A) 24 28 (B) 20 28 (C) 20 18 (D) 20 20 （8）将ByVal b As Integer改为b As Integer 后窗体上显示的结果为（）。
(A) 24 28 (B) 20 28 (C) 20 18 (D) 20 30
(9) 修改后变量x和y 的最后取值为（）.
(A) 24 28 (B) 20 20 (C) 16 8 (D) 20 30
4、程序如下
Private Sub Form_Click()
Dim num As Integer, dat1 As Integer, dat2 As Integer
Dim swit As Boolean
num = 0
Open "d:\prime.dat" For Output As #1
For dat1 = 2 To 10
swit = True
For dat2 = 2 To Sqr(dat1)
If (dat1 Mod dat2) = 0 Then
swit = False
Exit For
End If
Next dat2
If swit Then
num = num + 1
Write #1, " 第"; num; "个数"; dat1
End If
Next dat1
Close #1
End Sub
（10）程序中write语句的作用是（）.
(A) 读数据（B）写数据
（C）修改数据（D）追加数据
（11）执行程序后，prime.dat文件的内容是（）。
(A)第1个数7 （B）第１个数２
第2个数5 第2个数3
第3个数9 第3个数5
（C）第1个数2 （D）以上都不对
第2个数3
第3个数5
第4个数7
(12) 该程序的功能是（）。
(A) 统计2到10之间的数据个数。
（B）统计2到10之间的素数个数。
（C）找出2到10之间所有的素数。
（D）找出2到10之间的第一个素数。
5、程序如下
Sub s1(b() As Integer)
For i = 1 To 4
b(i) = 2 * i
Next i
End Sub
L1:
Private Sub Command1_Click()
Dim a() As Integer
Redim a(1 to 4)
For i = 1 To 4
a(i) = i + 5
Next i
s1 a()
For i = 1 To 4
Print a(i);
Next i
End Sub
(13)程序运行的结果是（）。
(A) 6 7 8 9 (B) 12 14 16 18 (C) 2 4 6 8 (D) 1 2 3 4
(14) 程序中所定义的 a()是（）。
(A) 用户自定义类型(B) 静态数组
（C）动态数组（D）用户自定义类型数组
（15）在L1处添加语句option base 1后，程序运行的结果（）。
(A) 有变化（B）无变化
（C）出现语法错误（D）以上都不是
三、程序填空（2分/空，30分）
1、下面的程序段用于求矩阵相乘C=A×B，设A、B、C分别为m×p、p×n、m×n的矩阵。
Private Sub Form_Click()
Const m = 4, p = 3, n = 2
Dim a(1 To m, 1 To p) As Integer
Dim b(1 To p, 1 To n) As Integer
Dim c(1 To m, 1 To n) As Integer
Dim i As Integer, j As Integer, k As Integer, sum As Integer
For i = 1 To m
For k = 1 To p
a(i, k) = i
Next k
Next i
For i = 1 To p
For k = 1 To n
b(i, k) = i
Next k
Next i
For i = 1 To m
For j = 1 To n
【①】
For k = 1 To p
sum = sum +【②】
Next k
c(i, j) =【③】
Next j, i
Print "输出矩阵"
For i = 1 To m
For k = 1 To n
Print c(i, k),
Next k
Next i
End Sub
2、以下程序段分别以子过程和函数来计算某级数部分和，级数公式如图1所示。
Function jishu1(x!, eps#) As Double
Dim n%, s#, t#
n = 1: s = 0: t = 1
Do While (Abs(t) >= eps)
s = s + t
t = t * x / n
n = n + 1
Loop
【①】
End Function
Sub jishu2(s#, x!, eps#)
Dim n%, t#
n = 1: s = 0: t = 1
Do While (Abs(t) >= eps)
s = s + t
t = t * x / n
n = n + 1
Loop
End Sub
Private Sub Command1_Click()
Dim f1#, f2#
f1 = jishu1(2#, 0.000001)
【②】 jishu2(f2, 2#, 0.000001)
Print "f1="; f1, "f2 = "; f2
End Sub
3、用输入对话框输入x，根据如图公式计算对应的y，在窗体上输出y的值。
Option Explict
Private Sub Command1_Click()
Dim x As Single
【①】
x = Val(【②】("Please input x :", "输入X的值"))
If x = 10 Then
【③】
ElseIf x > 10 Then
y = 【④】
Else
y = 2 * x ^ 3 + 6
End If
Print y
End Sub
4、以下程序段实现的功能是：查找一数列中是否存在某数字x，若数列中存在该数字，则输出其出现的次数，否则输出不存在信息。
Private Function Search(a() As Integer, ByVal key, n%) As Boolean
Dim i%
Search = False
For i = LBound(a) To 【①】
If key = a(i) Then
Search = True
【②】
End If
Next i
End Function
Private Sub Form_Click()
Dim x As Integer, k As Integer, num As Integer
Dim b() As Integer
num = Int(Rnd * 10) + 1
ReDim b(num)
For i = 0 To num
b(i) = Int(Rnd * 70) + 20
Print b(i);
Next i
x = Val(InputBox("输入待查找数据"))
If Search(【③】, x, k) Then
Print x; "在数列中出现"; k; "次"
Else
Print x; "未在数列中出现"
End If
End Sub
5、在文本框内输入一串字符后，统计并显示各字母出现的次数(不区分大小写字母)。
Private Sub Command1_Click()
Dim a(1 To 26) As Integer, c As String * 1
【①】 = Len(Text1)
For I = 1 To k
c = 【②】(Mid(Text1, I, 1))
If c >= "a" And c <= "z" Then
j = Asc(c) - 【③】 + 1
a(j) = a(j) + 1
End If
Next I
Picture1.Cls
For j = 1 To 26
If a(j) > 0 Then
Picture1.Print " "; Chr(j + 96); "="; a(j);
End If
Next j
End Sub
四、程序改错题（每个错误点3分，共15分）
有一程序其功能为：单击“生成”按钮后，利用随机函数产生10个（1~100）之
间的随机整数并输出在LIST1中，单击“计算”按钮，在窗体上打印其中能被5整除的数并求它们的和。程序中有5个错误，在不删除整条语句的前提下，可修改或补充语句，添加的语句不能超过两条。
错误源代码：
Option Base 1
Dim x(10) As Integer
Private Sub Command1_Click()
List1.Remove
For i = 1 To 10
x(i) =
List1.AddItem x(i);
Next i
End Sub
Private Sub Command2_Click()
Dim sum As Integer
sum = 0
For i = 1 To 10
If Then
Print x(i)
sum = sum + x(i)
Next i
Print "sum="; sum
End Sub
一、单项选择题（1分/小题，共10分）
三、程序填空（2分/空，30分）
1、（1）sum = 0、（2）a(i, k) * b(k, j)、（3）sum
2、（1）jishu1 = s、（2）call
3、（1）y、（2）InputBox、（3）y = 0、（4）+ Sin(x)
4、（1）UBound(a)、（2）n=n+1、（3）b()
5、(1)k、（2）Lcase、（3）97
四、程序改错题（每个错误点3分，共15分）
Option Base 1
Dim x(10) As Integer
Private Sub Command1_Click()
List1.Remove（１）修改为：list1.clear
For i = 1 To 10
x(i) = (２)修改为：x(i) = Int(Rnd * 100 + 1)
List1.AddItem x(i);（３）修改为：List1.AddItem x(i)
Next i
End Sub
Private Sub Command2_Click()
Dim sum As Integer
sum = 0
For i = 1 To 10
If Then（４）修改为：If x(i) Mod 5 = 0 Then
Print x(i)
sum = sum + x(i)
（５）修改为：End If
Next i
Print "sum="; sum
End Sub
09级期末考试（B）
一、单项选择题（1分/小题，共10分）
1、标签的()属性设置为True时,标签控件的大小随标题文字自动调整.
（A）AutoSize（B）Caption（C）Alignment（D）BackStyle
2、CLS可清除窗体或图形框中的内容是（）
（A）Picture属性设置的背景图案（B）在设计时放置的控件
（C）程序运行时产生的图形和文字（D）以上A~C全部
3、RGB 函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB(红.绿.蓝),括号中红、绿、蓝三基色的成分使用0~255之间的整数.若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置( )属性.
（A）Max和Min （B）Smallchange和 LargeChange
（C）Scroll和Change （D）Value
4、要定义一个变量为全局变量,应使用( )关键字.
（A）Static（B）Public（C）Private（D）Sub
5、下列程序段的运行结果（）
Private Sub Form_Click()
Dim Msg
Hide
Msg="选择'确定'按钮"
MsgBox Msg
Show
End Sub
（A）隐藏窗体,按'确定'按钮使窗体重现
（B）隐藏窗体
（C）显示窗体,按'确定'按钮使窗体隐藏
（D）显示窗体
6、在窗体上添加一个命令按钮，编写如下代码：
Private Sub Command1_Click
Dim Arr1(10) as Integer ,Arr2(10) As Integer
N=3
For i=1 to 5
Arr1(i)=i
Arr2(n)=2*n+i
Next i
Print Arr2(n), Arr1(n)
End Sub
程序运行后，单击命令按钮，输出结果是（）
（A）11 3（B）3 11（C）13 3 (D)3 13
7、假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是( ).
（A）BOOLVAR='TRUE' （B）BOOLVAR=.TRUE.
（C）BOOLVAR=#TRUE# （D）BOOLVAR=3<4
8、执行下面程序段后,变量a的值为（）.
For I=1 To 3
For j=1 To I
For k=j To 3
a=a+1
Next k
Next j
Next I
（A）3（B）9（C）14（D）21
9、下面选项中( )是算术运算符.
（A）%（B）And（C）&&（D）Mod
10、以下正确的描述是:在Visual Basic 应用程序中（）
（A）过程的定义可以嵌套,但过程的调用不能嵌套
（B）过程的定义不可以嵌套,但过程的调用能嵌套
（C）过程的定义过程的调用均可以嵌套
（D）过程的定义过程的调用均不可以嵌套
三、程序填空（2分/空，30分）
1、下面的程序用"冒泡"法将数组a中的10个整数按从小到大排列，请将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(-2, 5, 24, 58, 43, -10, 87, 75, 27, 83)
For i = 10 To 2 Step -1
For 【①】
If 【②】 Then
a1 = a(j + 1)
a(j + 1) = a(j)
a(j) = a1
End If
Next j
【③】
For i = 1 To 10
Print a(i)
Next i
End Sub
2、程序运行结果如图所示，请将程序补充完整。
Private Sub Form_Click()
Dim I As Integer, j As Integer
Dim star As String
star = "★"
For I = 1 To 6
Form1.Print Tab(14 - I * 2);
For j = 1 To 【①】
Form1.Print star;
Next j
Form1.Print
Next I
For I = 1 To 5
Form1.Print Tab(【②】);
For j = 1 To (6 - I) * 2 【③】
Form1.Print star;
Next j
Form1.Print
Next I
End Sub
3、本程序功能为，单击窗体，Form1的输出结果为 A1=10 B1=20
A2=20 B2=10
Public Sub Swap1【①】 x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Public Sub Swap2(x As Integer, y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 10
b = 20
【②】a, b
Form1.Print "A1="; a, "B1="; b
a = 10
b = 20
【③】 a, b
Form1.Print "A2="; a, "B2="; b
End Sub
4、下面的程序段，用于实现在一个nXm的矩阵中，找出值最大的元素所在的行和列，并输出其值及行号和列号。
Private Sub Form_Click()
Dim mat() As Integer
Dim n as integer, m As Integer
n = Val(InputBox("请输入矩阵的行数"))
m = Val(InputBox("请输入矩阵的列数"))
【①】
For i = 1 To n
For j = 1 To m
mat(i, j) = InputBox("请输入数组元素值")
mat(i, j) = Val(mat(i, j))
Next j
Next i
Print "所建立的矩阵为"
For i = 1 To n
For j = 1 To m
Print mat(i, j);
Next j
Next i
Max = mat(1, 1)
For i = 1 To n
For j = 1 To m
If 【②】 Then
Max = mat(i, j)
col = j
【③】
End If
Next j
Next i
Print "矩阵最大的元素的值为："; mat(row, col)
Print "它所在的行号为："; row; "列号为："; col
End Sub
5、打印出 100-999 之间的所有水仙花数如果一个数的百位，十位，个位数的立方和等于这个数本身则这个数为水仙花数
Private Sub Command1_Click()
Dim i As Integer, a As Integer, b As Integer, c As Integer
For i = 100 To 【①】
a = Int(i / 【②】)
b = Int((i - 100 * a) / 10)
c = i - 100 * a - 【③】
If a * a * a + b * b * b + c * c * c = i Then
Print i
End If
Next i
End Sub
四、程序改错题（每个错误点3分，共15分）
有一程序其功能为：在TEXT1中输入若干个大写和小写字母，选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入TEXT2中。程序中有5个错误，在不删除整条语句的前提下，可修改或补充语句，添加的语句不能超过两条。
错误源代码：
Private Sub Command1_Click()
Dim n As Integer, k As Integer, ch As String, a As String
n = Len(Text1.Text)
ch = ""
For k = 1 To n
a =
If Option1.Value = True Then
If a >= "a" And a <= "z" Then
ch = ch + UCase(a)
Else If a >= "A" And a < "Z" Then
ch =
Else
ch = ch + a
End If
End If
If Option2.Value = True Then
ch = UCase(Text1)
End If
If Option3.Value = True Then
ch = LCase(Text1)
End If
Next k
Text2.Text = ch
End Sub
一、单项选择（1分/题，10分）
二、程序阅读（3分/题，共45分）
三、程序填空（2分/空，共30分）
1、（1）j=1 to i-1、（2）a(j)>=a(j+1)、（3）next i
2、（1）I * 2 – 1、（2）2 + I * 2、（3）- 1
3、（1）ByVal、（2）、Swap1、（3）Swap2
4、（1）ReDim mat(n, m) As Integer、（2）Max < mat(i, j)、（3）row = I
5、（1）999、（2）100、（3）10 * b
四、程序改错题（每个错误点3分，共15分）
Private Sub Command1_Click()
Dim n As Integer, k As Integer, ch As String, a As String
n = Len(Text1.Text)
ch = ""
For k = 1 To n
a = （１）修改为：a=mid$(text1,text,k,1)
If Option1.Value = True Then
If a >= "a" And a <= "z" Then
ch = ch + UCase(a)
Else If a >= "A" And a < "Z" Then （２）修改为：ElseIf a >= "A" And a < "Z" Then ch = （３）修改为：ch+lcase(a)
Else
ch = ch + a
End If
End If
(4)修改为：nexk k
If Option2.Value = True Then
ch = UCase(Text1)
End If
If Option3.Value = True Then
ch = LCase(Text1)
End If
Next k (5) 此句删除
Text2.Text = ch
End Sub
一、选择题（每小题2分，共50分）
下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
（1）在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
A）工程资源管理器窗口
B) 工具箱窗口
C）代码窗口
D）属性窗口
（2）以下叙述中正确的是
A）窗体的Name属性指定窗体的名称，用来标识一个窗体
B）窗体的Name属性的值是显示在窗体标题栏中的文本
C）可以在运行期间改变对象的Name属性的值
D）对象的Name属性值可以为空
（3）假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是
A）只保存窗体模块文件
B）分别保存窗体模块、标准模块和工程文件
C）只保存窗体模块和标准模块文件
D）只保存工程文件
（4）为了清除窗体上的一个控件，下列正确的操作是
A）按回车键
B）按Esc键
C）选择（单击）要清除的控件，然后按Del键
D）选择（单击）要清除的控件，然后按回车键
（5）以下叙述中错误的是
A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B）当程序运行时，双击一个窗体，则触发该窗体的DblClick事件
C）Visual Basic应用程序只能以解释方式执行
D）事件可以由用户引发，也可以由系统引发
（6）刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是
A）单选按钮
B）图片框
C）通用对话框
D）文本框
（7）设有如下变量声明,为变量TestDate正确赋值的表达方式是
Dim TestDate As Date
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”）
（8）设有如下声明：如果Sgn（X）的值为-1，则X的值是
Dim X As Integer
A）整数 B）大于0的整数 C）等于0的整数 D）小于0的数
（9）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click（）
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X,Y
End Sub
程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为
A） 15 16 B） 15 6
C） 15 15 D） 5 6
（10）设a=3,b=5，则以下表达式值为真的是
A） a>=b And b>10 B）（a>b）Or（b>0）
C）（a<0）And（b>0） D）（-3+5>A）And（b>0）
（11）设有语句x=InputBox（“输入数值”，“0”，“示例”）；程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
A）变量X的值是数值10
B）在InputBox对话框标题栏中显示的是“示例”
C） 0是默认值
D）变量X的值是字符串“10”
（12）从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是
A） Left B） Mid C） String D） Instr
（13）设a=“Visual Basic”，下面使b=“Basic”的语句是
A） b=Left（a,8,12） B） b=Mid（a,8,5）
C） b=Rigth（a,5,5） D） b=Left（a,8,5）
（14）设a=2, b=3, c=4, 下列表达式的值是
Not a<=c Or 4*c=b^2 And b<>a+c
A）-1 B）1 C）True D）False
（15）设a = 5，b = 10，则执行c = Int（（b - a）* Rnd + a）+ 1后，c值的范围为
A）5～10 B）6～9 C）6～10 D）5～9
VB期末考试试题及答案
二、选择题 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" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
VB模拟试题1
一、概念填空题 1．在Visaul Basic中,属性窗口分为四个部分，这四个部分分别是（ 1 ）属性显示方式、属性列表和对当前属性的简单解释。 2．组合框有三种不同的风格，它们分别是：( 2 )、( 3 )和( 4 )。3．VB中，当KeyPress事件发生时会返回一个按键的（ 5 ）值。 4. 时钟控件是有规律地以一定的( 6 )激发计时器事件，而执行相应的代码程序。 5．A = 8，B = 3，C = 5，则表达式A MOD 3 + B^3 / C \ 5的值为（ 7 ）。6．声明一个双精度变量Num5，的声明语句是 ( 8 ) 。 7．有一文本框Text1，为了使该文本框在运行时获取焦点，应执行的语句是（ 9 ）。8．在使用动态数组时，如要改变数组的大小而又不丢失数组中的数据，应使用（ 10 ）关键字。 9．Visual Basic逻辑数据类型只有 True 与 False 两个值。当逻辑数据转换成整型数据时，True 转换为（ 11 ），False转换为（ 12 ）。 10．在Visaul Basic 中依据变量的作用范围将VB变量的作用范围分为三类，它们是：（ 13 ）变量、（ 14 ）变量和（ 15 ）变量。 11．在Visual Basic工程中，拥有多个窗体的程序可用（ 16 ）语句将窗体装入内存，用（ 17 ）语句将指定窗体从内存中删除。 12．在Visual Basic中，当坐标系确定后，如果坐标值前加上关键字Step，则坐标值（X，Y）是（ 18 ）坐标。 13．字符串常量是由任何ASCII字符组成，在程序代码中，它必须由（ 19 ）括起来。 14．如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中（ 20 ）个单选按钮。 二、概念选择题 1．不能触发滚动条Change事件的操作是（）。 A) 拖动滚动条的滑块 B) 单击两端箭头 C) 单击滚动条的滑块 D) 单击滚动条的空白处 2．已知变量x 、y为整数型，且x=4 , y=12 ,s为字符型，且s=“a”，Leble1为标签控件，Leble1的Caption属性值为Label1，下列合法的赋值语句是（）。 A) X= Leble1.Caption B) Leble1.Caption=Str(X) C) X*3=Y D) Y=X*S 3．下列可以将变量A、B的值互换的语句是( )。 A) A=B : B=A B) C=B : B=A ：A=C C) A=C : C=B : B=A D) A=(A+B)/2 ：B=(A-B)/2 4．下列叙述中错误的是（）。 A)VB是采用了事件驱动编程机制。
VB程序设计习题
练习一 一、选择题 1、下面列出的程序设计语言中（A ）是面向问题的语言。 A、机器语言 B、汇编语言 C、高级语言 D、0、1二进制语言 解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言 2、下面列出的程序设计语言中（C ）不是面向对象的语言。 A、C B、C++ C、Java D、VB 3、下列（D ）不属于VB 6.0的版本。 A、学习版 B、专业版 C、企业版 D、共享版 解释：VB6.0共有三个版本：标准版、专业版、企业版。而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。 二、填空题 1、从程序设计语言发展过程的角度来分类，计算机程序设计语言分：机器语言、汇编语言和高级语言。 2、VB 6.0采用了面向对象、事件驱动（可视化编程）的编程机制。 3、启动VB 6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。 练习二 一、选择题 1、如果窗体对象的名称为Forma1，Backcolor是窗体对象的一个属性，用来设置窗体的背景色，那么设置窗体背景色为蓝色的语句正确的是（ A ） A、Forma1.Backcolor=vbBlue B、Backcolor= vbBlue C、Forma1 =vbBlue D、Forma1′s Backcolor is vbBlue. 2、下面方法中，不能打开编码编辑器的是（D） A、单击“视图”菜单中的“代码窗口”命令。 B、双击窗体设计器的窗体或控件。 C、双击窗体设计器的窗体或控件，单击工程资源管理器中的“查看代码”按钮。 D、双击窗体设计器的窗体或控件，单击标准工具栏中的“代码窗口”按钮。 3 、保存VB应用程序时，下列方法中正确的是（Ａ） A、先保存窗体文件，再保存工程文件。 B、先保存工程文件，再保存窗体文件 C、直接保存窗体文件，系统会自动按顺序先保存窗体文件再保存工程文件。 D、直接保存窗体文件，系统会自动按顺序先保存工程文件再保存窗体文件。 二、填空题 1、VB工程文件的扩展名是工程文件(*.vbp)，窗体文件的扩展名是窗体文件(*.frm)。 2、选中工程资源管理器中的窗体对象，再单击按钮可打开窗体设计器。 3、在VB中，按下工具栏中的“启动”按钮或
vb综合考试试题
vb综合考试试题
1303班9月16日第一次综合考试试题 一、单选（本大题共25小题，每小题2分， 共 50分） 1. 设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 2、假设A="Good Morning."，B="Afternoon,Boys."，下列表达式中结果是"Good Boys."的是_ __。 A) Left(A,5)+Right(B,5) B) Right(A,5)+Left(B,5) C) Mid(A,1,5)+Mid(B,1,6) D) Right(A,5)+Right(B,5) 3、下列叙中不正确的是（） A、变量名中的第一个字符必须是字母 B、变量名的长度不超过255个字符 C、变量名可以包含小数点或者内嵌的类型声明 字符 D、变量名不能使用关键字 2
4、下列关于变体类型的描述，其中正确的是 _______。 A. 变体是一种没有类型的数据 B. 变体的空值就表示该变体的值为0 C. 一个变量没有定义就赋值，该变量即为变体 类型 D. 变体是赋给变量某一种类型数据后，就不能 再赋给它另一类型的数值 5、执行 PRINT 18/2*3,-3^2 命令后，输出结 果为_____。 A. 3 9 B. 3 -9 C. 27 -9 D. -9 27 6、下面的_______语句可以实现：先在窗体上 输出大写字母A，然后在同一行的第10列输出 小写字母b。 A. Print "A";Tab(9);"b" B. Print "A";Tab(10);"b" C. Print "A";Space(10);"b" D. Print "A";Tab(8);"b" 3
VB程序设计期末考试复习题
VB复习题 一．选择题 1．使用声明语句建立一个数值型的变量后，VB自动将该变量初始化为（B）。 A．空值 B．0 C．1 D．Null 2．使用声明语句建立一个字符型的变量后，VB自动将该变量初始化为（ A ）。 A．空值 B．0 C．1 D．Null 3．使用声明语句建立一个布尔型的变量后，VB自动将该变量初始化为（A ）。 A．False B．0 C．1 D．True 4．关于 VB 中的运算符，以下说法正确的是（）。 A．“×”是算术运算符，含义是“乘法运算” B．“≠”是关系运算符，含义是“不等于” C．“!”是逻辑运算符，含义是“非” D．“And”是逻辑运算符，含义是“与” 5．对象的三要素是（）。 A．属性、事件、程序 B．属性、事件、方法 C．窗体、事件、程序 D．语句、函数、程序 6．VB中，表达式10<2 Or Not 5>2+6的值为（）。 A．TRUE B．FALSE C．0 D．出错 7．VB中，表达式Mid$("南京工程学院",3,4)的结果是（）。A．"工程学院" B．"京工程学" C．"程学院" D．"工程" 8．在VB中，应用程序被称为（）。 A．工程 B．窗体 C．属性 D．对象 9．VB中，事件Click由（）引发。 A．移动鼠标 B．左键单击鼠标 C．双击鼠标 D．右键单击鼠标 10．VB中，隐藏窗体的方法是（）。 A．Unload B．Stop C．Hide D．Show 11．在Visual Basic中最基本的对象是（），它是应用程序的基石，也是其它控件的容器。 A．文本框 B．命令按钮 C．窗体 D．标签 12．VB窗体文件的扩展名为（）。 A．VBP B．FRM C．BAS D．EXE
2018-1VB程序设计课程试卷
2011-1-VB程序设计课程试卷一、单选题(每题1分,共30分) 1．一只白色的足球被踢进球门,则白色、足球、踢、进球门是______。 A．属性、对象、方法、事件B．属性、对象、事件、方法 C．对象、属性、方法、事件D．对象、属性、事件、方法 2．要对选定的多个控件调整格式,如对齐、调整间距、统一尺寸等,应使用______菜单。 A．格式B．编辑C．视图D．工具 3．要在窗体上显示图片,需设置窗体的______属性。 A．Caption B．Icon C．Picture D．Name 4．将命令按钮的______属性设置为False后,运行时该命令按钮呈灰色不可用。 A．ControlBox B．WindowState C．Visible D．Enabled 5．下列表达式中,值为True的是______。 A．Mid(“ABCD”,2,2)>Left(“ABCD”,2) B．Not(Sqr(4)-3>=-2) C．14/2\3<10 MOD 4 D．Ucase(“abcd”)>=“abcd”6．以下日期型常量合法的是______。 A．”03/25/89”B．#”03/25/89”# C．#03/25/89# D．#25/03/89# 7．表达式12000+”129”&200的值是______。 A．12129200 B．12000129200
C．12329 D．12000329 8．将文本框的______属性设置为True时,文本框可以输入或显示多行文本,且会在输入的内容超出文本框的宽度时自动换行。 A．MultiLine B．Enabled C．ScrollBars D．Max 9．任何控件都具有______属性。 A.T ext B．Caption C．Name D．ForeColor 10．若要将滚动条的最小值设为0,最大值设为255,应对其______属性进行设置。 A．Left和Top B．Width和Height C．SmallChange和LargeChange D．Min和Max 11．窗体上有一个文本框控件Textl,若已存在三个整型变量a、b、C,且三个变量的值分别为5、7、12。以下的______可以使文本框中显示的内容为：5+7=12。 A．Texll.T ext=a+b=C B．Textl.Text=“a+b=C” C．Textl.Text=a&”+”&b&”=“＆c D．Textl.Text=“a”&”+”&”b”&”=“&”c” 12．下列控件中, ______控件没有Caption属性。 A．命令按钮B．标签C．选项按钮D．文本框 13．程序运行时,若要使某一控件不可见,应将其______属性设为False。 A．Enabled B．Caption C．Visible D．Default 14．在设计阶段,双击窗体Forml的空白处,打开代码窗口,显示______事件过程模板。 A．Forml_ Click B．Forml_Load C．Form_Load D．Form_Click
VB程序设计 试题与答案-1
《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。
《VB程序设计》考试题型练习 答案
《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0)
二级VB模拟试题1-1
二级VB模拟试题(1-1) 一、填空题（每空１分，共20分） １、ＶＢ是一种面向_____的可视化程序设计语言，采取了_____的编程机制。 ２、ＶＢ的对象主要分为_____和_____两大类。 ３、若要将窗体Form1隐藏起来，可使用方法_____；若要将窗体Form1显示出来，可使用方法_____来实现。 ４、在ＶＢ集成开发环境中，运行应用程序的方法有三种：一是_____；二是_____；三是_____。 ５、在ＶＢ中若要让某对对象获取焦点，则可通过_____方法来实现。 ６、ＶＢ提供的_____属性，用来控制对象是否可用，当属性值为_____时，表示对象可用，当属性值为_____时，表示对象不可用。 ７、ＶＢ提供的_____属性，用来控制对象是否可见，当属性值为_____时，表示对象可见，当属性值为_____时，表示对象不可见。 ８、在ＶＢ中，用来描述对象外部特征的量称之为对象的_____。 ９、为使某窗口中的命令按钮“取消(C)”具有如下特性：按“Alt＋C”键或按“ESC”键，均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption属性值为_____，并且设置其_____属性值为_____。 二、选择题（每题２分，共40分） １、用于从字符串左边截取字符的函数是（） Ａ、Ltrim( )Ｂ、Trim( )Ｃ、Left( )Ｄ、Instr( ) ２、可获得当前系统日期的函数是（） Ａ、Date( )Ｂ、Time( )Ｃ、IsDate( )Ｄ、Year( ) ３、退出For循环可使用的语句为（） Ａ、Exit ForＢ、Exit DoＣ、End ForＤ、End Do ４、窗体的标题栏显示内容由窗体对象的（）属性决定。 Ａ、BackColorＢ、BackStyleＣ、TextＤ、Caption ５、程序运行时，若要通过回车键调用某命令按钮的Click事件过程，则可设置该命令按钮的（）属性值为True来实现。 Ａ、valueＢ、EnabledＣ、DefaultＤ、Cancel ６、标签框所显示的内容，由（）属性值决定。 Ａ、TextＢ、(名称)Ｃ、CaptionＤ、Alignment ７、文本框的（）属性用于设置或返回文本框中的文本内容。 Ａ、TextＢ、(名称)Ｃ、CaptionＤ、Name ８、计时器控件的（）属性用于设置Timer事件发生的时间间隔。 Ａ、StretchＢ、IntervalＣ、valueＤ、Length ９、滚动条的（）属性用于返回或设置滚动条的当前值。 Ａ、ＶalueＢ、MaxＣ、MinＤ、Data 10、若要向列表框添加列表项，可使用的方法是（） Ａ、AddＢ、RemoveＣ、ClearＤ、AddItem 11、图像框或图片框中显示的图形文件，由它们的（）性性值决定。 Ａ、DownPictureＢ、PictureＣ、ImageＤ、Icon 12、以下不属于键盘事件的是（） Ａ、KeyDownＢ、KeyUpＣ、UnloadＤ、KeyPress
《VB程序设计》综合复习资料习题
《VB程序设计》综合复习资料习题
《VB程序设计》综合复习资料 第一章Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__________环境下的应用程序。 二、选择题 1、下面不是VB工作模式的是（） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（） A．可视化B．面向对象C．面向图形D．事件驱动 三、简答题 1、代码窗口主要包括哪几部分？ 第 2 页共 32 页
2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？ 第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。 二、选择题 1、以下能够触发文本框Change事件的操作是（） A．文本框失去焦点B．文本框获得焦点 C．设置文本框的焦点D．改变文本框的内容 2、应用程序设计完成后，应将程序保存，保存的过程是（） A．只保存窗体文件即可 B．只保存工程文件即可 第 3 页共 32 页
VB期末考试试题
第一部分：客观题 1、 单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ ） A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（ ）方法来实现。 Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value 4、下列不可作为VB变量名的是（ ） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是 （ ） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（ ） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（ ） Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick 9、下列为整型变量的是（ ） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是 （ ） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0
《VB程序设计》期末考试试卷(A)附答案
******学院 2009-2010学年第二学期 《VB程序设计》期末考试试卷（A）附答案 一、选择题（2分/题，共60分） （1）要设置窗体上各控件的属性，可以在＿＿＿中进行。 A“窗体布局”窗口B“工程资源管理器”窗口 C“属性”窗口D“对象”窗口 （2）下面程序段＿＿＿能够正确实现目的：如果x （5）双击窗体中的对象后，VB将显示的窗口是＿＿＿。 A工具箱B“工程”窗口 C“代码”窗口D“属性”窗口 （6）下列程序段的执行结果是＿＿＿。 X=int(Rnd()+4) Selectcasex Case5 Print“优秀” Case4 Print“良好” Case3 Print”通过” Caseelse Print”不通过” Endselect A优秀B良好 C通过D不通过 （7）下列哪个不是窗体的属性＿＿＿。 ACaptionBText CControlBoxDBorderStyle （8）设组合框Combo1中有3个项目,则以下能删除最后一项的语句是＿＿＿。 ACombo1.RemoveItemTextBCombo1.RemoveItem2 CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount （9）窗体BorderStyle属性的功能是＿＿＿。 A设置窗体的边框大小 B设置窗体的边框样式，是否显示标题栏，是否可以调整大小等 C决定是否显示窗体的控制菜单图标与状态控制按钮 D决定窗体的最大化或最小化按钮是否有效 （10）下列可作为VB的变量名的是＿＿＿。 一、单选题（每题1分，共76题） 1.以下关于窗体的描述中错误的是（） A. 在VB中每次运行时可以指定不同的启动窗体 B. 要让窗体以最大化方式打开，应设置MaxButton属性值为True C. 窗体第一次显示时也会发生Resize事件 D. 第一次显示时窗体的位置可以不是设计时所指定的位置 2.执行多窗体应用程序时，（） A. 打开一个窗体后，其他窗体都会被关闭 B. 允许同时打开多个窗体 C. 打开一个窗体后，其他窗体都会被隐藏起来 D. 在某一时刻只能打开一个窗体 3.程序中要在文本框文本中插入一段文字，应当使用的属性是（） A. SelText B. Name C. Text D. Caption 4. 在用户的应用程序执行期间发生，比如单击鼠标或按键盘中的键（） A. 方法 B. 属性 C. 事件 D. 工程 5.当一个工程中含有多个窗体时，其中的启动窗体是（） A. 启动VB时建立的窗体 B. 第一个添加的窗体 C. 最后一个添加的窗体 D. 在工程属性窗口中指定的窗体 6.当新建一个工程并启动Visual Basic后，工具箱中的控件是（） A. 内部控件 B. Active X控件 C. 内部控件和Active X控件 D. 内部控件或Active X控件 7.启动Visual Basic后，就意味着要建立一个新的（） A. 窗体 B. 程序 C. 工程 D. 文件 8.下面是字符串数据的类型声明字符（） A. % B. $ C. & D. ! 9.对象是将数据和操作起来的逻辑实体（） A. 封装 B. 串接 C. 连接 D. 伪装 10.下面属性用于显示对象的标题（） A. Text B. Caption C. Name(名称) D. ForeColor 九年级期末VB 考试试卷 班级：学号：姓名： 123456789101112131415 一、选择题（每题两分，共十五题） 1.下列叙述中正确的是 (c) A. 只有窗体才是VB中的对象 B.只有控件才是VB中的对象 C. 窗体和控件都是VB中的对象 D.窗体和控件不是VB中的对象 2. 下列可以激活属性窗口的操作是(D) A. 用鼠标双击窗体的任何部位 B.执行“工程”菜单中的“工具箱”命令 C. 按 Ctrl+F4 键 D.按F4键 3. 下列不能打开工具箱窗口的操作是(B) A. 执行“视图”菜单中的“工具箱”命令 B.按 Alt+F8键 C. 单击工具栏上的“工具箱”按钮 D.按 Alt+V键，然后按 Alt+X键 4.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先 应执行的操作是 (A) A. 单击窗体上没有控件的地方 B.单击任一个控件 C. 不执行任何操作 D.双击窗体的标题栏 5. 为了把窗体上的某个控件变为活动的，应执行的操作是(C) A. 单击窗体的边框 B.单击该控件的内部 C. 双击该控件 D.双击窗体 6. 确定一个控件在窗体上的位置的属性是(D) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 7. 确定一个窗体或控件的大小的属性是(B) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 8. 为了同时改变一个活动控件的高度和宽度，正确的操作是( B) A. 拖拉控件 4 个角上的某个小方块 B.只能拖拉位于控件右下角的小方块 C. 只能拖拉位于控件左下角的小方块 D.不能同时改变控件的高度和宽度 《VB程序设计》期末模拟试卷 一、单项选择 （b ）1．被对象所识别的动作与对象可执行的动作分别称为对象的___________。 A．方法、事件 B．事件、方法 C．事件、属性 D．过程、属性 （ c）2．下列________是Single型变量。 A．Time% B．Name$ C．Sheight! D．CXYZ& （a ）3．以下四个VB的变量名中，合法的是____________。 A．X23 B．$Re C． Len D．3xy （ d）4．在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是________。 A. str1是整型，str2是长整型 B. str1是长整型，str2变体型 C. str1、str2都是长整型 D. str1是变体型，str2是长整型 （b ）5．表达式(&O36>31) and (“A”>”B”) 的结果是 ____________。 A．True B．False C．”&O3631AB” D．&O3631 （c ）6．表达式“100” + 100 和表达式“100” & 100的值分别是 ____________。 A．200、200 B．“100100”、“100100” C．200、“100100” D．“100100”、200 （b ）7．以下语句执行时，从键盘上输入Zhao，并按回车键。执行结果是________。 Dim a As String A=InputBox("Input", "", "Name") Print a A．Input B．Zhao C．Name D．空字符串 （b）8．语句Print 4 + 5 \ 6 * 7 / 8 Mod 9的运行结果是________。 A．4 B．5 C．6 D．7 （ d）9．在窗体的通用段声明变量时，不能使用__________ 关键字。 A．Dim 中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型 1303班9月16日第一次综合考试试题 一、单选（本大题共25小题，每小题2分，共 50分） 1. 设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 2、假设A="Good Morning."，B="Afternoon,Boys."，下列表达式中结果是"Good Boys."的是_ __。 A) Left(A,5)+Right(B,5) B) Right(A,5)+Left(B,5) C) Mid(A,1,5)+Mid(B,1,6) D) Right(A,5)+Right(B,5) 3、下列叙中不正确的是（） A、变量名中的第一个字符必须是字母 B、变量名的长度不超过255个字符 C、变量名可以包含小数点或者嵌的类型声明字符 D、变量名不能使用关键字 4、下列关于变体类型的描述，其中正确的是_______。 A. 变体是一种没有类型的数据 B. 变体的空值就表示该变体的值为0 C. 一个变量没有定义就赋值，该变量即为变体类型 D. 变体是赋给变量某一种类型数据后，就不能再赋给它另一类型的数值 5、执行 PRINT 18/2*3,-3^2 命令后，输出结果为_____。 A. 3 9 B. 3 -9 C. 27 -9 D. -9 27 6、下面的_______语句可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。 A. Print "A";Tab(9);"b" B. Print "A";Tab(10);"b" C. Print "A";Space(10);"b" D. Print "A";Tab(8);"b" 7、语句Print Format（"HELLO", "<"）的输出结果是______。 A. HELLO B. hello C. He D. he 8、如果X是一个正的实数，将千分位四舍五入，保留两位小数的表达式是 a) 0.01*int(x+0.05) b) 0.01*int(100*(x+0.005)) c) 0.01*int(100*(x+0.05)) d) 0.01*int(x+0.005) 9、变量未赋值时，数值型变量的值为( ) a) 0 b) 空 c) 1 d) 0.1 10、A=5，B=8，则(B-A)*Rnd+A的结果是介于______之间的数。 A. 5～8 B. 0～5 C. 3～5 D. 0～3 11、若x=5,y=6,则表达式x+y=11的值是_____。 a) x+y=11 b) 11 c) True d) False 12、下列过程中对形参的定义正确的是( ) VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D). A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhileVB考试题目1
初三_vb期末考试试卷+答案
VB程序设计期末模拟试卷
[整理]VB程序设计复习题及答案.
vb综合考试试题
VB考试题及答案