第一篇：vb选择题及答案
30104.下列叙述错误的是（）。
(A)VB应用程序没有明显的开始和结束语句
(B)VB控件的所有属性值均可在属性窗口中设置(C)VB是事件驱动型可视化编程工具
(D)VB通过“工具”菜单的“选项”设置代码编辑窗口的字体大小(答案：B)30105.标准模块文件的扩展名是（）。
(A).cls(B).frm(C).bas(D).rec(答案：C)30106.下列叙述错误是（）。
(A)打开一个工程文件，系统自动装入与该工程有关的文件
(B)保存VB程序时，应分别保存窗体和工程文件(C)事件可以由用户触发，也可以由系统触发(D)VB应用程序只能以解释方式执行(答案：D)30108.下列叙述错误的是（）。
(A)VB是可视化程序设计语言(B)VB采用事件驱动编程机制
(C)VB是面向过程的程序设计语言(D)VB应用程序可以以编译方式执行(答案：C)30109.下列叙述正确的是（）。
(A)VB的事件由用户定义(B)VB程序以顺序方式执行
(C)VB程序从Main()函数开始执行(D)VB运行时，总是等待事件的发生(答案：D)30201.下列为整型变量的是（）。
(A)x!(B)x#(C)x%(D)x$(答案：C)
30202.设有语句组： Dim S1 As String*5 S1 = “VB Test” 则S1的值为（）。
(A)VB Test(B)VB Te(C)VBTes(D)BTest(答案：B)
30203.下列（）是合法的变量名。
(A)x_y(B)x-y(C)2x(D)and(答案：A)
30204.下列（）为单精度变量。
(A)x!(B)x#(C)x%(D)x$(答案：A)
30205.由（）关键字声明的局部变量在整个程序运行时一直存在。
(A)Dim(B)Public(C)Static(D)Private(答案：C)
30206.定义变量时如不指定类型，该变量为（）变量。
(A)Integer(B)String(C)Variant(D)Single(答案：C)
30208.下列（）是合法的变量名。
(A)x%y(B)xy%(C)2x(D)Or(答案：B)
30209.日期常量用（）作为界定符。
(A)“(B)%(C)#(D)&(答案：C)
30304.设a=6，b=5，c=-2；执行语句Print a > b > c后，窗体上显示的是（）。
(A)1(B)True(C)False(D)出错信息(答案：B)
30305.下列表达式中，值最大的是（）。
(A)2 3(B)2 / 3(C)2 mod 3(D)3 mod 2(答案：C)
30306.下列运算符中，优先级最低的是（）。
(A)*(B)^(C)/(D)(答案：D)
30307.表达式 2 = 3 < 1 的是（）。
(A)0(B)1(C)True(D)False(答案：C)
30308.x大于0且小于10的VB表达式是（）。
(A)0 < x < 10(B)x> 0 And x < 10(C)x> 0 Or x < 10(D)x> 0 : x < 10(答案：B)
30309.判断整型变量x是奇数的表达式是（）。
(A)x Mod 2 <> 0(B)x Mod 2!= 0(C)x Mod 2 ≠ 0(D)x Mod 2 ＝ 0(答案：A)
30401.返回值为数值的函数是（）。
(A)Mid(B)Instr(C)Left(D)Rtrim(答案：B)
30402.表达式Len(”AB52“)的值是（）。(A)0(B)4(C)6(D)8(答案：B)30404.返回值为字符串的函数是（）。
(A)Str(B)Val(C)Len(D)Asc(答案：A)30405.当x=0时，函数IIf(x > 0, 1, IIf(x < 0,-1, 0))的返回值是（）。(A)0(B)1(C)-1(D)出错
(答案：A)30407.如果Sgn(x)的值为-1，整型变量x的值是（）。(A)0(B)整数
(C)正整数
(D)负整数(答案：D)30409.除去字符串左侧空格的函数是（）。
(A)Left()(B)Trim()(C)Ltrim()(D)LeftTrim()(答案：C)30502.下列语句不合法的是（）。
(A)x = 1 : y=2
(B)?x;y;(C)?x , y ,(D)x = 1;y = 2(答案：D)30503.如果VB语句超过一行，可以使用空格加（）续行。
(A)y If xx Then z = x + y If x + y > z30 If a = b And b > c Then c = a + b Print a, b, c End Sub 运行时，单击按钮，窗体输出的结果是（）。(A)80 50 30(B)80 30 30(C)50 30 80(D)50 30 30(答案：B)31505.执行下列程序段后，x的值是（）。n = 5: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i< n(A)10(B)15(C)24(D)120(答案：C)31509.如果x小于y的平方，则在窗体上输出”OK“。完成该要求的单行条件语句是（）。(A)If x < y ^ 2 Then ”OK“(B)If x < y ^ 2 Then Show ”OK“(C)If x < y ^ 2 Then Print ”OK“(D)If x < y ^ 2 Then Put ”OK“(答案：C)31602.阅读下列程序段： x = 0 For i = 1 To 4 For j = 1 Toi x = x + 1 Next j, i 执行以上循环后，x 的值为（）。(A)6(B)9(C)10(D)16(答案：C)31604.执行下列程序段后输出的结果是（）。s = 1 For i = 1 To 3 For j = 0 To i-1 s = s + s * j Next j ? s;Next I(A)1 2(B)2 1(C)2 2 12(D)1 2 12(答案：D)31605.阅读下列程序段： m = 0 For i = 1 To 3 For j = 1 Toi m = m + j Next j, i 执行以上的循环后，i和m的值分别为（）。(A)3 6(B)3 10(C)4 6(D)4 10(答案：D)31606.运行下列程序段，其中“n=n+1”语句被执行的次数是（）。Dim m%, n% For m = 1 To 3 For n = 1 To 6 Step 2 n = n + 1 Print n Next Next(A)3(B)6(C)9(D)18(答案：B)31701.在通用声明中给出Option Base 1语句，则数组a包含（）个元素。Dim a(3,-2 To 1, 5)(A)120(B)75(C)60(D)13(答案：C)31704.如下数组声明语句中数组a包含的元素个数为（）。Dim a(3,-2 To 1, 5)(A)96(B)75(C)60(D)13(答案：A)31706.运行下列程序，单击窗体后输出的结果是（）。Private Sub Form_Click()Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3, 4, 5, 6)s = 1 For i = 5 To 1 Step-2 s = s * a(i)Next i Print s End Sub(A)15(B)48(C)120(D)720(答案：B)1．工程文件的扩展名为。
A、.frx B、.bas
C、.vbp D、.frm 2．以下4个选项中，属性窗口未包含的是。
A、对象列表 B、工具箱 C、属性列表 D、信息栏 3．下列不属于对象的基本特征的是。A、属性 B、方法 C、事件 D、函数
4．在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是。A、项目（工程）窗口 B、工具箱 C、代码窗口 D、属性窗口 5．Visual Basic中“程序运行”允许使用的快捷键是。A、F2
B、F5 C、Alt+F3
D、F8 6．改变控件在窗体中的上下位置应修改该控件的属性。A、Top
B、Left C、Width
D、Right 7．窗体模块的扩展名为。
A、.exe
B、.bas C、.frx D、.frm 8．窗体的FontName属性的缺省值是。A、宋体 B、仿宋体 C、楷体 D、黑体
9．FontSize属性用以设置字体大小，窗体的FontSize属性缺省值为。A、5
B、9 C、12
D、16 10．在Visual Basic中，称对象的数据为。A、属性 B、方法
C、事件 D、封装 11．下列选项中不属于事件的是。
A、Dblclick B、Load C、Show
D、KeyUp 12．将Visual Basic编制的程序保存在磁盘上，至少会产生何种文件。A、.doc与.txt
B、.com与.exe
C、.bat与.frm D、.vbp与.frm 1．Integer类型数据能够表示的最大整数为。A、275 B、215-1
C、216
D、216-1 2．货币类型数据小数点后面的有效位数最多只有。A、1位 B、6位 C、16位 D、4位
3．输入对话框InputBox的返回值的类型是。A、字符串 B、整数 C、浮点数 D、长整数
4．运算符“”两边的操作数若类型不同，则先再运算。A、取整为Byte类型 B、取整为Integer类型 C、四舍五入为整型 D、四舍五入为Byte类型 5．Int(Rnd * 100)表示的是范围内的整数。A、[0，100]
B、[1，99]
C、[0，99]
D、[1，100] 6．下列程序段的输出结果是。
a=10: b=10000: x=log(b)/log(a): Print ”lg(10000)=“;x A、lg(10000)=5
B、lg(10000)=4 C、4
D、5
7．返回删除字符串前导和尾随空格符后的字符串，用函数。
A、Trim
B、Ltrim C、Rtrim D、mid
8．Print语句的一个输出表达式为，则输出包括日期、时间信息。A、Date
B、Month
C、Time
D、Now 9.语句Print ”5*5“ 的显示结果是。
A、25
B、”5*5“
C、5*5
D、出现错误提示 10．语句“Form1.Print Tab(10);”#“”的作用是在窗体当前输出行。A、第10列输出字符“#”
B、第9列输出字符“#” C、第11列输出字符“#” D、输出10个字符“#” 1．下列关于Select Case之测试表达式的叙述中，错误的是。
A、只能是变量名 B、可以是整型 C、可以是字符型 D、可以是浮点类型 2．下列关于Select Case的叙述中，错误的是。
A、Case 10 To 100
表示判断Is是否介于10与100之间
B、Case ”abc“,”ABC“ 表示判断Is是否和”abc“、”ABC“两个字符串中的一个相同 C、Case ”X“
表示判断Is是否为大写字母X D、Case-7,0,100
表示判断Is是否等于字符串”-7，0，100“ 3．由“For i=1 To 16Step 3”决定的循环结构被执行（）次。A、4 B、5 C、6 D、7 4．若i的初值为8，则下列循环语句的循环次数为次。
Do While i<=17 i=i+2 Loop A、3次
B、4次 C、5次
D、6次
5．由“For i=1 To 9Step-3”决定的循环结构被执行次。A、4 B、5 C、6 D、0 6．窗体通用部分的语句“OptionBase 1”，决定本窗体中数组下标界。A、下界必须为1 B、缺省的下界为1 C、下界必须为0 D、缺省的下界为0
1．标签控件的标题和文本框控件的显示文本的对齐方式由属性来决定。A、WordWrap B、AutoSize C、Alignment
D、Style 2．将命令按钮Command1设置为窗体的取消按钮，可修改该控件的属性。A、Enabled
B、Value
C、Default
D、Cancel 3．下列属性用来表示标签或窗体的标题。
A、Text
B、Caption C、Left
D、Name 4．将焦点主动设置到指定的控件或窗体上，应采用方法。A、SetDate B、SetFocus C、SetText D、GetGata 5．按Tab键时，焦点在各个控件之间移动的顺序是由属性来决定的。A、Index
B、TabIndex C、TabStop D、SetFocus 6．下列属性用来表示各对象（控件）的位置。
A、Text
B、Caption
C、Left D、Name 7．当文本框的属性设置为True时，在运行时文本框不能编辑。A、Enabled
B、Locked C、Visible
D、MultiLine 8．要使文本框显示滚动条，除了设置ScrollBars属性外还必须设置属性。A、AutoSize B、MultiLine C、Alignment
D、Visible 9．文本框控件Text4的Text属性默认值为。
A、Text4
B、”Text4“ C、Locked
D、Name
10．文本框中选定的内容，由下列属性来反映。
A、SelText B、SelLength C、Text
D、Caption 11．选中复选框控件时，Value属性的值为。
A、True
B、False
C、0
D、1 12．要使复选框控件不响应Click事件，可设置复选框的属性。A、Appearance
B、Style
C、Enabled D、TabIndex 13．若要在同一窗体中安排两组单选钮，可用控件予以分隔。A、文本框 B、框架 C、列表框 D、组合框
14．列表框的属性返回或设置列表框中各列表项的文本。A、Selected
B、List C、Text
D、Caption 15．List1.Clear中的Clear是。
A、方法 B、对象 C、属性 D、事件
16．以下语句将删除列表框List1中的最后一项。A、List1.RemoveItem List1.ListCount B、List1.Clear C、List1.List(List1.ListCount-1)= ”“ D、List1.RemoveItem List1.ListCount-1 17．若要把”XXX“添加到列表框List1中的第三项，则可执行语句。A、List1.AddItem ”XXX“, 3
B、List1.AddItem ”XXX“, 2 C、List1.AddItem 3,”XXX“
D、List1.AddItem 2,”XXX" 18．滚动条的属性用于指定用户单击滚动条的滚动箭头时，Value属性值的改变量。A、LargeChange B、SmallChange C、Value
D、Change 19．单击滚动条两端的任意一个滚动箭头，将触发该滚动条的事件。A、KeyDown B、Change C、Scroll
D、Click 20．设计动画时通常用定时器控件属性来控制动画速度。A、Interval B、Timer
C、Move
D、Enabled 1．对画出的图形进行填充，应使用属性。A、BackStyle B、FillColor C、FillStyle D、BorderStyle 2．将图片框的属性设置成True时，可使图片框根据图片调整大小。A、Picture
B、AutoSize C、Stretch
D、AutoRedraw 3．可以改变坐标的单位。
A、DrawStyle属性 B、Cls方法 C、ScaleMode属性 D、DrawWidth属性 4．Visual Basic用以下哪一条指令来绘制直线。A、Line方法 B、Pset方法 C、Point属性
D、Circle方法 5．Visual Basic可以用以下哪一条属性来设置边框类型。A、BorderStyle B、BorderWidth C、DrawWidth D、FillColor 6．属性可以用来设置所绘线条宽度。A、DrawStyle B、BorderStyle C、DrawWidth
D、FillColor 7．下列是用来画圆、圆弧及椭圆的。A、Circle方法
B、Pset方法 C、Line属性 D、Point属性
8．描述以（1000，1000）为圆心、以400为半径画1/4圆弧的语句，以下正确的是。A、Circle(1000,1000),400,0,3.1415926/2
B、Circle(1000,1000)，400,0,3.1415926/2 C、Circle(1000,1000),400，0,3.1415926/2
D、Circle(1000,1000),400，0,90 9．语句“Circle(1000,1000),800，-3.1415926/3,-3.1415926/2”绘制的是。A、弧
B、椭圆 C、扇形 D、同心圆 10．语句“Circle(1000,1000),800，，2”绘制的是。A、弧
B、椭圆 C、扇形 D、同心圆 11．上题Circle语句中最后的2表示的是。
A、椭圆的纵轴和横轴长度比 B、椭圆的横轴和纵轴长度比 C、同心圆的半径比 D、圆弧两半径间的夹角 12．RGB函数中的3个数字分别表示。A、红、绿、白 B、红、绿、蓝
C、色调、饱和度、亮度 D、当前色、背景色、前景色 13．当Stretch属性值为False时。
A、图片大小随影像框的大小进行调整 B、影像框的大小随图片大小进行调整 C、图片框的大小随图片大小进行调整 D、图片大小随图片框的大小进行调整 14．BorderStyle属性是用来表示线条的。A、长度 B、宽度 C、线形 D、颜色
15．在Visual Basic中，不能作为其他控件的容器。A、框架 B、图片框 C、影像框
D、窗体
第二篇：程序设计语言VB单项选择题及答案
《程序设计语言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
C.min4max D.R[8] 16.在窗体内声明的变量是（）。
A.局部变量 B.模块变量 C.公共变量 D.任意变量
17.语句Dim x As Integer作用是:将x定义为（）变量。
A.单精度型 B.整型 C.布尔型 D.字符型
18.在VB中,用Boolean来表示的数据类型是（）。
A.长整型 B.字符型 C.布尔型 D.单精度型
19.定义常量需要用到的关键字是（）。
A.Const B.Dim C.Private D.Public 20.如果要处理3.1415类数据，使用的变量类型应该是（）。
A.Single B.Long C.Integer D.String 21.表达式2*3^2+2*8/2+3^2的值为（）。
A.27 B.31 C.35 D.42 22.数学表达式 X^2+3XY对应的VB算术表达式是（）。
A.X*2+3X*Y B.X*X+3XY C.X*X+3*X*Y D.X*X+3*XY 23.在VB语言中，求余运算符是（）。
A.％
B.MOD C.* D./ 24.判断两个逻辑关系任一满足的逻辑运算是（）。
A.Or B.And C.Not D.Ok 25.表达式4+5 6 * 7 / 8 Mod 9 的值是（）。
A.4 B.5 C.6 D.7 26.选拔身高T超过1.7米且体重W小于60公斤的人，表示该条件的布尔表达式为（）。
A.T>=1.7 And W<=60 B.T<=1.7 Or W>=60 C.T>1.7 And W<60 D.T>=1.7 Or W<60 27.VB中下列逻辑表达式书写正确的是（）。
A.a>b and a>c B.a>b>c C.a≤b D.a≠122 28.设x=4,y=8,z=7，表达式x A.1 B.-1 C.TRUE D.FALSE 29.Sqr(81)+Fix(3.6)的值是（）。 A.12 B.7 C.8 D.9 30.把字符串“123”转换为数值123 时应该使用的函数是（）。 A.Str B.Val C.Len D.Log 31.表达式Abs（-3）+int(3.14)的值为（）。 A.5 B.6 C.0.14 D.6.14 32.Int(Rnd * 100)表示的是（）范围内的一个整数。 A.[0,100] B.[1,99] C.[0,99] D.[1,100] 33.Len(“Friend”)的值是（）。 A.6 B.7 C.8 D.9 34.Int(-3.14)的值是（）。 A.-3 B.-3.14 C.-4 D.3.14 35.Right（“banana”, 4）的值是（）。 A.ba B.banana C.nana D.ban 36.表达式 Mid(“Hello”, 2, 3)的值是（）。 A.“ll” B.“llo” C.“ell” D.“ello” 37.语句if 3*4>=10 then a=1 else a=2 执行后，a的值为（A.12 B.10 C.1 D.2 38.语句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为关系表达 。） 39.下面程序段中，（）不是把两个数中的大值赋给变量Ｍax。 A.Max=IIf(x>y,x,y)B.If x>y Then Max=x Else Max=y C.Max=x ：If y>=x Then Max=y D.If y>=x Then Max=y Max=x 40.在Select判断结构中，下面的表述中不正确的是（）。 A.Case 1 B.Case a > 5 C.Case 3 To 6 D.Case is <10 41.由“For i=1 To 16 Step 3”决定的循环结构被执行（）次。 A.4 B.5 C.6 D.7 42.Dim a(5, 5)As Long 定义的数组元素的个数是（）。 A.10 B.11 C.25 D.36 43.用于清空数组数据的关键字是（）。 A.Erase B.Lbound C.Ubound D.Redim 44.下列关于do while „loop 和do„loop while循环执行循环体次数的描述正确的是（）。 A.do while „loop循环和do„loop while循环至少都执行一次 B.do while „loop循环可能不执行，do„loop while循环至少执行一次 C.do while „loop循环至少执行一次，do„loop while循环可能不执行 D.do while „loop循环和do„loop while循环可能都不执行 45.For-Next 语句属于程序基本结构中的（）。 A.顺序结构 B.循环结构 C.分支结构 D.选择结构 46.下列关于Exit For 的说法，正确的是（）。 A.它可以退出任何类型的循环 B.一个循环只能有一个Exit For C.每个循环必须有Exit For D.Exit For本身是无条件退出循环 47.在Visual Basic代码窗口中,将某一条语句加以注释和说明时,应在语句前加（）。 A., B.: C.' D.? 48.为了将一个语句写在多行上所使用的行续接符是：（）。 A.& B._ C.' D.： 49.在一个语句内写多条语句时,每个语句之间分隔符号是（）。 A., B.； C.: D.' 50.Function过程的定义，不必须有的是（）。 A.过程的名称 B.虚参 C.End Function D.给过程赋值 51.下列过程调用语句中，被调用的过程一定是Sub子过程的语句是（）。 A.Pro1(x)B.Print Pro2(x)C.x= Pro3(x)D.Call Pro4(x)52.Sub过程与Function过程最根本的区别是（）。 A.Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以 B.Function过程可以有形参，Sub过程不可以 C.Sub过程不能返回值，而Function过程能返回值 D.两种过程参数的传递方式不同 53.当拖动滚动条中的滚动块时，将触发滚动条的事件是（）。 A.Move B.SetFocus C.Scroll D.Change 54.列表项选择后得到的选中索引是指（）。 A.Value B.ListValue C.Index D.ListIndex 55.定时器定时工作所触发的事件是（）。 A.Click()B.Change()C.Timer()D.Load()56.在图片框中加载图形(c:666.jpg)的方法是（）。 A.Loadpicture(“c:666.jpg”)B.Loadpicture()C.print(“c:666.jpg”)D.cls 57.以下关于VB列表框的叙述中（）是错误的。 A.可通过属性“Item”，返回列表框中的项目 B.可通过属性“Text”，得到当前列表项中的内容 C.可通过属性“ListIndex”返回当前选中的列表项的索引 D.可通过属性“ListCount”返回列表框中项目的数目 58.为了把焦点移到某个指定控件，所使用的方法是（）。 A.GetFocus B.Visible C.Refresh D.SetFocus 59.为了隐藏一个窗体，所使用的方法为（）。 A.Load B.Show C.Hide D.UnLoad 60.如果窗体被遮挡，通过调用（）方法，可以将其显示。 A.Hide B.Show C.Unload D.load 61.VB窗体设计器的主要功能是（）。 A.建立用户界面 B.画图 C.编辑文字 D.编写程序代码 62.窗体的（）方法可以清除窗体上的图形与文本。 A.print B.cls C.load D.circle 63.窗体没有（）属性。 A.Caption B.Text C.Picture D.Top 64.当一个工程有多个窗体时，其中的启动窗体是（）。 A.70.在Visual Basic中,以下选项中表示单击事件的是（）。 A.KeyUp B.Click C.Activate D.Load 71.下面不属于键盘事件的是（）。 A.KeyUp B.KeyDown C.KeyPress D.Click 72.每当窗体失去焦点时会触发的事件是（）。 A.Active B.Deactive C.LostFocus D.Initialize 73.设在窗体上有一通用对话框控件Commonialog1，通过调用（）语句可以建立“颜色”对话框。 A.Commonialog1.ShowOpen B.Commonialog1.Action=2 C.Commonialog1.ShowColor D.Commonialog1.Action=5 74.用语句Commonialog1.ShowOpen建立了“打开”对话框以后，要得到用户所选择文件的路径及文件名，应使用Commonialog1的（）。A.DialogTitle属性 B.FileTitles属性 C.FileName属性 D.InitDir属性 75.用于显示弹出式菜单的方法名是()。 A.ShowOpen B.ShowMenu C.ShowPopup D.PopupMenu 76.打开菜单编辑器的快捷键是（）。 A.CTRL+F B.Alt+F C.CTRL+E D.Alt+E 77.下列叙述中，错误的是（）。 A.顺序文件打开后，既可以读又可以写 B.随机文件打开后，既可以读又可以写 C.顺序文件打开后，只能读或者只能写 D.顺序文件和随机文件的打开都使用Open语句 78.VB编程中顺序文件的处理将用到关键字是（）。 A.File B.Save C.Open D.Disk 1.D 2.A 3.B 4.C 5.A 6.C 7.C 8.B 9.A 10.A 11.B 12.A 13.B 14.D 15.D 16.B 17.B 18.C 19.A 20.A 21.C 22.C 23.B 24.A 25.B 答案 26.C 27.A 28.D 29.A 30.B 31.B 32.C 33.A 34.C 35.C 36.C 37.C 38.C 39.D 40.B 41.C 42.D 43.A 44.B 45.B 46.D 47.C 48.B 49.C 50.B 51.D 52.C 53.D 54.D 55.C 56.A 57.A 58.D 59.C 60.B 61.A 62.B 63.B 64.D 65.C 66.B 67.C 68.D 69.C 70.B 71.D 72.C 73.C 74.C 75.D 76.C 77.A 78.C VBP判断题 套号 题号 题目 01 01 01 01 01 01 01 01 01 01 02 02 02 02 02 02 02 02 02 02 03 03 03 03 03 03 03 03 03 03 04 04 04 04 04 04 04 04 04 04 05 05 05 05 05 05 05 05 05 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 每当一个窗体成为活动窗口时将触发Show事件。 Integer、Long、Single、Double是数值类型数据，但Byte不是。在打开某窗体时，初始化窗体中的各控件，应选用Load事件。 若行If语句中逻辑表达式值为True，则关键字Then后的若干语句都要执行。函数过程与Sub过程必须用关键字Private或Public声明。 标签控件可以响应Click事件。 屏幕（Screen）对象可作为窗体的容器，但它只能提供缺省的坐标系统，即坐标刻度不能改变 用通用对话框控件显示“字体”对话框前，必须先设置Flags属性，否则将发生“不存在字体” 的错误。 运行时目录列表框的List属性可以用AddItem和RemoveItem两种方法来改变。 将组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框 的列表项中选择，也可以由用户输入。 窗体启动位置可在“窗体布局窗口”中直接设置。 在所有的数据类型中，Byte型占用的内存空间最小，只要用一个字节。表达式5>4>3的计算结果是True。 在行If语句中，关键字End If是必不可少的。用Function过程在过程中必须被赋值。 单击组合框中的任一表项，该表项的文本就会替换这一组合框控件的Text属性值。QBcolor函数的参数是一个介于0~255的整数。 用通用对话框控件显示“字体”对话框前，必须先设置Flags属性，否则将发生“不存在字体” 的错误。 运行时目录列表框的List属性可以用AddItem和RemoveItem两种方法来改变。 当对DrawWidth进行设置后，将影响Line、Circle、Pset方法，但不会影响Line、Shape控件。在VB中，对象是代码和数据的集合。 Boolean类型数据，可以用来保存逻辑值True和False。如果B是一个字节型变量，那么B可以用来保存数值-1。 如果在定义过程时，一个形式参数使用地址传递方式说明，则调用过程时与之对应的实参只能 按地址方式传递。 在行If语句中，关键字End If可以缺省。定时器控件只能响应Timer事件。 从几十个项目中任选其中一项或多项时可选用列表框或组合框控件来实现。执行语句“C=Point(50,100)”，可将窗体坐标(50,100)处点的颜色值存入变量C。 在设计Windows应用程序时，用户可以使用系统本身提供的某些对话框，这些对话框可以直接 从系统调入而不必由用户用“自定义”的方式进行设计。Print #语句的作用是将数据从文件中读出并显示在窗体上。方法是VB预先定义的、只有用户可直接使用的过程。 整型变量A、B,如果A的值是1，B的值是256，那么变量B比变量A需要占用更多内存。用语句Dim Str1 As String声明的变量Str1，可以保存由100万个字符组成的字符串数据。块If结构中的Else子句是不可缺省的。 事件过程只能由系统调用，在程序中不能直接调用。 单选按钮与复选框对象的Value属性类型不同，单选按钮只能取值0或1。列表框和文本框一样都具有Text属性。 执行语句“Form1.BackColor = &HFF&”可以将窗体的背景色设置为蓝色。通过Open语句打开一个文件，操作完成后，必须用Close语句将其关闭。在窗体上绘制CommonDialog控件时，控件的大小、位置可由用户自己加以设定。在“工程资源管理器”，可以实现多窗体的所有操作。 由于Single型变量的取值范围比Long型变量大，所以Single型变量开销内存也比Long型多。语句Const A=100是将A声明为一个常量。块If结构中的Else子句可以缺省。 定义一个过程时，有几个形参，则在调用该过程时就必须提供几个实参。 列表框控件List1的最后一个表项为List1.List(List1.ListCount)。 移动框架时框架内控件也跟随移动，因此框架内控件的Left和Top属性值也随之改变。通过设置影像框的Picture属性可改变影像框中显示的图片，若要清除图片也是通过设置 Picture属性来实现。 在消息框（MsgBox）中，“Prompt”（消息）是必选项，最大长度为64个字符。 选项A 选项B 答案 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 B B B A B A A A B A A A B B A A B A B A A A B A B A B A A B B B A A B B A B A B A B A B A B B A B 第 1 页，共 4 页 VBP判断题 05 06 06 06 06 06 06 06 06 06 06 07 07 07 07 07 07 07 07 07 07 08 08 08 08 08 08 08 08 08 08 09 09 09 09 09 09 09 09 09 09 10 10 10 10 10 10 10 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 在程序运行中，目录列表框将以树形展开方式显示某个盘或目录内的各个子目录名，并用是否 为打开的文件夹图标来表示选定的目录。 在打开某窗体时，初始化窗体中的各控件，应选用Load事件。不能使用Visual Basic的关键字作为变量名。表达式5>4>3的计算结果是True。 若用数组作为过程的参数，则实参和形参结合是按地址传递的，定义过程时，参数前不能使用 ByVal。 If语句中的条件表达式只能使用关系表达式或逻辑表达式。 执行滚动条控件的Change事件不是在拖动滚动条滑块的过程中，而是在拖动过程停止时。将组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框的 列表项中选择，也可以由用户输入。 将图片框的Align属性设置值为2，表示图片框在窗体中居中显示。 用户要想在程序运行时改变目录列表框的显示内容，可以通过代码来设置List属性的值。如果创建的菜单的标题是一个减号“-”，则该菜单显示为一个分隔线，此菜单项也可以识别单 击事件。 决定对象是否可见的属性是Show属性，决定对象可用性的属性是Load属性。表达式5>4>3的计算结果是True。 Dim关键字可用来声明过程级变量，但不能用来声明模块级变量。 在Select Case情况语句中，各个分支（即Case 表达式）的先后顺序无关。Sub过程名在过程中必须被赋值。 Picture对象的AutoSize属性值为True时，表示该对象不管原来图片的大小，一律都自动调整 为控件的大小尺寸，以便能完整地显示该图片。 设置窗体的Fillcolor属性使窗体的填充色为红色后，形状控件的填充色也是红色。当使用Circle方法画圆后，当前坐标在原点（0，0）。 菜单编辑器中的快捷键是指无须打开菜单就可以直接由键盘输入选择菜单项的键。若要新建一个磁盘上的顺序文件，可用OUTPUT、APPEND方式打开文件。在任何状态下都可以直接设置窗体的属性。 在一个模块中声明了一个模块级变量，则该变量可以被该模块中的所有过程访问。Print语句可以省略输出项，省略输出项，表示输出一空行。在Select Case情况语句中，Case 表达式可以包含任意变量。 过程中的静态变量是局部变量，当过程再次被执行时，它的值是上一次过程调用后的值。如果定时器的Interval属性是0，当启动定时器时，程序将进入死循环。 设置窗体的Fillcolor属性使窗体的填充色为红色后，形状控件的填充色也是红色。 将组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框的 列表项中选择，也可以由用户输入。 若某文件已存在，用OUTPUT方式打开该文件，等同于用APPEND方式打开该文件。当一个菜单项不可见时，其后的菜单项就会往上填充留下来的空位。 面向对象程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。 Print语句的每个输出项之间可以用逗号或分号分隔，不管用逗号还是分号，其输出效果是一样 的。 语句A=B的意思是将字符“B”赋值给A，即A的值是字符“B”。 若用数组作为过程的参数，则实参和形参结合是按地址传递的，定义过程时，参数前不能使用 ByVal。 要实现同样的循环控制，在Do While/ Loop和Do/ Loop While循环结构中给定的循环条件是一 样的。 ScaleWidth属性和ScaleHeight属性是容器的坐标属性，因此有可能取到负值。要让控件隐藏起来，处于不可见的状态，可修改其enabled属性。 如果定时器的Interval属性是0，当启动定时器时，程序将进入死循环。CommonDialog控件就像Timer控件一样，在运行时是看不见的。用Kill语句删除文件，只能删除与指定文件名完全匹配的一个文件。 在一个窗体的代码中不能使用Unload语句来卸载本窗体，即一个窗体只能由其它窗体卸载。声明常量时给常量赋值可以使用表达式，但表达式不能包含函数调用。整除运算符，其两边的操作数可以是浮点型数据。 定义一个过程时，有几个形参，则在调用该过程时就必须提供几个实参。一个Do循环只能使用一个Loop关键字，但是可以使用多个Exit语句。 如果字符“Y”是某个命令按钮的访问键，在设计时，设置命令按钮的Caption属性时要在其中 字符“Y”前输入&；运行时，可以通过按alt+ Y键执行单击操作。 当列表框中表项太多、超出了设计时的长度时，Visual Basic会自动给列表框加上垂直滚动条 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 A A A B A A A A B A B B B B B B B B B A A B A A B A B B A B A A B B A B A B B A B B A A A A A A 第 2 页，共 4 页 VBP判断题 10 10 11 11 11 11 11 11 11 11 11 11 12 12 12 12 12 12 12 12 12 12 13 13 13 13 13 13 13 13 13 13 14 14 14 14 14 14 14 14 14 14 15 15 15 15 15 15 15 15 15 08 09 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 容器控件的位置、大小均采用其所在容器坐标系的刻度，与容器本身的坐标刻度无关。Open语句中的文件号，必须是当前未被使用的、最小的作为文件号的整数值。设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的名字。由Visual Basic语言编写的应用程序有解释和编译两种执行方式。算述运算符要比关系运算符、逻辑运算符的运算优先级低。表达式A=B的计算结果要么是True，要么是False。 For/Next语句正常（未执行Exit For）结束其循环变量的值一定大于终值。 因为Function过程有返回值，所以只能在表达式中调用，而不能使用Call语句调用。图片框可以通过Print方法来显示文本。 Picture对象的AutoSize属性值为True时，表示该对象不管原来图片的大小，一律都自动调整 为控件的大小尺寸，以便能完整地显示该图片。当使用Circle方法画圆后，当前坐标在原点（0，0）。菜单一旦建成后，所有的菜单项均可识别Click事件。文件列表框的显示内容发生变化时，会触发Change事件。对象的基本特征是方法、事件和过程。 如果x、y、z是3个数值型变量，那么这3个变量的积的VB表达式可以写成xyz。过程级变量不可以与模块级变量同名。 事件过程只能由系统调用，在程序中不能直接调用。 For/Next语句正常（未执行Exit For）结束其循环变量的值一定大于终值，并等于“终值”+ “步长”。 对象的标题文字的颜色是由Fontcolor属性决定的。 执行滚动条控件的Change事件不是在拖动滚动条滑块的过程中，而是在拖动过程停止时。用Cls方法不能清除图片框中用Picture属性设置的图形。可以用AddItem方法向目录列表框中加入新表项。菜单项不仅可识别Click事件，还可识别ＤblClick事件。在VB中，对象的数据被称为属性。 如果x、y、z是3个数值型变量，那么这3个变量的积的VB表达式可以写成xyz。内部函数是系统预定义的函数。 For/Next语句中，若循环变量的初值大于终值，Step缺省，则为死循环。数组作为参数，传递的是地址数据。 只要设置命令按钮的backcolor为蓝色，按钮就一定可以变成蓝色按钮。 移动框架时框架内控件也跟随移动，因此框架内控件的Left和Top属性值也随之改变。改变图形对象的坐标系可以用ScaleMode方法。 在通用对话框的“打开文件对话框”中选择一个文件后，能真正打开该文件。目录列表框当前目录的ListIndex为0，其子目录的ListIndex属性再按顺序往下编号。用VB设计程序时，必须先设计窗体，再编写代码。表达式“123”+“1”的计算结果是“1231”。内部函数是系统预定义的函数。 For/Next语句中，循环控制变量只能是整型变量。用Function过程在过程中必须被赋值。 要在文本框中输入6位密码，并按回车键确认，则文本框的MaxLength属性可设置为6。 定时器控件只能响应Timer事件。 在图片框中添加的控件，其Top和Left属性值是相对图片框而言的，与窗体无关。在“颜色”对话框中选中某一颜色后，该颜色值会赋给Color属性。 在盘驱动器列表框Drive1的Change事件过程中，代码Dir1.Path=Drive1.Drive的作用是：当 Drive1的驱动器改变时，Dir1的目录列表随同驱动器作相应变化。在VB中如要使用调试工具，应使VB进入中断模式。表达式1*2+3/42^2的计算结果是2。Rnd函数返回的最大值是1。 如果在定义过程时，一个形式参数使用地址传递方式说明，则调用过程时与之对应的实参只能 按地址方式传递。 For/Next语句中，“Step 1”可以缺省。 用Redim语句既可以改变数组的大小，也可以改变数组类型。标签控件和其他控件对象一样，可以获得焦点。影像框和图片框一样，也可以作为其他控件的容器。 通用对话框的Filename和FileTitle属性一样，指的都是含路径的文件全名。 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 A A A B B A B A A B B B B B B B B B B A A B B A B A B A B B B B B B A A B A A A A A A A A B A A B B B B 第 3 页，共 4 页 VBP判断题 16 16 16 16 16 16 16 16 16 16 17 17 17 17 17 17 17 17 17 17 18 18 18 18 18 18 18 18 18 18 19 19 19 19 19 19 19 19 19 19 20 20 20 20 20 20 20 20 20 20 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 10 01 02 03 04 05 06 07 08 09 10 若某文件已存在，用OUTPUT方式打开该文件，等同于用APPEND方式打开该文件。VB是一种面向过程的可视化编程语言。表达式Sin(30)，就是求30度角的正弦值。 Val是用来把一个数字字符串转换为相应的数值的函数。在循环体内，循环变量的值不能被改变。 在使用Redim重新定义数组时，下标可以用具有确定值的变量来表示。事件过程只能由系统调用，在程序中不能直接调用。 影像框和图片框都可以用AutoSize属性来控制控件大小调整的行为，当AutoSize属性值为True 时，两者控件大小根据图片来调整；设置为False时，只有一部分图片可见。通用对话框的FilterIndex属性用于设置“打开”或“另存为”对话框的文件类型。单选钮控件和复选框控件都具有Value属性，它们的作用完全一样。Print #语句的作用是将数据从文件中读出并显示在窗体上。控件的属性值不可以在程序运行时动态地修改。表达式Int(-10.1)的计算结果是-10。执行语句A=B=2后，A的值是一个逻辑值。 用Redim语句既可以改变数组的大小，对于已经定义了类型的数组，还可以改变数组类型。用Public声明的数组是一定全局量。 调用过程时的实参必须是与对应形参类型相同的表达式。组合框能响应Click事件，但不能响应change事件。ScaleMode的所有属性值均表示打印长度。 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 对 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 错 B B B A B A B B B B B B B A B B A B B A B A A A A B B A A A B A B B A B B A A B A A A A B B A A B B A 通用对话框不是一种标准控件，初始时工具箱中一般找不到，因此使用前需先将它添加到工具 箱中。 用Append模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。VB中的变量名，如用的是英文字母，其大小写是不区分的。 如果窗体的Enabled属性为False，就不能对窗体上的任何控件进行操作。表达式Mid(“Nothing”,3,2)的计算结果是“th”。执行语句A=B=2后，A的值是一个逻辑值。 若要使定义数组的下标下界默认值为2，则可以用语句Option Base 2.声明形参处缺省传递方式声明，则为按值传递（Byval）。 使用单选钮控件数组时，它们响应同一个Click事件，由Index参数值来区分不同的按钮。图形控件可以在运行时获得焦点。 创建用户自定义对话框时，一般应将ControlBox设为Ｆalse，使得控制菜单框不显示。运行时目录列表框的List属性可以用AddItem和RemoveItem两种方法来改变。修改控件的Top和Left属性,可改变控件在窗体中位置。 事件是一种预先定义好的特定动作，只能由用户触发，常用于用户的交互操作。表达式Len(x)和len(“x”)返回值必然相等。 使用On Error GoTo语句并编写相应程序，可以捕获程序中的编译错误。Sub过程名在过程中必须被赋值。 若要使定义数组的下标下界默认值为2，则可以用语句Option Base 2.设置框架时，可先在窗体上画好框架，再往框架内添置控件；也可以先设计控件，再建立框 架，然后将已有控件粘贴到框架中。 BorderWidth属性表示指定直线和形状边界线的线条宽度，该属性值不能设置为0。通用对话框的Filename和FileTitle属性一样，指的都是含路径的文件全名。 选中文件列表框File1中某个选项时，File1.FileName属性值为不包含路径的文件名。Form_Load事件常用于作控件属性和变量的初始化。 面向对象的程序设计是一种以对象为基础，由事件驱动对象的编程技术。表达式“123”+“1”的计算结果是“1231”。 Print语句的每个输出项之间可以用逗号或分号分隔，不管用逗号还是分号，其输出效果是一样 的。 Do/Loop Until结构的循环，是“先判断、后执行（循环体）”的循环结构。 过程中的静态变量是局部变量，当过程再次被执行时，它的值是上一次过程调用后的值。当列表框中表项太多、超出了设计时的长度时，Visual Basic会自动给列表框加上垂直滚动条 执行指令“Line(1200,1200)-Step(1000,500),B”后，CurrentX=1000。 若Visual Basic中容器取缺省坐标系，则坐标原点在容器左上角、单位长度为像素。盘驱动器列表框的Drive属性，只能用程序代码设置，不能通过属性窗口设置。 第 4 页，共 4 页 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.标签框的边框，由属性的设置值决定。A)BorderStyle B)BackStyle C)BackColor D)AutoSize 18.标签框文本的对齐方式由属性来决定。 A)Align B)Alignment C)Autosize D)BackStyle 19.标签框所显示的内容，由属性值决定。 A)Text B)Name C)Caption D)Alignment 20.在运行时，若要获得用户在文本框中所选择的文本，可通过访问属性来实现。A)SelStart B)SelLength C)Text D)SelText 二、填空题(每题2分,共20分)1.Visual Basic是一种面向的可视化程序设计语言，采取了的编程机制。2.在VB集成开发环境中，运行应用程序的方法有两种是：或。 3．Visual Basic的对象主要分为和两大类。 4.在Visual Basic中，用来描述一个对象外部特征的量称之为对象的。 5.在Visual Basic中，设置或修改一个对象的属性的方法有两种，它们分别是 和。 6.在Visual Basic中，最基本的对象是。 7.在Visual Basic中，默认窗体名为，默认工程名为。8.若用户单击了窗体Form1，则启动的事件名为。9.调用方法的具体调用格式为。10．在代码中设置对象属性的格式为。 三、简答题(每题8分,共40分)1.简述VB的特点。 2.安装Visual Basic系统程序应具备什么条件？ 3.启动Visual Basic有几种方法？ 4．退出Visual Basic有几种方式？ 5．什么是对象？什么是类？简述它们之间的关系。参考答案: 一、单项选择题 1.答：D 2.答：C 3.答：A 4.答：C 5.答：A 6.答：B 7.答：C 8.答：B 9.答：A 10.答：C 11.答：C 12.答：A 13.答：D 14.答：B 15.答：B 16.答：B 17.答：A 18.答：B 19.答：C 20.答：D 二、填空题 1.答：对象，事件驱动 2.答：编译运行模式、解释运行模式 3.答：窗体、控件 4.答：属性 5.答：在设计阶段利用属性列表框进行设置、在程序中通过程序代码进行设置 6.答：窗体 7.答：Form1、工程1 8.答：Click 9.答：对象名.方法名［参数名表］ 10．答：对象名.属性名＝属性值 三、简答题 1.答：Visual Basic是Microsoft 公司与1991年推出的基于Windows环境的语言，其主要特点如下： (1)方便、直观的可视化的程序设计工具； (2)面向对象的程序设计方法； (3)事件驱动的编程机制； (4)结构化程序设计语言； (5)强大的数据库访问能力； (6)提供强大的网络功能，并具备完备的联机帮助功能； (7)强大的数据库管理和存取操作的能力。2.答：任何一个软件都要占用计算机系统一定的资源，因此对计算机系统都有一定的要求，Visual Basic系统程序对计算机系统的要求如下： 硬件要求：586以上CPU，16MB以上内存，100MB以上硬盘等。软件要求：Windows 95/98/2000/XP或Windows NT。3.答：通常有以下三种启动方式： (1)通过“开始”按钮：单击桌面上的“开始”/“程序”菜单，然后打开“Microsoft Visual Studio 6.0中文版”子菜单中的“Microsoft Visual Basic 6.0中文版”程序，即可启动VB 6.0。 (2)利用快捷方式：若桌面上有VB 6.0的快捷图标，双击快捷图标也可启动VB 6.0。(3)利用运行命令：当VB系统软件安装在C盘默认路径下时，可以在“开始”菜单的运行对话框中输入如下命令来启动VB 6.0。 C:Program FilesMicrosoft Visual StudioVB 98VB6.exe。4．答：通常有四种方式： (1)利用文件菜单：单击菜单“文件”/“退出”，即可退出VB环境。(2)利用快捷方式：利用快捷键Alt+F4，即可退出VB环境。(3)利用标题栏：鼠标右击标题栏，选择“关闭”，即可退出VB环境。 (4)利用关闭按钮：鼠标单击窗口右上方“关闭”按钮，即可退出VB环境。 5．答：对象(Object)是包含现实世界物体特征的抽象实体，反映了系统为之保存信息和与之交互的能力。每个对象有各自的内部属性和操作方法，整个程序是由一系列相互作用的对象构成的，对象之间的交互通过发送消息来实现。 类(class)是指具有相同的属性和操作方法，并遵守相同规则的对象的集合。从外部看，类的行为可以用新定义的操作(方法)加以规定。 类是对象集合的抽象，规定了这些对象的公共属性和方法；而对象是类的一个实例。 第一章 选择题 1.VB是一种面向对象的可视化程序设计语言,采取了（A）的编程机制。 （A）事件驱动(B)按过程顺序执行（C）从主程序开始执行(D)按模块顺序执行 2.以下不属于VB的工作模式的是（c）模式。 (A)运行 (B)设计 (C)编译 (D)中断 3.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（C）。 （A）窗体布局窗口 （B）立即窗口 （C）代码窗口 （D）监视窗口 4.保存新建工程时，默认的路径是（B）。 （A）My Documents （B）VB98 （C） （D）Windows 5.将调试通过的VB工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其他机器上不能运行的主要原因是（A）。 （A）运行的机器上无VB系统 （B）缺少.frm窗体文件（C）该可执行文件有病毒 （D）以上原因都不对 6.VB6.0集成开发环境可以（D）。 （A）编辑、调试、运行程序，但不能生成可执行程序（B）编辑、调试、生成可执行程序，但不能运行程序（C）编辑、生成可执行程序、运行程序，但不能调试（D）编辑、调试、运行程序，也能生成可执行程序 7.VB6.0集成环境的主窗口中不包含（B）。 （A）菜单栏 （B）状态栏 （C）标题栏 （D）工具栏 8.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（C）。 （A）工程资源管理器窗口 （B）工具箱窗口（C）代码窗口 （D）属性窗口 9.下面四个选项中，不是VB6.0工具箱的标准控件的是（C）。 1（A）滚动条 （B）定时器 （C）多媒体 （D）框架 10.VB6.0的（C）版本，可供专业编程人员开发功能强大的组内分布式应用程序。 （A）初级版 （B）学习版 （C）企业版 （D）专业版 11.英文缩写“OOP”的含义是（A）。 （A）面向对象程序设计 （B）结构化程序设计语言（C）事件驱动的编程机制 （D）可视化程序设计 12.不能打开代码窗口的操作是（B）。 （A）双击窗体设计器的任意地方 （D）选择视图菜单中的“代码窗口” （B）按下F4键 （C）单击工程资源管理器中的“查看代码”按钮 13.标准模块的扩展名是（C）。 （A）.frm （B）.bmp （C）.bas （D）.vbp 14.窗体文件的扩展名是（A）。 （A）.frm （B）.bmp （C）.bas （D）.vbp 15.工程文件的扩展名是（D）。 （A）.frm （B）.vbg （C）.bas （D）.vbp 16.不能打开属性窗口的操作是（D）。 （A）单击工具栏上的“属性窗口”按钮（B）选择视图菜单中的“属性窗口”（C）按下F4键 （D）选择工程菜单中的“属性窗口” 17.不能打开对象窗口的操作是（A）。 （A）按下F2键 （B）单击工程资源管理器中的“查看对象”按钮（C）按下Shift+F7组合键 （D）选择视图菜单中的“对象窗口” 18.不能打开资源管理器窗口的是（B）。 （A）单击工具栏上的“工程资源管理器”按钮 （B）在窗体上单击右键，从弹出的快捷菜单中选择“工程资源管理器”选项（C）选择视图菜单中的“工程资源管理器” （D）按Ctrl+R 19.下面四个选项中，不是工程资源管理器管理的文件是（B）。 2（A）窗体文件 （B）图形文件 （C）标准模块文件 （D）工程文件 20.与传统的程序设计语言相比，vb6最突出的特点是（B）。 （A）结构化程序设计 （B）事件驱动编程机制（C）集成开发环境 （D）程序调试技术 21.VB窗体设计器的主要功能是（A）。 （A）建立用户界面 （B）编写员程序代码 （C）画图 （D）显示文字 22.用标准工具栏中的工具按钮不能执行的操作是（D）。 （A）添加窗体 （B）添加工程 （C）打开工程 （D）添加模块 23.下属选项中，属于VB的程序设计方法是（B）。 （A）面向对象、顺序驱动 （B）面向对象，事件驱动（C）面向过程，事件驱动 （D）面向过程，顺序驱动 二、填空题 1.当进入VB集成环境，发现没有显示“工具箱”窗口时，应选择（视图）菜单的（工具箱）选项，使“工具箱”窗口显示。 2.VB6.0集成环境的主窗口由标题栏、菜单栏和（工具栏）组成。3.VB6.0集成环境有三种工作状态，工作状态显示在（标题栏）。4.VB6.0提供了3种版本，这三种版本是（学习版，专业版，企业版）。 5.VB6.0有设计、中断和运行三种工作状态，立即窗口不能在（运行）状态下使用。 三、简答题 1.运行VB6.0需要什么样的最小硬件环境？只要能运行Windows9x或Windows NT并具有140MB以上的硬盘空间即可。 2.当正常安装VB6.0后，误把Windows子目录删除。当重新安装Windows后，是否要再安装VB6.0？要再安装Visual Basic6.0。因为安装VB6.0时，有些VB程序系统自动安装在Windows98目录下，所以一旦删除Windows98子目录，就必须再安装VB6.0。 3.VB6.0有学习版、专业版和企业版，怎样知道所安装的是哪个版本？在启动VB6.0的启动封面上，能显示对应的版本。4.VB6.0有多种类型的窗口，若想在设计时看到代码窗口，怎样操作？ 法： （1）热键F7 （2）―视图‖—> ―代码窗口‖ （3）在窗体窗口中双击任一控件或窗体本身 （4）从工程窗口中选择窗体或模块后单击―查看代码‖按钮。 5.如何使各窗口显示或不显示？单击要操作窗口的“关闭”按钮时，则不显示该窗口；选择“视图”菜单的对应的窗口命令显示所需的窗口。6.叙述VB6.0的特点。 VB的特点： （1）具有面向对象的可视化设计工具;（2）事件驱动的编程机制;（3）提供了易学易用的应用程序集成开发环境;（4）结构化的程序设计语言;（5）支持多种数据库系统的访问;（6）Active技术;（7）VB 6.0在开发环境上、网络功能等的增强;（8）完备的help联机帮助功能。第二章一．选择题 1.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先执行的操作是（A）。 （A）单击窗体上没有控件的地方 （B）单击任一个控件（C）不执行任何操作 （D）双击窗体的标题栏 2.在VB中最基本的对象是（C），它是应用程序的基石，是其它控件的容器。 （A）文本框 (B)命令按钮（C)窗体 (D)标签 3.有程序代码如下：text1.text=“visual basic” 则：text1、text和“visual basic”分别代表（C）。 （A）对象，值，属性 (B)对象，方法，属性 （C）对象，属性，值 (D)属性，对象，值 4.VB是一种面向对象的程序设计语言，（A）不是面向对象系统所包含的三要素。 （A）变量 (B)事件 (C)属性 (D)方法 5.VB的一个应用程序至少包括一个（B）文件，该文件存储窗体上使用的所有控件对象和有关的（）、对象相应的（）过程和（）代码。 （A）模块、方法、事件、程序 (B)窗体、属性、事件、程序 （C）窗体、程序、属性、事件 (D)窗体、属性、事件、方法 6.在VB6.0环境已有应用程序的情况下，要重新建立一个工程的操作是（C）。 （A）单击工具栏上的“添加工程”按钮 （B）在工程资源管理器窗口上单击右键，在弹出的快捷菜单中选择“新建工程”选项（C）选择“文件”菜单中的“新建工程” （D）选择“视图”菜单中的“新建工程” 7.为了把窗体上的某个控件变为活动，应执行的操作是（B）。 （A）单击窗体的边框 （B）单击该控件的内部（C）双击该控件 （D）双击窗体 8.确定一个控件在窗体上的位置的属性是（C）。 （A）Width和Height （B）Width或Height（C）Top和Left （D）Top或Left 9.确定一个窗体或控件的大小的属性是（B）。 （A）Width和Height （B）Width或Height （C）Top和Left （D）Top或Left 10.对于窗体，下面（D）属性可以在程序运行时进行设置。 （A）MaxButton （B）BorderStyle （C）Name （D）Left 11.要使Print方法在Form_Load事件中起作用，要对窗体的（C）属性进行设置。 5（A）BackColor （B）BorderStyle （C）AutoRedraw （D）Caption 12.要使标签控件显示时不覆盖其背景内容，要对（D）属性进行设置。 （A）BackColor （B）BorderStyle （C）ForeColor （D）BackStyle 13.要使对象看得见而不可操作，要对（A）属性设置。 （A）Enabled （B）Visible （C）BackColor （D）Caption 14.文本框没有（D）属性。 （A）Enabled （B）Visible （C）BackColor （D）Caption 15.不论任何控件，共同具有的是（B）属性。 （A）Text （B）Name （C）ForeColor （D）Caption 16.要使某控件在运行时不可见，应对（B）属性进行设置。 （A）Enabled （B）Visible （C）BackColor （D）Caption 17.要使窗体在运行时不可改变窗体的大小和没有最大化、最小化按钮，只要对下列（B）属性设置就有效。 （A）MaxButton （B）BorderStyle （C）Width （D）MinButton 18.当运行程序时，系统自动执行启动窗体的（A）事件过程。 （A）Load （B）Click （C）Unload （D）GotFocus 19.当文本框的ScrollBars属性设置了非零值，却没有效果，原因是（B）。 （A）文本框中没有内容 （B）文本框的MultiLine属性为False（C）文本框的MultiLine属性为True （D）文本框的Locked属性为True。 20.下面是文本框的四个属性，在程序运行时，（B）属性能使鼠标单击文本框而不触发文本框的Click事件。 （A）Visible （B）Enabled （C）Locked （D）MultiLine 21.下面四个选项都是VB中对象的属性名称，（A）不能用程序代码设置属性值。 （A）Name （B）Enabled （C）BackColor （D）Picture 22.以下选项中“=”的左边是用户界面上的对象名，不正确的赋值语句是（A）。 （A）Form1=‖sdfs‖ （B）Command1=True 6（C）Text1=‖abcd‖ （D）Label1=‖等级考试‖ 23.以下叙述中正确的是（A）。 （A）窗体的Name属性指定窗体的名称，用来标识一个窗体（B）窗体的Name属性的值是显示在窗体标题栏中的文本（C）可以在运行期间改变对象的Name属性的值（D）对象的Name属性值可以为空 24.以下四个选项都是VB中对象的属性名称，在界面设计时，（D）属性值的设置需要利用对话框。 （A）Name （B）Enabled （C）WindowState （D）Picture 25.以下选项中，框架的控件值是（A）。 （A）Caption （B）Value （C）Interval （D）Enabled 26..以下选项中，不是布尔类型的属性是（B）。 （A）单选按钮的Value （B）复选框的Value （C）命令按钮的Value （D）Enabled 27.要连续在窗体的不同位置上画出多个相同类型的控件，在用鼠标点击工具箱中控件之前，应该做的操作是（C）。 （A）按下Alt键 （B）按下Shift （C）按下Ctrl键 （D）按下F4键 28.以下选项中，（C）是窗体的特有属性。 （A）Caption （B）Visible （C）WindowState （D）Left 29.改变文本框的滚动条配备，需要先设置（D）属性。 （A）Visible （B）Enabled （C）Locked （D）MultiLine 30.下面四个选项，（D）不是窗体的属性。 （A）MinButton （B）MaxButton （C）Caption （D）ReSize 31.下面四个选项，（A）是窗体的特有事件。 （A）Load （B）Locked （C）Click （D）KeyPress 32.假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VBTest”的语句为（B）。 （A）Form1=‖VB Test‖ （B）Caption=‖VB Test‖ 7（C）Form1.Text=‖VB Test‖ （D）Form1.Name=‖VB Test‖ 33.为了保存一个VB应用程序，应当（D）。 （A）只保存窗体文件 （B）分别保存工程文件和标准模块文件 （C）只保存工程文件（D）分别保存工程文件、窗体文件和标准模块文件 34.为了装入一个VB应用程序，应当（C）。 （A）只装入窗体文件 （B）分别装入工程文件和标准模块文件 （C）只装入工程文件（D）分别装入工程文件、窗体文件和标准模块文件 35.命令按钮不能响应的事件是（A）。 （A）DblClick （B）Click （C）MouseDown （D）MouseUp 36.决定窗体标题栏上显示内容的属性是（C）。 （A）Text （B）Name （C）Caption （D）BackStyle 37.当窗体最小化时缩小为一个图标，设置这个图标的属性是（B）。 （A）MouseIcon （B）Icon （C）Picture （D）MousePointer 38.为了仅取消窗体的最大化功能，需要把它的（D）属性设置为False。 （A）ControlBox （B）MinButton （C）Enabled （D）MaxButton 39.决定窗体有无控制菜单的属性是（A）。 （A）ControlBox （B）MinButton （C）Enabled （D）MaxButton 40.为了使文本框同时具有水平和垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为（D）。 （A）0 （B）1 （C）2 （D）3 41.使文本框获得焦点的方法是（C）。 （A）Change （B）GotFocus （C）SetFocus （D）LostFocus 42.为了使标签覆盖背景，应把BackStyle属性设置为（A）。 （A）0 （B）1 （C）True （D）False 43.为了使标签的内容居中显示，应把AlignMent属性设置为（C）。 （A）0 （B）1 （C）2 （D）3 8 44.决定标签内显示内容的属性是（C）。 （A）Text （B）Name （C）Caption （D）Enabled 45.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（B）。 （A）Value （B）Default （C）Cancel （D）Enabled 46.为了在按下ESC键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（C）。 （A）Value （B）Default （C）Cancel （D）Enabled 47.下面四个选项中，不是文本框属性的是（D）。 （A）TabIndex （B）PassWordChar （C）ScrollBars （D）Value 48.以下能够触发文本框Change事件的操作是（D）。 （A）文本框失去焦点 （B）文本框获得焦点 （C）设置文本框的焦点 （D）改变文本框的内容 49.文本框的默认属性是（A）。 （A）Text （B）Caption （C）Top （D）Name 50.标签的默认属性是（B）。 （A）Text （B）Caption （C）Top （D）Name 51.若要设置标签的背景颜色，使用的属性是（B）。 （A）Color （B）BackColor （C）ForeColor （D）FontBold 52.若要设置文本框中所显示的文本颜色，使用的属性是（C）。 （A）FillColor （B）BackColor （C）ForeColor （D）BackStyle 53.命令按钮能响应的事件是（B）。 （A）DblClick （B）Click （C）Scroll （D）Load 54.下面选项中，（C）不是文本框的属性。 （A）MultiLine （B）MaxLength （C）TextBox （D）Loaded 二、填空题 1.程序运行时，为了让命令按钮不可操作，并且呈现灰色，必须将其（Enabled）属性设置为False。 2.改变文本框的滚动条配备，需先设置MultiLine属性，然后设置（ScrollBars）属性。3.文本框能返回ASCII码值的事件是（KeyPress）。 4.当程序运行后，用鼠标双击对象时主要触发的事件是（DblClick）。5.文本框的控件值是（Text，），命令按钮的控件值是（Value）。6.在VB中，由系统事先设定的，能被对象识别和响应的动作称为（事件）。7.一个控件在窗体上的位置由（）属性决定。 8.对象属性设置主要有两种方法，分别是（在属性窗口直接设置）和（在代码窗口中设置）。9.在程序代码中设置属性值的一般格式为（.[对象.]属性=属性值）。 10.当窗体的大小改变时，触发（ReSize）事件。Left）和（Top）属性决定，其大小由（Width）和（Height 11.为了选择多个控件，可以按住（Ctrl）键，然后单击每个控件。 12.在用VB开发应用程序时，一般需要（界面设计）、（属性设置）、（编写代码）和（保存和运行程序）四步。 13.控件和窗体的Name属性只能通过（属性窗口）设置，不能在（运行）期间设置。14.在VB中，窗体文件和工程文件的扩展名分别是（frm）和（vbp）。15.为了把一个VB应用程序装入内存，只要装入（工程）文件即可。 16.VB应用程序通常由3类模块组成，分别是（窗体模块）、（标准模块）（类模块）。 17.在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对（窗体）的（Font系列）属性进行设置。 18.当对文本框的ScrollBars属性设置为2（有垂直滚动条），但没有垂直滚动条显示时，是没有把（MultiLine）属性设置为True的原因。 19.在代码窗口对窗体的BoerderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性（只能在属性窗口设置）。 20.当对命令按钮的Picture属性装入.bmp图形文件后，此按钮上并没有显示所设置的图形，原因是没有对（Style）属性设置为1（Graphical）。 21.要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置（Locked）的属性为True。 22.在窗体上已建立多个控件如Text1、Label1、Command1，若要使程序一运行焦点就定位在Command1控件上，应把Command1控件的（TabIndex）属性的值设置为0。 23.为了使标签能自动调整大小以显示全部文本内容，应把标签的（AutoSize）属性 设置为True。 24.假定有一个文本框，其名称为Text1，为了使该文本框具有焦点，应执行的语句是（Text1.SetFocus）。25.为了使一个标签透明且没有边框，必须把它的BorderStyle属性设置为（0），并把BackStyle属性设置为（0）。 三、简答题 1.叙述建立一个完整的应用程序的过程。 2.当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到多少文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？ 3.假定在Windows环境中，要保存工程文件时，若不改变目录名，则系统默认的目录是什么？ 4.为了使一个控件在运行时不可见，应对该控件的什么属性进行何种设置？ 5.为了防止用户编辑文本框内的内容，应对该控件的什么属性进行何种设置？ 6.为了使标签框的大小由Caption属性的值进行扩展或缩小，应对该控件的什么属性进行何种设置？ 7.VB6.0提供的大量图形文件在那个目录下？若您的计算机上没有安装，则怎样安装这些图形？ 8.在VB6.0中，命令按钮的显示形式可以有标准的或图形的两种选择，这通过什么属性来设置？若选择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示图形，而显示的是Caption属性设置的文字，怎样改正？ 9.标签和文本框的区别是什么？ 10.当窗体上有3个文本框和一个命令按钮，若程序运行时，要求焦点定位在私邸三个文本框（Text3）处，应对何控件的什么属性进行何种设置？ 11.若要对窗体上的3个文本框输入数据，各控件焦点的移动可通过Tab键（系统本身具有的），也可以通过 11 回车键，则要对文本框的什么事件进行编程？ 12.当某文本框输入数据后（按了回车键），进行判断认为数据输入错，怎样删除原来数据？怎样使焦点回到该文本框重新输入？ 13.当运行程序前，对某些控件设置属性值，除了在窗体中直接设置外，还可以通过代码设置，这些代码一般放在什么事件中？例如，程序要将命令按钮定位在窗体的中央，请写出事件过程。1.设计界面、设置属性、编写代码、保存和运行程序 2.涉及到2个文件需要保存。先保存窗体文件，再保存工程文件。若先保存工程文件，系统会先弹出“文件另存为”对话框，要求把窗体文件先保存。 3.系统默认的目录是VB98。 4.将该控件的Visible属性设置为False。5.将文本框的Locked属性设置为True。6.将标签的AutoSize属性设置为True。 7.大量的图形文件存放在Graphics目录下。直接在带有VB6.0系统的光盘上找到Graphics子目录，将其复制到硬盘的VB目录下。 8.通过Style属性设置图形的或标准的。通过Picture属性来装入图形。不能显示图形是因为Style的值设置了Standard，只要改为Graphical，一般将Caption的值设置为空。 9.标签和文本框的共同点都可以在窗体上显示文字。不同点在于：标签的内容在Caption属性内，在窗体上只能显示文字，不能编辑；文本框内容在Text属性内，在窗体上可直接对内容进行编辑。 10.应将Text3控件的TabIndex属性设置为0。 11.对文本框的KeyPress事件编成。例如，当焦点在Text1时，输入数据按Enter键后，让焦点跳到Text2文本框，程序段如下： Private Sub Text1_KeyPress(KeyAscii as Integer) If KeyAscii=13 then Text2.SetFocus „ End If End Sub 12 12.假定文本框的名称为Text1，则事件过程如下： Private Sub Text1_KeyPress(KeyAscii as Integer) If KeyAscii=13 then If 出错条件判断成立 then Text1=‖‖ Text1.SetFocus End If „ End If End Sub 13.这些代码一般放在窗体的Load事件过程中。将窗体定位在屏幕的中央，只能通过属性窗口对Form1窗口的StartUpPosition属性设置为2（表示屏幕的中心），该属性不能在运行时设置。 要将按钮定位在窗体的中央，事件过程如下： Private Sub Form_Load() Command1.Left=Form1.ScaleWidth2-command1.Width2 Command1.Top=Form1.ScaleHeight2-command1.Height2 End Sub 第三章 一、选择题 1.在一行上写多条语句时，每个语句之间用（B）符号分隔。 （A），（B）： （C）、（D）； 2.一个语句要在下一行继续写，用（C）符号作为续行符。 （A）+ （B）- （C）_ （D）„ 3.下面（A）是合法的变量名。 （A）X_yz （B）123abc （C）integer （D）X-Y 4.下面（D）是不合法的整常数。 （A）100 （B）&O100 （C）&H100 （D）%100 5.下面（B）是合法的字符常数。 13（A）ABC$ （B）‖ABC‖ （C）’ABC’ （D）ABC 6.下面（A）是合法的单精度型变量。 （A）num！ （B）sum% （C）xinte$ （D）mm# 7.下面（D）是不合法的单精度常数。 （A）100！ （B）100.0 （C）1E+2 （D）100.0D+2 8.表达式16/4-2^5*8/4 mod 52的值为（B）。 （A）14 （B）4 （C）20 （D）2 9.数学关系3≤x<10表示成正确的VB表达式为*（B）。 （A）3<=x<10 （B）3<=x and x<10 （C）x>=3 or x<10 （D）3<=x and <10 10./、、Mod、*四个算术运算符中，优先级别最低的是（C）。 （A） （B）/ （C）Mod （D）* 11.与数学表达式ab对应，VB的不正确表达式是（D）。3cd（A）a*b/(3*c*d) （B）a/3*b/c/d （C）a*b/3/c/d （D）a*b/3*c*d 12.Rnd函数不可能为下列（B）值。 （A）0 （B）1 （C）0.1234 （D）0.0005 13.Int（198.555*100+0.5）/100的值是（C）。 （A）198 （B）199.6 （C）198.56 （D）200 14.已知A$=‖12345678‖，则表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值为（B）。 （A）123456 （B）123445 （C）1279 （D）‖123445‖ 15.Print DateAdd(―m‖,1,#1/30/2000#)语句显示的结果是（A）。 （A）2000-2-29 （B）2000-2-28 （C）2000-2-30 （D）2000-3-1 16.表达式DateDiff（‖d‖,#12/30/1999#,#1/13/2000#）的结果是（C）。 （A）1 （B）11 （C）14 （D）99 17.表达式Len（‖123程序设计ABC‖）的值是（A）。 （A）10 （B）14 （C）20 （D）17 18.表达式LenB（‖123程序设计ABC‖）的值是（C）。 （A）10 （B）14 （C）20 （D）17 19.设a=1,b=2,c=3,d=4，下面逻辑表达式的值为真的是（C）。 14（A）Sqr(d)>b （B）Not(c-b) （C）d>c and b>a （D）Abs(a-d) （A）/ （B） （C）^ （D）Mod 21.设a=‖visual basic‖，下面使b=‖basic‖的语句是（B）。 （A）b=Left(a,8,12) （B）b=Mid(a,8,5) （C）b=Right(a,5,5) （D）b=Left(a,8,5)22.从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（D）。 （A）Left （B）Mid （C）String （D）Instr 23.设a=2,b=3,c=4,d=5，表达式a>b and c<=d or 2*a>c的值是（B）。 （A）True （B）False （C）-1 （D）0 24.设a=2,b=3,c=4,d=5，表达式3>2*b or a=c and b<>c or c>d的值是（B）。 （A）True （B）False （C）-1 （D）0 25.设a=2,b=3,c=4,d=5，表达式not a<=c or 4*c=b^2 and b<>a+c的值是（B）。 （A）True （B）False （C）-1 （D）0 26.假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是（C）。 （A）Print 25 （B）Picture1.Print 25 （C）Text1.Print 25 （D）Debug.Print 25 27.语句Print 5*55/5的输出结果是（B）。 （A）5 （B）25 （C）0 （D）1 28.语句Print Sgn（-6^2）+Abs（-6^2）+Int（-6^2）的输出结果是（C）。 （A）-36 （B）1 （C）-1 （D）-72 29.表达式4+56*7/8 Mod 9的值为（B）。 （A）4 （B）5 （C）6 （D）7 30.设有整数x，如果Sgn（x）的值为-1，则x的值是（B）。 （A）整数 （B）大于0的整数 （C）等于0的整数 （D）小于0的整数 31.可以同时删除字符串前导和尾部空白的函数是（C）。 （A）Ltrim （B）Rtrim （C）Trim （D）Mid 32.m，n是整数，且n>m，在下面的选项中，能将x赋值为一个m~n之间（含m,n）的任意数的语句是（A）。 （A）x=Int(Rnd*(n-m+1))+m （B）x= Int(Rnd*n)+m（C）x=Int(Rnd*m)+n （D）x=Int(Rnd*(n-m))+m 33.VB6.0表达式‖123‖+Abs(1)的值是（C）。 （A）123-1 （B）1231 （C）124 （D）错误表达式 34.VB6.0表达式‖12a‖+Abs(1)的值是（D）。 （A）12b （B）12a1 （C）121 （D）错误表达式 35.当用Const a%=19.8 定义后，a的值是（C）。 （A）19 （B）19.8 （C）20 （D）0 二、填空题 1.在VB中，1234、123456&、1.2346E+5、1.2346D+5四个常数分别表示（整型，长整型，单精度、双精度）类型。 2.整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现的表达式是（（x mod 10）*10+x10）。3.数学表达式ab的VB算术表达式为（(a+b)/(1/(c+5)-c*d/2)）。11cdc524.表示x是5的倍数或是9的倍数的逻辑表达式为（x mod 5=0 or x mod 9=0）。 5.已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 and a+c>b+3 or not d的值是（false）。6.Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5)、Round(3.5)的值分别是（-4,3,-3,3,-4,4）。7.表达式Ucase(Mid(―abcdefgh‖,3,4))的值是（CDEF）。 8.在直角坐标系中，（x，y）是坐标系中任意点的位置，用x与y表示在第一象限或第三象限的表达式是（x*y>0）。 9.要以××××年××月××日形式显示当前机器内日期的Format函数表达式为（format(date,‖yyyy-mm-dd‖)）。 10.计算已近入21世纪有多少天的函数表达式是（datediff(―d‖,date,‖2000-1-1‖)）。 11.计算离你毕业（假定毕业时间为2006年6月28日）还有多少个星期的函数表达式是（datediff(―w‖,date,‖2006-6-28‖)）。 12.表示s字符变量是字母字符（大小写字母不区分）的逻辑表达式为（ucase(s)>=‖A‖ and ucase(s)<=‖Z‖）。13.VB6.0表达式Len（Left（“abcd‖，3）+Right（‖商丘师范学院‖，4））的值是（）。14.数学式2cos2y+e2x的VB6.0表达式是（2*cos(2*y)+exp(2*x)）。15.产生一个在[-50，-5]范围内的随机负整数（包含-50和-5）的表达式是（–int(rnd*46+5)）。16.设y是整型变量，判断y为奇数的表达式是（y mod 2<>0）。17.VB6.0表达式33*3 mod 3的值为（0）。 18.表达式Fix（-11.85）+Int（-23.01）的值是（-35）。 19.在VB中，字符串常量要用（―‖）括起来，日期/时间型常量要用(##）括起来。 20.在VB6.0中，字符采用（Unicode）编码方式。在这种编码方式中，一个中文字符或一个西文字符均视为（一个）字符，每个字符用（2）个字节编码。 21.语句Print Int（（12345.6789*100+0.5）/100）的输出结果是（12345）22.语句Print ―25+32=‖;25+32的输出结果是（25+32=57）。 23.若a=4,b=9，则语句Print a>b mod 4 的输出结果是（true）。24.语句Print ―123‖+‖456‖+3的输出结果是（123459）。25.语句Print ―234‖+10+‖123‖的输出结果是（367）。 三、简答题 1.说明下列哪些是VB合法的直接常量，分别指出它们是什么类型： （1）100.0（2）%100 （3）1E1（4）123D3（5）123,456（6）0100 （7） ‖ASDF‖（8）‖1234‖ （9）#2000/10/7#（10）100#（11）π &H123 （15）True（16）T（17）&H12ag（18）-1123!（1）合法，单精度 （2）不合法 （12）&0100（13）&O78（14） （3）合法，单精度（4）合法，双精度（5）123,456（6）合法，二进制整数（7）合法，字符型 （8）不合法（9）合法，日期型（10）合法，单精度 （11）不合法 （12）合法，八进制（13）不合法 （14）合法，十六进制 （15）合法，逻辑型（16）不合法 （17）不合法 （18）合法，单精度 2.下列符号中，哪些是VB合法的变量名？ （1）a123（6）XYZ（2）a12_3（7）False （3）123_a （4）a 123 （5）Integer （8）sin(x) （9）sinx （10）变量名（11）abcdefg（12）π （2）合法 （3）不合法 （4）不合法 （5）不合法（6）合法 （12）不合法（1）合法 （7）不合法（8）不合法 （9）合法 （10）合法（11）合法 3.把下列算术表达式写成VB表达式 （1）|x+y|+z5 abs(x+y)+z^5 （2）(1+xy)6 (1+x*y)^6（3） 10x3yxy 10*x+sqr(3*y))/(x*y)（4）bb24ac(-b+sqr(b*b-4*a*c))/(2*a)2a（5） 1111r1r2r3 1/(1/r1+1/r2+1/r3)（6）sin45+0e10ln10xy1 sin(45*3.14/180)+(exp(10)+log(10))/sqr(x+y+1)4.根据条件写一个VB表达式： （1）产生一个‖C‖~‖L‖ 范围内的大写字符。 chr(int(rnd*10+67))（2）产生一个100~200（包括100和200）范围内的正整数。int(rnd*101+100)（3）已知直角坐标系中任意一个点（x,y），表示该点在第一或第三象限内。x*y>0（4）表示x是5或7的倍数。x mod 5=0 or x mod 7=0（5）将任意一个两位数x的个位数与十位数对换。例如，x=78，则表达式的应为87。 (x mod 10)*10+x10（6）将变量x的值按四舍五入保留小数点后两位。例如，x的值为123.2389，表达式的值为123.24。 round(x*100)/100（7）表示字符变量C是字母字符（大小写不区分）。 ucase(C)>=‖A‖ and ucase(C)<=‖Z‖（8）取字符变量S中第五个字符起的6个字符。 Mid(s,5,6)（9）表示10≥x<20的关系表达式。 (x>=10)and(x<20)（10）x、y中有一个小于z。 x x>z and y>z 5.写出下列表达式的值： （1）123+23 Mod 107+Asc(―A‖) 188（2）100+‖100‖ & 100 ―200100‖（3）Int(68.555*100+0.5)/100 68.56 （4）已知A$=‖87654321‖,求表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值 87654（5）DateAdd(―m‖,1,#1/30/2000#) #2/29/2000# （6）Len(―VB程序设计‖) 18 6.利用SHELL（）函数，在VB程序中分别执行画图和WORD应用程序。略 7.VB提供了哪些标准数据类型？声明类型时，其类型关键字分别是什么？其类型符又是什么？ 略 8.哪种数据类型需要的内存容量最少，且可以存储例如3.2345这样的值？ 9.将数字字符串转换为数值，用什么函数？判断是否是数字字符串，用什么函数？取字符串中的某几个字符，用什么函数？大小写字母间的转换用什么函数？ 10.要使单精度变量x、y、z分别保留1位、2位、3位小数位，并在窗体显示，使用什么函数？如何写对应的Print方法？ 8.单精度 9.val函数，isnumeric函数，mid函数，ucase或lcase函数 10.用format函数，print format(x, ‖0.0‖),format(y, ‖0.00‖),format(z, ‖0.000‖) 第五章选择题 1.如下数组声明语句，（B）正确。 （A）Dim a[3,4] as integer （B）Dim a(3,4)as integer（C）Dim a(n,n)as integer （D）Dim a(3 4)as integer 1.1 2.2 3.32.要分配存放如下方阵4.4 5.5 6.6，可使用声明语句(C)来实现（不能浪费空间）。.7.7 8.8 9.9 （A）Dim a(9)as single （B）Dim a(3,3)as single（C）Dim a(-1 to 1,-5 to-3)as single （D）Dim a(-3 to-1,5 to 7)as integer 3.数组声明语句Dim a(3,-2 to 2,5)as integer中，数组a包含的元素个数为（A）。 （A）120 （B）75 （C）60 （D）13 4.用语句Dim a(-3 to 5)as integer所定义的数组的元素个数是（D）。 （A）6 （B）7 （C）8 （D）9 5.用语句Dim a(3 to 5，-2 to2)所定义的数组的元素个数是（C）。 （A）20 （B）12 （C）15 （D）24 6.下面的B中有（C）个数组元素。 Dim B : B=Array(1,2,3,4,5,6,7,8,9)（A）任意多 （B）8 （C）9 （D）10 一、填空题 1.控件数组的名字由（Name）属性指定，而数组中的每个元素由（Index）属性指定。2.由Array函数建立的数组的名字必须是（变体）类型。3.数组定义Dim D(20)，数组D有（21）个数组元素。 三、分析程序的运行结果 1.在窗体上画一个命令按钮command1，然后编写如下事件过程： 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 程序运行后，单击command1，输出结果为：1234 2.在窗体上画一个命令按钮command1，然后编写如下事件过程： option base 1 private sub command1_click() dim a,b(3,3) a=array(1,2,3,4,5,6,7,8,9) for i=1 to 3 for j=1 to 3 b(i,j)=a(i*j) if j>=I then print tab(j*3);b(I,j); next j print next I end sub 程序运行后，单击command1，输出结果为：3.在窗体上画一个命令按钮command1，然后编写如下事件过程： option base 1 private sub command1_click() dim a%(3,3) for i=1 to 3 for j=1 to 3 if j>1 and i>1 then a(i,j)=a(a(i-1,j-1),a(i,j-1))+1 else a(i,j)=i*j end if print a(i,j);‖ ―; next j print next I end sub 程序运行后，单击command1，输出结果为： 3 4.在窗体上画一个命令按钮command1，然后编写如下事件过程： option base 1 private sub command1_click() dim a%(10),p(3)as integer 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 程序运行后，单击command1，输出结果为：33 5.在窗体上画一个命令按钮command1，然后编写如下事件过程： option base 1 private sub command1_click() dim a%(4,4) for i=1 to 4 for j=1 to 4 a(i,j)=(i-1)*3+j next j next i for i=1 to 4 for j=1 to 4 print a(j,i); next j print 4 7 10 next I 5 8 11 end sub 6 9 12 程序运行后，单击command1，输出结果为：4 7 10 13 6.在窗体上画一个命令按钮command1，然后编写如下事件过程： option base 1 private sub command1_click() dim a%(5,5) for i=1 to 3 for j=1 to 4 if j>1 and i>1 then a(i,j)=i*j end if next j next i for n=1 to 2 for m=1 to 3 print a(m,n); next m print next n end sub 0 0 0 程序运行后，单击command1，输出结果为：0 4 6 7.在窗体上画一个命令按钮command1，然后编写如下事件过程： private sub command1_click() dim a%(5) for i=0 to 4 a(i)=i+1 t=i+1 if t=3 then print a(i); a(t-1)=a(i-2) else a(t)=a(i) endif if i=3 then a(i+1)=a(t-4) a(4)=1 print a(i); next i end sub 程序运行后，单击command1，输出结果为：1 2 3 1 4 1 8.在窗体上画一个命令按钮command1，然后编写如下事件过程： private sub command1_click() dim a%(3,3) dim b b=array(1,2,3,4,5,6,7,8,9) j=1 for i=0 to 8 j=i mod 3 k=i3 a(j,k)=b(i) next i k=1 for j=0 to 2 print tab(3*(j+1));a(k,j); next j end sub 程序运行后，单击command1，输出结果为：2 5 8 9.在窗体上画一个命令按钮command1，一个文本框text1，然后编写如下事件过程： private sub command1_click() dim b b=array(34,5,13,35,9,6,42) for i=1 to ubound(b,1) if b(i)>b(i-1)then x=b(i) for j=i-1 to 0 step-1 if b(j)>x then exit for b(j+1)=b(j) next j b(j+1)=x end if next i text1=”” for i=0 to ubound(b,1) text1=text1+str(b(i))+‖,‖ next i end sub 运行程序后，文本框text1中的内容是：42, 35, 34, 13, 9, 6, 5, 10.在窗体上画一个命令按钮command1，然后编写如下事件过程： private sub command1_click() dim a(3,3) for i=0 to 3 for j=0 to 3 a(i,j)=(i+1)*10+j next j,i for i=0 to 3 for j=0 to 3 if i x=a(i,j)：a(i,j)=a(j,i): a(j,i)=x end if next j,i for i=0 to ubound(a,1) for j=0 to ubound(a,2) print a(i,j); next j print 20 30 40 next I 21 31 41 end sub 22 32 42 运行程序后，文本框text1中的内容是：13 23 33 43 11.在窗体上画一个命令按钮command1，然后编写如下事件过程： private sub command1_click() dim arr1%(10),arr2(10) n=3 for i=1 to 5 arr1(i)=i arr2(n)=2*n+i next i print arr2(n);arr1(n)end sub 程序运行后，单击command1，输出结果为：11 3 12.在窗体上画一个命令按钮command1，然后编写如下事件过程： private sub command1_click() dim m%(10) for k=1 to 10 m(k)=12-k next k x=6 print m(2+m(x))end sub 程序运行后，单击command1，输出结果为：4 13.在窗体上画一个命令按钮command1，然后编写如下事件过程： private sub command1_click() dim b b=array(56,22,16,67,26,14,9,87) k=3 do while k b(k)=b(k+1) k=k+1 loop print b(5)end sub 程序运行后，单击command1，输出结果为：9 14.在窗体上画一个命令按钮command1，然后编写如下事件过程： private sub command1_click() dim b,a(2,4) b=array(1,2,3,4,5,6,7,8,9,10,11,12,13,14) for i=0 to 2 for j=0 to 4 a(i,j)=b(i*(ubound(a,2)+1)+i) next j next i print b(i*(ubound(a,2)+1)-3)end sub 程序运行后，单击command1，输出结果为：13 15.在窗体上画一个命令按钮command1，然后编写如下事件过程： private sub command1_click() dim a(5 to 16) dim b b=array(1,2,3,4,5,6,7,8,9) for i=1 to 8 a(5+i)=b(i) next i print a(7)end sub 程序运行后，单击command1，输出结果为：3 16.在窗体上画一个命令按钮command1，然后编写如下事件过程： private sub command1_click() dim b,a(3,3) b=array(1,2,3,4,5,6,7,8,9) j=1 for i=0 to 8 k=i3 : j=I mod 3 a(k,j)=b(i) print a(k,j); if j=2 then print next I 2 3 end sub 5 6 程序运行后，单击command1，输出结果为：7 9 17.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click()Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j);Next j Print Next i 28 End Sub 程序运行后，单击命令按钮，窗体上显示的是 同17题 18.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()Dim array1(10,10)As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next I Text1.Text=array1(2,3)+array1(3,4)End Sub 程序运行后，单击command1，文本框中显示的结果为：12 四、简答题 1.要分配存放12个元素的整形数组，下列数组声明（若无下界，按默认规定）哪些符合要求？ （1）n=12 （2）Dim a%（） Dim a（1 to n）as integer n=11 ReDim a（n） （3）Dim a%[2,3] （4）Dim a(1,1,2)as integer（5）Dim a%（10） （6）Dim a!（） ReDim a（1 to 12） ReDim a（3,2）as integer（7）Dim a%（2,3） （8）Dim a（1 to 3 1 to 4）as integer 2.已知下面的数组声明，写出它的数组名、数组类型、维数、各维的上下界、数组的大小，并按行的顺序列出各元素。 Dim a(-1 to 2,3)as single 3.静态数组和动态数组的区别是什么？在声明静态数组、重定义动态数组时的下标都可以用变量来表示吗？ 4.已声明了静态数组a(3,4)，能否在下面再用重定义动态数组a(4,4)来重定义A数组的大小？ 5.使用ReDim语句可以改变数组类型吗？ 6.在ReDim语句中加了Preserve关键字，对重定义数组有何限制？ 7.利用随机数生成两个四行四列的矩阵（数据不一定相同，前者范围在30~70，后者为101~135）。要求： （1）将两个矩阵相加结果放入C矩阵中。（2）将a矩阵转置。 （3）求C矩阵中元素的最大值和下标。 （4）以下三角形式显示A矩阵、上三角形式显示B矩阵。 （5）将A矩阵第一行与第三行对应元素交换位置，即第一行元素放到第三行，第三行元素放到第一行。（6）将A矩阵两条对角线元素之和。 （7）将A矩阵按列的次序把各元素放入一位数组D中，显示结果。8.声明一个有20个元素的一维字符类型数组，要求： （1）由随机数形成小写字母构成的数组，每个元素的字符个数由随机数产生，范围1~11。（2）要求将生成的数组分四行显示。 （3）显示生成的字符数组中字符最多的元素。 9.自定义一个职工类型，包含职工号、姓名和工资。声明一个职工类型的动态数组。输入n个职工的数据，要求按工资递减的顺序排序，并显示排序的结果，每个职工一行显示三项信息。1.（2）、（4）、（7）符合要求。 2.数组名为a、数组类型为单精度，二维数组，各维的下界分别为-1和0、上界分别为2和3，数组的大小为4*4共16个元素，各元素排列顺序如下： a(-1, 0) a(-1, 1) a(-1, 2) a(-1, 3) a(0, 0) a(0, 1) a(0, 2) a(0, 3) a(1, 0) a(1, 1) a(1, 2) a(1, 3) a(2, 0) a(2, 1) a(2, 2) a(2, 3) 3.静态数组在声明数组时的下标必须是常数，以后不能改变其大小；动态数组在Dim声明时不要声明数组的大小，在以后的程序中可以用ReDim语句重新声明数组的大小，ReDim语句中的下标可以出现有确定值的变量或表达式。 4.已声明了的静态数组不能再用重定义语句来重新定义静态数组的大小。 5.可以反复地改变数组的大小和数组的维数，但是不能改变数组的类型。 6.在ReDim语句中加上了Preserve关键字，就只能重定义数组最后一维的大小，且根本不能改变数组 30 的维数。例如，如下语句： Dim a（） ReDim a（3，4） ReDim Preserve a（4，5） 程序执行到ReDim Preserve a（4，5）时显示“下标越界”出错信息，也就是只能改变第二个下标的大小，而不能改变第一个下标的大小。 7.利用随机数生成两个矩阵： Dim a%(1 to 4, 1 to 4), b%(1 to 4, 1 to 4), c%(1 to 4, 1 to 4) Private Sub Form_Click() For i=1 to 4 For j=1 to 4 a(i,j)=int(rnd*41+30) b(i,j)=int(rnd*35+101) next j, i End Sub （1）将两个矩阵相加结果放入矩阵C中： for i=1 to 4 for j=1 to 4 c(i,j)=a(i,j)+b(i,j) next j, i （2）将矩阵a转置： for i=1 to 4 for j=1 to i-1 t=a(i,j): a(i,j)=a(j,i): a(j,i)=t next j, i （3）统计矩阵c最大值和下标： dim max%, maxi%, maxj% max=c(1,1): maxi=1: maxj=1 for i=1 to 4 for j=1 to 4 if c(i,j)>max then max=c(i,j): maxi=i: maxj=j end if next j, i （4）以下三角形式显示矩阵a、上三角形式显示矩阵b： 输出下三角元素： for i=1 to 4 for j=1 to i print a(i,j);space(4-len(a(i,j))); next j print next i 输出上三角元素： for i=1 to 4 for j=i to 4 print tab(j*4);b(i,j); next j print next i （5）将矩阵a第一行与第三行对应元素交换位置，即第一行元素放在第三行；第三行元素放在第一行： for j=1 to 4 t=a(1,j): a(1,j)=a(3,j): a(3,j)=t next j （6）求矩阵a两条对角线之和： s=0 for i=1 to 4 s=s+a(i,i)+a(i,5-i) next i （7）将矩阵a按列的次序把各元素放入一维数组d中，显示结果： dim d%(1 to 16),k% for i=1 to 4 for j=1 to 4 k=(j-1)*4+i d(k)=a(i,j) next j, i 8.声明一个有20个元素的一维字符类型数组，要求： （1）由随机数形成小写字母构成的数组，每个元素的字符个数由随机数产生，范围1~11。 Dim st(1 to 20)as string, c as string*1 Dim i%, n% For i=1 to 20 n=int(rnd*11+1) for j=1 to n c=chr(int(rnd*26+97)) st(i)=st(i)& c next j print st(i) next i（2）要求将生成的数组分四行显示。 For i=1 to 20 Print st(i);space(15-len(st(i))); If i mod 5=0 then print Next i（3）显示生成的字符数组中字符最多的元素。 Maxlen=0 Maxstr=‖‖ For i=1 to 20 If len(st(i))>maxlen then Maxlen=len(st(i)) Maxstr=st(i) End if Next i Print maxlen, maxstr 9.自定义一个职工类型，包含职工号、姓名和工资。声明一个职工类型的动态数组。输入n个职工的数据，要求按工资递减的顺序排序，并显示排序的结果，每个职工一行显示三项信息。 Dim a()As zg, i% Private Sub Command1_Click() i = i + 1 If i < n Then MsgBox(”人数超过“): Exit Sub With a(i) .gh = Val(Text1) .xm = Text2 .gz = Val(Text3) End With Text1 = ”“: Text2 = ”“: Text3 = ”“ End Sub Private Sub Command2_Click()Picture1.Cls Dim j%, k%, t As zg For j = 1 To i1).gz Then t = a(k): a(k)= a(k1)= t End If Next k Next j For j = 1 To i Picture1.Print a(j).gh;a(j).xm;a(j).gz Next j End Sub Private Sub Form_Load() Dim n% n = InputBox(”输入人数“) ReDim a(1 To n) i = 0 End Sub 第六章 一、选择题 1.下列叙述中正确的是（C）。 （A）在窗体的Form_Load事件中定义的变量是全局变量 （B）局部变量的作用域可以超出所定义的过程 （C）在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只局限于该过程。 （D）在调用过程时，所有局部变量被系统初始化为0 2.下列四个叙述中，错误的是（C）。 （A）过程内用Dim语句定义的变量，它的作用域是此过程 （B）过程内用Static语句定义的变量，它的生存期与整个过程的运行期相同 （C）过程内用Dim语句定义的变量，它的生存期与整个过程的运行期相同 （D）若在模块的“通用声明”中写上语句：Option Explicit，则该模块的所有变量必须先说明后引用 3.在过程定义中用（C）表示形参的传值。 （A）Var （B）ByDef （C）ByVal （D）Value 4.若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应该将该过程放在（B）中。 （A）窗体模块 （B）标准模块 （C）类模块 （D）工程 5.在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（D）关键字在过程中定义局部变量。 （A）Dim （B）Private （C）Public （D）Static 6.下面子过程语句说明合法的是（D）。 （A）Sub f1(Byval n%()) （B）Sub f1(n%)as integer（C）Function f1%(f1%) （D）Function f1(Byval n%)7.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是（C）。 （A）Sub f1(Byval n%, Byval m%) （B）Sub f1(n%, Byval m%)（C）Sub f1(n%, m%) （D）Sub f1(Byval n%, m%)8.在VB应用程序中，以下正确的描述是（B）。 （A）过程的定义可以嵌套，但过程的调用不能嵌套 （B）过程的定义不可以嵌套，但过程的调用可以嵌套（C）过程的定义和调用均不可以嵌套（D）过程的定义和调用均可以嵌套 9.以下叙述中错误的是（C）。 （A）一个工程中只能有一个Sub Main过程 （B）窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体（C）窗体的Hide方法和Unload方法的作用完全相同 （D）若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 10.以下叙述中错误的是（D）。 （A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型（B）Sub过程中不能嵌套定义Sub过程（C）Sub过程中可以嵌套调用Sub过程 （D）事件过程中可以像通用过程一样由用户定义过程名 11.定义带可变参数的过程，使用的关键字是（C）。 （A）Optional （B）Option （C）ParamArray （D）Private 12.定义带可选参数的过程，使用的关键字是（A）。 （A）Optional （B）Option （C）ParamArray （D）Private 二、填空题 1.在过程定义的首部出现的变量名叫做（形式）参数，而在调用过程中传送给过程的（常数、变量、数组元素、表达式）叫做（实在）参数。 2.定义和调用函数或过程时参数传递的两种方法是（按值传递，按地址传递）。 3.在窗体的通用段用Dim语句定义的变量是（窗体）级变量，它只能在（本窗体）中使用。 4.全局级过程在定义时可以默认，也可以使用关键字（Public）进行显示声明；窗体/模块级的过程声明时要用关键字（Private）。 5.用ParamArray关键字声明可变参数时，被声明的参数只能是（变体类型数组）。6.在带可选参数的过程中，使用（IsMissing）函数来测试可选参数是否被选。 三、分析运行结果 1.阅读程序 Function f(a As Integer) Static c b = 0: b = b + 1 c = c + 1: f = a + b + c End Function Private Sub command1_click() Dim a As Integer a = 2 For i = 1 To 3 Print f(a); Next i End Sub程序运行后，单击命令按钮，输出结果为：4 2.阅读程序 Sub s(x As Single, y As Single) t = x x = t / y y = t Mod y End Sub Private Sub command1_click() Dim a As Single, b As Single a = 5 b = 4 s a, b Print a, b End Sub 程序运行后，单击命令按钮，输出结果为：1.25 3.阅读程序 Function M(x%, y%)As Integer M = IIf(x > y, x, y)End Function Private Sub command1_click() Dim a As Integer, b As Integer a = 1 b = 2 Print M(a, b)38 End Sub 程序运行后，单击命令按钮，输出结果为：2 4.阅读程序 Sub Inc(a As Integer) Static x As Integer x = x + a Print x;End Sub Private Sub command1_click() Inc 2 Inc 3 Inc 4 End Sub 程序运行后，单击命令按钮，输出结果为：2 5 9 5.阅读程序： Sub p(b()As Integer) For i = 1 To 4 b(i)= 2 * i Next i End Sub Private Sub command1_click() Dim a(1 To 4)As Integer a(1)= 5 a(2)= 6 a(3)= 7 a(4)= 8 p a() For i = 1 To 4 Print a(i); Next i End Sub程序运行后，单击命令按钮，输出结果为：2 6.阅读程序： Function fun(ByVal num As Long)As Long Dim k As Long k = 1 num = Abs(num) Do While num k = k *(num Mod 10) num = num 10 Loop fun = k End Function Private Sub command1_click() Dim n As Long, r As Long n = Val(InputBox(”请输入一个数：“)) r = fun(n) Print r End Sub 程序运行后，单击命令按钮，输入1234，输出结果为：24 7.阅读程序： Function func(a%, b%)As Integer Static m As Integer, i As Integer m = 0 i = 2 i = i + m + 1 m = i + a + b func = m End Function Private Sub command1_click() Dim k%, m%, p% k = 4 m = 1 p = func(k, m) Print p; p = func(k, m) Print p End Sub 程序运行后，单击命令按钮，输出结果为：8 8.阅读程序： Dim a%, b%, c% Public Sub p1(x%, y%) Dim c% x = 2 * x: y = y + 2: c = x + y End Sub Public Sub p2(x%, ByVal y%) Dim c% x = 2 * x: y = y + 2: c = x + y End Sub Private Sub command1_click() a = 2: b = 4: c = 6 Call p1(a, b) Print a, b, c Call p2(a, b) Print a, b, c End Sub 程序运行后，单击命令按钮，输出结果为：8 9.阅读程序： Private Sub command1_click() Dim m%, i%, x%(10) For i = 0 To 4 x(i)= i + 1 Next i For i = 1 To 2 Call proc(x()) Next i For i = 0 To 4 Print x(i) Next i End Sub Public Sub proc(a%()) Static i% Do a(i)= a(i)+ a(i + 1) i = i + 1 Loop While i < 2 End Sub 程序运行后，单击命令按钮，输出结果为：3 5 7 4 5 10.阅读程序： Private Sub command1_click() Print p1(3, 7)End Sub Public Function p1!(x!, n%) If n = 0 Then p1 = 1 Else If n Mod 2 = 1 Then p1 = x * p1(x, n 2) Else p1 = p1(x, n 2)x End If End If End Function程序运行后，单击命令按钮，输出结果为：27 11.阅读程序： Private Sub command1_click() Dim x%, y%, z%, w% x = 9 y = 8 z = 2 w = 6 Call s1(x, y, z, w) Print x;y;z;w End Sub Private Sub s1(a%, b%, ByVal c%, ByVal d%) a = a + 1 b = b + 2 c = c + 3 d = d + 4 End Sub程序运行后，单击命令按钮，输出结果为：10 10 2 6 12.阅读程序： Private Sub command1_click() Dim x%, y% x = 9: y = 8 Call s1(5, 7, x, y) Print x;y End Sub Private Sub s1(a%, b%, ByVal c%, ByVal d%)c = c + a: d = d + b End Sub程序运行后，单击命令按钮，输出结果为：9 13.阅读程序： Private Sub command1_click() Dim x%, y%, z% x = 5: y = 7: z = 0 Call s1(x, y, z) Print x;y;z End Sub Private Sub s1(ByVal a%, ByVal b%, c%)c = a + b End Sub程序运行后，单击命令按钮，输出结果为：5 7 12 14.阅读程序： Private i As Integer Private Sub abc() a$ = Chr(Asc(”A“)+ i) Print a$;”;“;End Sub Private Sub command1_click() For i = 0 To 4 abc Next i End Sub程序运行后，单击命令按钮，输出结果为：A;B;C;D;E;15.阅读程序： Private Sub abc() a$ = Chr(Asc(”A“)+ i) Print a$;”;“;End Sub Private Sub command1_click() For i = 0 To 4 abc Next i End Sub程序运行后，单击命令按钮，输出结果为：A;A;A;A;A; 16.阅读程序： Function M(x%, y%)As Integer M = IIf(x > y, x, y)End Function Private Sub command1_click() Dim a As Integer, b As Integer a = 100 b = 200 Print M(a, b)End Sub程序运行后，单击命令按钮，输出结果为：200 17.阅读程序： Private i As Integer Private Sub abc() a$ = Chr(Asc(”A“)+ i) b$ = Chr(Asc(”Z“)-x) Print a$ & b$;”;";End Sub Private Sub command1_click() Dim x As Integer For i = 0 To 4 x = x + 1 abc Next i End Sub程序运行后，单击命令按钮，输出结果为：AZ;BZ;CZ;DZ;EZ; 四、简答题 1.子过程与函数过程的异同点是什么? 2.什么是形参？什么事实参？ 3.调用子过程或函数过程时，实参与形参的对应关系如何？应注意什么问题？ 4.值传递与地址传递的选择与其特点是什么？ 5.在VB中，形参若是数组，不要说明数组元素的个数，即以数组名和圆括号表示，在过程体内如何表示数组的上下界？ 6.在Form1窗体通用声明部分声明的变量，可否在Form2窗体中的过程被访问？ 7.要使变量在某事件过程中保值，有哪几种变量声明的方法？ 8.指出下面过程语句说明中的错误： （1）Sub f1（n%）as integer （2）Function f1%（f1%）（3）Sub f1（ByVal n%（）） （4）Sub f1（x（i）as integer)9.已知有如下求两个平方数和的fsum子过程： Public Sub fsum（sum%, byval m%, byval n%） Sum=m*m+n*n End Sub 在事件过程中有如下变量声明： Dim a%,b%,c!a=10 b=20 则指出如下过程调用语句错误所在： （1）fsum 3,4,5 （2）fsum c, a, b （5）call fsum c, a, b（3）fsum a+b, a, b （4）call fsum(sqr(c), sqr(a), sqr(b))1.子过程和函数过程的相同点：函数过程和子过程都是功能相对独立的一种子过程结构，它们有各自的过程头、变量声明和过程体。在程序中使用它们不但可以避免频繁的书写重复的程序语句，缩短代码，而且使程序条理清晰，容易阅读。 子过程和函数过程的不同点： （1）过程声明的关键字不同，子过程用Sub，函数过程用Function。 （2）子过程名无值就无类型声明，函数过程有值就有类型声明。 （3）函数过程名兼作结果变量，因此在函数过程体内至少对函数过程名赋值一次；而子过程名在过程内不能赋值。 （4）调用方式不同，子过程是一句独立的语句，可用call子过程名或省略call直接以子过程名调用；函数过程不是一句独立的语句，是一个函数值，必须参与表达式的运算。 （5）一般来说，一个函数过程可以被一个子过程代替，代替时只要改变函数定义的形式，并在子过程的 46 形参表中增加一个地址传递的形参来传递结果。但反过来，用一个函数过程去替代一个子过程，有时是不容易实现的。 2.形参是在定义过程时的一种形式虚设的参数，只代表了该过程参数的个数、类型、位置，形参的名字并不重要，也没有任何值，只表示在过程体内进行某种运算或处理。 形参不能是常量、表达式或数组元素，只能是变量。 实参是调用子过程时提供给过程形参的初始值或通过过程体处理过后获得的结果。 3.调用时用实参代替形参，实参与形参在个数、位置、类型一一对应，但实参与形参名相同与否无关。 VB在调用过程时，提供了命名参数的功能，在调用时使用形参名，而位置可任意；同时VB还提供了可选参数的功能，也就是实参与形参个数不一定相等。 4.仅要从调用者获得初值，应使用值传递；要将过程运算结果提供给调用者，必须是地址传递。数组、记录类型和对象必须使用地址传递。 调用时地址传递对应的实参不应该是表达式或常量。在VB中尽管不显示出错信息，但得不到所期望的值。 能够用值传递实现的，尽量用值传递，减少过程间关联，有利于程序的调试。5.利用VB提供的函数LBound和UBound确定数组的上、下界。 6.可以，条件是要在Form1窗体通用声明部分声明的变量是Public；Form2窗体中的过程被访问时变量名前加Form1。 7.方法一：在标准模块中声明Public的变量； 方法二：在某事件过程所在的窗体的通用声明段声明变量； 方法三：在某事件过程以Static关键字声明的变量。8.（1）错误为Sub子过程名无返回值，也就没有类型 （2）函数名与形参名相同 （3）形参n为数组，不允许声明为ByVal值传递 （4）形参x(i)不允许为数组元素 9.（1）fsum 子过程的第一个形参是地址传递，因此对应的实参3不应该是常量。 （2）fsum子过程的第一个形参是整型且地址传递，对应得实参c是单精度，类型不匹配。 （3）fsum子过程的第一个形参是地址传递，因此对应的实参a+b不应该是表达式。 （4）fsum子过程的第一个形参是地址传递，因此对应的实参(sqr(c)不应该是表达式。（5）用call语句调用 fsum子过程，必须加圆括号括起实参。.第七章 一、选择题 1.要判断在文本框中是否按了Enter键，应在文本框的（D）事件中判断。 （A）Change （B）KeyDown （C）Click （D）KeyPress 2.以下选项中，没有Caption属性的对象是（B）。 （A）命令按钮 （B）组合框 （C）窗体 （D）单选框 3.计时器控件的控件值是（D）。 （A）Caption （B）Value （C）Interval （D）Enabled 4.以下选项中，（B）不是鼠标操作事件。 （A）DragDrop （B）GotFocus （C）DblClick （D）MouseDown 5.以下选项中，（A）是键盘操作事件。 （A）KeyUp （B）GotFocus （C）DblClick （D）MouseDown 6.设置复选框或单选按钮标题对齐方式的属性是（B）。 （A）Align （B）AlignMent （C）Sorted （D）Value 7.为了使列表框中的项目分为多列显示，需要设置的属性为（A）。 （A）Columns （B）Style （C）List （D）MultiLine 8.要想不使用shift或ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为（B）。 （A）0 （B）1 （C）2 （D）其他 9.删除列表框中指定的项目所使用的方法为（D）。 （A）Move （B）Remove （C）Clear （D）RemoveItem 10.当拖动滚动条中的滚动块时，将触发滚动条的（C）事件。 （A）Move （B）Change （C）Scroll （D）SetFocus 11.用户在组合框中输入或选择的数据可以通过（C）属性获得。 （A）List （B）ListIndex （C）Text （D）ListCount 12.下列控件中，没有Caption属性的是（B）。 （A）框架 （B）文本框 （C）复选框 （D）单选按钮 13.复选框的Value属性为1时，表示（B）。 （A）复选框未被选中 （B）复选框被选中 （C）复选框内有灰色的勾 （D）复选框操作有错误 14.用来设置粗体字的属性是（C）。 （A）FontItalic （B）FontName （C）FontBold （D）FontSize 15.将数据项“china”添加到列表框List1中成为第一项应使用（A）语句。 （A）List1.AddItem ―china‖, 0 （B）List1.AddItem ―china‖, 1 48（C）List1.AddItem 0, ―china‖ （D）List1.AddItem 1, ―china‖ 16.引用列表框List1最后一个数据项应使用（B）。 （A）List1.List(List1.ListCount) （B）List1.List(List1.ListCount-1)（C）List1.List(ListCount) （D）List1.List(ListCount-1)17.假如列表框List1有四个数据项，那么把数据项‖china‖添加到列表框的最后，应使用（D）语句。 （A）List1.AddItem ―china‖, 3 （B）List1.AddItem ―china‖, List1.ListCount-1 （C）List1.AddItem 3, ―china‖ （D）List1.AddItem ―china‖, List1.ListCount 18.假如列表框List1中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是（D）。 （A）移去第一项 （B）移去最后一项 （C）移去最后加入列表的一项 （D）以上都不对 19.假如列表框List1中只有一个被选定的项目，则执行Debug.print List1.Selected(List1.ListIndex)语句的结果是（B）。 （A）在Debug窗口中输出被选定的项目的索引值 （B）在Debug窗口中输出True（C）在窗体上输出被选定的项目的索引值 （D）在窗体上输出True 20 在下列说法中，正确的是（B）。 （A）通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 （B）在列表框中不能进行多项选择 （C）框架也有click和dblclick事件（D）在列表框中能够将项目按字母顺序从大到小排列 21.为了防止用户随意将光标置于控件之上，应（D）。 （A）将控件的TabIndex属性设置为0 （B）将控件的TabStop属性设置为True（C）将控件的TabStop属性设置为False （D）将控件的Enabled属性设置为False 22.下列（D）控件没有Min、Max和Value属性。 （A）Slider （B）ProgressBar （C）UpDown （D）SSTab 23.当Slider控件的Min属性为1，Max属性为40，TickFrequency属性为4时，滑标上的可见刻度数是 49（A）个，划分了（）等分。 （A）11，10 （B）21，20 （C）31，30 （D）41，40 24.一个UpDown控件与文本框“捆绑”在一起，其Min、Max、Value和Increment分别为0、10、9和3，并且选定了“换行”功能，当用鼠标单击向上的箭头时，文本框中的值应是（A）。（A）10 （B）12 （C）0 （D）2 25.下面关于拖放和OLE拖放的叙述中，正确的是（D）。 （A）只要对控件的属性进行适当的设置，就能将控件从一个地方移动到另一个地方 （B）文本框、图片框和列表框完全支持自动OLE拖放 （C）当OLEDropMode属性为1时，控件自动实现OLE“放”操作 （D）当控件的DragMode设置为1时，它不能接受Click和MouseDown事件 26.在下面关于常用的ActiveX控件的说法中，正确的是（B）。 （A）在Animation控件中，当用Open方法打开AVI文件后直接自动播放 （B）Slider控件有Scroll和Change事件（C）UpDown不能与Slider“捆绑” （D）选项卡只可以出现在控件的顶端 27.当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是（B）。 （A）KeyPress、KeyDown、KeyUp （B）KeyDown、KeyPress、KeyUp（C）KeyDown、KeyUp、KeyPress （D）没有规律 28.在下列关于键盘事件的描述中，正确的是（D）。 （A）按下键盘上的任意一个键，都会引发KeyPress事件 （B）大键盘上的“1”键和数字键盘的“1”键的KeyCode码相同（C）KeyDown和KeyUp事件过程中有KeyAscii参数 （D）大键盘上的“4”键的上档字符是“$”，当同时按下Shift和大键盘上的“4”键时，KeyPress事件过程中的KeyAscii参数值是“$‖的ASCII值 29.在KeyDown和KeyUp事件过程中，能用来检查Ctrl和F3是否同时按下的表达式为（C）。 （A）(Button=vbCtrlMask)And(KeyCode=vbKeyF3)（B）KeyCode=vbKeyControl+vbKeyF3（C）(kEYcODE=vbKeyF3)And(Shift And vbCtrlMask)第三篇：VB判断题及答案
第四篇：vb试题及答案
第五篇：vb习题集和答案
点击咨询 