VB题库工大-海文库
您现在的位置：&>&&>&IT认证
VB题库工大
一、判断 共10题 （共计10分）第1题 Shape控件和Line控件可以在窗体中移动,因此它们具有Move方法.
答案：N 第2题 Visual Basic程序的运行可以从Main()过程启动,也可以从某个窗体启动.
答案：Y 第3题图片框的属性Enabled设置为FALSE,
图片框上的控件仍可响应用户操作.
答案：N 第4题若已在窗体中加入了一个通用对话框:要求在运行时,通过ShowOpen打开对话框时,只显示扩展名为 DOC 的文件,则对通用对话框的 Filter的属性设置应该是:& (*.DOC)| ( .DOC)& . N第5题设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字.
答案：Y 第6题清除list1列表框对象的内容的语句是list1.cls.
答案：N第7题图片框的Move方法不仅可以移动图片框,而且还可以改变该图片框的大小,同时也会改变该图片框有关属性的值.
答案：N第8题当窗体的ScaleTop=0,ScaleLeft=0时,这个窗体Top和Left值也是0.
答案：N 第9题框架控件和形状控件都不能响应用户的鼠标的单击事件.
答案：Y第10题通用对话框只能用SHOW方法进行调用.
答案：N二、单项选择 共10题 （共计10分）第1题用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见.A:Hide
答案：C第2题定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.A:分
答案：C第3题要在图片框P1中打印字符串& HowAreYou& ,应使用语句().A:Picture1.Print=& HowAreYou&
B:P1.Picture=LoadPicture(& HowAreYou& )C:P1.Print& HowAreYou&
D:Print& HowAreYou&
答案：C第4题下列关于设置控件属性的叙述正确的是().A:用户必须设置属性值
B:所有的属性值都可以由用户随意设定C:属性值不必一一重新设置
D:不同控件的属性项都完全一样
答案：C 第5题启动VisualBasic后,系统为用户新建的工程起一个名为()的临时名称.A:工程1
答案：A第6题设a=10,b=5,c=1,执行语句Printa&b&c后,窗体上显示的是().A:True
D:出错信息
答案：B第7题MSGBOX函数中有4个参数,其中必须写明的参数是().A:指定对话框中显示按钮的数目
B:设置对话框标题
C:提示信息
D:所有参数都是可选的 C 第8题应用程序设计完成后,应将程序保存,保存的过程是().A:只保存窗体文件即可
B:只保存工程文件即可
C:先保存工程文件,之后保存窗体文件 D:先保存窗体文件(或标准模块文件),之后还要保存工程文件
答案：D 第9题改变控件在窗体中的左右位置应修改该控件的()属性.A:Top
答案：B第10题VB认为下面()组变量是同一个变量.A:A1和a1
B:SUM和SUMMARY
C:AVER和AVERAGE
答案：A三、程序填空 共3题 （共计30分）第1题 '【程序填空】'功能：以下程序的功能如(图1)。'-------------------------------------------------------Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(& 请输入a的值& )b = InputBox(& 请输入b的值& )c = InputBox(& 请输入c的值& )d = b * b - 4 * a * cp = -b / (2 * a)If d &= 0 Then'**********SPACE**********If 【?】 Thenr = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p'**********SPACE**********【?】Print & x1=& ; x1, & x2=& ; x2'**********SPACE**********【?】q = Sqr(-d) / (2 * a)Print & x1=& ; & +& ; & i& , & x2=& ; & -& ; & i&
End IfEnd Sub答案：
1). d & 0 或 0 & d
2). End If
3). Else第2题
'【程序填空】'功能：完成程序，使程序输出值为 15'-------------------------------------------------------Private Sub Command1_Click()'**********SPACE**********Dim i, j, x,【?】 As IntegerFor i = 1 To 4x = 4For j = 1 To 3x = 3'**********SPACE**********For 【?】 = 1 To 2'**********SPACE**********x = x + 【?】Next kNext jNext iPrint xEnd Sub答案：
3). 6第3题
'【程序填空】'功能：用输入对话框输入x，根据如图公式计算对应的y， '
在窗体上输出y的值。'------------------------------------------------------- Private Sub Command1_Click()'**********SPACE**********Dim x As Single, 【?】 As Single'**********SPACE**********x = Val(【?】(& Please input x :& , & 输入X的值& ))
If x = 10 Then'**********SPACE**********【?】ElseIf x & 10 Then'**********SPACE**********y = Sqr(x) 【?】Elsey = 2 * x ^ 3 + 6End IfPrint yEnd Sub答案：
2). InputBox
4). + Sin(x)四、程序改错 共3题 （共计30分）第1题
'【程序改错】'题目:设窗体中有图片框Pic1，现要求在其中绘制10个同心圆，'
然后将此图以Test.BMP作文件名存入磁盘。'------------------------------------------------Option ExplicitPrivate Sub Command1_Click()Dim X As IntegerDim Y As IntegerDim I As IntegerDim rad(9) As IntegerX = Pic1.ScaleWidth / 2Y = Pic1.ScaleHeight / 2'**********FOUND**********For I = 1 To 9rad(I) = 500 * RndNext II = 9'**********FOUND**********Do Until I & 1Pic1.Circle (X, Y), rad(I), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)
'**********FOUND**********I = I + 1LoopSavePicture Pic1.Image, & Test.BMP&End Sub答案：
1). for i=0 to 9
for i=0 to 9 step 12). Do Until I & 0
do until 0&i3). I = I - 1
i=-1+i第2题
'【程序改错】'题目：从计算机输入三个数 , 找出中间数'------------------------------------------------Option ExplicitPrivate Sub FindMidNum()Dim x As Integer, y As Integer, z As Integer, A As Integerx = InputBox(& PLEASE INPUT THE FIRST NUMBER& )y = InputBox(& PLEASE INPUT THE SECOND NUMBER& )z = InputBox(& PLESSE INPUT THE THIRD NUMBER& )
'**********FOUND**********If x & y ThenA = xx = yy = AEnd If'**********FOUND**********If y = z ThenPrint y'**********FOUND**********ElseIf x = z ThenPrint zElsePrint xEnd IfEnd SubPrivate Sub Form_Click()FindMidNumEnd Sub答案：
1). If x & y Then 或 If y & x Then2). If y &= z Then 或 If z &= y Then3). ElseIf x &= z Then 或 ElseIf z &= x Then 第3题
'【程序改错】'题目：输出40以内能够被3整除的数，要求输出结果为5 '
个数一行。'------------------------------------------------ Option ExplicitPrivate Sub Form_Click()ClsDim x As IntegerDim i As Integer'**********FOUND**********i = 1For x = 1 To 40If (x / 3) = (x \ 3) Then'**********FOUND**********Print xi = i + 1End If'**********FOUND**********If i Mod 3 = 0 ThenPrintEnd IfNext xEnd Sub答案：
3). if i mod 5=0 then五、程序设计 共2题 （共计20分）第1题
'【程序设计】'题目：编写函数fun其功能是：根据整型形参m，计算如下公式的值:y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)例如：若m=9，则应输出：1.168229'要求：函数中用到的中间变量必须声明为Single类型。'-------------------------------------------------答案：----------------------Dim y As DoubleDim i As IntegerFor i = 0 To my = y + 1 / (i + 5)NextFun = y----------------------
第2题 （10.0分） 题号:488'【程序设计】'题目： (事件)单击窗体。(响应)已知sum=1/2!-1/4!+1/6!-1/8!+1/10!,请将sum结果值输出到窗体上。使用do while...loop语句完成程序'----------------------------------------答案：----------------------Dim i As IntegerDim n As Integeri = 1p = 1Do While i &= 10p = p * i
If i Mod 2 = 0 Then
sum = sum + (-1) ^ (n - 1) / p End Ifi = i + 1LoopPrint sum----------------------一、判断 共10题 （共计10分）第1题 所有的对象都有caption 属性.
答案：N第2题 事件过程由某个用户事件或系统事件触发执行,它不能被其它过程调用.
答案：N 第3题 当定时器控件的interval属性值设置为0时,会连续不断地激发Timer事件.答案：N 第4题 当需要在同一窗体中建立几组相互独立的单选钮时,就要用框架将每一组单选钮框起来.答案：Y 第5题在窗体模块的声明部分中用Private声明的变量的有效范围是其所在的工程.
答案：N 第6题Visual Basic程序的运行可以从Main()过程启动,也可以从某个窗体启动. 答案：Y 第7题VB允许设计和使用用户自己设计的控件.
答案：Y第8题在VB中,可以将在Picture控件中绘制的图形以文件的形式保存在磁盘上.
答案：Y 第9题Function函数有参数传递,并且一定有返回值.
答案：N第10题在VB的工具栏中包括了所有的VB控件,我们不能再加载其他的控件.答案：N置顶二、单项选择 共10题 （共计10分）第1题代数式x1-|a|+ln10+sin(x2+2л)/cos(57o)对应的VisualBasic表达式是(). A:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180)B:X1-Abs(A)+Log(10)+Sin(X2+2*л)/Cos(57*3.14/180)C:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57)D:X1-Abs(A)+Log(10)+Sin(X2+2*л)/Cos(57)
答案：A第2题设计动画通常使用时钟控件()来控制动画速度.A:Enabled
B:Interval
答案：B第3题要把一个命令按钮设置成无效,应设置其哪一属性值().A:Visible
答案：B第4题设a=10,b=5,c=1,执行语句Printa&b&c后,窗体上显示的是().A:True
D:出错信息
答案：B第5题 任何控件都具有的属性是().A:TEXT
D:FORECOLOR
答案：C第6题 当事件能被触发时,()就会对该事件作出响应.A:对象
答案：A第7题下列叙述正确的是().A:对象是包含数据又包含对象数据进行操作的方法的物理实体B:对象的属性只能在属性窗口中设置C:不同的对象能识别不同的事件D:事件过程都要由用户点击对象来触发
答案：C第8题 下列关于设置控件属性的叙述正确的是().A:用户必须设置属性值
B:所有的属性值都可以由用户随意设定C:属性值不必一一重新设置
D:不同控件的属性项都完全一样
答案：C 第9题表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是().A:4^5
答案：C第10题一个对象可以执行的动作和可被对象识别的动作分别称为().A:事件、方法
B:方法、事件
C:属性、方法
D:过程、事件
答案：A三、程序填空 共3题 （共计30分）第1题 '【程序填空】'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。'-------------------------------------------------------Private Sub Form_Click()Print & 5个数34、124、68、73、352的最大值是：&max1 = max(34, 124, 68)'**********SPACE**********max1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)'**********SPACE**********If
【?】 Thenm = aElsem = bEnd If'**********SPACE**********If 【?】 Thenmax = mElsemax = cEnd IfEnd Function答案：
1). max(max1, 73, 352)
2). a&b 或 b&a
3). m & c 或 c & m 第2题
'【程序填空】'功能：输入数字1-7,显示其对应是星期几(例:输入 1,显示星期日, '
如果输入其它内容，一律显示& 输入错误& )'-------------------------------------------------------Private Sub Command1_Click()dim x as integerdim y as stringx=val(text1.text)'**********SPACE**********【?】case 1y=& 今天是星期日&case 2y=& 星期一&case 3y=& 星期二&case 4y= & 星期三&case 5y=& 星期四&case 6'**********SPACE**********【?】case 7y= & 星期六&'**********SPACE**********【?】y = & 输入错误&end selectText2.Text = yEnd Sub答案： 1). select case x
2). y=& 星期五&
3). Case Else第3题 '【程序填空】'功能：以下程序段用于求∑n!'-------------------------------------------------------Private Sub Form_Click()Dim sum As Integer, n As Integern = InputBox(& 请输入一个正整数& )sum = 0For i = 1 To n'**********SPACE**********sum =【?】Next iPrint sumEnd SubPrivate Function mul(ByVal x As Integer)Dim s As Integer, i As Integers = 1'**********SPACE**********For i = 1 To 【?】s = s * iNext i'**********SPACE**********【?】End Function答案：
3). mul = s四、程序改错 共3题 （共计30分）第1题
'【程序改错】'题目：输出40以内能够被3整除的数，要求输出结果为5个数一行。 '------------------------------------------------Option ExplicitPrivate Sub Form_Click()ClsDim x As IntegerDim i As Integer'**********FOUND**********i = 1For x = 1 To 40If (x / 3) = (x \ 3) Then'**********FOUND**********Print xi = i + 1End IfIf i Mod 5 = 0 ThenPrintEnd If'**********FOUND**********step iEnd Sub答案：
2). P 或 ?
3). Next x 或 Next第2题
'【程序改错】'题目:程序功能为求解一元二次方程的实根，请修正程序中错误。'------------------------------------------------Option ExplicitPrivate Sub Form_Load()Dim a!, b!, c!, root1#, root2#, work As Doublea = Val(InputBox(&
请输入系数a的值& ))b = Val(InputBox(&
请输入系数b的值& ))c = Val(InputBox(&
请输入系数c的值& ))'**********FOUND**********work = b * 2 - 4 * a * cIf work &= 0 And a && 0 Then'**********FOUND**********root1 = (Sqr(work)) / (2 * a)'**********FOUND**********root2 = (Sqr(work)) / (2 * a)Debug.Print & 有二个实根&
+ Str$(root1) + & ,&
+ Str$(root2)ElseDebug.Print & 无实根!&End IfEnd Sub答案：1). work = b ^ 2 - 4 * a * c 或 work = b *b - 4 * a * c2). root1 = (-b + Sqr(work)) / (2 * a) 或 root1 = ( Sqr(work) -b ) / (2 * a) 或 root1 = (-b + Sqr(work)) / ( a*2)3). root2 = (-b - Sqr(work)) / (2 * a) 或 root2 = (- Sqr(work) - b) / (2 * a) 或 root2 = (-b - Sqr(work)) / ( a*2)第3题
'【程序改错】'题目:本程序求3~100之间的所有素数（质数）并统计个数；同时将这些素数从小到大依次写入顺序文件c:\dataout.txt；素数的个数显示在窗体Form1上。'------------------------------------------------Option ExplicitPrivate Sub Command1_Click()Dim Count As Integer, Flag As BooleanDim t1 As Integer, t2 As Integer'**********FOUND**********Open & dataout.txt&
For Input As #1Count = 0For t1 = 3 To 100Flag = TrueFor t2 = 2 To Int(Sqr(t1))If t1 Mod t2 = 0 Then Flag = FalseNext t2'**********FOUND**********If Flag = False ThenCount = Count + 1'**********FOUND**********Write #1, t2End IfNext t1Form1.Print & 素数个数& ; CountClose #1End Sub1). Open & dataout.txt&
For Output As #1 或 Open & dataout.txt&
For Output As 12). If Flag Then 或 If Flag=true Then3). Write #1, t1 或 Write 1, t1五、程序设计 共2题 （共计20分）第1题 '【程序设计】'题目：(事件)双击窗体。(响应)s=20+21+22+?+263，求s的值，并将结果存储到变量S中。 '-------------------------------------------------答案：----------------------Dim i As Integeri = 20While i &= 263s = s + ii = i + 1WendPrint (CStr(s))----------------------第2题 '【程序设计】'题目：(事件)单击窗体。(响应)编写程序求10×11×12+11×12×13+?+15×16×17的结果， 并将结果输出到窗体上。将结果存入变量M中'-------------------------------------------------答案：----------------------Dim i, j As IntegerDim s As LongFor i = 10 To 15s = 1For j = i To i + 2s = s * jNextm = m + sNextPrint (CStr(m))----------------------
试卷编号：8111一、判断
共20题 （共计20分）第1题 由Visual Basic语言编写的应用程序有解释和编译两种执行方式.
答案：Y 第2题 在VB中,运算 &ABCDE123A& Like &[a*a] & 的结果是True.
答案：Y第3题 在图片框中放置的控件既可以在该图片框内移动,也可以移出该图片框外.
答案：N 第4题 在MsgBox 函数中 prompt 参数是必须的.
答案：Y第5题 VB支持弹出菜单,所谓&弹出菜单&是指单击鼠标后打开的菜单.
答案：N 第6题 Listl.clear是清除Listl的全部列表项,所以Clear是对象的方法.
答案：Y 第7题 在过程中用Dim和Static定义的变量都是局部变量.
答案：Y第8题 在窗体模块的声明部分中用Private声明的变量的有效范围是其所在的工程.
答案：N 第9题 通用对话框只能用SHOW方法进行调用.
答案：N第10题对窗体Form内各控件不能用鼠标任意精确定位是由于窗体中的定位网格起作用. Y 第11题
在框架控件内的几个单选按钮中,只能有一个单选按钮的Value属性为True.
Y 第12题 从几十个项目中任选其中一项或多项时可选用列表框或组合框控件实现. 答案：N 第13题 若已在窗体中加入了一个通用对话框:要求在运行时,通过 ShowOpen打开对话框时,只显示扩展名为 DOC 的文件,则对通用对话框的 Filter的属性设置应该是:&(*.DOC)| ( .DOC)&. 答案：N 第14题 在VB中,用DIM定义数组时数组元素也自动赋初值为0.
答案：N第15题 利用Private
Const 声明的符号常量,在代码中不可以再赋值.
答案：Y 第16题 在VB中,计时器(Timer)定期激活Timer事件,使Timer中的代码执行一次.答案：Y 第17题 如果一个菜单项的Visible属性为False,则它的子菜单也不会显示.
答案：Y 第18题 通过改变属性窗口中的Name属性,可以改变窗体上显示的标题.
答案：N第19题 在VB中,运算 &D& Like &[! A-Z]& 的结果是True. 答案：N第20题 在利用通用对话框件显示字体对话框之前必须设置Flags属性,否则将发生不存在字体的错误. Y二、单项选择
共20题 （共计20分）第1题 用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见.A:Hide
答案：C第2题 要使得窗体在出现之前就完成相关的程序设置可在()事件中进行编程.A:linkopen
B:KeyPress
答案：C第3题 窗体的Caption属性的作用是().A:确定窗体的名称
B:确定窗体的标题
C:确定窗体的边界类型
D:确定窗体的字体
&对象&是计算机系统运行的().A:程序单位
B:逻辑单位
C:物理实体
D:基本实体
答案：D第5题 设a=10,b=5,c=1,执行语句Printa&b&c后,窗体上显示的是().A:True
D:出错信息
答案：B第6题 在窗体上建立了多个控件,如TEXT、LABEL1、COMMAND1,若要使程序一运行焦点就定位在COMMAND1控件上,应将COMMAND1控件的()设置为0.A:INDEX
B:TABINDEX
答案：B第7题 将通用对话框类型,设置为字体对话框,可修改该控件的()属性.A:font
B:filename
答案：D 第8题 设置列表框选中的文本用()属性.A:selected
答案：D 第9题 能够改变窗体边框线类型的属性是().A:FontStyle
B:BorderStyle
C:BackStyle
答案：B 第10题 下列哪个变量的取法是不正确的().A:sTme
答案：C 第11题 选中复选框控件时,value属性的值,可以是().A:True
答案：D第12题 要清除已经在图片框Picture中打印的字符串而不清除图片框中的图像,应使用语句(). A:A.P1.Cls
B:P1.picture=LoadPicture(&&)
C:P1.Print&&
D:P1.piture&&
答案：A 第13题 控件内的对齐方式()属性决定.A:Alignment
B:WordWrap
C:AtuoSize
答案：A第14题 清除列表框的所有选项应选择下列哪种方法().A:Clear
C:ClearItem
D:RemoveItem
答案：A 第15题 下列赋值语句正确的是().A:Text1.text=Text.text+Text2.text
B:Text1.name=Text1.Name+Text2.Name C:Text1.Caption=Text1.Caption+Text2.CaptionD:Text1.Enable=Text1.Enable+Text2.Enable
答案：A 第16题 已知A?B?C中C最小,则判断A?B?C可否构成三角形三条边长的逻辑表达式是(). A:A&=B And B&=C
B:A+C&B And B+C&A And C&0C:(A+C)&=C
And A-C &=C) And C&0
And A-B&C And C&0
答案：B 第17题 形状控件所显示的图形不可能是().A:圆
C:圆角正方形
D:等边三角形
答案：D第18题 要在图片框P1中打印字符串&HowAreYou&,应使用语句().A:Picture1.Print=&HowAreYou&
B:P1.Picture=LoadPicture(&HowAreYou&)C:P1.Print&HowAreYou&
D:Print&HowAreYou&
答案：C第19题 文本框中选定的内容,由下列()属性反映.A:Text
D:sellenght
答案：C第20题 在一个语句行内写多条语句时,语句之间应该用()分隔.A:逗号
答案：D三、程序填空
共2题 （共计10分）第1题 '【程序填空】'题目：以下程序的功能如(图1)。'-------------------------------------------------------Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(&请输入a的值&)b = InputBox(&请输入b的值&)c = InputBox(&请输入c的值&)d = b * b - 4 * a * cp = -b / (2 * a)If d &= 0 Then'**********SPACE**********If 【?】 Thenr = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p'**********SPACE**********【?】Print &x1=&; x1, &x2=&; x2'**********SPACE**********【?】q = Sqr(-d) / (2 * a)Print &x1=&; &+&; &i&, &x2=&; &-&; &i&End IfEnd Sub答案：
1). d & 0 或 0 & d
2). End If
3). Else第2题 '【程序填空】'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。 '-------------------------------------------------------Private Sub Form_Click()Print &5个数34、124、68、73、352的最大值是：&max1 = max(34, 124, 68)'**********SPACE**********max1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)'**********SPACE**********If
【?】 Thenm = aElsem = bEnd If'**********SPACE**********If 【?】 Thenmax = mElsemax = cEnd IfEnd Function答案：
1). max(max1, 73, 352)
2). a&b 或 b&a
3). m & c 或 c & m四、程序改错
共2题 （共计10分）第1题 '【程序改错】'题目：请修改程序中错误，保证程序最后输出效果如图1所示。'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim i As IntegerFor i = 1 To 7'**********FOUND**********Print Spc(7);'**********FOUND**********If i &= 1 ThenPrint &*&Else'**********FOUND**********Print &*&; Spc(2 * (i - 1)); &*&End IfNext iEnd Sub答案：1). Print Spc(7 - i);
2). If i = 1 Then 或 If 1=i Then3). Print &*&; Spc(2 * (i - 1) - 1); &*&第2题 '【程序改错】'题目：该程序的功能是通过键盘给一维数组a输入10个整数，然后将一维数组的这些数赋值给一个2行5列的二维数组。最后在一行内输出一维数组、在两行内输出二维数组。不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim a(10), b(2, 5) As Integerdim i as integer,k as integer,j as integerFor i = 1 To 10a(i) = InputBox(&请提供10个整数给数组&)a(i) = Val(a(i))Next ik = 0For i = 1 To 2For j = 1 To 5k = k + 1b(i, j) = a(k)Next jNext iPrint Tab(10); &数组a的值&Print Tab(10);For i = 1 To 10'**********FOUND**********Print a(i)Next iPrintPrint Tab(10); &二维数组b的值是:&For i = 1 To 2Print Tab(10);For j = 1 To 5'**********FOUND**********Print b(j,i);Next j'**********FOUND**********Paint b(i,j)Next iEnd Sub答案：
1). Print a(i);
2). print(i,j)
3). Print五、程序设计
共2题 （共计20分）第1题 '【程序设计】'题目：(事件)单击窗体。(响应)编写代码功能如(图1)。将结果存入变量Sum中。使用while...wend语句完成程序'注意：请在指定的事件内编写代码。'-------------------------------------------------答案：----------------------Dim i As Integeri=1while i &= 10sum = sum +
i ^ii = i + 1wendPrint sum----------------------第2题 '【程序设计】'题目：(事件)双击窗体。 (响应)把一元钞票换成一分、二分和五分的硬币（每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中'注意：请在指定的事件内编写代码。'-------------------------------------------------答案：----------------------Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If ((i + 2 * j + k * 5) = 100) ThenPrint (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNextNextNext----------------------六、VB窗体设计
共4题 （共计20分）第1题【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。------------------------------------------------1：添加控件在窗体内添加3个文本框(Text1，Text2，Text3)，3个标签(Label1，Label2，Label3)，2个水平滚动条(HScroll1，HScroll2)。2：窗体设置：设置窗体名称(Name)为“Form6”。设置窗体标题(Caption)为“VB上机试卷”。3：文本框设置：在第1个文本框(Text1)中输入文本(Text)“颜色调节”，设置文本的对齐方式为“居右对齐”。设置第2个文本框(Text2)的内容为空。设置第3个文本框(Text3)的内容为空。所有文本框的字体、字号可任选。4：标签设置：设置第1个标签(Label1)标题(Caption)为“文本框的前景色”。设置第2个标签(Label2)标题(Caption)为“文本框的背景色”。设置第3个标签(Label3)标题(Caption)为“当前值”。5：滚动条设置：适当调整水平滚动条的大小和位置。第2题【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。------------------------------------------------1：添加控件添加菜单，名称为menu_File，名称为menu_Set。在menu_Set下添加2个子菜单，名称为menu_Set_Back和menu_Set_Fore。
在menu_Set_Back下添加3个子菜单名称为menu_Set_Back_Red，menu_Set_Back_Green，menu_Set_Back_Blue)。2：窗体设置窗体名称(Name)为“Form4”。窗体标题(Caption)为“VB”。3：菜单设置设置菜单(menu_File)的标题(Caption)为“文件(&F)”，并将菜单项设为
“无效”。设置菜单(menu_Set)的标题(Caption)为“设置(&S)”。设置菜单(menu_Set)下的菜单(menu_Set_Back)的标题(Caption)为“背景色”。
设置菜单(menu_Set)下的菜单(menu_Set_Fore)的标题(Caption)为“前景色”。
设置菜单(menu_Set_Back)下的菜单(menu_Set_Back_Red)的标题(Caption)
为“红”，快捷键为Ctrl+A。设置菜单(menu_Set_Back)下的菜单(menu_Set_Back_Green)的标题(Captio
n)为“绿”，快捷键为Ctrl+B。设置菜单(menu_Set_Back)下的菜单(menu_Set_Back_Blue)的标题(Caption
)为“蓝”，快捷键为Ctrl+C。第3题 【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。
------------------------------------------------1：在窗体内添加1个文本框(Text1)，3个标签(Label1，Label2，Label3)，3个按钮(Command1，Command2，Command3)，1个组合框(Combo1)。2：窗体设置：设置窗体名称(Name)为“Form9”。设置窗体标题(Caption)为“VB”。3：标签设置：设置第1个标签(Label1)的标题(Caption)为“人员登记表”。设置第2个标签(Label2)的标题(Caption)为“姓名:”。设置第3个标签(Label3)的标题(Caption)为“性别:”。标签中的字体、字号可任意选择。4：组合框设置：适当设置组合框的大小和位置。5：文本框设置：设置文本框(Text1)的内容(Text)为空。6：按钮设置：设置第1个按钮(Command1)的标题(Caption)为“添加”。设置第2个按钮(Command2)的标题(Caption)为“取消”。设置第3个按钮(Command3)的标题(Caption)为“退出”。第4题 【窗体设计】题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面：请按所给窗体的样子设计窗体（不要求控件的尺寸一样，运行时得到所给窗体即可，有时需要简单的事件过程）。
------------------------------------------------1：在窗体内添加2个按钮(Command1，Command2)，3个列表框(List1，List2，List3)，3个标签(Label1，Label2，Label3)，2个框架(Frame1，Frame2)，3个文本框(Text1，Text2，Text3)。并在框架(Frame1)中添加1个复选框(Check1)，1个组合框(Combo1)，1个标签(Label4)。在框架(Frame2)中添加1个标签(Label5)。2：窗体设置：设置窗体名称(Name)为“Form30”。设置窗体标题(Caption)为“字体”。3：标签设置：设置第1个标签(Label1)的标题(Caption)为“字体(&F):”。设置第2个标签(Label2)的标题(Caption)为“字型(&Y):”。设置第3个标签(Label3)的标题(Caption)为“字号(&S):”。4：文本框设置：设置第1个文本框(Text1)的文本(Text)为“宋体”。设置第2个文本框(Text2)的文本(Text)为“粗体”。设置第3个文本框(Text3)的文本(Text)为“五号”。5：列表框设置：在第1个列表框(List1)中输入文本“黑体”，“宋体”，“隶书”，“幼圆”。
在第2个列表框(List2)中输入文本“规则”，“斜体”，“粗体”，“粗斜体”。在第3个列表框(List3)中输入文本“一号”，“二号”，“三号”，“四号”，“五号”。 6：按钮设置：设置第1个按钮(Command1)的标题(Caption)为“确定”。设置第2个按钮(Command2)的标题(Caption)为“取消”。7：框架设置：设置第1个框架(Frame1)的标题(Caption)为“特殊效果”。设置第1个框架(Frame1)中的复选框(Check1)的标题(Caption)为“下划线(&U)”。
设置第1个框架(Frame1)中的标签(Label4)的标题(Caption)为“颜色(&C):”。适当调整第1个框架(Frame1)中的组合框(Combo1)的大小和位置。设置第2个框架(Frame2)的标题(Caption)为“示范”。设置第2个框架(Frame2)中的标签(Label5)的标题(Caption)为“中文字体AaBbCc”。试卷编号：8108一、判断
共20题 （共计20分）第1题 VB通过窗体管理构成应用程序的各类文件的集合.
答案：N第2题 如果一个列表框一共有5个选项,而当选中第三项时,这时列表框的ListIndex属性为2. Y第3题用VB 6.0仅能开发具有窗口菜单的应用程序,开发的应用中不能支持弹出式菜单. 答：N第4题 直线控件可以在窗体上拖动,因此它具有MOVE方法.
答案：N第5题 列表框包含了组合框的功能.
答案：N第6题 在表达式中,运算符两端的数据类型要求一致.
答案：Y第7题 可以利用键盘光标选择菜单项,因此可响应KeyPress事件.
答案：N第8题 在盘驱动器列表框Drive1的Change事件过程中,代码Dir1.Path=Drive1.Drive 的作用是:当Drive1的驱动器改变时,Dir1的目录列表随不同驱动器的作相应改变.
答案：Y 第9题 VB规定窗体文件的扩展名是 .vbp.
答案：N 第10题 在Sub过程中,可以用Return语句退出Sub过程.
答案：Y 第11题 VB若同一个工程有许多窗体,可以指定任一窗体为启始窗体.
答案：Y第12题 列表框的中的项目不可以多列显示.
答案：N 第13题 定时将文本框中的数据保存到磁盘,应用于选用Timer计时器控件.
答案：Y 第14题 由Visual Basic语言编写的应用程序有解释和编译两种执行方式.
答案：Y第15题 对象是基本的运行实体,它既包括了数据(属性).也包括作用于对象的操作(方法)和对象的响应动作(事件).
答案：Y第16题 在VB中将一些通用的过程和函数编写好并封装作为方法供用户直接调用.
答案：Y 第17题 清除list1列表框对象的内容的语句是list1.cls.
答案：N第18题 由变量名对变量的内容进行使用或修改,则使用变量就是引用变量的内容. 答案：Y 第19题 在Visual Basic 中Dim a ,b,c as integer和Dim a as integer, b as integer,c as integer相同.
答案：N第20题 在VB 6.0中,如果要使窗体上的多个控件具有相同的尺寸,在选择了这些控件之后,应执行VB&格式&菜单中的命令.
答案：Y二、单项选择
共20题 （共计20分）第1题 能够获得一个文本框中被选取文本的内容的属性是().A:Text
D:SelStart
答案：C第2题 计时器的interval属性为0时,表示().A:计时器失效
C:相隔0 毫秒
D:计时器的enable属性为false答案：A 第3题 下列关于属性设置的叙述错误的是().A:一个控件具有什么属性是VB预先设计好的,用户不能改变B:一个控件具有什么属性是VB预先设计好的,用户可以改变C:一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置D:一个控件的属性在属性窗口中设置,还可以利用程序代码为其设置新值
答案：A第4题 要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine属性设置为True,然后再将ScrollBar属性设置为().A:0
答案：D第5题 已知A?B?C中C最小,则判断A?B?C可否构成三角形三条边长的逻辑表达式是(). A:A&=B And B&=C
B:A+C&B And B+C&A And C&0C:(A+C)&=C
And A-C &=C) And C&0
And A-B&C And C&0
答案：B 第6题 用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是().A:6
答案：D第7题 如果TAB函数的参数小于1,则打印位置在第()列.A:0
答案：B第8题 货币型数据需()字节.A:2
答案：D第9题 在程序代码中修改滚动条的value 属性时将激发滚动条的()事件.A:change
C:dragdrop
D:gotfocus
答案：A第10题 在中断状态下可以运行代码,也可以在运行状态中作为输出结果的窗口称为(). A:本地窗口
B:立即窗口
C:观察窗口
答案：B第11题 文本框控件中将Text的内容全部显示为所定义的字符的属性项是().A:PasswordChar
B:需要编程来实现
C:Password
D:以上都不是
答案：A 第12题 下面()控件不具有Caption属性.A:标签框
C:命令按钮
答案：D第13题 Rnd函数不可能产生的()值.A:0
答案：B第14题 如果X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是().A:0.01*int(x+0.05)
B:0.01*int(100*(x+0.005))C:0.01*int(100*(x+0.05))
D:0.01*int(x+0.005)
答案：B第15题 OPTIONEXPLICIT语句不可以放在().A:窗体模块的声明段中
B:标准模块的声明段中
C:类模块的声明段中
D:任何事件过程中D 第16题 下列各项变量中,哪一项所占的内存空间最多().A:dim x as currency x=99
B:dim st1 as string st1='good'C:dim st2 as string st2='goodbye'
as data d=''
答案：C 第17题 骰子是一个正六面体,分别用1~6 代表这六个面,掷一次骰子出现的数可表示为(). A:int(rnd*6+1)
B:int(rnd*6)
C:int(rnd*7)
D:int(rnd(6)+1)
答案：A 第18题 为了 在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是().A:Value
答案：B第19题 设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一个命令按钮的名称不能是().A:cmdc
D:Command1
答案：C第20题下列对变量的定义中,不能定义A为变体变量的是().A:DIM A AS DOUBLE
B:DIM A AS VARIANT
答案：A三、程序填空
共2题 （共计10分）第1题 '【程序填空】'题目：以下程序的功能如(图1)。'-------------------------------------------------------Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(&请输入a的值&)b = InputBox(&请输入b的值&)c = InputBox(&请输入c的值&)d = b * b - 4 * a * cp = -b / (2 * a)If d &= 0 Then'**********SPACE**********If 【?】 Thenr = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p'**********SPACE**********【?】Print &x1=&; x1, &x2=&; x2'**********SPACE**********【?】q = Sqr(-d) / (2 * a)Print &x1=&; &+&; &i&, &x2=&; &-&; &i&End IfEnd Sub答案：
1). d & 0 或 0 & d
2). End If
3). Else第2题 '【程序填空】'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。'-------------------------------------------------------Private Sub Form_Click()Print &5个数34、124、68、73、352的最大值是：&max1 = max(34, 124, 68)'**********SPACE**********max1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)'**********SPACE**********If
【?】 Thenm = aElsem = bEnd If'**********SPACE**********If 【?】 Thenmax = mElsemax = cEnd IfEnd Function答案：
1). max(max1, 73, 352)
2). a&b 或 b&a
3). m & c 或 c & m四、程序改错
共2题 （共计10分）第1题 '【程序改错】'题目：以下程序功能是输入三个数，由大到小排序。'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Dim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click()Dim nTemp As IntegerA = Val(InputBox(&Please input first integer&, &输入正整数&))B = Val(InputBox(&Please input second integer&, &输入正整数&))C = Val(InputBox(&Please input third integer&, &输入正整数&))
'**********FOUND**********If A &= C ThennTemp = AA = BB = nTempEnd If'**********FOUND**********If B &= C ThennTemp = AA = CC = nTempEnd If'**********FOUND**********If A &= B ThennTemp = BB = CC = nTempEnd IfPrint &The integers in order is&; A; B; CEnd Sub答案：
1). If A &= B Then 或 If B &= A Then2). If A &= C Then 或 If C &= A Then3). If B &= C Then 或 If C &= B Then第2题 '【程序改错】'题目:输入一个字符串，将所有的小写字母都转换为大写字母。'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim s1 As String, s2 As String, i As Integer, t As String
s1 = InputBox(&输入字符串，#号结束&)i = 1'**********FOUND**********s1 = Mid(s1, i, 1)While t && &#&'**********FOUND**********If t &= &a& And t &= &z& Then t = Chr(Asc(t) - 30)s2 = s2 + ti = i + 1t = Mid(s1, i, 1)Wend'**********FOUND**********Print &新字符串为：&; s1End Sub答案：
1). t = Mid(s1, i, 1)2). If t &= &a& And t &= &z& Then t = Chr(Asc(t) - 32)3). Print &新字符串为:&; s2五、程序设计
共2题 （共计20分）第1题 '【程序设计】'题目：(事件)双击窗体。(响应)求1+5+10+15+??+500的和，并将结果输出到窗体上。将结果存入变量SUM中。 '注意：请在指定的事件内编写代码。'-------------------------------------------------答案：----------------------Dim i As IntegerFor i = 1 To 500If i Mod 5 = 0 Thensum = sum + iEnd IfNextPrint sum----------------------第2题 '【程序设计】'题目：(事件)单击窗体。 (响应)求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中'注意：请在指定的事件内编写代码。'-------------------------------------------------答案：----------------------Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum----------------------六、VB窗体设计
共4题 （共计20分）第1题【窗体设计】题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面：请按所给窗体的样子设计窗体，不要求控件的尺寸一样，运行时得到所给窗体即可，有时需要简单的事件过程。------------------------------------------------1：在窗体内添加2个按钮(Command1，Command2)，3个组合框(Combo1，Combo2，Combo3)，1个文本框(Text1)，6个标签(Label1，Label2，Label3，Label4，Label5，Label6)，2个复选框(Check1，Check2)。2：窗体设置：设置窗体名称(Name)为“Form22”。设置窗体标题(Caption)为“字体”。3：标签设置：设置第1个标签(Label1)的标题(Caption)为“字体”。设置第2个标签(Label2)的标题(Caption)为“字符间距”。设置第3个标签(Label3)的标题(Caption)为“文字效果”。设置第4个标签(Label4)的标题(Caption)为“缩放”。设置第5个标签(Label5)的标题(Caption)为“间距”。设置第6个标签(Label6)的标题(Caption)为“位置”。4：文本框设置：在文本框(Text1)中输入文本(Text)“12”。5：组合框设置：设置组合框(Combo1)的文本(Text)为“75%”。设置组合框(Combo2)的文本(Text)为“加宽”。设置组合框(Combo3)的文本(Text)为“提升”。6：复选框设置：设置第1个复选框(Check1)的标题(Caption)为“调整字体的字间距”。设置第2个复选框(Check2)的标题(Caption)为“如果定义了网格,则对齐网格”。
两个复选框均为选中状态。7：按钮设置：设置按钮(Command1)的标题(caption)为“确定”。设置按钮(Command2)的标题(caption)为“取消”。第2题【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。
------------------------------------------------1：在窗体内添加2个按钮(Command1，Command2)，4个标签(Label1，Label2，Label3，Label4)，1个文本框(Text1)。2：窗体设置：设置窗体名称(Name)为“Form16”。设置窗体标题(Caption)为“定时”。3：标签设置：设置第1个标签(Label1)的标题(Caption)为“系统时间”。设置第2个标签(Label2)的标题(Caption)为“10:13:13”，边框类型如图。
设置第3个标签(Label3)的标题(Caption)为“定时时间(秒)”。设置第4个标签(Label4)的标题(Caption)为“时间到”，字体字号任意。
4：文本框设置：适当设置文本框的大小和位置。5：按钮设置：设置第1个按钮(Command1)的标题(Caption)为“开始”。设置第1个按钮(Command2)的标题(Caption)为“退出”。第3题【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。------------------------------------------------1：在窗体内添加2个菜单(menu_File，menu_Set)。然后在菜单(menu_Set)下添加2个菜单(menu_Set_Font，menu_Set_Color)。接着再在菜单(menu_Set_Font)下添加3个菜单(menu_Set_Font_Bold，menu_Set_Font_Underline，menu_Set_Font_Italic)，添加1个文本框(Text1)。2：窗体设置：设置窗体名称(Name)为“Form18”。设置窗体标题(Caption)为“文本编辑”。3：菜单设置：设置菜单(menu_File)的标题(Caption)为“文件(&F)”。设置菜单(menu_Set)的标题(Caption)为“设置(&S)”。设置菜单(menu_Set)下的菜单(menu_Set_Font)的标题(Caption)为“字体风格”。
设置菜单(menu_Set)下的菜单(menu_Set_Color)的标题(Caption)为“颜色”。设置菜单(menu_Set_Font)下的菜单(menu_Set_Font_Bold)的标题(Caption)为“粗体”。
设置菜单(menu_Set_Font)下的菜单(menu_Set_Font_Underline)的标题(Caption)为“下划线”。设置菜单(menu_Set_Font)下的菜单(menu_Set_Font_Italic)的标题(Caption)为“斜体”。
4：文本框设置：在文本框(Text1)中输入文本(Text)“中华人民共和国”。文本框滚动条样式的设置如图。第4题
【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。------------------------------------------------1：在窗体内添加4个文本框(Text1，Text2，Text3，Text4)，4个标签(Label1，Label2，Label3，Label4)，2个按钮(Command1，Command2)。2：窗体设置：设置窗体名称(Name)为“Form12”。设置窗体标题(Caption)为“VB”。3：标签设置：设置第1个标签(Label1)的标题(Caption)为“姓名”。设置第2个标签(Label2)的标题(Caption)为“课程1”。设置第3个标签(Label3)的标题(Caption)为“课程2”。设置第4个标签(Label4)的标题(Caption)为“平均成绩”。4：文本框设置：设置4个文本框的内容(Text)都为空，并适当调整大小和位置。5：按钮设置：设置第1个按钮(Command1)的标题(Caption)为“计算”。设置第2个按钮(Command2)的标题(Caption)为“退出”。
试卷编号：8106一、判断
共20题 （共计20分）第1题 Variant是一种数据类型,因此只能存放象其它数据类型一样,无特殊值.
答案：N 第2题 三种方式的组合框都可以接受DblClick 事件.
答案：Y第3题 在命令按钮的Click事件过程中,exit与end等效.
答案：N第4题 菜单每一菜单项都是控件,可以通过点击菜单项或通过光标选择并按回车键,以触发Click事件.答案：Y第5题 要使定时器控件起作用,其属性Interval不可以设置为0.
答案：Y第6题
设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字.
答案：Y 第7题 当在一个简单组合框的文本框中输入一个它的列表框中的没有的条目时,组合框会自动反这一条目添加到它的列表框中.
答案：N第8题 组合框兼有文本框和列表框两者的功能,用户可以通过键入文本或选择列表中的项目来进行选择.答案：Y第9题 MsgBox()函数建立的消息框能显示信息也能输入信息.
答案：N第10题 Picture图片框既可用来显示图片和绘制图形,也可用Print方法来显示文字.答案：N 第11题 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义.
答案：N第12题 Listl.clear是清除Listl的全部列表项,所以Clear是对象的方法.
答案：Y 第13题 在图片框中放置的控件既可以在该图片框内移动,也可以移出该图片框外. 答案：N 第14题 在VB的工具栏中包括了所有的VB控件,我们不能再加载其他的控件.
答案：N第15题 在一个窗体的代码中不能使用Unload语句来卸载本窗体,即一个窗体只能由其它窗体卸载.
答案：N第16题 目录列表框中的列表项不可以通过AddItem方法进行添加.
答案：Y 第17题 在MsgBox 函数中 prompt 参数是必须的.
答案：Y第18题 有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.
答案：Y 第19题 Dim i, j as integer
表明i和j都是整型变量.
答案：N第20题 在VB中,运算&ABA&Like&[a?a]&的结果是False.
答案：N二、单项选择
共20题 （共计20分）第1题 求以10 为底X 的常用对数的表达式为().A:LOG(X)/LOG(10)
C:LOG(X)/LOG(E)
答案：A 第2题 &对象&是计算机系统运行的().A:程序单位
B:逻辑单位
C:物理实体
D:基本实体
答案：D 第3题 为了 在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是().A:Value
答案：B第4题 以下不属于VisualBasic系统的文件类型是().A:.frm
答案：B 第5题 下列字符串常量中,最大的是().A:&北京&
答案：C 第6题 将命令按钮Command1设置为缺省的活动按钮可修改该控制件的()属性.A:Enabled
答案：C 第7题 如果从数据文件 INPUT.DAT 中读取数据时,以下打开文件方式中,正确的是(). A:OPEN INPUT.DAT FOR INPUT AS #1
B:OPEN INPUT.DAT FOR OUTPUT AS #1C:OPEN &INPUT.DAT& FOR INPUT AS #1
D:OPEN &I&, #1 INPUT.DAT
答案：C 第8题 vb 中的坐标系最小刻度为().A:缇
D:一个标准字符宽度
答案：A 第9题 如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是().A:如果工程中含有SubMain过程,则程序一定首先执行该过程B:不能把标准模块设置为启动模块C:用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体D:任何时刻最多只有一个窗体是活动窗体
答案：A 第10题 用鼠标拖动滚动条中滚动框并释放,将触发滚动条的()事件.A:Scroll
C:DragOver
第11题 不管一个对象的属性如何设置,程序运行时始终都能接收焦点的方法是(). A:用Tab键
C:用方向键
D:不能实现
答案：D 第12题 将命令按钮Command1设置为不可见,应修改该命令按钮的()属性.A:Visible
答案：A第13题 下列()是日期型常量.A:&2/1/02&
C:#2/1/02#
D:|2/1/02|
答案：C第14题 组合框有三种风格,它们由Style属性所决定,其中为下拉列表框时,Style属性值应为A:0
答案：C第15题 以下可以作为VB变量名的是().A:SIN
答案：B第16题 由For
k=10 to 0 step 3:next k循环语句控制的循环次数是().A:12
答案：B第17题 要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性().A:Dir
D:FileName
答案：D第18题 InputBox函数返回的函数值的类型是().A:数值
C:数值或字符串
D:根据需要可以是任何类型数据
答案：C 第19题 下列语句中正确的是().A:txt1.text+txt2.text=txt3.text
B:command1.name=cmdokC:12label.caption=1234
D:a=inputbox(hello)
答案：D第20题 下列哪个变量的取法是不正确的().A:sTme
答案：C三、程序填空
共2题 （共计10分）第1题 '【程序填空】'题目：以下程序的功能如(图1)。'-------------------------------------------------------Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(&请输入a的值&)b = InputBox(&请输入b的值&)c = InputBox(&请输入c的值&)d = b * b - 4 * a * cp = -b / (2 * a)If d &= 0 Then'**********SPACE**********If 【?】 Thenr = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p'**********SPACE**********【?】Print &x1=&; x1, &x2=&; x2'**********SPACE**********【?】q = Sqr(-d) / (2 * a)Print &x1=&; &+&; &i&, &x2=&; &-&; &i&End IfEnd Sub答案：
1). d & 0 或 0 & d
2). End If
3). Else第2题 '【程序填空】'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。 '-------------------------------------------------------Private Sub Form_Click()Print &5个数34、124、68、73、352的最大值是：&max1 = max(34, 124, 68)'**********SPACE**********max1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)'**********SPACE**********If
【?】 Thenm = aElsem = bEnd If'**********SPACE**********If 【?】 Thenmax = mElsemax = cEnd IfEnd Function答案：
1). max(max1, 73, 352)
2). a&b 或 b&a
3). m & c 或 c & m四、程序改错
共2题 （共计10分）第1题 '【程序改错】'题目：下面程序段将7个随机整数从小到大排序'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim t%, m%, n%, w%,a(7) as integerFor m = 1 To 7a(m) = Int(10 + Rnd() * 90)Print a(m); & &;Next mPrintFor m = 1 To 6t = m'**********FOUND**********For n =2
To 7'**********FOUND**********If a(t) & a(n) Then n = tNext n'**********FOUND**********If t = m Then
a(m) = a(t)
a(t) = wEnd IfNext mFor m = 1 To 7Print a(m)Next mEnd Sub答案：
1). For n =
To 72). If a(t) & a(n) Then t = n 或 If
a(n) &a (t) Then t = n3). If
Then第2题 '【程序改错】'题目:给定三角形的三条边，计算三角形的面积。要求程序首先判断给定的三条边能否构成三角形。'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim a As Single, b As Single, c As SingleDim s As Single, t As Singlestart:a = InputBox(&输入1边长：&)b = InputBox(&输入2边长：&)c = InputBox(&输入3边长：&)'**********FOUND**********If a + b & c Or b + c & a ThenMsgBox (&不能构成三角形，请重新输入个边&)GoTo startEnd If'**********FOUND**********t = (a + b) / 2'**********FOUND**********s = Sqr((t - a) * (t - b) * (t - c))Print &该三角形的面积：&; sEnd Sub答案：
1). If a + b & c Or b + c & a Or a + c & b Then2). t = (a + b + c) / 2 或 t = (a + b +
c ) / 23). s = Sqr(t * (t - a) * (t - b) * (t - c)) 或 s = Sqr( t *
(t - c) )五、程序设计
共2题 （共计20分）第1题 '【程序设计】'题目：编写函数fun其功能是能计算如图1所示的表达式的结果值，m由键盘输入，使用do while...loop语句完成'注意：请在指定的事件内编写代码。'-------------------------------------------------答案：----------------------Dim i As IntegerDim sum As Singlei = 1Do While i &= msum = sum + 1 / (2 * i * (-1) ^ (i - 1))i = i + 1Loopfun = sum----------------------第2题 '【程序设计】'题目：求两个数m,n的最大公约数p和最小公倍数q'注意：请在指定的事件内编写代码。'-------------------------------------------------答案：----------------------nm = n * mIf m & n Then t = m: m = n: n = tr = m Mod nDo While (r && 0)m = nn = rr = m Mod nLoopp = nq = nm / n----------------------六、VB窗体设计
共4题 （共计20分）第1题【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面：请按所给窗体的样子设计窗体（不要求控件的尺寸一样，运行时得到所给窗体即可，有时需要简单的事件过程）。
------------------------------------------------1：在窗体内添加2个按钮(Command1，Command2)，3个列
表框(List1，List2，List3)，3个标签(Label1，Label2，
Label3)，2个框架(Frame1，Frame2)，3个文本框(Text1， Text2，Text3)。 并在框架(Frame1)中添加1个复选框(Check1)，1个组合框(Combo1)，1个标签(Label4)。在框架(Frame2)中添加1个标签(Label5)。2：窗体设置：设置窗体名称(Name)为“Form30”。设置窗体标题(Caption)为“字体”。3：标签设置：设置第1个标签(Label1)的标题(Caption)为“字体(&F):”。设置第2个标签(Label2)的标题(Caption)为“字型(&Y):”。设置第3个标签(Label3)的标题(Caption)为“字号(&S):”。4：文本框设置：设置第1个文本框(Text1)的文本(Text)为“宋体”。设置第2个文本框(Text2)的文本(Text)为“粗体”。设置第3个文本框(Text3)的文本(Text)为“五号”。5：列表框设置：在第1个列表框(List1)中输入文本“黑体”，“宋体”，“隶书”，“幼圆”。在第2个列表框(List2)中输入文本“规则”，“斜体”，“粗体”，“粗斜体”。在第3个列表框(List3)中输入文本“一号”，“二号”，“三号”，“四号”，“五号”。
6：按钮设置：设置第1个按钮(Command1)的标题(Caption)为“确定”。设置第2个按钮(Command2)的标题(Caption)为“取消”。7：框架设置：设置第1个框架(Frame1)的标题(Caption)为“特殊效果”。设置第1个框架(Frame1)中的复选框(Check1)的标题(Caption)为“下划线(&U)”。
设置第1个框架(Frame1)中的标签(Label4)的标题(Caption)为“颜色(&C):”。适当调整第1个框架(Frame1)中的组合框(Combo1)的大小和位置。设置第2个框架(Frame2)的标题(Caption)为“示范”。设置第2个框架(Frame2)中的标签(Label5)的标题(Caption)为“中文字体AaBbCc”。 第2题【窗体设计】题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面。------------------------------------------------1：在窗体内添加2个框架(Frame1，Frame2)，1个标 签(Label1)，2个按钮(Command1，Command2)
并在第1个框架(Frame1)内添加1个文本框(Text1)，在第2个框架(Frame1)中添加3个单选框(Option1，
Option2，Option3)。2：窗体设置：设置窗体名称(Name)为“Form7”。设置窗体标题(Caption)为“VB上机试卷”。3：框架设置：设置第1个框架(Frame1)的标题(Caption)为“请输入圆的半径”。设置第1个框架(Frame1)中的文本框(Text1)的文本内容(Text)为12。
设置第2个框架(Frame2)的标题(Caption)为“计算类型”。设置第2个框架(Frame2)中的单选框(Option1)的标题(Caption)为“直径”。
设置第2个框架(Frame2)中的单选框(Option2)的标题(Caption)为“周长”。
设置第2个框架(Frame2)中的单选框(Option3)的标题(Caption)为“面积”。
4：标签设置：设置标签(Label1)的标题(Caption)为“圆的面积为113.09724”。
5：按钮设置：设置第1个按钮(Command1)的标题(Caption)为“计算”。设置第2个按钮(Command2)的标题(Caption)为“退出”。第3题【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。------------------------------------------------1：添加控件文本框(Text1)。框架(Frame1)。按钮(Command1)。列表框(List1)。标签(Label1)。在框架(Frame1)内添加单选按钮(Option1，Option2)。2：窗体设置名称(Name)属性为“Form2”。标题(Caption)属性为“姓名列表”。3：标签设置标签(Label1)标题(Caption)属性为“在下面文本框中输入姓名”。4：文本框设置适当调整文本框(Text1)的位置和大小。5：框架设置框架(Frame1)标题(Caption)属性为“选择性别”。6：单选框设置单选框(Option1)的标题(Caption)属性为“男”。单选框(Option2)的标题(Caption)属性为“女”。7：列表框设置列表框(List1)中添加一条纪录为“这是一个列表框”。8：按钮设置按钮(Command1)的标题(Caption)属性为“添加”。第4题【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。------------------------------------------------1：在窗体内添加3个水平滚动条(HScroll1，HScroll2，HScroll3)，5个标签(Label1，Label2，Label3，Label4，Label5)，1个图片框(Picture1)。2：窗体设置：设置窗体名称(Name)为“Form14”。设置窗体标题(Caption)为“调色板”。3：标签设置：设置第1个标签(Label1)的标题(Caption)为“红”。设置第2个标签(Label2)的标题(Caption)为“绿”。设置第3个标签(Label3)的标题(Caption)为“蓝”。设置第4个标签(Label4)的标题(Caption)为“0”。设置第5个标签(Label5)的标题(Caption)为“255”。4：图片框设置：设置图片框的背景颜色&H&，并适当调整大小和位置。5：水平滚动条设置：适当调整3个水平滚动条的位置和大小。试卷编号：8101一、判断
共20题 （共计20分）第1题 用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该菜单控件时,触发KeyPress事件.N第2题 在标准模块的声明部分中用Publice声明的变量的有效范围是其所在的工程. 答案：Y 第3题 计时器(Timer)控件的Interval属性的单位是毫秒,即若将此属性值设为10,则每0.01秒产生一次Timer事件.
答案：Y第4题 移动框架内的控件时框架内的控件也跟随移动,所以框架内各控件的Left和Top属性值也将分别随之改变.
答案：N第5题 文本框控件有Caption属性.
答案：N第6题 函数过程(Function Procedure)用来完成特定的功能,但不返回相应的结果.
答案：N 第7题 单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务.
答案：N 第8题 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义.
答案：N 第9题 直线控件可以在窗体上拖动,因此它具有MOVE方法.
答案：N第10题 滚动条控件不可作为用户输入数据的方法.
答案：Y第11题 由Visual Basic语言编写的应用程序有解释和编译两种执行方式.
答案：Y 第12题 三种方式的组合框都可以接受DblClick 事件.
答案：Y第13题 VB规定窗体文件的扩展名是 .vbp.
答案：N第14题 在命令按钮的Click事件过程中,exit与end等效.
答案：N第15题 组合框包含了列表框的功能.
答案：Y第16题 当定时器控件的interval属性值设置为0时,会连续不断地激发Timer事件. 答案：N 第17题 在框架控件内的几个单选按钮中,只能有一个单选按钮的Value属性为True.
答案：Y 第18题 如果在过程调用时使用按值传递参数,则在被调过程中可以改变实参的值. 答案：N 第19题 （Variant是一种数据类型,因此只能存放象其它数据类型一样,无特殊值.
答案：N 第20题 可以利用键盘光标选择菜单项,因此可响应KeyPress事件.
答案：N二、单项选择
共20题 （共计20分）第1题 在VB中,下列不能作为存放对象的容器是().A:窗体
答案：D 第2题 表达式25.28Mod6.99的值是().A:1
答案：C第3题 在窗体Form1的Click事件过程中有以下语句:Label1.Caption=&Visual Basic&若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为().A:&Label&、&Label&
B:&Label1&、&Visual Basic&C:&Label1&、&Label1&
D:&Caption&、&Label&
答案：C 第4题 下列可缩放图片的属性是().A:autosize
D:OleDrawMode
答案：C 第5题 表达式X+1&X是().A:算术表达式
B:非法表达式
C:字符表达式
D:关系表达式
答案：D 第6题 下列不能用commondialog 控件调用的对话框是().A:open/save
答案：D 第7题 文本框中选定的内容,由下列()属性反映.A:Text
D:sellenght
答案：C 第8题 窗体的Caption属性的作用是().A:确定窗体的名称
B:确定窗体的标题
C:确定窗体的边界类型
D:确定窗体的字体
答案：B 第9题 要使文本框获得输入焦点,则应采用文本框控件的哪个方法().A:GodFocus
B:LostFocus
C:KeyPress
D:SetFocus
答案：D 第10题 VisualBasic的编程机制是().A:可视化
B:面向对象
C:面向图形
D:事件驱动
答案：D 第11题 以下不允许用户在程序运行时输入文字的控件是().A:标签框
C:下拉式组合框
D:简单组合框
答案：A 第12题 在Visual Basic环境中,请问标准模块的扩展名是().A:frm
答案：B 第13题 控件内的对齐方式()属性决定.A:Alignment
B:WordWrap
C:AtuoSize
答案：A 第14题 在窗体上建立了多个控件,如TEXT、LABEL1、COMMAND1,若要使程序一运行焦点就定位在COMMAND1控件上,应将COMMAND1控件的()设置为0.A:INDEX
B:TABINDEX
答案：B 第15题 当一个对象(如窗体或图片框)被移动或改变大小之后,或当一个覆盖该窗体被移开之后,如果要保持该所画图形的完整性,可以选择触发()事件来完成图形的重画工作.A:Paint
答案：A 第16题 要想清除文本框中的内容则可利用()进行.A:Caption
答案：B 第17题 简单组合框的style值为().A:0
答案：B第18题 单击滚动条两端的任一个滚动箭头,将触发该滚动条的()事件.A:Scroll
D:Dragover
答案：C第19题 要使标签能够显示所需要的东西,则在程序中应设置其哪一属性的值().A:Caption
D:AutoSize
答案：A第20题 表达式Mid(&SHANGHAI&,6,3)的值是().A:SHANGH
答案：D三、程序填空
共2题 （共计10分）第1题 '【程序填空】'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。 '-------------------------------------------------------Private Sub Form_Click()Print &5个数34、124、68、73、352的最大值是：&max1 = max(34, 124, 68)'**********SPACE**********max1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)'**********SPACE**********If
【?】 Thenm = aElsem = bEnd If'**********SPACE**********If 【?】 Thenmax = mElsemax = cEnd IfEnd Function答案：
1). max(max1, 73, 352)
2). a&b 或 b&a
3). m & c 或 c & m 第2题 '【程序填空】'题目：以下程序的功能如(图1)。'-------------------------------------------------------Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(&请输入a的值&)b = InputBox(&请输入b的值&)c = InputBox(&请输入c的值&)d = b * b - 4 * a * cp = -b / (2 * a)If d &= 0 Then'**********SPACE**********If 【?】 Thenr = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p'**********SPACE**********【?】Print &x1=&; x1, &x2=&; x2'**********SPACE**********【?】q = Sqr(-d) / (2 * a)Print &x1=&; &+&; &i&, &x2=&; &-&; &i&End IfEnd Sub答案：
1). d & 0 或 0 & d
2). End If
3). Else四、程序改错
共2题 （共计10分）第1题 '【程序改错】'题目：用辗转相除法求两个整数的最大公约数。'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Function gcd(Byval m As Integer,Byval n As Integer) As Integer
Dim r As Integerr = m Mod nDo While r && 0'**********FOUND**********n = mn = rr = m Mod nLoop'**********FOUND**********gcd = rEnd Function
Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integera = InputBox(&输入一个整数&)b = InputBox(&输入一个整数&)a = Val(a)b = Val(b)'**********FOUND**********Call gcd(a, b)Print a, b, cEnd Sub答案：
2). gcd = n
3). c = gcd(a, b)第2题 '【程序改错】'题目：从计算机输入三个数 , 找出中间数'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub FindMidNum()Dim x As Integer, y As Integer, z As Integer, A As Integerx = InputBox(&PLEASE INPUT THE FIRST NUMBER&)y = InputBox(&PLEASE INPUT THE SECOND NUMBER&)z = InputBox(&PLESSE INPUT THE THIRD NUMBER&)'**********FOUND**********If x & y ThenA = xx = yy = AEnd If'**********FOUND**********If y = z ThenPrint y'**********FOUND**********ElseIf x = z ThenPrint zElsePrint xEnd IfEnd SubPrivate Sub Form_Click()FindMidNumEnd Sub答案：
1). If x & y Then 或 If y & x Then2). If y &= z Then 或 If z &= y Then3). ElseIf x &= z Then 或 ElseIf z &= x Then五、程序设计
共2题 （共计20分）第1题 '【程序设计】'题目： (事件)单击窗体。 (响应)求1-100中为5或7的倍数的和。请将结果输出到窗体上,并存入所给变量SUM中。使用while...wend语句完成程序'注意：请在指定的事件内编写代码。'-------------------------------------------------答案：----------------------Dim i As Integeri = 1While i &= 100If i Mod 5 = 0 Or i Mod 7 = 0 ThenSum = Sum + iEnd Ifi = i + 1WendPrint Sum----------------------第2题 '【程序设计】'题目：(事件)单击窗体。 (响应)生成一个一维数组(10个数组元素依此为：15、23、72、43、96、23、3、65、88、17)，写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中'注意：请在指定的事件内编写代码。'-------------------------------------------------答案：----------------------Dim a(9) As IntegerDim i, s As Integera(0) = 15a(1) = 23a(2) = 72a(3) = 43a(4) = 96a(5) = 23a(6) = 3a(7) = 65a(8) = 88a(9) = 17max = a(0)min = a(0)s = 0For i = 0 To 9If a(i) & max Thenmax = a(i)End IfIf a(i) & min Thenmin = a(i)End Ifs = s + a(i)Nextaver = Int(s / 10)Print (CStr(max))Print (CStr(min))Print (CStr(aver))----------------------六、VB窗体设计
共4题 （共计20分）第1题【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。------------------------------------------------1：在窗体内添加1个按钮(Command1)，3个文本框(Text1，Text2，Text3)，1个组合框(Combo1)，3个标签(Label1，Label2，Label3)。2：窗体设置：设置窗体名称(Name)为“Form20”。设置窗体标题(Caption)为“计算器”。3：标签设置：设置第1个标签(Label1)的标题(Caption)为“第一个数”。
设置第2个标签(Label2)的标题(Caption)为“第二个数”。
设置第3个标签(Label3)的标题(Caption)为“计算结果”。
4：文本框设置：适当设置3个文本框的大小和位置。5：组合框设置：设置组合框(Combo1)的文本(Text)为“运算符号”。6：按钮设置：设置按钮(Command1)的标题为“=”。第2题 【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。 ------------------------------------------------1：在窗体内添加4个文本框(Text1，Text2，Text3，Text4)，4个标签(Label1，Label2，Label3，Label4)，2个按钮(Command1，Command2)。2：窗体设置：设置窗体名称(Name)为“Form13”。设置窗体标题(Caption)为“VB”。3：标签设置：设置第1个标签(Label1)的标题(Caption)为“被除数”。设置第2个标签(Label2)的标题(Caption)为“除数”。设置第3个标签(Label3)的标题(Caption)为“商”。设置第4个标签(Label4)的标题(Caption)为“余数”。4：文本框设置：设置4个文本框的内容(Text)都为空，并适当调整大小和位置。
5：按钮设置：设置第1个按钮(Command1)的标题(Caption)为“计算”。设置第2个按钮(Command2)的标题(Caption)为“退出”。第3题 【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。
------------------------------------------------1：在窗体内添加2个菜单(menu_File，menu_Set)。然后在菜单(menu_Set)下添加2个菜单(menu_Set_Font，menu_Set_Color)。接着再在菜单(menu_Set_Font)下添加3个菜单(menu_Set_Font_Bold，menu_Set_Font_Underline，
menu_Set_Font_Italic)，添加1个文本框(Text1)。2：窗体设置：设置窗体名称(Name)为“Form18”。设置窗体标题(Caption)为“文本编辑”。3：菜单设置：设置菜单(menu_File)的标题(Caption)为“文件(&F)”。设置菜单(menu_Set)的标题(Caption)为“设置(&S)”。设置菜单(menu_Set)下的菜单(menu_Set_Font)的标题(Caption)为“字体风格”。
设置菜单(menu_Set)下的菜单(menu_Set_Color)的标题(Caption)为“颜色”。设置菜单(menu_Set_Font)下的菜单(menu_Set_Font_Bold)的标题(Caption)为“粗体”。
设置菜单(menu_Set_Font)下的菜单(menu_Set_Font_Underline)的标题(Caption)为“下划线”。设置菜单(menu_Set_Font)下的菜单(menu_Set_Font_Italic)的标题(Caption)为“斜体”。
4：文本框设置：在文本框(Text1)中输入文本(Text)“中华人民共和国”。文本框滚动条样式的设置如图。第4题 【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。------------------------------------------------1：添加控件文本框(Text1)。框架(Frame1，框架Frame2)。框架(Frame1)内添加2个单选框(Option1，Option2)。框架(Frame2)内添加3个单选框(Option3，Option4，Option5)。2：窗体设置窗体名称(Name)为“Form1”。窗体标题(Caption)为“字体样式”。3：文本框设置文本框(Text1)文本(Text)属性值为“VB窗体设计”。字体属性为“宋体”。文字对齐方式属性为“居中对齐”。文字颜色为&H00FF0000&。4：框架设置框架(Frame1)标题(Caption)属性为“字体”。框架(Frame2)标题(Caption)属性为“颜色”。5：单选框设置单选框(Option1)标题(Caption)属性为“宋体”。单选框(Option2)标题(Caption)属性为“隶书”。单选框(Option3)标题(Caption)属性为“红”。单选框(Option4)标题(Caption)属性为“绿”。单选框(Option5)标题(Caption)属性为“蓝”。试卷编号：8100一、判断
共20题 （共计20分）第1题 图象框中的Stretch 属性为 true 时,其作用是图形自动调整大小以适应图象控件。Y 第2题 Visual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角,如果要把坐标原点放在其它位置,则需使用自定义坐标系统.
答案：Y第3题 在表达式中,运算符两端的数据类型要求一致.
答案：Y第4题 移动框架内的控件时框架内的控件也跟随移动,所以框架内各控件的Left和Top属性值也将分别随之改变.
答案：N第5题 只要用拖拽的方法,将工具箱中所需的控件拖到窗体上即可完成.
答案：N第6题 Picture图片框既可用来显示图片和绘制图形,也可用Print方法来显示文字.答案：N 第7题 在VB中,可通过函数 Now返回计算机系统的日期和时间.
答案：N第8题 在VB中,函数 Fix(-3.6) 的返回值是 C4.
答案：N第9题 若要新建一个磁盘上的顺序文件,可用output,append方式打开文件.
答案：Y 第10题 标签没有Change事件和SetFocus方法.
答案：N第11题 在VB中,可以将在Picture控件中绘制的图形以文件的形式保存在磁盘上. 答案：Y 第12题 Variant是一种数据类型,因此只能存放象其它数据类型一样,无特殊值.
答案：N 第13题 列表框的中的项目不可以多列显示.
答案：N第14题 在Sub过程中,可以用Return语句退出Sub过程.
答案：Y第15题 方法是VB 对象可以响应的用户操作.
答案：N第16题 有的对象属性既可在属性窗口中设定又可在程序代码中设定.
答案：Y第17题，框架控件和形状控件都不能响应用户的鼠标的单击事件.
答案：Y 第18题 如果一个列表框一共有5个选项,而当选中第三项时,这时列表框的ListIndex属性为2. Y 第19题 Dim i, j as integer
表明i和j都是整型变量.
答案：N第20题 在VB中将一些通用的过程和函数编写好并封装作为方法供用户直接调用.
答案：Y二、单项选择
共20题 （共计20分）第1题 已知A?B?C中C最小,则判断A?B?C可否构成三角形三条边长的逻辑表达式是(). A:A&=B And B&=C
B:A+C&B And B+C&A And C&0C:(A+C)&=C
And A-C &=C) And C&0
And A-B&C And C&0
答案：B 第2题 下面()对象在运行时一定不可见.A:Line
答案：B第3题
()对象不具有Caption属性.A:Label
答案：D第4题 由For
k=35 to 0 step 3:next k循环语句控制的循环次数是().A:0
答案：A 第5题 每建立一个窗体,工程管理器窗口中就会增加一个().A:工程文件
B:窗体文件
C:程序模块文件
D:类模块文件
答案：B 第6题 以下叙述中错误的是().A:VisualBasic是事件驱动型可视化编程工具B:VisualBasic应用程序不具有明显开始和结束语句C:VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D:VisualBasic中控件的某些属性只能在运行时设置
答案：C第7题 定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.A:分
答案：C第8题 启动VisualBasic后,系统为用户新建的工程起一个名为()的临时名称.A:工程1
答案：A第9题 假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是().A:BOOLVAR='TRUE'
B:BOOLVAR=.TRUE.
C:BOOLVAR=#TRUE#
D:BOOLVAR=3&4
答案：D 第10题 下列()是日期型常量.A:&2/1/02&
C:#2/1/02#
D:|2/1/02|
答案：C 第11题 下列可调整图片框的大小以适合图片的属性是().A:stretch
B:autosize
D:oledropmode
答案：B 第12题 在文本框中欲使掩码符(如*)起作用,必须设置MultiLine属性值为().A:False
答案：A 第13题 工程资源管理器窗口中包含的文件类型有()种.A:2
答案：C第14题 将CommonDialog通用对话框的类型设置为字体对话框,可设置该控件的()属性. A:Font
答案：D 第15题 为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择,则应将列表框的Multiselect属性设置为().A:0
答案：C第16题 要使标签能透出窗体的背景,必须设置()属性.A:BackStyle
B:BorderStyle
C:Appearance
D:BackColor
答案：A 第17题 下列关于属性设置的叙述错误的是().A:一个控件具有什么属性是VB预先设计好的,用户不能改变B:一个控件具有什么属性是VB预先设计好的,用户可以改变C:一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置D:一个控件的属性在属性窗口中设置,还可以利用程序代码为其设置新值
答案：A 第18题 函数InStr(&VB程序设计教程&,&程序&)的值为().A:1
答案：C第19题 设置列表框选中的文本用()属性.A:selected
答案：D第20题 应用程序设计完成后,应将程序保存,保存的过程是().A:只保存窗体文件即可
B:只保存工程文件即可
C:先保存工程文件,之后保存窗体文件 D:先保存窗体文件(或标准模块文件),之后还要保存工程文件
答案：D三、程序填空
共2题 （共计10分）第1题 '【程序填空】'题目：以下程序的功能如(图1)。'-------------------------------------------------------Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(&请输入a的值&)b = InputBox(&请输入b的值&)c = InputBox(&请输入c的值&)d = b * b - 4 * a * cp = -b / (2 * a)If d &= 0 Then'**********SPACE**********If 【?】 Thenr = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p'**********SPACE**********【?】Print &x1=&; x1, &x2=&; x2'**********SPACE**********【?】q = Sqr(-d) / (2 * a)Print &x1=&; &+&; &i&, &x2=&; &-&; &i&End IfEnd Sub答案：
1). d & 0 或 0 & d
2). End If
3). Else第2题 '【程序填空】'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。'-------------------------------------------------------Private Sub Form_Click()Print &5个数34、124、68、73、352的最大值是：&max1 = max(34, 124, 68)'**********SPACE**********max1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)'**********SPACE**********If
【?】 Thenm = aElsem = bEnd If'**********SPACE**********If 【?】 Thenmax = mElsemax = cEnd IfEnd Function答案：
1). max(max1, 73, 352)
2). a&b 或 b&a
3). m & c 或 c & m四、程序改错
共2题 （共计10分）第1题 '【程序改错】'题目：挑选单数并排序程序：程序启动后由计算机自动产生20个属于[100，300]之间的随机整数，单击&显示全体&按钮时，在Form1上显示这20个 随机数；单击&显示单数&按钮时，在Form1上显示其中的单数；单击&排序&按钮时，在Form1上将这些单数从小到大显示。要求显示格式为每行显示5个数据。'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private a(20) As Integer, b(20) As IntegerPrivate k As IntegerPrivate Sub cmdodd_Click()Dim I As Integerk = 0For I = 1 To 20'**********FOUND**********If a(I) / 2 = Int(a(I) / 2) Thenk = k + 1b(k) = a(I)End IfNext IFor I = 1 To kPrint b(I);'**********FOUND**********If Int(I / 5) && I / 5 Then PrintNext IPrintEnd SubPrivate Sub cmdAll_Click()RandomizeDim I As IntegerFor I = 1 To 20'**********FOUND**********a(I) = Int(Rnd() * 20 + 100)Print a(I),If Int(I / 5) = I / 5 Then PrintNext IPrintEnd SubPrivate Sub cmdsort_Click()Dim I As IntegerDim J As IntegerDim Temp As IntegerFor I = 1 To k - 1For J = I To kIf b(I) & b(J) Then Temp = b(I): b(I) = b(J): b(J) = Temp
Next JNext IFor I = 1 To kPrint b(I);If Int(I / 5) = I / 5 Then PrintNext IEnd Sub答案：
1). If a(I) / 2 && Int(a(I) / 2) Then2). If Int(I / 5) = I / 5 Then Print3). a(I) = Int(Rnd() * 200 + 100)第2题 '【程序改错】'题目：求s=72+102+132+??832的值。'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()ClsDim s As LongDim i As Integer'**********FOUND**********s =1'**********FOUND**********For i = 7 To 832s = s + I'**********FOUND**********Next
30Print sEnd Sub答案：
1). s =02). For i = 7 To 832
step 303). Next
i五、程序设计
共2题 （共计20分）第1题 '【程序设计】'题目： (事件)单击窗体。(响应)求sum=1+1+2+3+5+8+13+...+144的和,请将sum结果值输出到窗体上。使用do...loop语句完成程序'注意：请在指定的事件内编写代码。'-------------------------------------------------答案：----------------------Dim i As IntegerDim s1 As IntegerDim s2 As Integeri = 1s1 = 1: s2 = 1Sum = Sum + s1 + s2DoIf s2 = 144 ThenExit DoEnd Ifs1 = s1 + s2s2 = s1 + s2Sum = Sum + s1 + s2LoopPrint Sum----------------------第2题 '【程序设计】'题目：(事件)单击窗体。(响应)一球从100米高度自由落下，每次落地返回原高度的一半，求第10次落地时，共经过多少米？并将结果在窗体上输出。'注意：请在指定的事件内编写代码。'-------------------------------------------------答案：----------------------Dim j, i As Integers = 0j = 100For i = 2 To 10j = j / 2s = s + 2 * jNexts = 100 + sPrint (CStr(s))----------------------六、VB窗体设计
共4题 （共计20分）第1题 【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。------------------------------------------------1：添加控件按钮(Command1，Command2，Command3)。标签(Label1，Label2)。2：窗体设置窗体名称(Name)属性为“Form3”。窗体标题(Caption)属性为“VB”。3：按钮设置按钮(Command1)的标题(Caption)为“开始”。按钮(Command2)的标题(Caption)为“停止”。按钮(Command3)的标题(Caption)为“结束”。4：标签设置标签(Label1)的标题(Caption)为“下面的标签是用来显示当前时间”。标签(Label2)的标题(Caption)为“09:58:33”。
第2题 【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。------------------------------------------------1：添加控件文本框(Text1)。框架(Frame1)。按钮(Command1)。列表框(List1)。标签(Label1)。在框架(Frame1)内添加单选按钮(Option1，Option2)。2：窗体设置名称(Name)属性为“Form2”。标题(Caption)属性为“姓名列表”。3：标签设置标签(Label1)标题(Caption)属性为“在下面文本框中输入姓名”。4：文本框设置适当调整文本框(Text1)的位置和大小。5：框架设置框架(Frame1)标题(Caption)属性为“选择性别”。6：单选框设置单选框(Option1)的标题(Caption)属性为“男”。单选框(Option2)的标题(Caption)属性为“女”。7：列表框设置列表框(List1)中添加一条纪录为“这是一个列表框”。8：按钮设置按钮(Command1)的标题(Caption)属性为“添加”。第3题 【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。
------------------------------------------------1：在窗体内添加2个框架(Frame1，Frame2)，1个标签(Label1)，2个按钮(Command1，Command2)。并在第1个框架(Frame1)内添加1个文本框(Text1)，在第2个框架(Frame1)中添加3个单选框(Option1，Option2，Option3)。2：窗体设置：设置窗体名称(Name)为“Form7”。设置窗体标题(Caption)为“VB上机试卷”。3：框架设置：设置第1个框架(Frame1)的标题(Caption)为“请输入圆的半径”。设置第1个框架(Frame1)中的文本框(Text1)的文本内容(Text)为12。
设置第2个框架(Frame2)的标题(Caption)为“计算类型”。设置第2个框架(Frame2)中的单选框(Option1)的标题(Caption)为“直径”。
设置第2个框架(Frame2)中的单选框(Option2)的标题(Caption)为“周长”。
设置第2个框架(Frame2)中的单选框(Option3)的标题(Caption)为“面积”。
4：标签设置：设置标签(Label1)的标题(Caption)为“圆的面积为113.09724”。
5：按钮设置：设置第1个按钮(Command1)的标题(Caption)为“计算”。设置第2个按钮(Command2)的标题(Caption)为“退出”。第4题 【窗体设计】题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面：请按所给窗体的样子设计窗体（不要求控件的尺寸一样，运行时得到所给窗体即可，有时需要简单的事件过程）。
------------------------------------------------1：在窗体内添加4个按钮(Command1，Command2，Command3，Command4)，1个组合框(Combo1)，3个标签(Label1，Label2，Label3)，2个框架(Frame1，Frame2)，1个复选框(Check4)。并