中财网神经痛吃什么药好的快:VB考试
来源：百度文库 编辑：中财网 时间：2024/05/02 18:31:01
一、判断 共10题 （共计10分）
第1题 （1.0分） 题号:255
Shape控件和Line控件可以在窗体中移动,因此它们具有Move方法.
答案：N
第2题 （1.0分） 题号:225
Visual Basic程序的运行可以从Main()过程启动,也可以从某
个窗体启动.
答案：Y
第3题 （1.0分） 题号:316
图片框的属性Enabled设置为FALSE, 图片框上的控件仍可响
应用户操作.
答案：N
第4题 （1.0分） 题号:302
若已在窗体中加入了一个通用对话框:要求在运行时,通过
ShowOpen打开对话框时,只显示扩展名为 DOC 的文件,则
对通用对话框的 Filter的属性设置应该是:" (*.DOC)| ( .DOC)" .
答案：N
第5题 （1.0分） 题号:304
设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字.
答案：Y
第6题 （1.0分） 题号:298
清除list1列表框对象的内容的语句是list1.cls.
答案：N
第7题 （1.0分） 题号:314
图片框的Move方法不仅可以移动图片框,而且还可以改变该图
片框的大小,同时也会改变该图片框有关属性的值.
答案：N
第8题 （1.0分） 题号:270
当窗体的ScaleTop=0,ScaleLeft=0时,这个窗体Top和Left值也是0.
答案：N
第9题 （1.0分） 题号:289
框架控件和形状控件都不能响应用户的鼠标的单击事件.
答案：Y
第10题 （1.0分） 题号:312
通用对话框只能用SHOW方法进行调用.
答案：N
置顶
二、单项选择 共10题 （共计10分）
第1题 （1.0分） 题号:837
用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见.
A:Hide
B:Checked
C:Visible
D:Enabled
答案：C
第2题 （1.0分） 题号:291
定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.
A:分
B:秒
C:毫秒
D:微秒
答案：C
第3题 （1.0分） 题号:278
要在图片框P1中打印字符串" HowAreYou" ,应使用语句().
A:Picture1.Print=" HowAreYou"
B:P1.Picture=LoadPicture(" HowAreYou" )
C:P1.Print" HowAreYou"
D:Print" HowAreYou"
答案：C
第4题 （1.0分） 题号:371
下列关于设置控件属性的叙述正确的是().
A:用户必须设置属性值
B:所有的属性值都可以由用户随意设定
C:属性值不必一一重新设置
D:不同控件的属性项都完全一样
答案：C
第5题 （1.0分） 题号:320
启动VisualBasic后,系统为用户新建的工程起一个名为()的
临时名称.
A:工程1
B:窗体1
C:工程
D:窗体
答案：A
第6题 （1.0分） 题号:336
设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是().
A:True
B:False
C:1
D:出错信息
答案：B
第7题 （1.0分） 题号:277
MSGBOX函数中有4个参数,其中必须写明的参数是().
A:指定对话框中显示按钮的数目
B:设置对话框标题
C:提示信息
D:所有参数都是可选的
答案：C
第8题 （1.0分） 题号:835
应用程序设计完成后,应将程序保存,保存的过程是().
A:只保存窗体文件即可
B:只保存工程文件即可
C:先保存工程文件,之后保存窗体文件
D:先保存窗体文件(或标准模块文件),之后还要保存工程文件
答案：D
第9题 （1.0分） 题号:294
改变控件在窗体中的左右位置应修改该控件的()属性.
A:Top
B:Left
C:Width
D:Right
答案：B
第10题 （1.0分） 题号:233
VB认为下面()组变量是同一个变量.
A:A1和a1
B:SUM和SUMMARY
C:AVER和AVERAGE
D:A1和A_1
答案：A
置顶
三、程序填空 共3题 （共计30分）
第1题 （10.0分） 题号:36
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：以下程序的功能如(图1)。
'-------------------------------------------------------
Private Sub Form_Click()
Dim a%, b%, c%, d!
Dim x1, x2
Dim p, q, r
a = InputBox(" 请输入a的值" )
b = InputBox(" 请输入b的值" )
c = InputBox(" 请输入c的值" )
d = b * b - 4 * a * c
p = -b / (2 * a)
If d >= 0 Then
'**********SPACE**********
If 【?】 Then
r = Sqr(d) / (2 * a)
x1 = p + r
x2 = p - r
Else
x1 = p
x2 = p
'**********SPACE**********
【?】
Print " x1=" ; x1, " x2=" ; x2
'**********SPACE**********
【?】
q = Sqr(-d) / (2 * a)
Print " x1=" ; p; " +" ; q; " i" , " x2=" ; p; " -" ; q; " i"
End If
End Sub
答案：
1). d > 0 或 0 < d
2). End If
3). Else
第2题 （10.0分） 题号:520
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：完成程序，使程序输出值为 15
'-------------------------------------------------------
Private Sub Command1_Click()
'**********SPACE**********
Dim i, j, x,【?】 As Integer
For i = 1 To 4
x = 4
For j = 1 To 3
x = 3
'**********SPACE**********
For 【?】 = 1 To 2
'**********SPACE**********
x = x + 【?】
Next k
Next j
Next i
Print x
End Sub
答案：
1). k
2). k
3). 6
第3题 （10.0分） 题号:502
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：用输入对话框输入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) 【?】
Else
y = 2 * x ^ 3 + 6
End If
Print y
End Sub
答案：
1). y
2). InputBox
3). y = 0
4). + Sin(x)
置顶
四、程序改错 共3题 （共计30分）
第1题 （10.0分） 题号:487
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:设窗体中有图片框Pic1，现要求在其中绘制10个同心圆，
' 然后将此图以Test.BMP作文件名存入磁盘。
'------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim X As Integer
Dim Y As Integer
Dim I As Integer
Dim rad(9) As Integer
X = Pic1.ScaleWidth / 2
Y = Pic1.ScaleHeight / 2
'**********FOUND**********
For I = 1 To 9
rad(I) = 500 * Rnd
Next I
I = 9
'**********FOUND**********
Do Until I < 1
Pic1.Circle (X, Y), rad(I), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)
'**********FOUND**********
I = I + 1
SavePicture Pic1.Image, " Test.BMP"
End Sub
答案：
1). for i=0 to 9 或 for i=0 to 9 step 1
2). Do Until I < 0 或 do until 0>i
3). I = I - 1 或 i=-1+i
第2题 （10.0分） 题号:467
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目：从计算机输入三个数 , 找出中间数
'------------------------------------------------
Option Explicit
Private Sub FindMidNum()
Dim x As Integer, y As Integer, z As Integer, A As Integer
x = InputBox(" PLEASE INPUT THE FIRST NUMBER" )
y = InputBox(" PLEASE INPUT THE SECOND NUMBER" )
z = InputBox(" PLESSE INPUT THE THIRD NUMBER" )
'**********FOUND**********
If x > y Then
A = x
x = y
y = A
End If
'**********FOUND**********
If y = z Then
Print y
'**********FOUND**********
ElseIf x = z Then
Print z
Else
Print x
End If
End Sub
Private Sub Form_Click()
FindMidNum
End Sub
答案：
1). If x < y Then 或 If y > x Then
2). If y >= z Then 或 If z <= y Then
3). ElseIf x >= z Then 或 ElseIf z <= x Then
第3题 （10.0分） 题号:141
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目：输出40以内能够被3整除的数，要求输出结果为5
' 个数一行。
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Cls
Dim x As Integer
Dim i As Integer
'**********FOUND**********
i = 1
For x = 1 To 40
If (x / 3) = (x \ 3) Then
'**********FOUND**********
Print x
i = i + 1
End If
'**********FOUND**********
If i Mod 3 = 0 Then
Print
End If
Next x
End Sub
答案：
1). i = 0
2). Print x;
3). if i mod 5=0 then
置顶
五、程序设计 共2题 （共计20分）
第1题 （10.0分） 题号:480
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：编写函数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 Double
Dim i As Integer
For i = 0 To m
y = y + 1 / (i + 5)
Next
Fun = y
----------------------
第2题 （10.0分） 题号:488
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目： (事件)单击窗体。
' (响应)已知sum=1/2!-1/4!+1/6!-1/8!+1/10!,
' 请将sum结果值输出到窗体上。
' 使用do while...loop语句完成程序
'-------------------------------------------------
答案：----------------------
Dim i As Integer
Dim n As Integer
i = 1
p = 1
Do While i <= 10
p = p * i
If i Mod 2 = 0 Then
n = n + 1
sum = sum + (-1) ^ (n - 1) / p
End If
i = i + 1
Print sum
----------------------
一、判断 共10题 （共计10分）
第1题 （1.0分） 题号:309
所有的对象都有caption 属性.
答案：N
第2题 （1.0分） 题号:307
事件过程由某个用户事件或系统事件触发执行,它不能被其它
过程调用.
答案：N
第3题 （1.0分） 题号:271
当定时器控件的interval属性值设置为0时,会连续不断地激发
Timer事件.
答案：N
第4题 （1.0分） 题号:272
当需要在同一窗体中建立几组相互独立的单选钮时,就要用框
架将每一组单选钮框起来.
答案：Y
第5题 （1.0分） 题号:350
在窗体模块的声明部分中用Private声明的变量的有效范围是其
所在的工程.
答案：N
第6题 （1.0分） 题号:225
Visual Basic程序的运行可以从Main()过程启动,也可以从某
个窗体启动.
答案：Y
第7题 （1.0分） 题号:261
VB允许设计和使用用户自己设计的控件.
答案：Y
第8题 （1.0分） 题号:342
在VB中,可以将在Picture控件中绘制的图形以文件的形式保存
在磁盘上.
答案：Y
第9题 （1.0分） 题号:249
Function函数有参数传递,并且一定有返回值.
答案：N
第10题 （1.0分） 题号:338
在VB的工具栏中包括了所有的VB控件,我们不能再加载其他的
控件.
答案：N
置顶
二、单项选择 共10题 （共计10分）
第1题 （1.0分） 题号:260
代数式x1-|a|+ln10+sin(x2+2л)/cos(57o)对应的VisualBasic
表达式是().
A:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/
B:X1-Abs(A)+Log(10)+Sin(X2+2*л)/
C:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/
D:X1-Abs(A)+Log(10)+Sin(X2+2*л)/
答案：A
第2题 （1.0分） 题号:337
设计动画通常使用时钟控件()来控制动画速度.
A:Enabled
B:Interval
C:Timer
D:Move
答案：B
第3题 （1.0分） 题号:796
要把一个命令按钮设置成无效,应设置其哪一属性值().
A:Visible
B:Enabled
C:Default
D:Cancel
答案：B
第4题 （1.0分） 题号:336
设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是().
A:True
B:False
C:1
D:出错信息
答案：B
第5题 （1.0分） 题号:322
任何控件都具有的属性是().
A:TEXT
B:CAPTION
C:NAME
D:FORECOLOR
答案：C
第6题 （1.0分） 题号:289
当事件能被触发时,()就会对该事件作出响应.
A:对象
B:程序
C:控件
D:窗体
答案：A
第7题 （1.0分） 题号:382
下列叙述正确的是().
A:对象是包含数据又包含对象数据进行操作的方法的物理实体
B:对象的属性只能在属性窗口中设置
C:不同的对象能识别不同的事件
D:事件过程都要由用户点击对象来触发
答案：C
第8题 （1.0分） 题号:371
下列关于设置控件属性的叙述正确的是().
A:用户必须设置属性值
B:所有的属性值都可以由用户随意设定
C:属性值不必一一重新设置
D:不同控件的属性项都完全一样
答案：C
第9题 （1.0分） 题号:250
表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是().
A:4^5
B:3*4
C:x+1
D:SIN
答案：C
第10题 （1.0分） 题号:819
一个对象可以执行的动作和可被对象识别的动作分别称为().
A:事件、方法
B:方法、事件
C:属性、方法
D:过程、事件
答案：A
置顶
三、程序填空 共3题 （共计30分）
第1题 （10.0分） 题号:41
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。
'-------------------------------------------------------
Private Sub Form_Click()
Print " 5个数34、124、68、73、352的最大值是："
max1 = max(34, 124, 68)
'**********SPACE**********
max1 =【?】
Print max1
End Sub
Public Function max(ByVal a%, ByVal b%, ByVal c%)
'**********SPACE**********
If 【?】 Then
m = a
Else
m = b
End If
'**********SPACE**********
If 【?】 Then
max = m
Else
max = c
End If
End Function
答案：
1). max(max1, 73, 352)
2). a>b 或 b
3). m > c 或 c < m
第2题 （10.0分） 题号:56
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：输入数字1-7,显示其对应是星期几(例:输入 1,显示星期日,
' 如果输入其它内容，一律显示" 输入错误" )
'-------------------------------------------------------
Private Sub Command1_Click()
dim x as integer
dim y as string
x=val(text1.text)
'**********SPACE**********
【?】
case 1
y=" 今天是星期日"
case 2
y=" 星期一"
case 3
y=" 星期二"
case 4
y= " 星期三"
case 5
y=" 星期四"
case 6
'**********SPACE**********
【?】
case 7
y= " 星期六"
'**********SPACE**********
【?】
y = " 输入错误"
end select
Text2.Text = y
End Sub
答案：
1). select case x
2). y=" 星期五"
3). Case Else
第3题 （10.0分） 题号:49
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：以下程序段用于求∑n!
'-------------------------------------------------------
Private Sub Form_Click()
Dim sum As Integer, n As Integer
n = InputBox(" 请输入一个正整数" )
sum = 0
For i = 1 To n
'**********SPACE**********
sum =【?】
Next i
Print sum
End Sub
Private Function mul(ByVal x As Integer)
Dim s As Integer, i As Integer
s = 1
'**********SPACE**********
For i = 1 To 【?】
s = s * i
Next i
'**********SPACE**********
【?】
End Function
答案：
1). sum + mul(i)
2). x
3). mul = s
置顶
四、程序改错 共3题 （共计30分）
第1题 （10.0分） 题号:138
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目：输出40以内能够被3整除的数，要求输出结果为
' 5个数一行。
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Cls
Dim x As Integer
Dim i As Integer
'**********FOUND**********
i = 1
For x = 1 To 40
If (x / 3) = (x \ 3) Then
'**********FOUND**********
Print x
i = i + 1
End If
If i Mod 5 = 0 Then
Print
End If
'**********FOUND**********
step i
End Sub
答案：
1). i = 0
2). Print x ; 或 ? x ;
3). Next x 或 Next
第2题 （10.0分） 题号:474
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:程序功能为求解一元二次方程的实根，请修正程序中错误。
'------------------------------------------------
Option Explicit
Private Sub Form_Load()
Dim a!, b!, c!, root1#, root2#, work As Double
a = Val(InputBox(" 请输入系数a的值" ))
b = Val(InputBox(" 请输入系数b的值" ))
c = Val(InputBox(" 请输入系数c的值" ))
'**********FOUND**********
work = b * 2 - 4 * a * c
If work >= 0 And a <> 0 Then
'**********FOUND**********
root1 = (Sqr(work)) / (2 * a)
'**********FOUND**********
root2 = (Sqr(work)) / (2 * a)
Debug.Print " 有二个实根" + Str$(root1) + " ," + Str$(root2)
Else
Debug.Print " 无实根!"
End If
End Sub
答案：
1). work = b ^ 2 - 4 * a * c 或 work = b *b - 4 * a * c
2). 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题 （10.0分） 题号:475
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:本程序求3~100之间的所有素数（质数）并统计个数；
' 同时将这些素数从小到大依次写入顺序文件c:\dataout.txt；
' 素数的个数显示在窗体Form1上。
'------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim Count As Integer, Flag As Boolean
Dim t1 As Integer, t2 As Integer
'**********FOUND**********
Open " dataout.txt" For Input As #1
Count = 0
For t1 = 3 To 100
Flag = True
For t2 = 2 To Int(Sqr(t1))
If t1 Mod t2 = 0 Then Flag = False
Next t2
'**********FOUND**********
If Flag = False Then
Count = Count + 1
'**********FOUND**********
Write #1, t2
End If
Next t1
Form1.Print " 素数个数" ; Count
Close #1
End Sub
答案：
1). Open " dataout.txt" For Output As #1 或 Open " dataout.txt" For Output As 1
2). If Flag Then 或 If Flag=true Then
3). Write #1, t1 或 Write 1, t1
置顶
五、程序设计 共2题 （共计20分）
第1题 （10.0分） 题号:134
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：(事件)双击窗体。
' (响应)s=20+21+22+…+263，求s的值，并将结果
' 存储到变量S中。
'-------------------------------------------------
答案：----------------------
Dim i As Integer
i = 20
While i <= 263
s = s + i
i = i + 1
Wend
Print (CStr(s))
----------------------
第2题 （10.0分） 题号:142
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：(事件)单击窗体。
' (响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果，
' 并将结果输出到窗体上。
' 将结果存入变量M中
'-------------------------------------------------
答案：----------------------
Dim i, j As Integer
Dim s As Long
For i = 10 To 15
s = 1
For j = i To i + 2
s = s * j
Next
m = m + s
Next
Print (CStr(m))
----------------------