选择题填空题复习(VB)
一、选择题
1. 窗体文件的扩展名是__________。
A. .frm
B. .vbp
C. .bas
D. .frx
2．能被对象所识别的动作与对象可执行的活动分别称为对象的________。
A ．方法、事件
B ．事件、方法
C ．事件、属性
D ．过程、方法
3． VB 集成开发环境有三种工作状态，不属于三种工作状态之一的是________。
A ．设计状态
B ．编写代码状态
C ．运行状态
D ．中断状态
4．若在一个应用程序窗体上，依次创建了CommandButton 、TextBox 、Label 等控件，则运
行该程序显示窗体时，________会首先获得焦点。
A ．窗体 B. CommandButton C. Label D. TextBox
5．在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有________个。
① Public A(5) As Integer ② Public N As Integer
③ Public St As String*10 ④ Private b() As Integer
A ．2
B ．3
C ．4
D ．1
6．下面的语句或方法中错误的有________个（其中m 和n 都为Integer 型变量）。
① Dim Arry(m, n) As Integer
② n=32764+5
③ Print m=m+n;m+n
④ ChDrive “C ：”
A ．1
B ．2
C ．3
D ．4
7．下列说法不正确的是________。
A ．V
B 允许将一个数字字符串赋值给一个数值型的变量
B ．VB 允许使用未经说明的变量，其类型都是Variant 类型
C ．Cls 方法只清除运行时在窗体或图形框中显示的文本或图形
D ．事件过程既可建在窗体模块中，也可建在标准模块中
8．多窗体程序由多个窗体组成。在缺省情况下，VB 在执行应用程序时，总是把______指
定为启动窗体。
A ．不包含任何控件的窗体
B ．设计时的第一个窗体
C ．命名为Frm1的窗体
D ．包含控件最多的窗体
9．代数表达式)sin(2ln y x t b a x
x e +-++++，对应的Visual Basic 表达式是__________。
A ．Sqr((x+Log(x))／(a+b))+Exp(-t)+Sin((x+y)／2)
B ．Sqr( x+Log(x))／(a+b))+Exp(-t)+Sin((x+y)／2)
C ．Sqr((x+Ln(x))／(a+b))+Exp(-t)+Sin(x+y)／2)
D ．Sqr((x+Log(x))／(a+b))+Exp(-t)+Sin(x+y ／2)
10．VB 工程文件的扩展名是________。
A ．.frm
B ．.vbp
C ．.bas
D ．.frx
11．窗体上有多个控件，在Form_Activate()事件过程中添加__________语句，就可确保每次
运行程序时，都将光标定位在文本框Text1上。
A ．Text1．Text=""
B ．Text1．SetFocus
C ．Form1．SetFocus
D ．Text1．Visible=True
12．窗体的Name 属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用“Public K As
Integer ”和“Dim K As Integer ”声明了两个同名变量K ，则在过程Sub1中要访问窗体模块变
量K，可采用_________。
A．Frm1．K B．Form．K C．Form1．K D．K
13．名为Sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是________。
A．Private Sub Sort(A() As Integer)
B．Private Sub Sort(A(10) As Integer)
C．Private Sub Sort(ByVal A() As Integer)
D．Private Sub Sort(A(，) As Integer)
14．在以下有关对象属性的叙述中，错误的是_________。
A．一个对象的属性可分为外观、行为等若干类
B．不同属性可能具有不同的数据类型
C．一个对象的所有属性都可在属性窗口的列表中进行设置
D．属性窗口中的属性列表既可按字母排列也可按类别排列
15．以下语句中，不能正确执行的是__________。
A．If Option1．Value Then B．If Option1．Value=True Then
C．Check1．Value=0 D．Cheek1．Value=True
16．在窗体的通用声明处有语句“Dim A()As Single”，以下在某事件过程中重定义此数组的一组正确语句是_________。
A．ReDim A(3，3) B．ReDim A(3，3)
ReDim A(4，4) As Integer ReDim Preserve A(4, 4)
C．ReDim A(3) D．ReDim A(3，3)
ReDim A(3，3) As Integer ReDim Preserve A(3，4)
17．在窗体模块的通用声明处有如下语句，会产生错误的语句是__________。
①Const A As Integer=25 ②Public St As String*8
③ReDim B(3)As Integer ④Dim Const X As Integer=10
A．①②B．①③C．①②③D．②③④
18．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
X=10
Print IIf(X>5，1，5)
End Sub
运行后的输出结果是________。
A．5 B．1 C．2 D．6
19．下列语句运行时系统给出错误提示的是________。
Ａ．Print -32000-769 Ｂ．Print "1E2"+8
Ｃ．Print "AB" & 128Ｄ．Print 3=2=4
20．在程序运行过程中，要想使可操作的按钮变成看得见但不可操作，则应设置为False的属性是___________。
A．Visable B．Enabled C．Default D．Cancel
21．在VB中，下列关于控件的属性或方法中，搭配错误的有________个。
(1)Timer1.Interval (2)List1.Cls (3)Text1.Print
(4)List1.RemoveItem (5)VScroll1.Value(6)Picture1.Print
A．0B．1 C．2 D．3
22．设S是字符型变量，以下语句正确的是__________。
A．S=List1．Caption B．S=Timer1．Caption
C．S=Text1．Caption D．S=Label1．Caption
23．以下有关ReDim语句用法的说明中，错误的是__________。
A．ReDim可用于定义一个新数组
B．ReDim语句既可以在过程中使用，也可以在模块的通用声明处使用
C．无Perserve关键字的ReDim语句，可重新定义动态数组的维数
D．在ReDim语句中，可使用变量说明动态数组的大小
24．针对语句If I=1 Then J=1，下列说法正确的是。
A．I=1和J=1均为赋值语句
B．I=1和J=1均为关系表达式
C．I=1为关系表达式，J=1为赋值语句
D．=1为赋值语句，J=1为关系表达式
25．如果一个变量未指明数据类型，那么，VB默认这个变量为_________变量。
A．变体型B．整型C．公共D．字符串型
26．调用由语句Private Sub Convert(Y As Integer)定义的Sub过程时，以下不是按值传递的语句是_________。
A．Call Convert((X)) B．Call Convert(X*1)
C．Convert(X) D．Convert X
27．以下关于方法的叙述中，错误的是__________。
A．方法是构成对象实体的一个部分
B．方法是一种特殊的过程或函数
C．调用方法的一般格式是：对象名称．方法名称[参数]
D．在调用方法时，对象名称是不可缺少的
28．在Select Case x结构中，描述判断条件3≤X≤7的测试项应该写成__________。
A．Case 3<=X<=7 B．Case 3<=X，X<=7
C．Case Is<=7，Is>=3 D．Case 3 To 7
29．在过程中有语句For I=N1 To N2 Step N3，在该循环体内有下列四条语句，其中_______会影响循环执行的次数。
①N1=N1+I ②N2=N2+N3
③I=I+N3 ④N3=2*N3
A．①②B．①②③C．③D．①②③④
30．窗体上有多个控件，在Form_Activate()事件过程中添加__________语句，就可确保每次运行程序时，都将光标定位在文本框Text1上。
A．Text1．Text=""B．Text1．SetFocus
C．Form1．SetFocus D．Text1．Visible=True
31．关于窗体Name属性的叙述，正确的是_______。
A．窗体Name属性可以具有与别的对象相同的名字
B．窗体Name属性和变量定义一样
C．窗体Name属性的值最长可达40个字符
D．窗体Name属性不能具有与别的对象相同的名字
32．在一个语句行内写多条语句，语句之间应该用________分隔。
A．逗号B．分号C．顿号D．冒号
33．求一个三位整数n的十位数的正确方法是________。
A．Int(n – Int(n/100) * 100) B．Int(n/10) – Int(n/100)
C．Int(n/10) – Int(n/100) * 10 D．n – Int(n/100) * 100
34．下列语句所声明的数组的元素个数为_______。
Dim a(3 To 6, - 2 To 2)
A．20 B．16 C．24 D．25
35．VB变量名abc!的类型是________。
A．字符串类型B．单精度类型C．整型D．双精度类型
36．假设已通过下列Sub语句声明了Proc1过程。若要调用该过程，可以采用________语句。
Sub Proc1(x As Integer)
A．s=Proc1(3) B．Proc1 32765
C．Print Proc1(100) D．Call Proc1(40000)
37．以下使用方法的语句中，正确的是_________。
A．List1．Clear B．Form1．C1ear
C．Combo1．Cls D．Picture1．C1ear
38．VB表达式Sqr(a+b)^ 3*2中优先进行运算的是________。
A．Sqr函数B．+ C．^ D．*
39．在Select Case x结构中，描述判断条件2≤X≤9的测试项应该写成_________。
A．Case 2<=X<=9 B．Case 2<=X，X<=9
C．Case Is<=2，Is>=9 D．Case 2 To 9
40．在窗体Form1中用“Public Sub Fun(x As Integer，Y As Single)”定义过程Fun，在窗体Form2中定义了变量i为Integer，J为Single，若要在Form2的某事件过程中调用Form1中的Fun过程，则下列语句中正确的语句有_________个。
①Call Fun(i，j) ②Call Form1．Fun(i，i)
③Form1．Fun(i)，j ④Form1．Fun i + 1，(j)
A．1 B．2 C．3 D．4
41. 工程文件的扩展名是________。
A. .frm
B. .vbp
C. .bas
D. .frx
42. 若要将窗体从内存中卸载，其实现的方法是_________。
A.show
B.Unload
C.Load
D.Hide
43．下列没有类型说明符的变量是________。
A．日期型B．长整型C．字符型D．货币型
44．窗体上有3个按钮Command1、Command2和Command3，如下代码的功能是________。
Private Sub Command1_Click()
Command2．Enabled=False
Command3．Visible=False
End Sub
A．当单击按钮Command1时，按钮2和按钮3都不可用
B．当单击按钮Command1时，按钮2和按钮3都不可见
C．当单击按钮Command1时，按钮2不可用和按钮3不可见
D．当单击按钮Command1时，按钮2不可见和按钮3不可用
45．在应用程序中用“Private Function Fun(x As Integer，Y As Single)”定义了函数Fun。调用函数Fun的过程中的变量I、J均定义为Integer型，能正确引用函数Fun的是_______。
①Fun(I, J) ②Call Fun(I, 4.23)
③Fun(5.14, 273) ④Fun("269", "252.5")
A．①③B．②③④C．①②③D．①②③④
46．若在应用程序中用“Private Sub Sub1(X As Integer，Y As Single)”定义了子程序Sub1，
调用程序中的变量I 、J 均为Integer 型，则正确调用子程序Sub1的Call 语句是________。
①Call Sub1(I ，I) ②Call Sub1(3．1415，I)
③Call Sub1(3．14，234) ④Call Sub1("245"，"231．5")
A ．①③
B ．③④
C ．①②③
D ．无
47．代数表达式y
x x e x ++3sin ln 对应的Visual Basic 表达式是________。 A ．Log(Abs((Exp(3.14159)+Sin(x)^3)／(x+Y)))
B ．Ln(Abs((Exp(3.14159)+Sin(x)^3)／(X+Y)))
C ．Log(Abs(Exp(3.14159)+Sin(x)^3)／(X+Y))
D ．Log|(Exp(3.14159)+Sin(x)^3)／x+y|
48．在代码窗口中，当从对象列表框中选定了某一对象后，在________中会列出适用该对象
的事件。
A ．过程框
B ．属性窗口
C ．事件列表框
D ．工具栏
49．以下有关数组的说明中，错误的是__________。
A ．根据数组说明的方式，可将数组分为动态数组和静态数组
B ．在过程中，不能用Private 语句定义数组
C ．利用ReDim 语句重新定维时，不得改变已经说明过的数组的数据类型
D ．数组重新定维后，原有的数组元素内容将不予保留
50．在过程中有语句For I=N1 To N2 Step N3，在该循环体内有下列四条语句，其中_______
会影响循环执行的次数。
①N1=N1+I ②N2=N2+N3
③I=I+N3 ④N3=2*N3
A ．①②
B ．①②③
C ．③
D ．①②③④
51．窗体上有一个文本框控件Text1，假设已存在三个整型变量a 、b 和C ，且变量a 的值为
5，变量b 的值为7，变量c 的值为12。以下的______语句可以使文本框内显示的内容为：
5+ 7=12
A ．Text1．Text=a+b=c
B ．text1．Text="a+b=c"
C ．Text1=a & "+" & b & "=" & c
D ．text1="a" & "+" & "b" & "=" & "C"
52．某过程的说明语句中，正确的数组说明语句是__________。
Const N As Integer=4
Dim L As Integer
①Dim X(L) AS Integer
②Dim A(K) As Integer
Const K As Integer=3
③Dim B(N) As Integer
④Dim Y(2000 to 2008) As Integer
A ．①②④
B ．①③④
C ．③④
D ．②③
53．以下使用方法的代码中，正确的是________。
A ．Label1．SetFocus
B ．Form1．Clear
C ．Text1．SetFocus
D ．Combo1．Cls
54．以下有关对象属性的说法中错误的是________。
A ．所有的对象都具有Name(名称)属性
B．只能在执行时设置或改变的属性为执行时属性
C．对象的某些属性只能在设计时设定，不能使用代码改变
D．Enabled属性值设为False的控件对象在窗体上将不可见
55．有如下程序：
Private Sub Command1_Click()
S=Fix(-23．1)
E=Int(23．1)
Print Sin(e+s)
End Sub
运行时输出的结果是_________。
A．-1 B．0 C．1 D．23
56．在VB中可以作为容器的是。
A．Form、TextBox、PictureBox B．Form、PictureBox、Frame
C．Form、TextBoX、Label D．PictureBox、TextBox、ListBox
57．下面所列四组数据中，全部是正确的VB常数是。
A．32768,1.34D2, "ABCDE",&O1767
B．3276, 123.56, 1.2E-2, #True#
C．&HABCE, 02-03-2002, False, D-3
D．ABCDE, #02-02-2002#, E-2
58．在程序代码中，将图片文件“abc.jpg”装入图片框Picture1的语句是________。
A．Picture1.Picture = "abc.jpg"
B．P icture1.image = "abc.jpg "
C．P icture1.Picture = LoadPicture("abc.jpg")
D．LoadPicture("abc.jpg")
59．无法响应Click事件的控件是________。
Ａ．Label Ｂ．Timer Ｃ．TextBox Ｄ．DriveListBox
60．设a为Integer型变量，s为Single变量，把３.７５赋值给s后，再执行下列某一语句，则在文本框中显示的结果与执行语句a＝s:Text1=a的结果相同的有________个。
(1)a=Int(s):Text1=a (2) a=Fix(s):Text1=a
(3)a=CInt(s):Text1=a (4) a=Format(s,“#####”):Text1=a
Ａ．１Ｂ．２Ｃ．３Ｄ．４
61．若编写的过程要被多个窗体及其对象调用，应将这些过程放在哪一类模块中？
A．窗体模块B．标准模块C．工程D．类模块
62．函数CInt(-3.5),Int(-3.5),Fix(-3.5)的值分别是________。
A．-3,-4 , -3 B．-4, -4, -3
C．-3,-4 , -4 D．-4, -3, -3
63．设S是字符型变量，以下语句正确的是__________。
A．S=List1．Caption B．S=Timer1．Caption
C．S=Text1．Caption D．S=Label1．Caption
64．在窗体的通用说明部分有以下说明语句，其中正确的是__________。
A．Private Const A As Integer=235／2
B．Const B As Integer=Cint(2．53)
C．Dim Const C As Integer=3579
D．Public Const S As Boolean=True
65．在过程中已说明a、b、c均为Integer型变量，且均已被赋值，其中a=30、b=40、C=50，如再执行下面的语句，可正常执行的是___________。
A．Print a*b*c B．Print a*b*c*1&
C．Print 1&*a*b*c D．Print a*b*c*1!
66．以下有关事件过程的说法中，错误的是___________。
A．标准模块中不能包含事件过程
B．事件过程都是无参(没有形式参数)的过程
C．事件过程也可以通过Call语句调用执行
D．在事件过程中不能声明全局变量
67．在程序中将变量I、T、S、D分别定义为Integer类型、Boolean类型、String类型和Date 类型，下列赋值语句正确的是________。
A．S = 5 + " abc" B．T = #True#
C．I = " 345" + " 67" D．D = #10/05/05#
68．单击滚动条两端的箭头时，滚动条Value属性值的改变量由__________属性值决定。
A．LargeChange B．Max
C．SmallChange D．Min
69．下面关于过程参数的说法，错误的是___________。
A．过程的形参不可以是定长字符串类型的变量
B．形参是定长字符串型的数组，则对应的实参必须是定长字符串型数组，且长度相同C．若形参是按地址传递的参数，形参和实参也能以按值传递方式进行形实结合
D．按值传递参数，形参和实参的类型可以不同，只要相容即可
70．使用_________方法，可以将列表框List1中的所有项删除掉。
A．Listl．Text="" B．AddItem C．RemoveItem D．Clear
71. VB预先设置好的，能够被对象识别的动作是_________。
A.方法
B.对象
C.事件
D.属性
72．若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用________关键字在该过程中定义局部变量。
A．Dim B．Private C．Public D．Static
73．不能作为容器使用的对象是__________。
A．图像框 B．框架 C．图片框 D．窗体
74. 以下使用方法的代码中，正确的是__________。
https://www.wendangku.net/doc/9314416360.html,bel1.SetFacus
B. Form1.Clear
C.Text1.SetFacus
D. Combo1.Cls
75．以下有关数组作为形参的说明中错误的是________。
A．调用过程时，只需把要传递的数组名填入实参表
B．使用动态数组时，可用ReDim语句改变形参数组的维界
C．在过程中也可用Dim语句对形参数组进行说明
D．形参数组只能按地址传递
76．若在应用程序的标准模块、窗体模块和过程Sub1的说明部分，分别用“Public G As Integer”、“Private G As Integer”和“Dim G As Integer”语句说明了三个同名变量G。如果在过程Sub1中使用赋值语句“G=3596”，则该语句是给在________说明部分定义的变量G 赋值。
A．标准模块B．过程Sub1
C ．窗体模块
D ．标准模块、窗体模块和过程Sub1
77．代数表达式)cos(2ln y x t b a x
x e +-++++对应的Visual Basic 表达式是_________。
A ．Sqr((x+Log(x))／(a+b))+Exp(-2*t)+Cos((x+y)／2)
B ．Sqr(x+Log(x)／(a+b))+Exp(-2*t)+Cos((x+y)／2)
C ．Sqr((x+Ln(x))/(a+b))+Exp(-2t)十Cos((X+y)／2)
D ．Sqr((x+Log(x))／(a+b))+Exp(-20+Cos(x+y ／2)
78．以下有关变量作用域的说法中，错误的是__________。
A ．只有在标准模块中用Public 语句说明的变量才是全局变量
B ．在过程中能使用Public 语句说明全局变量
C ．在标准模块的通用声明处可用Private 语句说明模块级变量
D ．在窗体的通用声明处可用Private 语句说明窗体级变量
79．执行以下语句后，a 的值是__________。
Dim a As Integer
a=l
Do Until a=100
a=a+2
Loop
A ．99
B ．100
C ．溢出
D ．101
80．以下使用方法的语句中，正确的是_________。
A ．List1．Clear
B ．Form1．C1ear
C ．Combo1．Cls
D ．Picture1．C1ear
81．在窗体Form1中用“Public Sub Fun(x As Integer ，Y As Single)”定义过程Fun ，在窗体
Form2中定义了变量i 为Integer ，J 为Single ，若要在Form2的某事件过程中调用Form1中
的Fun 过程，则下列语句中正确的语句有_________个。
①Call Fun(i ，j) ②Call Form1．Fun(i ，j)
③Form1．Fun (i)，j ④Form1．Fun i+l ，(j)
A ．1
B ．2
C ．3
D ．4
82．下面有关数组处理的叙述中，错误的是 。
1．在过程中用ReDim 语句定义的动态数组，其下标的上下界可为赋了值的变量。
2．在过程中，可以使用Dim 、Private 和Static 语句定义数组。
3．用ReDim 语句重新定义动态数组时，不得改变该数组的数据类型。
4．可用Public 语句在窗体模块的通用说明处定义一个全局数组。
A.1、2、3、4、
B.1、3、4、
C.1、2、3、
D.2、4、
83．描述Ｘ、Ｙ中有一个小于Ｚ的逻辑表达式是________。
Ａ．X Ｃ．X 84．以下有关过程的说法中错误的是___________。 Ａ．在Sub 或Function 过程中不能再定义其他Sub 或Function 过程 Ｂ．在调用过程时，与使用ByRef 说明的形参对应的实参只能按地址传递方式结合 Ｃ．递归过程既可以是递归Function 过程，也可以是递归Sub 过程 Ｄ．在调用过程时，形参为数组的参数对应的实参只能是数组 85．设整型变量a 、b 的当前取值分别为200与20，以下赋值语句中不能正确执行的是 _________。 A．Text1 = a/b*a B．Text1 = a*a/b C．Text1 = "200"*a/b D．Text1 = a & b & a 86．以下使用方法的代码中，正确的是________。 A．Label1．SetFocus B．Form1．Clear C．Text1．SetFocus D．Combo1．Cls 87．在程序代码中，将图片文件“abc.jpg”装入图片框Picture1的语句是________。 A．Picture1.Picture = "abc.jpg" B．P icture1.image = "abc.jpg " C．P icture1.Picture = LoadPicture("abc.jpg") D．LoadPicture("abc.jpg") 88．扩展名为．vbp的工程文件中包含有__________。 A．工程中所有模块的有关信息 B．每个窗体模块中的所有控件的有关信息 C．每个模块中所有变量的有关信息 D．每个模块中所有过程的有关信息 89．在多窗体程序中，可以在标准模块或某个窗体模块的通用声明处，分别用_______语句定义一个在所有窗体模块都可以引用的变量IntA。 A．Private IntA As Integer Public IntA As Integer B．Public IntA As Integer Private IntA As Integer C．Public IntA As Integer Public IntA As Integer D．Private IntA As Integer Private IntA As Integer 90．Visual Basic 6．0的菜单除了可通过鼠标单击打开外，也可以用键盘打开，以下操作方法正确的是________。 A．按菜单项后面括号中的字母键 B．先按F10或Alt键，然后再按菜单项后面括号中的字母键 C．Shift键+菜单项后面括号中的字母键 D．Ctrl键+菜单项后面括号中的字母键 91．在程序中将变量I、T、S、D分别定义为Integer类型、Boolean类型、String类型和Date 类型，下列赋值语句正确的是________。 A．S = 5 + " abc" B．T = #True# C．I = " 345" + " 67" D．D = #10/05/05# 92．用于除去字符串左侧的空格的函数是_________。 A．Rtrim( ) B．Ltrim( ) C．Lefttim( ) D．Trim( ) 93．为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是。 A．Value B．Default Ｃ．Cancel Ｄ．Enabled 94．在程序中可以通过复选框和单选框按钮的________属性值来判断它们的当前状态。 A．Caption B．Value C．Selected D．Checked 95．语句Print Sgn(-6^ 2)+Abs(-6^2)+Int(-6^ 2)的输出结果是_________。 A．-36 B．1 C．-1 D．-72 96．执行语句“Print Format(1234.567, "##, ##0.00")”，正确的输出结果是_________。 A．1234.57 B．1,234.57 C．1,234.567 D．01,234.57 97．Sub过程与Function过程最根本的区别是________ A．Sub过程可以用Call语句或直接使用过程名调用，而Function过程不可以 B．Function过程可以有形参，Sub过程不可以 C．Sub过程不能用过程名返回值，而Function过程能通过过程名返回值 A．两种过程参数的传递方式不同 98．使用Public Const语句声明一个全局的符号常量时，该语句应在________。 A．事件过程中B．窗体模块的通用声明段中 C．标准模块的通用声明段中D．通用过程中 99.函数Cint、Int、Fix都返回数值，以下能正确地描述他们返回值的大小关系的是________。 A. Cint(-4.51) = Int(-4.51) < Fix(-4.51) B. Int(-4.51) < Cint(-4.51) < Fix(-4.51) C. Cint(-4.51) < Fix(-4.51) < Int(-4.51) D. Int(-4.51) < Fix(-4.51) = Cint(-4.51) 100．窗体上有多个控件，在Form_Activate()事件过程中添加__________语句，就可确保每次运行程序时，都将光标定位在文本框Text1上。 A．Text1．Text=""B．Text1．SetFocus C．Form1．SetFocus D．Text1．Visible=True 二、填空题 1、执行下面的程序，在窗体上显示的输出结果的第一行是，第二行是。 Option explicit Private sub form_click() Dim I as integer, j as integer J=10 For I=1 to j I = I+1 J = j - i Next I Print I Print j End Sub 2、执行下面的程序，单击按钮Command1，在窗体上显示的第一行是，第二行是，第三行是。 Option Explicit Private Sub Command1_click() Dim X As Single, i As Integer X=1.2 For i=1 To 3 X=x*i Print fun1(X) Next i End Sub Private Function fun1(x As Single) As Single Static Y As Single Y=y+X Fun1=Y／2 End Function 3、执行下面程序后，A(0，2)的值是，A(1，1)的值是。 Option Explicit Private Sub Form_Click() Dim A(3, 3) As Integer, I As Integer Dim k As Integer, m As Integer m=16 For k=6 To 0 Step-1 If k>=2 Then For I=0 To 5-k A(k-2+I, I)=m m=m-1 Next I Else For I=0 To k A(k-I, 3-i)=m m=m-1 Next I End If Next k For k=0 To 3 For I=0 To 3 Print A(k, I); Next I Print Next k End Sub 4、下列程序运行的结果为__ ______。执行完该程序后，共循环了___ _____次。 Private Sub Command1_Click() Dim intsum As Integer Dim i As Integer Dim j As Integer For i=1 To 11 Step 2 For j=1 To 3 Step 2 Intsum=intsum + i Next j Next i Print intsum End Sub 5、执行下面的程序，当单击窗体时，显示在窗体上第一行的内容 是，第二行的内容是。 Private Sub Form_Click( ) Dim i As Integer, Sum As Integer For I = 0.5 To 8.5 Step 2.5 Sum = Sum + I * 10 Next I Print Sum Print I End Sub 下列程序 Private Sub Command1_Click() Dim st as String,i As Integer St="ABC" For i=1 To Len(st) St=Mid(st,2*i-1,1) & Left(st,Len(st)) Print st, Next i End Sub 运行后输出的是。 6、下面程序的功能是：将以“12；3；15”形式输入的字符串分解为数字12、3、15，分别赋给3个数组元素，并对其进行简单运算(图为本程序执行画面)。 Private Sub Command1_Click() Dim a(3) As Integer, i As Integer Dim n As Integer Dim S As String s= For i=1 To 2 n=InStr(s, ";") a(i)=Left(s, n-1) S= Next I Text2. Text=a(1)*a(2)+a(3) End Sub 7、下面的程序是采用“冒泡排序”法从键盘上输入10个整数，将10个数从小到大排序。 Private Sub Command1_Click() Dim a(1 To 10) As Integer msg = "输入数：" msgtitle = "冒泡排序" For i = 1 To 10 a(i) = Next i For i = 10 To 2 Step - 1 For j = 1 To If Then t = a(j+1): a(j+1) = a(j): a(j) = t End If Next j Next i For i = 1 To 10 Print a(i) Next i End Sub 8、如下程序是从键盘上输入一个正整数，找出大于或等于该数的第一个素数。 Private Sub command1_Click() Dim i As Integer, x As Integer, y As Integer, flag As Boolean flag = False x = InputBox("请输入一个正整数", "输入正整数") y = x Do While Not flag i = 2 flag = Do While flag And i <= x / 2 If x Mod i = 0 Then flag = False Else End If Loop If Not flag Then Loop Print "大于或等于" & Str(y) & "的第一个素数是：" & Str(x) End Sub 9、下面程序的功能是找出1000以内的“完数”。所谓“完数”即一个数恰好等于它的因子之和，如6的因子为1、2、3，恰好6=1+2+3，因此6就是完数。 Option Explicit Private Sub Command1_Click() Dim i As Integer, j As Integer, s As Integer For i = 2 To 1000 S=0 For j=1 To i - 1 If Then s=s+j Next j If Then Print I, Next i End Sub 10、根据下图写出InputBox函数中的参数。 InputBox( “请输入半径”, , 10 ) A=7，B=3，C=4，则表达式 A MOD 2+B^ 3/C\4的值为_ _____。 11、执行下面的程序，在窗体上显示的输出结果的第一行是_ __，第二行是__。 Option Explicit Private Sub Form_Click() Dim M As Integer, N As Integer, K As Integer N=-3 For M=6 To 1 Step N M=M+1 N=N-M K=K+1 Next M Print K Print N End Sub 12、执行下面的程序，在窗体上显示的输出结果的第一行是_ __，第三行是_ ___。 Private sub form_click() Dim a as integer Dim I as integer A=2 For I=1 to 9 Call sub1(I, a) Print I,a Next I End Sub Private Sub Sub1(x as integer, y as integer) Static n as integer Dim I as integer For I=3 to 1 step –1 N=n+x X=x+1 Next I Y=y+n 13、执行下面程序，单击按钮Command1，A(1，1)的值是_ __，A(1，4)的值是_ __，A(4，1)的值是_ __，A(4，4)的值是_ __。 Option Base 1 Private Sub Command1_Click() Dim A() As Integer, I As Integer, J As Integer Dim K As Integer, n As Integer n=4 ReDim A(n, n) I=1:J=n: A(I, J)=1 For K=2 To n*n If I+1>n Then I= n-J+2: J=1 ElseIf I+1<=n And J+1>n Then J=J-I: I=1 Else I=I+1: J=J+1 End If A(I, J)=K Next K For I=1 To n For J=1 To n Print A(I, J); Next J Print Next I End Sub 14、下列程序运行的结果为_ ___。执行完该程序后，共循环了_ __。 Private Sub Command1_Click() Dim intsum As Integer Dim i As Integer Dim j As Integer For i=l To 17 Step 2 For j=1 To 3 Step 2 Intsum = intsum + j Next j Next I Print intsum End Sub 15、执行下面的程序段后，输出的第一行为_ __，第二行为_ __。 Private Sub Command1_Click() For I=6 To 9 Step 6 S=S + 1 Next i Print S, i End Sub 16、执行下面程序，单击窗体后在窗体上显示的结果是_ __。Private Sub Form_Click() Dim Str1 As String,Str2 As String,I As Integer Str1="ab" For I=Len(Str1) To 1 Step –1 Str1=Str1 & Chr(Asc(Mid(Str1,I,1))+I) Next I Print Str1 End Sub 17、根据图中给出的窗体，填写下表中的相关内容，“x”表示该对象无此属性。 18、输入一串数字字母间隔的字符串，将其中数字挑选出来，并且在相应的数字之间用“*”分开，如“alb2c3d4f”输出的结果为“[1*2*3*4*]”，如图所示。请将下列程序补充完整。 程序代码如下： Private Sub Form_Click() dim st As String, i As Integer st=InputBox("输入数字字母混合的字符串") I=1 Print "["; …字符串的第一个加”[” Do While i<= _ __ If (Mid(st, I, 1)>= "0") And (Mid(st, I, 1)<= "9") Then Print Mid(st, I, 1); Else _ __ End If I=i+1 …准备取下一个字符 Loop Print “]” End Sub 19、本程序用于验证任何一个大于6的偶数均可表示为两个素数之和。例如，14=3+1 l、14=7+7。待验证的偶数从文本框TxtInput输入，所有满足上述条件的素数对都显示在窗体上。 Option Explicit Private Sub Form_Click() Dim N As Integer，I As Integer，J As Integer N= _ __ For I=3 To N-2 Step 2 If _ __ Then If N-I>=I And Prime(N-I) Then Print N; "="; I ; "+" ; N-I End If End If Next I End Sub Private Function Prime(N As Integer)As Boolean Dim I As Integer, J As Integer, Flg As Boolean Prime=False For I=2 To Sqr(N) If N Mod I=0 Then _ __ Next I If _ __ Then Prime=True End Function 20、输入一小写英文句子，将其中a换成e，b换成f，……v换成z，w换成a，x换成b，y换成c，z换成d，转换成密码输出，但保留其单词间的空格和其他符号。请将下列程序补充完整。 Private Sub Form_Click() Dim st As String, ch As String, i As Integer, n As Integer St=InputBox("请输入英文句子") _ __ Do While i<=Len(st) ch=Mid(st, I, 1) n=Asc(ch) If (ch>="a") And (ch<="v") Then _ __ End If If (ch>="w") And (ch<="z") Then n=n+4-26 End If Print Chr(n); I=i+1 Loop End Sub 21、下列程序执行后，打印结果是、、。 Private Sub Command1_Click() X=5 Y=2 Z=3 If X>y Then t=x：x=Y：Y=t If X>z Then t=x：x=z：z=t If y>z Then t=Y：Y=z：z=t Print x；Y；Z End Sub 22、如下程序执行后输出的值是。 Private Sub Command1_Click() Dim x As Integer, I As Integer For I =1 To 6 Step 2 x = x + 1 Next I Print I End Sub 23、窗体中有一文本框Text1，执行下面程序后，窗体上显示的结果是，文本框中输出结果是。 Option Explicit Private Sub Form_Click() Dim a As Integer a=2 Call Sub1(a) Text1.Text=a End Sub Private Sub Sub1(X As Integer) X=X*2+1 If X<10 Then Call Sub1(x) End If X=X*2+1 Print x; End Sub 24、执行下面的程序后，A(1,3)值是，A(2,2)值是，A(3,1)值是。 Option explicit Option base 1 Private sub form_click() Dim A(3,3) As integer, I as integer Dim j as integer, k as integer, n as integer For k=1 to 5 If k<=3 then For I=1 to k N=n+1 A(I,k-I+1)=n Next I Else For I=1 to 6-k N=n+1 A(k-3+I,4-I)=n Next I End if Next k For k=1 to 3 For I=1 to 3 Print A(k,I); Next I Print Next k End Sub 25、下列程序执行后，打印结果是。 Option Explicit Private Sub Command1_Click() Dim i As Integer Dim sum As Integer sum=0 For I=3 To 100 If i Mod 3=0 And i Mod 11=0 Then Sum=sum + i End If Next i Print sum End Sub 26、执行下面的程序，当单击窗体时，显示在窗体上第一行的内容是，第二 行的内容是。 Private Sub Form_Click( ) Dim i As Integer, Sum As Integer For I = 0.5 To 8.5 Step 2.5 Sum = Sum + I * 10 Next I Print Sum Print I End Sub 27、执行下面的程序，在窗体上显示的输出结果的第一行是，第二行是。 Option Explicit Private Sub Form_Click() Dim S As String，i As Integer，flag As Boolean S="THIS IS A BOOK." S=LCase(s) Print S flag=True For I=1 To Len(s) If Mid(S, I, 1)= " " Then …判断第i个字符是否为空格 flag=True ElseIf flag Then S=Left(s, I-1) ＆UCase(Mid(s, I, 1)) & Right(s, Len(s)-i) flag=False End If Next i Print S End Sub 28、下面程序是求出所有的幸运数显示在列表框中，并将幸运数的个数显示到文本框中。凡前两位数字之和等于后两位数字之和的4位数称为幸运数。 Private Sub Command1_Click() Dim i As Integer ,n As Integer, n1 As Integer , n2 As Integer For i = 1000 To 9999 n2 = i Mod 100 If sum(n1) = sum(n2) Then List1.AddItem CStr(i) End If Next I Text1 = n End Sub Private Function sum( s As Integer ) As Integer Dim p As Integer , q As Integer 大学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/9314416360.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 第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 设置窗体的边框风格 第一套试题 一、选择题（每题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题〗『程序填空』 一:基础知识 对象的有关概念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个字符。 第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 一、常量 常量(也称常数)，是在程序运行期间其值始终保持不变的量。注意π不是常量。 定义常量的语法格式：[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》单选题 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考试题库
VB新题库(填空题)
vb知识点总结归纳.doc
vb程序设计试题(含答案)
vb题库(选择与填空)
VB题库程序填空
VB知识点汇总
vb课后练习答案习题解答 (5)
vb6.0练习题及答案
VB测验选择题真题精选
VB题库-填空练习题
vb练习题及答案.doc
VB选择题库(3)
江苏省计算机二级vb基本知识点总结
程序设计语言VB单项选择题及答案
vb真题(选择题)