If a Mod k=0 Then
isprime=False
Else
k=k+1
End If
Loop
End If
prime=isprime
End Function
在测试时发现有1个非素数也被判断为素数，这个错判的数是______。【4】
22..在窗体上画一个文本框和一个图片框，通过属性窗口设置图片框Picture1的AutoRedraw属性为True。然后编写如下两个事件过程：
Private Sub Form_Load()
Text1.Text = "计算机"
End Sub
Private Sub Text1_Change()
Picture1.Print "等级考试"
End Sub
程序运行后，在文本框中显示内容是______，而在图片框中显示的内容是______。【计算机】【等级考试】
23.在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：
Private Sub Command1_Click()
x = 0
Do While x < 50
x = (x + 2) * (x + 3)
N = N + 1
Loop
Text1.Text = Str(N)
Text2.Text = Str(x)
End Sub
程序运行后，单击命令按钮，Text1中显示的值是______；Text2中显示的值是______。【2】【72】
24.以下程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。
Private Sub Command1_Click()
Text1.Text = ""
For N = 3 To 100
k = Int(Sqr(N))
i = 2
Flag = 0
Do While I<=______ And Flag=0
If N Mod i = 0 Then Flag = 1 Else i = i + 1
Loop
If ______ Then
Text1.Text = Text1.Text & Chr(13) & Chr(10) & N
End If
Next N
End Sub-【k】【flag=0】
25.以下程序段执行后y的值是______。【9】
x=8.6
y=int(x+0.5)
print y
26.在窗体上画一个名称为Label1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图所示。请在______处填入适当的内容，将程序补充完整。
Private Sub Form_load()【list1_Ddclick】【list1】
List1.AddItem "北京"
List1.AddItem "上海"
List1.AddItem "河北"
End Sub
Private Sub ______()
Label1.Caption=______
End Sub
27.文件的打开和关闭语句分别是open和______。[close]
28.在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几事件过程：---------[1000][ture][time]
Private Sub Form_Load()
Timer1.Enabled=False
Timer1.Interval=______
End Sub
Private Sub Form_Click()
Timer1.Enabled=______
End Sub
Private Sub Timer1_Timer()
Label1.Caption=______
End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。请填空。
29.随机文件的写操作和读操作通过______语句和______语句来实现。【put】【get】
30..在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click()
S$=InputBox("请输入一个字符串")
Text1.Text=S$
End Sub
Private Sub Text1_Change()
Label1.Caption=UCase(Mid(Text1.Text,7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"VisualBasic"，则在标签中显示的内容是______。[BASIC] 31..在窗体上画一个命令按钮Command1，然后编写如下程序：
Function power(x As Single, ByVal y As Integer)
Dim result As Single
result = 1
Do While y > 0
result = result * x
y = ______
Loop
power = result
End Function
Private Sub Command1_Click()
For i = 0 To 10
r = power(2, i)
Print r
Next i
End Sub
程序中划线应当填入________。[y-1]
32.要想在文本框中显示垂直滚动条，必须把______属性设置为2，同时还应把MultiLine属性设置为True。[ScrollBars]
33.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a = InputBox("请输入一个整数")
B = InputBox("请输入一个整数")
Print a + B
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为______。[321456]
34..以下程序的功能是:从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。
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 = ______
Print y
End Sub [y/z]
35..以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击"计算得分"命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。
Private Sub Command1_Click()
Dim k As Integer
Dim sum As Single, max As Single, min As Single
sum = Text1(0)
max = Text1(0)
min =
For k = To 6
If max < Text1(k) Then
max = Text1(k)
End If
If min > Text1(k) Then
min = Text1(k)
End If
sum = sum + Text1(k)
Next k
Text2 = ( ) / 5
End Sub
【text1(0)】 [1] [sum-max-min]
36...在窗体上画一个名为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=______
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
______
End Function
以上程序的功能是，计算1!+2!+3!+...+n!，其中n从键盘输入，请填空。
[sum+fun(i)] [fun=p]
37.为了使标签能自动调整大小以显示全部文本内容，应把标签的______属性设置为True。
[autosize]
38.Visual Basic应用程序通常由3类模块组成，即窗体模块、______和类模块。【标准模块】
39.窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图1中的"重庆"，则与"北京"交换，得到图2的结果。下面是可实现此功能的程序，请填空。
图1 图2
Private Sub Combo1_Click()
Dim temp
temp = Combo1.Text
______= Combo1.List(0)
Combo1.List(0) = temp
End Sub
【Combo1.List】
40.窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为"Sum"的标签，一个名称为Command1、标题为"计算"的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击"计算"按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。
Private Sub Form_Load()
For i = 1 To 100
If i Mod 7 = 0 Then
___________
End If
Next
End Sub
Private Sub Command1_Click()
Sum = 0
For i=0 To_____
Sum =Sum+__________
Next
Text1.Text = Sum
End Sub【list1.additem i】【list1.listcount-1】【list1.list】
41.有如下程序段：
x = -5
s = InputBox("请输入s的值：")
Select Case s
Case Is > 0
y = x + 1
Case Is = 0
y = x + 2
Case Else
y = x + 3
End Select
Print x; y
运行时，从键盘输入-5，输出的结果是______。[-5-2]
42..Visual BASIC是一种面向______的语言。【对象】
43..组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和下拉式组合框、可以通过设置组合框的______属性的不同取值来实现。
【style】
45..假定建立了一个工程，该工程包括两个窗体，其名称（Name属性）分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将下面的程序补充完整。
Private Sub Command1_Click()
______ Form1
Form2.______
End Sub【unload】【show】
46..Visual Basic中的对话框分为3类，即预定义对话框、自定义对话框和______对话框。【通用】
47..表达式Fix(-32.68)+Int(-23.02)的值为______。【-56】
48..以下程序用来输出20个在开区间（10,87）中的随机整数R，每行输出4个整数。
Private Sub Command1_Click()
For i = 1 To 20
R=______
Print r;
If ______ Then Print
Next i
End Sub--【int(76*rnd+11)】【I Mod 4=0】
49..下述定义中的函数所计算的数学表达式是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=____________
NEXT
Fun=S
END FUNCTION---[s*x+a(k)]
50..有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text1文本框（见图）。合法编号的组成是：前2个字符是大写英文字母，第3个字符是"-"，后面是数字字符（至少1个）。下面程序可实现此功能，请填空。
Private Sub Text1_LostFocus()
Dim k%, n%
n = Len(______)
For k=1 To IIf(n>3,n,4)
c = Mid(Text1.Text,k,1)
Select Case k
Case 1,2
If c<"A" Or c>"Z" Then
MsgBox("第"&k&"个字符必须是大写字母！")
SetPosition k
Exit For
End If
Case 3
If c<>"-" Then
MsgBox("第"&k&"个字符必须是字符""-""")
SetPosition k
Exit For
End If
Case Else
If c<"0" Or c>"9" Then
MsgBox ("第" & k & "个字符必须是数字！")
SetPosition k
Exit For
End If
End Select
Next k
End Sub
Private Sub SetPosition(pos As Integer)
Text1.SelStart=pos-1
Text1.SelLength=______
Text1.______
End Sub------[text1.text][1][setfocus]
51.设有以下的循环：
x=1
Do
x=x+2
Print x
Loop Until ______
要求程序运行时执行3次循环体，请填空。【x>5】
52.在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为"城市名称"和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示"已成功添加新输入项。"，如图所示。如果输入的项目己存在，则在Label2中给出提示"输入项已在组合框中。"。请填空。
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i= 0 To Combo1.ListCount-1
If Combo1.Text= ______ Then
Label2.Caption="输入项已在组合框中。"
Exit Sub
End If
Next i
Label2.Caption="已成功添加新输入项。"
Combo1.______ Combo1.Text
End If
End Sub---【combo1.list(i)】【additem】
53.由Array函数建立的数组的名字必须是______类型。【变体】
54.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示（选择“第三个项目”的情况）。下面是实现上述功能的程序，请填空。Private Sub Command1_Click()
If List1.ListIndex>= ______ Then--【0】
List1.RemoveItem ______【list1.listindex】
Label1.Caption= ______【list1.listcount】
Else
MsgBox"请选择要删除的项目"
End If
End Sub
55。在窗体上画一个列表框，然后编写如下两个事件过程：
Private Sub Form_Click()
list1.RemoveItem 1
list1.RemoveItem 3
list1.RemoveItem 2
End Sub
Private Sub Form_Load()
list1.AddItem "itemA"
list1.AddItem "itemB"
list1.AddItem "itemC"
list1.AddItem "itemD"
list1.AddItem "itemE"
End Sub
运行上面的程序，然后单击窗体，列表框中所显示的项目为itemA、_ _____。【itemC】
56.. 使文本框获得焦点的方法是_ _____。【Setfocus】
57。在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：
Function Fun(x As Integer, ByVal y As Integer) As Integer
x = x + y
If x < 0 Then
Fun = x
Else
Fun = y
End If
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = -10:
b = 5
Text1.Text = Fun(a, b)
Text2.Text = Fun(a, b)
End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是______和____。【-5】【5】
58。在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
Dim Arr
Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72)
pos=0
neg=0
For k=1 To 10
If Arr(k)>0 Then
__ ____
Else
__ ____
End If
Next k
Print pos,neg
End Sub
以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。【pos=pos+Arr(k)】【neg=neg+Arr(k)】
59. 设有如下程序：
Private Sub Form_Click()
Cls
a$="ABCDFG"
For i=1 To 6
Print Tab(12-i);__ ____
Next i
End Sub【Right(a$,i)】
程序运行后，单击窗体，结果如图所示，请填空。
60. 在窗体上画一个命令按钮，然后编写如下程序：
Function fun(ByVal num As Long) As Long
Dim k As Long
k = 1
num = Abs(num)
Do While num
k = k * (num \ 10)
num = num \ 10
Loop
fun = k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n = InputBox("请输入一个数")
n = CLng(n)
r = fun(n)
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为_____。【0】
61. 下列语句输出的结果是GoodMorning、_ _____。（为回车）【GoodEvening】
a$="Good"
b$="Morning"
print a$+b$
b$="Evening"
print a$ & b$
62.. 在Visual Basic中可以建立______菜单和______菜单。【弹出式或下拉式】【标准或快捷】
63.为了在运行时把d:\pic文件夹下的图形文件 a.jpg装入图片框Picture1，所使用的语句为______。【picture1.picture=loadpicture(“d:\pic\a.jpg”)】
64..执行下面的语句后，所产生的信息框的标题是______。[BBBB]
a=msgbox("AAAA",,"BBBB","",5)
65.如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即"查找对象"右边的文本框）输入一个姓或姓名，单击"查找"按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在
Text2中显示"查无此人"。请填空。
Private Sub Command1_Click()
Dim k As Integer, n As Integer, found As Boolean
found = False
n = Len(______)
k = 0
While k < List1.ListCount And Not found
If Text1 = Left$(List1.List(k), n) Then
Text2 =______
found = True
End If
k = k + 1
Wend
If Not found Then
Text2 = "查无此人"
End If
End Sub---【text1】【List1.List(k)】
66.执行以下程序段，并输入1.23，则程序的输出结果应是______。[.23]
N = Str(InputBox("请输入一个实数："))
p = InStr(N, ".")
Print Mid(N, p)
67.文件对话框分为两种，即打开文件对话框和______对话框。[保存文件]
68.菜单编辑器可分为3个部分，即数据区、______和菜单项显示区。【编辑区】
69.窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图1中的"重庆"，则与"北京"交换，得到图2的结果。下面是可实现此功能的程序，请填空。
图1 图2
Private Sub Combo1_Click()
Dim temp
temp = Combo1.Text
______= Combo1.List(0)
Combo1.List(0) = temp
End Sub------【Combo1.List(Combo1.ListIndex)】
70.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用（灰色）。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在______处填入适当的内容，将程序补充完整。【change】
Private Sub Form_Load()
Command1.Enabled = False
End Sub
Private Sub Text1_ ______()
Command1.Enabled = True
End Sub
71..在窗体上画一个命令按钮然后编写如下事件过程：
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】
75.设a = 2 * 2.4356 ，下列语句的输出结果分别是48.71E-01、______。【-4.8712】
Print Format$(a,"00.00E+00")
Print Format$(a,"-#.####")
76.设有以下函数过程：
Function fun(m As Integer) As Integer
Dim k As Integer, sum As Integer
sum = 0
For k = m To 1 Step -2
sum = sum + k
Next k
fun = sum
End Function
若在程序中用语句s=fun(10)调用此函数，则s的值为。【30】
77.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(1 To 10)
Dim p(1 To 3)
k = 5
For i = 1 To 10
a(i) = i
Next i
For i = 1 To 3
p(i) = a(i * i)
Next i
For i = 1 To 3
k = k + p(i) * 2
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是______。【33】
78.以下语句的输出结果是______：【008,795.50】
Print Format$(8795.5,"000,000.00")
79.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
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
Sub swap(b() As Integer)
n=______
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)的值互换。请填空。【a】【10】【n=n-1】
80.Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是______。【组合框】
81.文件根据数据的存取方式和结构，文件可分为______文件和随机文件。【顺序】
82.单击窗体时，程序运行的结果是：______【240 960】
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
83.语句Print 5*5\5/5的输出结果是______。【25】
84.在窗体上画一个命令按钮和一个通用对话框，其名称分别为Command1和Commondialog1，然后编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.DialogTitle="打开文件"
CommonDialog1.______="All File(*.*)|*.*"
CommonDialog1.InitDir="C:\"
CommonDialog1.ShowOpen
End Sub
该程序的功能是：程序运行后，单击命令按钮，将显示“打开文件”对话框，并在其中显示C盘根目录下的所有目录和文件，请填空将程序补充完整。【Filter】
85.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For i = 1 To 4
x = 4
For j = 1 To 3
x = 3
For k = 1 To 2
x = x + 6
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果是______。【15】
86.运行如下程序段：
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】
VB新题库(填空题)
所有填空题 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
vb知识点总结归纳.doc
第1章Visual basic概述 一、VB是在Windows平台下，用于开发和创建具有图形用户界面的应用程序的工具。 二、VB是面向对象的程序设计语言；工作方式为事件驱动/消息驱动。 1．对象 对象是动作体的逻辑模型，是人们可控制的某种东西，应用程序的每个窗体和窗体上的 种种控件都是VB的对象 2．属性 属性指对象的特性。 3．方法 方法指对象可以进行的动作或行为。 4．事件 事件是指能被对象所识别的动作。 5．事件驱动 只有在事件发生时程序才会运行。 6．工程 工程是应用程序文件的集合，一个工程一般会包含下列文件，如表1—l所示。 表1—1 应用程序文件类型 文件类型说明 工程文件(．vbp) 它是与该工程有关的全部文件和对象的清单，该文件是必选项 窗体文件(．frm) 它包含事件过程，以及该窗体及窗体上的各个控件对象的属性设置以及相关的说明，该文件是必选项 二进制数据文件(．frx) 当窗体中含有二进制属性(如图片或图标)时，该文件将自动产生 标准模块文件(．bas) 它包含可以被任何窗体或对象调用的过程程序代码，该文件是可选项 类模块文件(．cls) 该文件是可选项包含ActiveX控件的文件(．ocx) 该文件是可选项
第2章创建用户界面 知识点概括 1．用户界面 用户界面是应用程序中最重要的部分，是程序与用户进行交互的桥梁，标准的Windows 应用程序界面都是由窗口、菜单条、各种按钮、文本框、列表框等对象构成的。 2．窗体 窗体是包容用户界面或对话框所需的各种控件对象的容器。 在创建一个新的工程时，默认的第一个窗体即为启动窗体。 3．控件 控件是与用户进行交互的可视化部件，向窗体上添加控件应在窗体编辑器中进行。 4．命令菜单 命令菜单是应用程序窗口的基本组成元素之一，它由菜单条、菜单、菜单项、子菜单、弹出式菜单组成，可以通过VB提供的菜单编辑器创建程序菜单。 （1）连字符（—） （2）& 5．设计用户界面的步骤 (1)确定窗体的大小和位置。 (2)根据程序的功能和要求，添加所需的控件。 (3)合理地分布控件的位置与大小。 (4)设置各个对象的属性。 6．窗体及常用控件的常用属性、事件、方法 熟悉各对象的常用属性、事件和方法，对于创建应用程序有着举足轻重的作用，表2—1给出了窗体及常用控件的常用属性、事件以及方法使用说明。 表2—1 窗体及常用控件的常用居住、事件以及方法一览表 对象名称说明 Name 设置对象在程序代码中的引用名 通用属性Caption 设置对象的标题栏中或图标下面的文本 Font 设置文本的字体、字型、字号等 left 设置对象的左边界距容器坐标系纵轴的距离 Top 设置对象的上边界距容器坐标系横轴的距离 Height 设置对象的高度 Width 设置对象的宽度 Enabled 设置对象是否被激活 通用属性Visible 设置对象是否可见 BackColor 设置对象的背景色 ForeColor 设置对象的前景色 Index 设置控件在控件数组中的标识号 TabInfex 设置窗体中的对象响应[Tab]键的顺序 TabStop 设置用户是否可以使用[Tab] 键来选定对象 Style 设置控件的外观 Boderstyle 设置窗体的边框风格
大学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/2112071452.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题库程序填空
程序填空〖第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题〗『程序填空』
VB知识点汇总
一:基础知识 对象的有关概念l 1. 对象Object：VB中常用的对象有：窗体、控件等。 2. 对象的三要素 （1）属性Property：用来描述和反映对象外部特征的参数。 （2）方法Method：允许其他对象与之交互的方式，表明一个对象所具有的能力。 （3）事件Event：响应对象的动作称为事件，它发生在用户与应用程序交互时。如单击控件、鼠标移动、键盘按下等。 事件驱动Event Driven：VB为窗体和大多数控件都规定了一组事件，当应用程序被启动后，VB随时准备捕获各种事件。一旦发生了某个事件，VB就会执行与该事件相联系的事件过程；执行完后，VB等待下一个事件的发生。 VB程序的执行步骤如下：l (1)启动应用程序，装载和显示窗体； (2）窗体（或窗体上的控件）等待事件的发生； （3）事件发生时，执行对应的事件过程； （4）重复执行步骤（2）和（3）； （5）直到遇到END结束语句结束程序的运行；或按“结束”强行停止程序的运行。 VB集成开发环境l 1. 主窗口 应用程序窗口，由标题栏、菜单栏和工具栏组成。 2. 窗体(form)窗口 设计VB程序的界面。 3. 代码(code)窗口 编辑窗体、标准模块中的代码。 4. 属性(properties)窗口 所有窗体或控件的属性设置。 5. 工程资源管理器(project expror)窗口 保存一个应用程序所有的文件。 6. 工具箱(toolbox)窗口 显示各种控件的制作工具，供用户在窗体上设计 建立VB程序的步骤l 1. 建立用户界面的对象，并设置对象属性； 2. 对象事件过程及编程； 3. 程序运行和调试； 4. 保存文件： 窗体frm格式和vb工程vbp格式 VB 编码基础l 1. VB代码不区分字母的大小写 系统保留字自动转换每个单词的首字母大写； 用户自定义行以第一次为准。 2. 语句书写自由 一行可书写几句语句,之间用冒号分隔； 一句语句可分若干行书写，用续行符_（空格+下画线）连接一行<=255个字符。
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期末考试试题
VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。 13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）
VB题库-填空练习题
填空题 第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练习题及答案.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基本知识点总结
一、常量 常量(也称常数)，是在程序运行期间其值始终保持不变的量。注意π不是常量。 定义常量的语法格式：[Public|Private]Const 常量名[As数据类型] = 表达式 Const前不能使用Dim 在窗体的通用声明处不能使用Public定义常量、定长字符串、数组 定义常量的语句可以在过程内部，也可以在通用声明处 = 后边的表达式不能是函数 二、变量 定义变量的语法格式：Dim|Private|Static|Public 变量名[As数据类型][，变量名[As数据类型]…] 使用Dim|Private|Static|Public定义变量后会将变量进行初始化 使用Dim定义变量的语句可以在过程内，也可以在通用声明处；使用static定义变量的语句只能在过程内；使用public、private定义变量的语句只能在通用声明处 在过程内部使用dim定义的变量是局部的过程级的变量，即该变量的生命周期和作用域很小。其作用域为本过程，即只在本过程中能用，出了本过程就不能使用其值。其生命周期为从该变量定义的位置开始变量在内存中存在，它所在的过程结束（遇到End Sub）该变量就从内存消失 在通用声明处用Dim定义的变量是模块级的变量；其作用域为本模块，即在本窗体或模块的所有过程中都能使用该变量，在其他窗体或模块中不能使用该变量的值；其生命周期为从该变量定义的位置开始变量在内存中存在，整个程序结束（点击结束按钮或点击窗体上的关闭按钮）该变量才从内存消失 使用static定义的变量是局部的静态变量。其作用域为本过程（同局部的dim定义的变量）；其生命周期为从该变量定义的位置开始变量在内存中存在，整个程序结束（点击结束按钮或点击窗体上的关闭按钮）该变量才从内存消失 使用private定义的变量是模块级的变量，其作用域和生命周期同模块级的dim定义的变量 使用public定义的变量是全局变量，其作用域为整个程序，即在整个程序的所有窗体或模块的所有过程中都可以使用此变量（但是注意，如果是在窗体的通用声明处定义的public类型的变量，则在其他窗体或模块使用该变量时需加上窗体的名字）；其生命周期为从该变量定义的位置开始变量在内存中存在，整个程序结束（点击结束按钮或点击窗体上的关闭按钮）该变量才从内存消失 三、数组 数组是一组按一定顺序排列的数据的集合，数据的类型可以不相同，数组的维数不得超过60维 1.静态数组 定义静态数组的语法格式：public|private|static|Dim 数组名([下界To] 上界) [As数据类型]若省略下界时，表示下标的取值是从0开始，等价于“0 To上界” 可以使用Dim 或public 或private 或static 定义 分别使用这4个关键字进行定义数组的语句可以出现的位置不同（同变量的定义）、数组的生命周期和作用域不同（同变量的作用域和生命周期） 定义静态数组时小括号内的下标不能使用变量 在同一个作用域内不能定义同名的静态数组（即：在同一个作用域内不能多次定义同一个数组），在不同的作用域内可以定义同名的静态数组（同名数组的使用和同名变量的使用相同） 数组的定义语句中的下界和上界可以是常量或表达式（即：可以是整数、实数、正数、负数），下界不必须是0或1 静态数组定义的同时将被初始化 静态数组一旦定义后，数组名、数组大小、数组的类型就确定了 在程序的窗体模块或标准模块的通用声明处用Option Base n语句可重新设定数组的下界。此语句的含义是：在定义数组时，如果省略了下界则默认的下界是n，在定义数组时如果未省略下界则该数组的下界就是其自己定义的下界值（此时忽略Option Base n指明的下界n）
计算机等级考试二级VB模拟试题四及答案解析
计算机等级考试二级VB模拟试题四及答案解析 一、选择题 (1)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private SubCommand1_Click() Move 500,500 End Sub 程序运行后，单击命令按钮，执行的操作为 A)命令按钮移动到距窗体左边界、上边界各500的位置 B)窗体移动到距屏幕左边界、上边界各500的位置 C)命令按钮向左、上方向各移动500 D)窗体向左、上方向各移动500 正确答案: B (2)在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是 A)TabStop B)Enabled C)Visible D)TabIndex 正确答案: D (3)以下定义数组或给数组元素赋值的语句中，正确的是 A)Dim a As Variant a=Array(1,2,3,4,5) B)Dima(10)As Integer a=Array(1,2,3,4,5) C)Dim a%(10) a(1)="ABCDE" D)Dim a(3),b(3)As Integer a(0)=0 a(1)=1 a(2)=2 b=a 正确答案: A (4)在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 A)For i=0 ToList1.ListCount-1 …… Next B)For i=0 To List1.Count-1 …… Next C)For i=1 To List.ListCount …… Next
D)For i=1 ToList1.Count
VB期末复习题库Visual Basic(填空题)
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 aVB知识点总结
VB知识点总结 目录 1 第一章知识点 (2) 2 第二章知识点 (2) 3 第三章知识点 (3) 4 第四章知识点 (7) 5 第五章知识点 (8) 6 第六章知识点 (8) 7 第七章知识点 (10) 8 第八章知识点 (12)
（1）VB的语言特点 可视化开发环境：界面设计所见所得；面向对象程序设计：程序和数据封装作为一个对象，在工具箱里面的都是一个一个的类，比如commandbutton类，当你把它从工具箱拖出来已经，它就被实例化成了一个对象，名称叫command1，如果你拖了2个command，就是2个不同的对象；事件驱动编程：VB程序没有明显的入口和出口，都在等待用户或者系统或者代码触发某个事件，然后执行事件对应的任务 （2）VB的工作模式 设计模式，运行模式，中断模式；程序在运行模式是没有办法修改代码和设计界面窗口的。 （3）VB的文件类型 窗体文件frm；程序模块文件bas；类模块文件cls；工程文件vbp；工程组文件vbg；资源文件res；保存工程的时候应该同时保存工程文件vbp和窗体文件frm。 （4）VB的窗口 任何的窗口被关闭了找不到了，都应该在视图菜单下面来寻找，工具箱窗口，代码窗口，窗体布局窗口，立即窗口（可以在中断模式下查询程序运行对象值，ctrl+G打开立即窗口） 2 第二章知识点 （1）面向对象的基本概念 类：具有类似属性和方法的对象的抽象，比如大学；对象：类实例化就成为一个对象，每个对象都具有自己的属性和方法，比如西南财经大学天府学院。属性：对象的静态特征，最重要的属性是name，在VB里面对象的name是不能省略的，而且在程序运行的过程中是不能修改的；事件：人或者系统对对象的作用，对象是被动者，比如load，unload，timer；click等；方法：对象发出的行为，对手是主动者，比如move，show，hide等。 （2）VB的开发流程 第一步分析后画流程图 第二步界面设计 第三步编写代码 第四步测试运行
大学VB期末考试试题
VB 期末考试试题A 卷 一、填空题 1、VB 程序设计的主要特点是可视化设计和事件编程。 2、在VB 中，最主要的两种对象是窗体（form ）和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB 提供的一种特殊子程序，用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作___ 。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value 属性指示复选框处于 _____ 选中___或禁止状态（暗淡的）中的某一种。 9、在VB中，修改窗体的高度（height）和宽度（width ）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox 函数中，如果缺省title 参数，则使用工程1 作为消息框的标题。 12、设x = 34.58，语句Print Format（x, “ 000.0”）的输出结果是34.6。 13、在VB 中，数值型变量的初值为0 ，Varant 型变量的初值为空，布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP 图片框中的图片应使用语句cls 。 二、选择题 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"
全国计算机等级考试二级VB上机试题及答案(十一)
全国计算机等级考试二级VB上机试题及答案(十一)基本操作（2小题，每题15分，共30分） **************************************************************** 请根据以下各小题的要求设计VB应用程序（包括界面和代码）。 请根据以下各个小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画一个列表框，其名称为List1，通过属性窗口向列表框中输入9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Hscroll，Min属性和Max分别为0和100，如图所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目内容，并把滚动条的滚动框移动到相应的位置，如图所示。 要求：不得使用任何变量。 （2）在名称为Form1的窗体中画一个图像框，名称为Image1，其高、宽分别为1800、4500，通过属性窗口把考生文件夹下的图像文件装入图像框；再画一个命令按钮，名称为Cmd1，标题为"放大"。
请编写适当事件过程，程序运行后，单击"放大"按钮，则把图像框的高度、宽度均增加100，同时图像也随之自动放大。 注意：程序中不得使用任何变量。 程序运行时的界面如图所示。 **************************************************************** 参考答案与分析 （1）【解析】 滚动条的属性设置：Min--最大值属性。默认值为32767；Max--最小值属性，默认值为0；Value--返回或设置滚动条的当前位置的值，返回直介于Max 和Man 属性之间的值，包括这两个值。 要实现滚动条的返回值与List的设置值同步变化，在两者之间建立等式关系即可。而Text属性对应的变量类型为字符串，所以这里用了一个转化函数Val（）来实现。Val(S)函数将字符串转化为数值。与之对应的将数值转化为字符串的函数Str(N)。 【答案】 第一步：启动VB，新建一个工程文件。 第二步：在窗体上画一个文本框，文本框的Name属性为Text1，Text属性空，再在窗体上画一个水平滚动条Max为100，Min为0，Name为HScroll1，再画一个列表框List1，在List属性中输入"10、20、30、40、50、60、70、80、90"。第三步：编写程序代码： 1 Private Sub List1_Click() 2 = 3 = Val 4 End Sub 第四步：调试并运行程序，运行正确后按要求保存。 （2）【解析】 本题主要考查了图像框的Stretch属性以及控制其大小的Height、Width属性。Height、Width属性与其它控件类似，设置相应的值即可动态的改变图像框的大
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分）
