vb选择填空题
1 设工程文件包含两个窗体文件、及一个标准模块文件。两个窗体上分别只有一个名称为Command1的命令按钮。
Form1的代码如下：
Public x As Integer
Private Sub Form_Load()
x=1
y=5
End Sub
Private Sub Command1_Click()
End Sub
Form2的代码如下：
Private Sub Command1_Click()
Print , y
End Sub
Module1的代码如下：
Public y As Integer
运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是__1 5____
2 在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(KeyAscii As Integer)
......
End Sub
假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是按下键盘上的某个键_。
3 单击窗体时，下列程序代码的执行结果为__23 47____。
Private Sub Form_Click()
Test 2
End Sub
Private Sub Test(x As Integer)
x = x * 2 + 1
If x < 6 Then
Call Test(x)
End If
x = x * 2 + 1
Print x;
End Sub
4 在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1）。
编写如下程序
Private Sub Form_Load()
=""
=""
=""
End Sub
Private Sub Command1_Click()
x=Val
y=Val
=f(x,y)
End Sub
Function f(ByVal x As Integer,ByVal y As Integer)
Do While y<>0
tmp=x Mod y
x=y
y=tmp
Loop
f=x
End Function
运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是__8___。计算两个数的最大公约数
6 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
For i=1 To 10
a(i)=i
Next
Call swap(_a_____)
For i=1 To 10
Print a(i);
Next
End Sub
Sub swap(b() As Integer)
n=___10___
For i=1 To n/2
t=b(i)
b(i)=b(n)
b(n)=t
__n=n-1____
Next
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
1 假定有如下程序，实现在文件中查找指定的字符串：
Private Sub Form_Click()
Q$ = InputBox$("请输入要查找的字符串：")
Open "C:\test\" For Input As #1
x$ = Input$(LOF(1), 1) '把整个文件内容读入变量X$中
Close
y = instr(1, x$, Q$)
If y <> 0 Then
Print "找到字符串"; Q$
Else
Print "未找到字符串"; Q$
End If
End Sub
2 执行下列语句后，输出的结果是0、abcdefghijk。（
s$="ABCDEFGHIJK"
print instr(S$,"efg")
print lcase$(S$)
解析：InStr函数返回Variant(Long)，指定一字符串在另一字符串中最先出现的位置。
语法 InStr([start, ]string1, string2[, compare])LCase$(string)返回转成小写的String。语法LCase(string)函数将参数字符串中大写字符全部转化为小写。必要的string 参数可以是任何有效的字符串表达式。如果string包含Null，将返回Null。
1.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num +
Loop
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是_1,3,5。
2.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim c As Integer, d As Integer
d = 0
c = 6
x = Array(2, 4, 6, 8, 10, 12)
For i = 1 To 6
If x(i) > c Then
d = d + x(i)
c = x(i)
Else
d = d - c
End If
Next
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为__12____。
解析：Array函数是为数组赋值，而Option Base 1是用来设置数组下标是从1开始。本题中，
由于刚开始c 的值为6，故前三个数组值不大于c ，执行三次d = d - c ，d=-18；而后三个数组值都大于c ，执行三次d = d + x(i)，d=-18+8+10+12=12。 3. 在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show = "" 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"键，然后单击窗体，则在窗体上显示的内容是__Visual Basic 程序
设计____。
解析：为程序一运行，文本框Text1获得焦点，按下"A"键后，执行Text1_KeyDown 事件，在窗体上显示"Visual Basic"；这时再单击窗体，则触发Form_MouseUp 事件，在窗体上显示"程序设计"。所以本题答案是D 。
4.窗体上命令按钮Command1的事件过程如下： Private Sub Command1_Click() Dim total As Integer total=s(1)+s(2) Print total End Sub
Private Function s(m As Integer) As Integer Static x As Integer For i=1 To m x=x+1 Next i s=x
End Function
运行程序，第3次单击命令按钮Command1时，输出结果为___16___。
6.在n 个运动员中选出任意r 个人参加比赛，有很多种不同的选法，选法的个数可以用公式
!)!(!
r r n n 计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text 。程序运行时在
Text1、Text2中分别输入n 和r 的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中（见下图）。请填空。
Private Sub Command1_Click()
Dim r As Integer, n As Integer
n = Text1
r = Text2
Text3 = fun(n) / fun( n-r ) / fun(r)
End Sub
Function fun(n As Integer) As Long
Dim t As Long
T=1
For k = 1 To n
t = t * k
Next
fun = t
End Function
11. 设有如下程序：
Private Sub Form_Click()
Cls
a$="ABCDFG"
For i=1 To 6
Print Tab(12-i);Mid(a$,7-i)
Next i
End Sub
程序运行后，单击窗体，结果如图所示，请填空。
6 （1）在考生文件夹下有一个工程文件，相应的窗体文件为。在窗体上有一个命令按钮，其名称为Command1，标题为“添加”；有一个文本框，名称为Text1，初始内容为空白；此外还有一个列表框，其名称为List1。程序运行后，如果在文本框中输入一个英文句子（由多个单词组成，各单词之间用一个空格分开），然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图所示。该程序不完整，请把它补充完整。
要求：去掉程序中的注释符，把程序中的改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
第一题主要考查了对字符串的操作，包括Mid与Len函数：
Mid(s,i,n)是返回字符串s中从第i个字符开始的连续n个字符组成的字符串；Len(s)是返回变量s的长度（字节数）。同时还考查了Do循环语句及ListBox控件的使用：
Do语句结构如下：Do [While 条件表达式|Until条件表达式]
语句[Exit Do] Loop或Do 语句[Exit Do]Loop[While 条件表达式|Until条件表达式] Private Sub Command1_Click()
Dim S1 As String, S2 As String
Dim I1 As Integer
S1 = 0
I1 = 1
Do
Do While Mid(S1, I1, 1) <> "" And I1 <= Len(S1)
S2 = S2 & Mid(S1, I1, 1)
I1 = I1 + 1
Loop
' S2 = ""
I1 = I1 + 1
Loop While I1 <= Len(S1)
End Sub
（2）在考生文件夹下有一个工程文件，相应的窗体为。窗体中有一个名称为Command1的命令按钮和一个名称为Timer1的计时器。请在窗体上画一个标签（名称为Label1，标题为“请输入一个正整数”）、再画一个文本框（名称为 Text1，初始内容为空白）。已经给出了相应的事件过程。程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可使文本框中的数字每隔秒减 1（倒计数）；当减到0时，倒计数停止，清空文本框，并把焦点移到文本框中。
要求：去掉程序中的注释符，把程序中的改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
第二题主要检查了Timer控件的使用，在Timer中可用Enable来控制计时器的开启与关闭，同时可在其Timer事件中设置触发事件的时间间隔。
Private Sub Command1_Click()
= True
End Sub
Private Sub Timer1_Timer()
' If Val() = 0 Then
= ""
' Timer1. = False
' Text1.
Else
= Str(Val - 1)
End If
End Sub
（1）在考生文件夹下有一个工程文件，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图所示。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。要求： 1）依次添加单选按钮标题为“北京”、“上海”、“广州”；设初始选中的是“广州”，添加命令按钮标题为“显示” 2）去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。
最后把修改后的文件按原文件名存盘。
Private Sub C1_Click()
For i = 0 To
' If Op1(i).Value = True Then
' Print "我的出生地是" + Op1(i).Caption”
End If
Next
End Sub
（2）在考生文件夹下有一个工程文件，请在Form1窗体中画三个标签，名称分别为B1、B2、L1，标题分别为“字号”、“字体”、“计算机等级考试”，其中L1的高为500，宽为3000；再在B1、B2标签的下面画两个组合框，名称分别为Cb1、Cb2，并为Cb1添加项目：“10”、“15”、“20”，为Cb2添加项目：“黑体”、“隶书”、“宋体”,以上请在设计时实现。请编写适当的事件过程，使得在运行时，当在Cb1中选一个字号、在Cb2中选一个字体，标签L1中的文字立即变为选定的字号和字体。如图所示。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一个字号和字体。必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘，程序中不能使用任何变量。
Private Sub Combo1_Change()
L1. FontSize =
End Sub
Private Sub Combo2_Change()
L1. FontName =
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Long, j As Long
Open "" For Output As #1
For i = 0 To - 1
= i
For j = 0 To - 1
= j
Print #1, & & CInt &
Next j
Next i
Close #1
End Sub
第二题考查对ComboBox的了解,ComboBox控件将TextBox控件和ListBox控件的特性结合在一起－既可以在控件的文本框部分输入信息，也可以在控件的列表框部分选择一项。
为了添加或删除ComboBox控件中的项目，需要使用AddItem或RemoveItem方法。设置List、ListCount、和ListIndex 属性，使访问ComboBox中的项目成为可能。也可以在设计时使用List属性将项目添加到列表中。本题要求在设计时添加ComboBox的Click事件是在按下箭头键或者单击鼠标按钮，对ComboBox或 ListBox控件中的项目进行选择时发生的。理解这个就可以把变化字体和字号写入相应的ComboBox的Click事件中。
1 运行如下程序段：
x = 1
y = 1
z = 1
For j = 1 To 3
For k = 1 To 3
If j = 1 Then
x = x + y + z
ElseIf j = 2 Then
x = 2 * x + 2 * y + 2 * z
Else
x = 3 * x + 3 * y + 3 * z
End If
Next k
Next j
x的值应是。2346
2 在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click()
Dim str As String, s As String, c As String
str = UCase(Text1)
s = ""
c = "Z"
While c >= "A"
If InStr(str, c) = 0 Then
s =s+c
End If
c = Chr$(Asc(c)-1)
Wend
If s <> "" Then
Text1 = s
End If
End Sub
5 设有如下程序
Private Sub search(a As Variant,ByVal Key As Variant,index%)
Dim i%
For i=LBound(a) To UBound(a)
If key=a(i) Then
index=i
Exit Sub
End If
Next i
index=-1
End Sub
Private Sub Form＿Load()
Show
Dim b As Variant
Dim n As Integer
b=Array(1,3,5,7,9,11,13,15)
Call search(b,11,n)
Print n
End Sub
程序运行后，输出结果是___5___
6 下面程序的输出结果是 FEDCBA
Private Sub Command1_Click()
ch$="ABCDEF"
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
s=""
For k=Len(ch) To 1 Step -1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub
7 假定有如下程序，实现在文件中查找指定的字符串：
Private Sub Form_Click()
Q$ = InputBox$("请输入要查找的字符串：")
Open "C:\test\" For Input As #1
x$ = Input$(LOF(1), 1) '把整个文件内容读入变量X$中
Close
y = _instr(1, x$, Q$)
If y <> 0 Then
Print "找到字符串"; Q$
Else
Print "未找到字符串"; Q$
End If
End Sub
请在上面划线处将程序补充完整。
8 以下程序的功能是:从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。
Private Sub Form_click()
Dim x, y As Single
Dim z As Integer
x = InputBox("Enter a score")
Do while x>=0
y = y + x
z = z + 1
x = InputBox("Enter a score")
Loop
If z = 0 Then
z = 1
End If
y = _y/z_____
Print y
End Sub
9 下述定义中的函数所计算的数学表达式是A(0)+A(1)*x+A(2)*x^2+…
+A(N-1)*x^(N-1)+A(N)*x^N，请填空。
FUNCTION Fun(A(),N,x)
S=0
FOR k=N TO 0 STEP -1
S=___S*x+A(k)_________
NEXT
Fun=S
END FUNCTION
10 （1）在考生文件夹下有一个工程文件，请在窗体上画两个单选按钮（
名称分别为Option1和Option2，标题分别为“添加项目”和“删除项目”
），一个列表框（名称为List1）和一个文本框（名称为Text1），如图1
所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目”
单选按钮，然后单击窗体，则从键盘上输入要添加的项目（内容任意，不
少于三个），并添加到列表框中；如果选择“删除项目”单选按钮，然后
单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的
运行情况如图2所示。
在考生文件夹下的工程文件（相应的窗体文件名为），
可以实现上述功能。但这个程序不完整，请把它补充完整。
要求：
去掉程序中的注释符，把程序中的改为适当的内容，使其正确运行，
但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
图1 图2
打开工程文件和相应的窗体文件名为，点击工具箱中的ListBox和TextBox控件图标，然后在窗体上拖拉出一个列表框、一个文本框和两个单选按钮并根据题意设置相关属性。打开代码窗口，补充如下的代码：
Private Sub Form_Click()
If = True Then
= InputBox("请输入要添加的项目")
End If
If = True Then
= InputBox("请输入要删除的项目")
For i = 0 To - 1
i
End If
Next i
End If
End Sub
按要求保存文件即完成本题。
（2）在考生文件夹下有一个工程文件（相应的窗体文件名为
），其功能是通过调用过程Sort将数组按降序排序，请装入该文件。程序
运行后，在四个文本框中各输入一个整数（如图1所示），然后单击命令
按钮，即可使数组按降序排序，并在文本框中显示出来（如图2所示）。
这个程序不完整，请把它补充完整，并能正确运行。
要求：
去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功
能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存
盘。
图1
本题的考查的是数组的应用，通过调用过程Sort将数组按降序排序，Ubound()函数是用来获得数组的上界，Lbound()函数是获得数组的下界，打开工程文件和相应的窗体文件名为，在代码窗口中补充如下代码：
Private Sub Sort(a() As Integer)
Dim Start As Integer, Finish As Integer
Dim i As Integer, j As Integer, t As Integer
Start = LBound(a)
Finish = UBound(a)
For i = Finish To 2 Step -1
For j = 1 To Finish - 1
If a(j) t = a(j + 1) a(j + 1) = a(j) End If Next j Next i End Sub 1 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() ="Visual" ="Basic" Text1="Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是___Program___。 2 下列程序段的执行结果为__2 4____。 A = 0: B = 0 For I = -1 To -2 Step -1 For J = 1 To 2 B = B + 1 Next J A = A + 1 Next I Print A; B 3 编写如下事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 2 Then Print "BBBB" End If End Sub 程序运行后，为了在窗体上输出“BBBB”，应执行的操作为___同时按下Ctrl、Alt键和鼠标右键___。 4 设有如下程序 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox("输入数据") If n<10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b() As Integer,n As Integer) Dim c(10) As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub 以下叙述中错误的是___GetArray过程的参数n是按值传送的___。 5 以下程序在文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中。Private Sub Command1_Click() Dim N As String, D As String N = M=__Len(Text1)____ For i = M To 1 Step -1 c = Mid(N, i, 1) D=D & __C____ Next i =D End Sub 6 以下程序用来输出20个在开区间（10,87）中的随机整数R，每行输出4个整数。Private Sub Command1_Click() For i = 1 To 20 R=__Int(Rnd*76+11)____ Print r; If __I Mod4=0____ Then Print Next i End Sub 7 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a = 0 For i = 1 To 2 For j = 1 To 4 If j Mod 2 <> 0 Then a = a + 1 End If a = a + 1 Next j Next i Print a End Sub 程序执行后，单击命令按钮，输出结果是__12____。 8 1 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上建立一个名称为Cmd1，宽度为1500，高度为500，标题为"显示"的命令按钮（如图所示），编写适当的事件过程。要求程序运行后，如果单击"显示"命令按钮，则在窗体上显示"祝你考试成功"运行结果如图所示（要求：不要使用任何变量，直接显示字符串）。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为，工程文件名为。 1、新建一个工程，在窗体上添加一个名为"Cmd1"的按钮，单击这个按钮在属性窗口中选择Width填入1500，Height为500，Caption为"显示"，双击这个按钮在弹出的代码窗口中写入" "祝你考试成功""，然后以文件名和保存 （2）在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2，标题分别为"必修课"、"选修课"的命令按钮，编写适当的事件过程。要求程序运行后，如果单击"必修课"命令按钮，在窗体上显示"高等数学必修课"；如果单击"选修课"命令按钮，在窗体上显示"多媒体技术选修课"（要求：不要使用任何变量，直接显示字符串）。 保存时必须存放在考生文件夹下，窗体文件名为，工程文件名为。 、新建一个工程，在窗体上添加两个名为"Cmd1"和"Cmd2"的按钮，双击按钮"Cmd1"在弹出的代码窗口中写入" "高等数学必修课""，双击按钮"Cmd2"在弹出的代码窗口中写入" "多媒体技术选修课""，然后以文件名和保存。 1 下列程序段的执行结果为_14 6 3_____。 S = 0: T = 0: U = 0 For X = 1 To 3 For Y = 1 To X For Z = Y To 3 S = S + 1 Next Z T = T + 1 Next Y U = U + 1 Next X Print S; T; U For--Next循环嵌套： 跟踪程序： 外循环一共执行了三次，所以U=3； 第二层循环在外循环的带动下，一共执行了1+2+3=6次，所以T=6； 内循环在第二层循环的第一次循环时，循环3次；在第二层循环的第二次循环中，执行3+2=5 次；在第二层循环的第三次循环中，执行3+2+1=6次，所以内循环一共执行了3+5+6=14次。 最后结果为： 14 6 3。 2 在窗体上画1个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click() Print fun("ABCDEFG") End Sub Function fun(st As String) As String stlen=Len(st) temp= "" For k=1 To stlen/2 temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1) Next k fun=temp End Function 程序运行时，单击命令按钮，则在窗体上显示的是___AGBFCE___。 Mid(字符串,p,n)：从第p个字符开始，向后截取n个字符。p和n都是算术表达式。"+"：字符串连接运算符，将两个字符串按顺序连接起来。Len(string)：返回String字符串内字符的数目，或是存储一变量所需的字节数。此函数过程中stlen=7，循环的次数是3，第一次循环得到temp的值是AG，第二次循环得到temp的值是AGBF，第三次循环得到temp 的值是AGBFCE。 3 以下程序段运行的结果是：_35_____。 Dim a(-1 To 5) As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True For i = -1 To 5 j = j + 1 If a(i) = False Then a(i) = True Exit For End If If i = 5 Then flag = True End If Next Loop Print j 4 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1_Click() Dim x, y, z As Integer x = 5 y = 7 z = 0 = "" Call P1(x, y, z) = Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是___12___。 5 把窗体的KeyPreview属性设置为True，并编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print KeyCode; End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub 程序运行后，如果按下A键，则在窗体上输出的数值为__65____和__97____。 6 单击窗体时，程序运行的结果是：__240960____ Private Sub Form_Click() multi 20, 3 End Sub Public Sub multi(k As Integer, s As Integer) If k < 50 Then k = k * s Call multi(k, s) End If k = k + k * s Print k; End Sub 7 设有如下程序： 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 Print a(5 - i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是_6 5 4 3_____。 8 下列程序段的执行结果为__2 4____。 A = 0: B = 0 For I = -1 To -2 Step -1 For J = 1 To 2 B = B + 1 Next J A = A + 1 Next I Print A; B 9 设有如图所示窗体和以下程序： Private Sub Command1_Click() ="Visual Basic" End Sub Private Sub Text1_LostFocus() If <>"BASIC" Then ="" End If End Sub 程序运行时，在Text1文本框中输入"Basic"（如图所示），然后单击Command1按钮，则产生的结果是__文本框中无内容，焦点在文本框中____。 10 在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click( ) Dim i As Integer Sum=0 n=InputBox("Enter a number") n=Val(n) For i=1 To n Sum=__sum+fun(i)____ Next i Print Sum End Sub Function fun(t As Integer) As Long p=1 For i=1 To t p=p*i Next i _fun=p_____ End Function 以上程序的功能是，计算1!+2!+3!+...+n!，其中n从键盘输入，请填空。 11 在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程： Private Sub Form_Load() Show = "" = "" End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) = + Chr(KeyCode - 4) End Sub 程序运行后，如果在Text2文本框中输入"efghi"，则Text1文本框中的内容为__ABCDE____。 12 在考生文件夹下有一个工程文件。窗体中已经给出了所有控件（如图所示）。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生文件夹下的文件中的一个整数放入Text1；单击“计算”按钮，则计算出大于该数的第1个素数，并显示在Text2中；单击“存盘”按钮，则把找到的素数存到考生文件夹下的文件中。 注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入文件，否则无成绩。最后把修改后的文件按原文件名存盘。 Private Sub Command1_Click() Open "" For Input As #1 Input #1, a% = a% Close #1 End Sub Private Function Check(i As Integer) As Boolean For j = 2 To CInt(Sqr(i)) + 1 If i Mod j = 0 Then Check = False Exit Function End If Next j Check = True End Function Private Sub Command2_Click() Dim i As Integer i = CInt If i Mod 2 = 0 Then i = i + 1 Else i = i + 2 End If Do Until Check(i) i = i + 2 Loop = i End Sub Private Sub Command3_Click() Open "" For Output As #1 Print #1, Close #1 End Sub 13 在名称为Form1的窗体上画两个命令按钮（见图1），其名称分别为Cmd1 和Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮Cmd1，则 可使该按钮移到窗体的左上角（只允许通过修改属性的方式实现）；如果 单击命令按钮Cmd2，则可使该按钮在长度和宽度上各扩大到原来的2倍。 程序的运行情况如图2所示。 Private Sub Cmd1_Click() = 0 = 0 End Sub Private Sub Cmd2_Click() = * 2 = * 2 End Sub 14 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如 大学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/3510031936.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 所有填空题 1、VB6.0是运行于______操作系统环境下的一个快速可视化程序开发工具，用它进行程序设计，有两个基本的特点，即______和______。 答案：1：Windows9x/NT#Windows9x/NT#Windows9x\NT#Windows9x\NT#Windows9x#Windows NT#Windows9x#WindowsNT#windows9x/NT#windows9x/NT#windows9x\NT#windows9x\NT#windows9x#windows NT#windows9x#windowsNT 2：事件驱动编程#可视化设计 3：可视化设计#事件驱动编程 等级：1难度：1 知识点：VB知识点/VB简介 2、VB是一种面向______的可视化编程语言，它采用______的编程机制。 答案：1：对象 2：事件驱动 等级：1难度：1 知识点：VB知识点/VB的编程环境 3、在VB集成开发环境中，运行应用程序的方法有两种：______或______。 答案：1：编译运行模式#解释运行模式#编译运行#解释运行 2：解释运行模式#编译运行模式#解释运行#编译运行 等级：1难度：1 知识点：VB知识点/VB简介 4、VB的对象主要分为______和______两大类。 答案：1：窗体#控件 2：控件#窗体 等级：1难度：1 知识点：VB知识点/VB的对象、属性、方法和事件 5、VB中，用来描述一个对象的状态或特征的量称之为对象的______。 答案：1：属性 等级：1难度：1 知识点：VB知识点/VB的对象、属性、方法和事件 6、在VB中，最基本的对象是______。 答案：1：窗体 等级：1难度：1 知识点：VB知识点/VB的对象、属性、方法和事件 7、一个对象响应某个事件后所执行的操作是通过一段程序代码来实现，这段程序代码称______。 答案：1：事件过程 等级：1难度：1 第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C ) 一、单选题（每小题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 程序填空〖第1题〗『程序填空』(1分)(题号:59) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- ' 功能：输入一个数,若大于0,则显示"+"；若小于0， ' 则显示 "-"；若等于"0",则显示"零"。 '------------------------------------------------------- Private Sub Command1_Click( ) x = Val Select Case x '**********SPACE********** Case is > 0 = "+" Case Is < 0 '**********SPACE********** = "-" '**********SPACE********** Case is = = "零" End Select End Sub 答案： 1). Case Is > 0 2). = "-" 3). Case 0 或 Case Else 或 Case Is = 0 〖第2题〗『程序填空』(1分)(题号:60) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能：输入任何一个英文字母x, ' 若x的值为"a","c","d-f" ,则显示x的大写字母； ' 若x的值为"m","o","p-z",则显示x的小写字母； ' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。 '------------------------------------------------------- Private Sub Command1_Click() x = '**********SPACE********** 【】 '**********SPACE********** Case 【】 = UCase(x) Case "m", "o", "p" To "z" = LCase(x) Case Else '**********SPACE********** 【】 End Select End Sub 答案： 1). Select Case x 2). "a", "c", "d" To "f" 3). = Trim(x) + "a" 或 = x + "a" 〖第3题〗『程序填空』 第5章数组与记录 5．1 填空题 1．若要定义一个包含10个字符串元素，且下界为1的一维数组s，则数组说明语句为（）。 答案：Dim s(1 To 10) As String 2．若要定义一个元素为整型数据的二维数组a，且第一维的下标从0到5，第二维下标从-3到6，则数组说明语句为（）。 答案：Dim a(0 To 5,-3 To 6) As Integer 3．如果数组元素的下标值为实数，则VB系统会按（）进行处理。 答案：四舍五入原则 4．数组元素个数可以改变的数组称为（）；数组元素可以存放不同类型数据的数组称为（）。 答案：可调数组、可变类型数组 5．数组刷新语句用于（）。若被刷新的数组是数值数组，则把所有元素置（）；若被刷新的数组为字符串数组，则把所有元素置（）。 答案：清除指定数组内容、０、空字符串 10．控件数组是由一组类型和（）相同的控件组成，共享（）。 答案：名字、同一个事件过程 11．控件数组中的每一个控件都有唯一的下标，下标值由（）属性指定。 答案：Index 12．建立控件数组有两种方法：（）和（）。 答案：在设计阶段通过相同Name属性值来建立、在程序代码中使用Load方法 5．2 选择题 1．下列一维数组说明语句错误的是（）。 a) Dim b(100) AS Double b) Dim b(-5 To 0) AS Byte c) Dim b(-10 To –20) AS Integer d) Dim b(5 To 5) AS String 答案：c 2．若有数组说明语句为：Dim a(-3 To 8)，则数组a包含元素的个数是（）。 a) 5 b) 8 c) 11 d) 12 答案：d 3．设有数组说明语句：Dim c(1 To 10)，则下面表示数组c的元素选项中（）是错误的。 a) c(i-1) b) c(5+0.5) c) c(0) d) c(10) 答案：c 4.下列数组说明语句中正确的是（）。 a) Dim a(-1 To 5,8)AS String b) Dim a(n,n)AS Integer c) Dim a(0 To 8,5 To –1)AS Single d) Dim a(10,-10)AS Double 一、选择题 1．在设计应用程序时，可以查看到应用程序工程中的所有部分的窗口是（）。 A．窗体设计．代码C．属性D．工程资源管理器窗口>> 答案：d 2．窗体的Load事件的触发时机是（）。 A．用户单击窗体时B．窗体被加载时C．窗体显示之后D．窗口被卸载时>> 答案：ｂ 3．与传统的程序设计语言相比，Visual Basuc最突出的特点是（）。 A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术 答案：C 4．VB6.0集成开发环境的主窗口不包括（）。 A．标题栏B．菜单栏C．状态栏D．工具栏 答案：c 5．如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（）。 A．Text.Mytext B．Mytext.text C．Mytext.（Text）D．Mytext*Text 答案：b 6．下列可以激活属性窗口的操作是（）。 A．用鼠标双击窗体的任何部位B．执行“工程”菜单中的“属性窗口”命令C．按Ctrl+F4 D．按F4键 答案：b d 7．假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应制造的操作是（）。 A．单击窗体上没有控件的地方B．单击任一个控件C．不执行任何操作D．双击窗体的标题栏 答案：a 8．如果在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（）属性。 A．Caption B．PasswordChar C．Text D．Char 答案：b 9．如果想让文本框中的内容在运行时不能编辑，需将文本框的（）属性设置为True。 A．Locked B．MultiLine C．TabStop D．Visible 答案：a 10．对于定时器（Timer）控件，设计其定时是否开启的属性是（）。 A．Index B．Tag C．Enabled D．Left 答案：c 11．要在窗体Form1内显示“myfrm”，使用的语句是（）。 A．Form.Caption=“myfrm”B．Form1.Caption=“myfrm”C．Form1.Print=“myfrm”D．Form.Print=“myfrm” 答案：ｂ 12．对象的性质和状态特性称为（）。 A．事件B．方法C．属性D．类 答案：c 13．下列正确的赋值语句是（）。 A．x+y=20 B．y=x+20 C．3x=y D．s=π*r*r 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分） 填空题 第1题表达式 1 and 0的值 ______________________ 答案： False 第2题把"Visual Basic程序设计"添加到列表框 lstBooks____________________________ 答案： lstBooks.AddItem "Visual Basic 程序设计" 第3题 For k=35 to 0 step 3 next k 语句的循环次数是_______________________答案：0 第4题 Val("123.55ab456")的值是多少 _____________________________ 答案：123.55 第5题每隔定时器控件的Interval属性值时间间隔,单位为毫秒,定时器会触发一次 ________________________事件 答案：Timer 第6题表达式(-3) And 8 的值为 _______________________. 答案：True 第7题 Print "x=" & (2=4) 的结果为 ________________________. 答案： x=False 第8题要使同一类型控件组成一个控件数组,必须要求_______________________. 答案： Name 相同或名称相同 第9题循环语句FOR K=1 TO 10 STEP –1控制的循环次数为___________________. 答案： 0 第10题设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为______________. 答案： False 第11题声明定长为10个字符变量Sstr的语句为______________________. 答案： Dim Sstr as String*10 或 Sstr as String*10 第12题在VB中,若要将字符串"12345"转换成数字值应使用的类型转换函数是 ____________. 答案： VAL 或 Cint 第13题在一条Dim语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer, 则strVar、intVar与sngVar的数据类型分别是Variant、Variant和_____________________. 答案： Integer 第14题滚动条控件主要支持两个事件,它们是scroll和____________________事件. 答案： change 第15题所有控件都具有的共同属性是 ____________________属性. 答案： name 〖第16题〗Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为 ______. 答案： Picture1 〖第17题〗A和B同为正整数或同为负整数的VB 表达式为________________. 答案： A=INT(A)★AND★ B=INT(B)★ AND ★ A*B>0 〖第18题〗变量min@表示_______________类型的变量. 答案：货币数据变量或货币 〖第19题〗表达式 32\7 MOD 3^2 的值是____________________. 答案： 4 〖第20题〗把整型数1赋给一个逻辑型变量,则逻辑变量的值为___________________. 答案： True 〖第21题〗求x与y之积除以z的余数的VB表达式为_________________________. 答案： x*y★Mod★z 〖第22题〗以图片框Pic1的中心位置为圆心,以700为半径在Pic1上画一个圆的方法是 ______ 答案： pic1.Circle (pic1.width/2,pic1.height/2),700 〖第23题〗要使一个按钮设为默认按钮,应把此按钮的_____________属性的值设为True. 答案： Default 〖第24题〗在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的______________属性的值设置为True. 答案： MultiLine 〖第25题〗设置计时器控件只能触发 ____________________事件. 答案： timer 〖第26题〗VisualBasic6.0用于开发 ____________________环境下的应用程序. 答案： WINDOWS 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 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. 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. 属性 D. 语句 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.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 A. Label控件 B. TextBox控件 C. Timer控件 D. CommandButton控件 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 B. pass4 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期末复习题库Visual Basic（填空题） 1 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是______（提示：不能出现符号#）。12 2 语句a%=3.14156:Print a%的输出结果是______。 3 3 "以下循环的执行次数是_____。 K=0 Do While k<=10 k=k+1 Loop" 11 4 Fix(5.8)的值是_______。 5 5 "下列程序段的执行后输出的结果为_____。 I=4:A=5 Do I=I+1:A=A+2 Loop Until I>=7 Print ""A="";A" A=11 6 表达式3/6*5的值是_______。 2.5 7 "下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If a 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题库及答案 一、选择题 第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", 大学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/3510031936.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考试题库
VB新题库(填空题)
vb程序设计试题(含答案)
vb题库(选择与填空)
VB题库程序填空
vb课后练习答案习题解答 (5)
vb6.0练习题及答案
VB测验选择题真题精选
VB题库-填空练习题
vb练习题及答案.doc
VB选择题库(3)
程序设计语言VB单项选择题及答案
vb真题(选择题)
VB期末复习题库Visual Basic(填空题)
vb试题及答案
vb题库及答案
大学VB考试题库及答案