1.求输入任意两个数的最大公约数~!!
创新互联是一家以网站设计建设，成都微信小程序、网站开发设计，网络软件产品开发，企业互联网推广服务为主的民营科技公司。主要业务涵盖:为客户提供网站策划、网站设计、网站开发、域名注册、网站优化排名、买链接等服务领域。凭借建站老客户口碑做市场，建设网站时，根据市场搜索规律和搜索引擎的排名收录规律编程，全力为建站客户设计制作排名好的网站，深受老客户认可和赞誉。
代码如下:Private Sub Command1_Click()
Dim m, n, s As Single
m = Val(Text1.Text)
n = Val(Text2.Text)
'下行已改正
Do While (n 0)
s = m Mod n
m = n
n = s
Loop
'下行已改正
Text3.Text = m
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
2.输出100到1000以内的所有水仙花数
Private Sub Command1_Click()
Dim a, b, c
For i = 100 To 999
a = Int(i / 100)
'下行已改正
b = Int((i - a * 100) / 10)
c = i Mod 10
If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Then
'下行已改正
Print a * 100 + b * 10 + c
End If
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
3.设计程序,计算出S=1*(1*2)*(1*2*3)*.....*(1*2*3*....*n)的积
Private Sub Command1_Click()
Dim n As Integer, i As Integer, j As Long, s As Long
n = Val(Text1.Text)
'下行已改正
j = 1
s = 1
For i = 1 To n
j = j * i
'下行已改正
s = s * j
Next i
Text2.Text = s
End Sub
第一套
一、判断题
1、Visual Basic程序开发的特点是面向对象的事件驱动。 （√）
2、Print_Text是一个不合法的变量名。 （×）
3、窗体的AutoRedraw属性实现了屏幕图像的重建。 （√）
4、设置字体大小应使用Font属性 （×）
5、Sub过程可以实现嵌套调用 （√）
6、IIF函数中的三个参数都不能省略。 （√）
7、块结构条件语句以End If结束，而单行结构条件语句没有End IF。（√）
8、当终值小于初值时，步长为负数。 （√）
9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也
不会执行。（√）
10、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用 (√)
二、单项选择题
1．Print Format（123，”####”）执行之后的结果为
A）＃123 B）123 C）123＃ D）＃＃＃＃
【答案】B
2．下面可以表示注释语句开头的为
A）Re B）R C）Rem D）dim
【答案】C
3．下列选项中窗体载入事件为
A）Load事件 B）Click事件 C）DblClick事件 D）Unload事件
【答案】A
4．Timer控件可以使用下列哪种事件
A）Click事件 B）Timer事件 C）Dblclick事件 D）Change事件
【答案】B
5．在InputBox函数中哪一个参数是必须的
A）Prompt B）Buttons C）Title D）Context
【答案】A
6．以下叙述中错误的是：
A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
B）Sub过程中不能嵌套定义Sub过程
C）Sub过程可以嵌套调用Sub过程
D）事件过程可以像通用过程一样由用户定义过程名
【答案】C
7．要填加一个标准模块，可使用“_____”菜单中的“添加模块”命令。
A）文件 B）视图 C）工程 D）工具
【答案】 C
8．在块结构条件语句If-Then / Endif中
(A) 必须至少有一个Elseif语句
(B ) 可以有任意多个ElseIf-Then语句
(C) 如果没有Else语句，运行时将出现错误
(D ) 给定的条件只能是关系表达式或逻辑表达式
【答案】B
9．以下Case语句中错误的是
(A) Case 10 To 1
(B) Case Is10
(C)Case Is10 , Is50
(D) Case 3,5,Is10
【答案】A
10．对Do Until…Loop循环，正确的是( )。
A．如果循环条件为常数0，则一次循环也不执行
B．如果循环条件为常数0，则至少执行一次循环
C．如果循环条件是不为0的常数，则至少执行一次循环
D．无论循环条件是否为"True"，则至少执行一次循环
【答案】B
11．语句Dim arr(-3 To 5, 2 To 6) As Integer定义的数组元素有_______个。
A) 45 B) 40 C) 11 D) 54
【答案】A
12．下列关于Option Base语句说法错误的是______D
A) Option Base语句只能出现在窗体层或模块层
B) Option Base语句不能出现在过程中
C) Option Base语句必须位于数组的定义之前
D) Option Base语句只对一维数组有效
【答案】D
13、Visual Basic的特点不包括下面的（A）
A 不需编程 B 面向豆象的程序设计
C 可视化程序设计 D 时间驱动的程序设计
14、从键盘上能够输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（D）
A Left B Mid
C String D Instr
15、如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（B）
A 0 B -1
C True D false
16、下列符号常量的声明中，（C）是不合法的。
A Const a As Single = 1.1 B Const a As Integer = “12”
C Const a As Double = Sin(1) D Const a =”OK”
17、四个字符“E”,“y”,“B”,“8”的ASCII码值最大的是（B）
A “E” B “y”
C “B” D “8”
18、将变量k四舍五入保留2位小数的表达式是（C）
A Int((k+0.5)*100)/100 B Int((k*100)/100)+0.5
C Int(k*100+0.5)/100 D Int(k*(100+0.5))/100”
19、30．将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是（A）
A) Cos(a+b)^2+5*exp(2) B) Cos^2(a+b)+5*exp(2)
C) Cos(a+b)^2+5*ln(2) D) Cos^2(a+b)+5*ln(2)
20、在顺序文件中，当使用Write#语句时，文件打开的方式必须是（B）
A Output和Input B Output和Append
C Output D Append
三、程序分析题
1．以下语句的输出结果是（注：■表示一个空格）
a = 123
b = 456
Print a; b
A）123■456 B）■123■456 C）■123■456■ D）■123■■456
【答案】D
2．下列程序执行的结果为
x = -6 ^ 2
Print Sgn(x) + Abs(x) + Int(x)
A）－36 B）1 C）－1 D）－72
【答案】C
3．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下的事件过程：
Private Sub Command1_Click()
s = 0
For i = 0 To 15
X = 2 * i - 1
If X Mod 3 = 0 Then s = s + 1
Next i
Label1.Caption = s
End Sub
程序运行后，单击命令按钮，则标签中显示的内容为
A）1 B）5 C）27 D）45
【答案】B
4．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2、Label3的标签，然后编写如下的事件过程：
Private x As Integer
Private Sub Command1_Click()
Static y As Integer
Dim z As Integer
n = 10
z = n + z
y = y + z
x = x + z
Label1.Caption = x
Label2.Caption = y
Label3.Caption = z
End Sub
运行程序后，连续三次单击命令按钮后，则三个标签中显示的内容分别是
A）10 10 10 B）30 30 30 C）30 30 10 D）10 30
【答案】C
5．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2的标签，然后编写如下的事件过程：
Private x As Integer
Private Sub Command1_Click()
x = 5: y = 3
Call Proc(x, y)
Label1.Caption = x
Label2.Caption = y
End Sub
Private Sub Proc(ByVal a As Integer, ByVal b As Integer)
x = a * a
y = b + b
End Sub
运行程序后，则两个标签中显示的内容分别是
A）5和3 B）25和3 C）25和6 D）5和6
【答案】B
6.下面程序段求两个数中的大数，不正确的是
（A）If x＞y Then Max=x Else Max=y
（B） Max=IIf(x＞y,x,y)
（C）If y＞=x Then Max=y
Max=x
(D)If y＞x Then Max=y
Max=x
【答案】D
7．如果x的值大于或等于y的立方，则打印“OK”，表示这个条件的单行格式的If语句是
A）If x=y^3 Print “OK”
B）If x=y*y*y Then “OK”
C）If x=y^3 Then Print “OK”
D）If x=y*y*y Then Print “OK” End If
【答案】C
8．下列程序段执行结果为
x = 5
y = -6
If Not x 0 Then x = y - 3 Else y = x + 3
Print y - x; x - y
A) 3 －3
B) －9 5
C) －3 3
D) 5 －6
【答案】A
9．已知x的值，计算分段函数f(x)，下面选项不正确的是
当 x＞=1， f(x)= ；
当x＜1 ，f(x)= x2+3
(A) Select Case x
Case Is1
f= x^2+3
Case else
f=sqr(x+1 )
End Select
(B) Select Case x
Case x=1
f=sqr(x+1 )
Case x1
f= x^2+3
End Select
(C ) Select Case x
Case Is=1
f=sqr(x+1 )
Case Is1
f= x^2+3
End Select
(D) IF x=1 then f=sqr(x+1 ) else f= x^2+3
【答案】B
10．执行完下面的程序段后，循环执行了( )次。
For i = 1.7 To 5.9 Step 0.9
a = a + 1
Print a
Next I
A．3 B．4 C．5 D．6
【答案】C
11．下列程序段的执行结果为( )。
n = 0
j = 1
Do Until n 2
n = n + 1
j = j + n * (n + 1)
Loop
Print n; j
A．0 1 B．3 7 C．3 21 D．3 13
【答案】C
12．以下正确的For…Next结构是
（A） For x=1 To 10
for y=1 to 10
…
Next
（B）For x=1 To 10
for y=1 to 10
…
Next y , x
（C）For x=1 To 10
for y=1 to 10
Next x
Next y
（D）For x=1 To 10
for y=1 to 10
…
Next x , y
【答案】B
13．下列程序中，第一个Do语句共执行了( )次循环。
Dim i As Integer, j As Integer
i = 1
Do
j = 1
Do
Sum = Sum + j
j = j + 2
Print j;
Loop Until j 3
i = i + 2
Loop Until i 10
Print Sum
A．10 B．20 C．5 D．7
【答案】A
14．下列语句中，a是一个数组，则使用正确的是______
A) Option Base 2
B) Redim a
C) Erase a
D) a = Array()
【答案】C
15.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
for j = 2 To 4
array1(i, j) = i + j
next j
next i
Text1.Text = arrry1(2, 3) + array(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______
A) 12 B) 13 C) 14 D) 15
【答案】A
16.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a (10,10) As Integer
Dim i As Integer, j 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
next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是______
A) 1 2 3
2 4 6
3 6 9
B) 2 3 4
3 4 5
4 5 6
C) 1 4 7
2 5 8
3 6 9
D) 1 2 3
4 5 6
7 8 9
【答案】D
17.设有如下程序：
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a = Array(1,2,3,4,5,6,7,8,9)
For i = 0 To 3
Print a(5 – i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是______
A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4
【答案】C
18．执行以下Command1的Click事件过程在窗体上显示_______。
Private Sub Command1_Click()
Dim a
a = Array(“a”,”b”,”c”,”d”,”e”,”f,”,”g”)
Print a(1); a(3); a(5)
End Sub
A) a b c B) b d f C) a c e D) 出错
【答案】B
19、设有语句
Open"c:\Test.Dat"For Output As#1
则以下错误的叙述是（B）
A）该语句打开C盘根目录下一个已存在的文件Test.Dat
B）该语句在C盘根目录下建立一个名为Test.Dat的文件
C）该语句建立的文件的文件号为1
D）执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息
20、 以下代码完成对顺序文件test1.txt追加打开的是（C）
A）Open test1.txt For Input As #1
B）Open test1.txt For Output As #1
C）Open test1.txt For Append As #1
D）Open test1.txt For Redom As #1
四、上机题
1．小王有存款A元，年利率为P,存储时间为T年.请编写一个程序计算本利合计。（A 、P、 T均使用Inputbox输入）
2．求100以内的素数，素数是指一个数x除了1和它本身，不能被其他任何整数整除。要求每行输出10个素数。
单击窗体，运行结果如图所示：
答案
在单击窗体的事件过程中添加代码，程序代码如下：
Private Sub Form_click()
Const N = 100
Dim i, j, Line, a(N) As Integer
For i = 0 To N - l ' 置初值
a(i) = i
Next i
For i = 2 To Sqr(N)
For j = i + 1 To N
If a(i) 0 And a(j) 0 Then
If a(j) Mod a(i) = 0 Then a(j) = 0 ' 能整除就赋0
End If
Next j
Next i
Print "显示出100以内的素数"
For i = 2 To N - 1
If a(i) 0 Then
Print a(i); Spc(1);
Line = Line + 1
End If
If Line 0 And Line Mod 10 = 0 Then Print ' 每行显示10个数
Next i
End Sub
评分标准：
1、正确给数组赋值 （2分）
2、正确判断素数 （3分）
3、正确输出显示结果 （2分）
4、文件存盘 （2分）
5、程序结构合理、清晰 （1分）
单项选择题 判断题 填空题 编程题
1) 下列程序运行后，输出的结果为______。
B=1
Do while (b40)
b=b*(b+1)
Loop
Print b
a) 42
b) 39
c) 6
d) 1 答案：A
2) 设执行以下程序段时依次输入1、3、5，执行结果为_____。
Dim a(4) As Integer
Dim b(4) As Integer
For K =0 To 2
a(K+1) =Val(InputBox(“请输入数据："))
b(3-K) =a(K+1)
Next K
Print b(K)
a) 1
b) 3
c) 5
d) 0 答案：A
3) 下列程序执行后，变量s的值为______。
Dim s As long ,x As Integer
s=0:x=1
Do While (x10)
s=s+x
x=x+2
Loop
Print s
a) 10
b) 25
c) 50
d) 100 答案：B
4) 编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single)
If Shift=6 And Button=2 Then
Print "Hello"
End If
End Sub
程序运行后，为了在窗体上输出"Hello"，应在窗体上执行以下_______操作。
a) 同时按下 Shift 键和鼠标左键
b) 同时按下 Shift 键和鼠标右键
c) 同时按下Ctrl、Alt 键和鼠标左键
d) 同时按下 Ctrl、Alt 键和鼠标右键 答案：D
5) 当变量x=2,y=5时，以下程序的输出结果为____。
Do until y5
x=x*y
y=y+1
loop
print x
a) 2
b) 5
c) 10
d) 20 答案：C
6) 当执行以下程序时，在名为lblResult的标签框内将显示_____。
Private Sub cmdlt_click()
Dim I,R
R=0
For I=1 To 5 Step 1
R=R+I
Next I
lblResult.Caption=Str（R）
End Sub
a) 字符串15
b) 整数15
c) 字符串5
d) 整数5 答案：A
7) 如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。
X=1
do
x=x+3
print x
loop until(___)
a) x=8
b) x=8
c) x=7
d) x=7 答案：A
8) 若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。
If a5 then
if b4 then
c=a-b
else
c=b-a
End if
elseif b3 then c=a*b
else
c=a mod b
End if
a) 2
b) -1
c) 1
d) 6 答案：A
9) 设有如下语句：
str1=inputbox("输入","","练习")
从键盘上输入字符串“示例”后，str1的值是___。
a) “输入”
b) “”
c) “练习”
d) “示例” 答案：D
10) 我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下，
Private Sub Text1_change( )
Text2.text=ucase(Text1.text)
End Sub
则在Text1文本框输入“visual basic”，Text2将______。
a) Text2中无内容显示。
b) Text2显示"VISUAL BASIC"。
c) Text2显示"visual basic"
d) Text1显示"visual basic" 答案：B
11) 下列程序的运行后s的值是_____。
S=0
For x=99 to 1 Step-2
s=s+x
Next x
Print s
a) 100
b) 500
c) 2500
d) 5000 答案：C
12) 下列程序的执行结果是____。
K=0
For I=1 To 3
a=I^I^K
print a;
Next I
a) 1 1 1
b) 1 2 3
c) 0 0 0
d) 1 4 9 答案：A
13) 下列程序的执行结果是_____。
Dim a(5) As String
Dim b As Integer
Dim I As Integer
For I =0 To 5
a(I)=I+1
Print a(I)
Next I
a) 123456
b) 6
c) 654321
d) 0 答案：A
14) 下列程序的执行结果为_____。
Dim intsum As Integer
Dim I As Integer
intsum=0
For I=20.2 To 5 Step -4.7
intsum=intsum +I
Next I
Print intsum
a) 150
b) 200
c) 50
d) 0 答案：C
15) 下列程序的执行结果为_____。
Dim S As Integer,n As Integer
S=0:n=1
Do While n=100
S=S+n
n=n+1
Loop
Print S
a) 5050
b) 2500
c) 3000
d) 4000 答案：A
16) 下列程序的执行结果为_____。
A=100:b=50
If ab Then
a=a-b
Else
b=b+a
End if
Print a
a) 50
b) 100
c) 200
d) 10 答案：A
17) 下列程序的执行结果为________。
Dim intsum As Integer
Dim I As Integer
intsum=0
For I=0 To 50 Step 10
intsum=intsum+I
Next I
Print intsum
a) 150
b) 200
c) 50
d) 0 答案：A
18) 下面程序执行后，X的结果为_____。
X=0
For I =1 to 5
For j=I to 5
X=X+1
Next j
Next I
Print X
a) 5
b) 10
c) 15
d) 20 答案：C
19) 下面程序执行的结果是____。
Private Sub Form_Click()
A$="123":B$="456"
C=Val(A$)+Val(B$)
Print C\100
End Sub
a) 123
b) 3
c) 5
d) 579 答案：C
20) 下列循环语句将执行______次。
A=100
Do
Print a
a=a+1
Loop until a=10
a) 1
b) 10
c) 100
d) 死循环 答案：D
21) 下面程序段的循环结构执行后， 的输出值是_____。
程序段为：
For I=1 to 10 step 2
y=y+I
Next I
print I;
a) 25
b) 10
c) 11
d) 因为Y的初值不知道，所以不确定 答案：C
22) 写列程序段的执行结果____。
A="abbacddcba"
for I=6 to 2 step -2
x=mid(a,I,I)
y=left(a,I)
z=right(a,I)
z=x y z
next I
print Ucase(z)
a) ABA
b) AABAAB
c) BBABBA
d) ABBABA 答案：C
23) 以下语句输出结果是（在立即窗口中）_____。
A="Beijing"
b="ShangHai"
Print a;b
a) Beijing ShangHai
b) Abeijing ShangHai
c) BeijingShangHai
d) Abeijing 答案：C
24) 有如下程序：
For I=1 To 3
For j=5 To 1 Step-1
Print I+j
Next j,I
其循环执行的次数为______。
a) 12
b) 13
c) 14
d) 15 答案：D
25) 有如下程序段，该程序执行后，变量a的值为______。
For I=1 To 2
For J=I To 2
For K=1 To J
a=a+2
Next K
Next J
Next I
a) 2
b) 8
c) 10
d) 20 答案：C
26) 执行下列程序后，变量a的值为____。
Dim I as integer
dim a as integer
a=0
for I=0 to 100 step 2
a=a+1
next I
a) 1
b) 10
c) 51
d) 100 答案：C
27) 执行下列程序后，X的值为______。
X=3
y=6
Do While y=6
x=x*y
y=y+1
Loop
a) 3
b) 6
c) 18
d) 20 答案：C
28) 执行下列程序段后，整型变量c的值为___。
A=24
b=328
select case b\10
case 0
c=a*10+b
case 1 to 9
c=a*100+b
case 10 to 99
c=a*1000+b
end select
a) 537
b) 2427
c) 24328
d) 240328 答案：C
29) 执行完下面的程序段后，循环将执行____次。
For I=1.7 To 5.9 Step 0.9
a=a+1
Print a
Next I
a) 3
b) 4
c) 5
d) 6 答案：C
30) 有如下语句，执行后该段语句的循环次数是_____。
Dim s,I,j as integer
For I =1 to 3
For j=3 To 1 Step-1
S=I*j
Next j
Next I
a) 9
b) 10
c) 3
d) 4 答案：A
31) 有如下程序，该程序将______。
For I=1 to 10 step 0
K=k+2
Next I
a) 形成无限循环。
b) 循环体执行一此后结束循环。
c) 语法错误。
d) 循环体不执行即结束循环。 答案：A
32) 有如下程序段，该程序段执行完毕后，共循环了________。
For I=1 To 5
For j=1 To I
For k=j To 4
Print "a"
Next k
Next j
Next I
a) 4
b) 5
c) 38
d) 40 答案：D
33) 有如下程序，该程序的运行结果为______。
Dim k As Integer
n=5:m=1:k=1
Do While k=n
m=m*2
k=k+1
Loop
Print m
a) 1
b) 5
c) 32
d) 40 答案：C
34) 以下程序输出1到1000之间所有的偶数之和，请补充完该程序。
Private Sub Command_Click()
Dim x As Double
For I=0 To 1000
If ____ Then
x=x+I
End If
Next I
Print x
End Sub
a) i Mod 2 = 0
b) x Mod 2 = 0
c) I Mod 2 0
d) x Mod 2 0 答案：A
35) 以下是计算10的阶乘的程序，请补充该程序。
Dim t as single
Dim k as Integer
k=0:t=1
While_______
k=k+1
t=t*k
Wend
Print t
a) k10
b) k10
c) k=10
d) k=10 答案：A
36) _____是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
a) 文件
b) 属性
c) 方法
d) 窗体 答案：C
37) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是_____。
a) 单选按钮
b) 图片框
c) 通用对话框
d) 文本框 答案：C
38) 下列各项不是Visual Basic的基本数据类型的是_____。
a) Char
b) String
c) Integer
d) Double 答案：A
39) 下列运算结果中，值最大的是 ______。
a) 3\4
b) 3/4
c) 4 mod 3
d) 3 mod 4 答案：D
40) 以下不属控件的一项是_____。
a) 文本框
b) 标签框
c) 列表框
d) 消息框 答案：D
41) 用InputBox函数可帮助生成_______。
a) 消息框
b) “保存”对话框
c) 简单输入框
d) “颜色”对话框 答案：C
42) ______对象不能响应Click事件。
a) 列表框
b) 图片框
c) 窗体
d) 计时器 答案：D
43) 17 mod 3的运算结果是_____。
a) 0.5
b) 1
c) 1.5
d) 2 答案：D
44) 变量X=32769，则变量声明时不能将其声明为_____。
a) Intrger
b) Variant
c) Long
d) Single 答案：A
45) 表达式2*3^2+2*8/4+3^2的值为_____。
a) 64
b) 31
c) 49
d) 22 答案：B
46) 复选对象是否被选中，是由其_____属性决定的。
a) Checked
b) Value
c) Enabled
d) Selected 答案：B
47) 没有Caption属性的控件是_____。
a) Label
b) OptionButton
c) Frame
d) LisBox 答案：D
48) 下列符号是Visual Basic中合法变量名的是_____。
a) IF
b) 7AB
c) A[B]7
d) AB_7 答案：D
49) 使窗体自动向下移动的语句是Move_____。
a) Left, Top+100
b) Top+100
c) Top+100
d) Top=Top+100 答案：A
50) RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB（红、绿、蓝），括号中红、绿、蓝三基色的成分使用0-255之间的整数。若使用3个滚动条分别输入3种基色，为保证输入数值有效，则应设置_____属性。
a) Max和Min
b) SmallChange和LargeChange
c) Scroll和Change
d) Value 答案：A
这有一份
VB期末考试试题 一、 填空题
1、VB程序设计的主要特点是 （1） 和 （2） 。
2、在VB中，最主要的两种对象是 （3） 和 （4） 。
3、工程是构成应用程序文件的 （5） 。
4、方法是VB提供的一种 （6） ，用来完成一定的操作。
5、浮点类型数据包括单精度型和___（7）__数据。
6、事件是窗体或控件对象识别的___（8）____。
7、可用窗体的___（9）_ 方法在窗体中显示文字。
8、 复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。
9、在VB中，修改窗体的 （11）和 （12） 属性值，可改变窗体的大小。
10、双击工具箱中的控件图标，可在窗体的 （13） 出现一个尺寸为缺省值的控件。
11、在MsgBox函数中，如果缺省title参数，则使用 （14） 作为消息框的标题。
12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是 （15） 。
13、在VB 中，数值型变量的初值为 （16） ，Varant型变量的初值为 （17） ，布尔型变量的初值为 （18） 。
14、设置窗体的 （19） 属性，可在窗体上显示图片。
15、程序运行工程中，清除MP图片框中的图片应使用语句 （20） 。
二、选择题
1、菜单控件只包括一个事件，即 （1） ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocus B、Load C、Click D、KeyDown
2、滚动条控件(如图所示)的Max属性所设置的是 （2） 。
A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值
B、 单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量
C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量
D、滚动条控件无该属性
3、SQL 语句 Select * Form student 中的 *表示 （3） 。
A、所有记录 B、所有字段 C、所有表 D、都不对
4、以下选项中，不属于标签的属性是 （4） 。
A、Enabled B、Caption C、Default D、Font
5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 （5） 。
A、Caption B、Name C、Text D、Label
6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 （6） 。
A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ （7） 。
A、在标题项中输入，然后打勾 B、在索引项中打勾
C、在有效项中打勾 D、在复选项中打勾
8、当执行以下过程时，在窗体上将显示 （8） 。
Private Sub Command1_Click( )
Print "VB";
Print "Hello! ";
Print "VB"
End Sub
A、 VBHello!VB B、 VB
Hello!VB
C、 VB D、 VB
Hello! VB Hello!
VB
9、语句Print "The answer is:";20/4-2的结果为 （9） 。
A、The answer is 20/4-2 B、The answer is 3
C、The answer is "20/4-2" D、非法语句
10、下列哪个控件是容器控件 （10） 。
A、Image B、Picture C、ComboBox D、FileListBox
11、若要将窗体从内存中卸载出去，其实现的方法是 （11） 。
A.Show B.Hide C.Load D.UnLoad
12、以下选项中，不是 Visual Basic控件的是 （12） 。
A.窗体 B.定时器 C.单选框 D.命令按钮
13、双击窗体中的对象后，Visual Basic将显示的窗口是 （13） 。
A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口
14、可决定窗体的左上角是否有控制菜单的属性是 （14） 。
A.ControlBox B.MinButton
C.MaxButton D.BorderStyle
15、设有如下语句：
Strl＝InputBox（"输人"，""，"练习"）
从键盘上输人字符 “示例”后，Strl的值是 （15） 。
A．“输入” B．“ ” C．“练习” D．“示例”
16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 （16） 。
A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click
17、窗体的hide属性的含义是 （17） 。
A.隐藏 B.展现 C.装入 D.卸载
18、若要设置定时器控件的定时时间，需设置的属性是 （18） 。
A．Enabled B．Value C．Interval D．Text
19、能够改变复选框中背景颜色的属性是 （19） 。
A．Value B．FontColor C．BackColor D．Font
20、窗体能响应的事件是 （20） 。
A．ActiveForm B．Load C．Drive D．Change
三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。)
1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。
2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。
3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。
4、通过改变属性窗口中的Name属性，来改变窗体的标题。
5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。
6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。
7、已知P＝MsgBox(“Howareyou?"，VbYesNo+VbQuestion，“Hello!”)，变量P是Integer数据类型。
8、工程文件的扩展名是 .vbg 。
9、VB允许设计和使用用户自己设计的控件。
10、OptionButton控件没有DblCliek事件。
11、同一条记录中的各数据具有相同的类型。
12、使用Data控件可以直接显示数据库中的数据。
13、ImageList 是一个图像容器控件，可用作工具栏的图像库。
14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。
15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除）。
16、如果列表框的ListConut的属性为10，则列表框最后一项的ListIndex值为10。
17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。
18、使用数组定义语句：Dim D$（10），则数组D中各元素的值为空。
19、如果在一行中输入多条语句，各语句之间用使用 ；分隔。
20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。
四、读程序题，写出程序运行结果
1、 Private Sub Form_Click()
Static SUM As Integer
I = 1
Do While I=10
SUM = SUM + I
I = I + 1
Loop
Print SUM
End Sub
运行程序，第一次单击窗体：
第二次单击窗体：
2、 Private Sub Form_Click()
Print "*"; Tab(6); 2, Tab(15); 5
For I = 15 To 16
Print I;
For j = 2 To 6 Step 3
Print Tab(3 * j); j * I;
Next j
Next I
End Sub
程序运行结果：
五、编程题
（一）窗体中有图片框(Picture1)和计时器(Timer1)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip（20分之一像素）。请填空：
Private Sub Form_load( )
（1） =loadPicture(“c:\pic\ball.ico”)
（2） .Interval=200
End Sub
Private Sub Timer1_Timer( )
Static x , y As Integer
x=x+100
y=y+100
Picture1.Move （3）
End Sub
（二）有一个单击按钮过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请填空：
Private Sub Command1_Click()
Dim x As Integer, N%
Dim Counter As Integer
(1) Timer
For N=1 To 50
X=Rnd()* (2)
If (3) =2 Then
Print x
Counter= (4)
(5)
Next N
Print Counter
End Sub
《VB程序设计与应用》参考答案
一、填空题 1 2 3 4 5
答案 可视化设计 事件驱动编程 窗体（form） 控件 集合
题号 6 7 8 9 10
答案 特殊子程序 双精度 动作 Print 选中
题号 11 12 13 14 15
答案 高度（Height） 宽度(Width) 中央 工程1 34.6
题号 16 17 18 19 20
答案 0 空 False Picture Cls
二、选择题 1 2 3 4 5
答案 C A B C A
题号 6 7 8 9 10
答案 D D A B B
题号 11 12 13 14 15
答案 D A A A D
题号 16 17 18 19 20
答案 C A C C B
三、判断题 1 2 3 4 5 6 7 8 9 10
答案 Х Х Х √ Х √ √ √ √ Х
11 12 13 14 15 16 17 18 19 20
答案 √ Х √ √ Х Х √ Х Х √
四、程序阅读题：
（一） （10分）
1 、 55
2、 110
（二）、 （10分）
* 2 5
15 30 75
16 32 80
五、编程题 （20分）
（一）1、Picture1.Picture
2、 Timer1
3、 x ,y
(二) 1、 Randomize
2、 Rnd()*41+60
3、 x Mod 6
4、 Counter＋1
5 End If
一、单项选择题（共10分）
1．在代码中引用一个控件时，应使用控件的（B）属性。
A．Caption B．Name C．Text D．Index
2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（A）的值为“假”。
A．x+a = b-y B． x 0 AND y 0
C．a = b OR xy D． x+y a+b AND NOT (y b)
3．表达式Int(Rnd*71)+10产生的随机整数范围是（C ）。
A．（10，80） B．（10，81） C．[10，80] D．[10，81]
4．函数Sgn(3.1416)的返回值是（C ）。
A．-1 B．0 C．1 D．以上都不对
5．67890属于（ D ）类型数据。
A．整型 B．单精度浮点数 C．货币型 D．长整型
6．下列变量名中正确的是（D）。
A．3S B．Print C．Select My Name D．Select_1
7．下列赋值语句（ A ）是有效的。
A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0
8．以下的控件或方法具有输入和输出双重功能的为（B）。
A．Print B．Textbox C．Optionbutton D．Checkbox
9．若要获得列表框中被选中的列表项的内容，可以通过访问（D）属性来实现。
A．Name B．ListIndex C．ListCount D．Text
10．下列代码的运行结果为（B ）。
Private Sub command1_click()
Dim m(10)
For k = 1 To 10
m(k) = 11 - k
Next k
x = 5
Print m(2 + m(x))
End Sub
A．2 B．3 C．4 D．5
二、填空题（10分）
1．写出整数n能同时被13和17整除的Basic表达n Mod 13=0 And n Mod 17=0式 。
2．代码窗口中有两个下拉列表框：左侧是(对象)列表框，右侧是过程列表框。
3．写出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表达式LEFT(“Visual Basic 6.0”,6)。
4．函数Len(“abcdef”)的返回值是(6) 。
5．设a = 2，b = 5，c = -2，d = 100，则a b = c AND a b = d的值为False 。
三、将下列数学表达式转换为VB表达式。（6分）
1．a2+2ab+b2 ： a^2+2*a*b+b^2
2．8exln10 ：8*exp(x)*log(10)
3．2sin(450)cos(450) ：2*sin(3.1416/4)*cos(3.1416/4)
6．在VB中，用户定义常量使用 Const 语句，声明变量使用 Dim语句。
我在郑州上学，这是我们的试卷，中原工学院经管院大一的试题希望对你有用！
一、单项选择题（共10分）
1．在代码中引用一个控件时，应使用控件的（ ）属性。
A．Caption B．Name C．Text D．Index
2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ ）的值为“假”。
A．x+a = b-y B． x 0 AND y 0
C．a = b OR xy D． x+y a+b AND NOT (y b)
3．表达式Int(Rnd*71)+10产生的随机整数范围是（ ）。
A．（10，80） B．（10，81） C．[10，80] D．[10，81]
4．函数Sgn(3.1416)的返回值是（ ）。
A．-1 B．0 C．1 D．以上都不对
5．67890属于（ ）类型数据。
A．整型 B．单精度浮点数 C．货币型 D．长整型
6．下列变量名中正确的是（ ）。
A．3S B．Print C．Select My Name D．Select_1
7．下列赋值语句（ ）是有效的。
A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0
8．以下的控件或方法具有输入和输出双重功能的为（ ）。
A．Print B．Textbox C．Optionbutton D．Checkbox
9．若要获得列表框中被选中的列表项的内容，可以通过访问（ ）属性来实现。
A．Name B．ListIndex C．ListCount D．Text
10．下列代码的运行结果为（ ）。
Private Sub command1_click()
Dim m(10)
For k = 1 To 10
m(k) = 11 - k
Next k
x = 5
Print m(2 + m(x))
End Sub
A．2 B．3 C．4 D．5
二、填空题（10分）
1．写出整数n能同时被13和17整除的Basic表达式 。
2．代码窗口中有两个下拉列表框：左侧是 列表框，右侧是过程列表框。
3．写出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表达式 。
4．函数Len(“abcdef”)的返回值是 。
5．设a = 2，b = 5，c = -2，d = 100，则a b = c AND a b = d的值为 。
6．要使标签的大小自动与所显示的文本相适应，可以通过设置 属性为True来实现。
7．若要在一行书写多条语句，则各语句间应加分隔符，Visual Basic的语句分隔符为 。
8．要强制显式声明变量，使用__________语句完成。
9．在VB中，用户定义常量使用 语句，声明变量使用 语句。
三、将下列数学表达式转换为VB表达式。（6分）
1．a2+2ab+b2 __________________________
2． __________________________
3．8exln10 __________________________
4．2sin(450)cos(450) _______________________________
5． ___________________________________________
6． ___________________________________________
四、判断题，正确打“√”，错误打“×”（10分）
1．在VB中，控件的事件只能通过用户的操作触发。（ ）
2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。（ ）
3．保存工程时，窗体文件和工程文件的文件名不能相同。（ ）
4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。（ ）
5．同一过程中，数组和简单变量可以同名。（ ）
6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。（ ）
7．代码Const Number1=15：Number1=10合法。（ ）
8．允许将块If-Then语句结构中的所有语句都写在一行上（ ）
9．定义数组语句Dim a(b) As Integer 是正确的（ ）
10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。（ ）
五、根据题意，将下列程序补充完整。（16分）
1． 产生20个[10，100] 之间的随机整数，每行输出10个数据。
Private Sub command1_click()
Dim a(1 To 20) As Integer
Randomize
i = 0
Do While i 20
i = i + 1
a(i) = ( )
If （ ）Then
Print a(i);
End If
If i = 10 Then Print a(i)
If i 10 Then Print a(i);
Loop
End Sub
2．打印九九乘法表
Private Sub command1_click()
For i = 1 To 9
For j = 1 To 9
Print （ ）
Next j
（ ）
End Sub
3．判断一个数是否素数
Private Sub command1_click()
x = InputBox("请输入一个整数")
flag = 1
For i = 2 To （ )
If x Mod i = 0 Then
flag = 0
End If
Next i
If （ ）Then Print x; "是素数" Else Print x; "不是素数"
End Sub
4．利用数组输出Fibonacci数列的前15项。
该数列的第1项和第2项为1，其余各项均为其前两项之和。
Private Sub Command1_Click()
（ ）
f(1) = 1 : f(2) = 1
List1.AddItem f(1) : List1.AddItem f(2)
For i = 3 To 15
f(i) = （ )
List1.AddItem f(i)
Next i
End Sub
六、写出下面程序的输出结果。（每题3分，共18分）
1． Private Sub command1_click()
x = InputBox("enter x") ' x 的输入值为-8
Select Case Sgn(x) + 2
Case 1
Print "y="; x ^ 2 + 1
Case 2
Print "y="; x - 4
Case 3
Print "y="; x ^ 3 + 100
End Select
End Sub
2． Private Sub command1_click()
Dim a, b, c, d, e As String
a = "Zheng Zhou"
b = "Zhong Yuan Gong Xue Yuan"
c = a + " " + b
d = Left(a, 1) + Mid(a, 7, 1)
e = Left(b, 1) + Mid(b, 12, 1)
Print c
Print d; e
End Sub
3．设有Sub过程：
Private Sub p1(x As Integer, ByVal y As Integer)
x = 4 ：y = 5 ：z = 6
End Sub
则如下程序段的运行结果是:
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 1: y = 2: z = 3
Print x, y, z
Call p1(x, y)
Print x, y, z
End Sub
4． Private Sub command1_click()
k = 0
For i = 1 To 3
k = k + 1
a = i * i * k
Print a;
Next i
End Sub
5． Private Sub command1_click()
Dim a(5, 5) As Integer
For i = 1 To 5
For j = 1 To 5
a(i, j) = i * 2 + j
Print a(i, j);
Next j
Next i
End Sub
6．设有Function过程:
Private Function f1(b, a)
a = a * a: b = b * b
f1 = a - b
End Function
则如下程序段的运行结果是什么？
Private Sub command1_click()
a = 4: b = 3
a = f1(a, b)
Print a
End Sub
七．编程题（共30分）
注意：艺术类学生（环艺、装潢、表演、服设）做第1、2、5、6小题；
其他学生做 第1、2、3、4 小题。
1．给出一个百分制的成绩，要求输出成绩的相应等级。（7分）
90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。
2．求n!,n由键盘输入。（7分）
3．产生20个 [0，99] 之间的随机整数，并按从小到大的顺序输出。（8分）
4．产生并输出一个6×6的二维数组A：（8分）
（1）两条对角线上元素的值为1，其余元素为小于30的随机整数。
（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。
5．输出1+2+……+100的和，并求出1～100 之间能被17整除的数据的个数（8分）
6．从键盘输入10个数，求出其中的最大数，最小数和平均值。（8分）
VB试题答案及评分标准
一、 单项选择题（每题1分，共10分）
1．B 2．A 3．C 4．C 5．D
6．D 7．A 8．B 9．D 10．B
二、 填空题（每空1分，共10分）
1．n Mod 13=0 And n Mod 17=0
1、 对象
3．LEFT(“Visual Basic 6.0”,6)
4．6
5．False
6．Autosize
7． ： 8．Option Explict 9．Const Dim
三、 将下列数学表达式转换成VB表达式（每题1分，共6分）
1、 a^2+2*a*b+b^2
2、 x^(1/3)*y^(1/4)
3、 8*exp(x)*log(10)
4、 2*sin(3.1416/4)*cos(3.1416/4)
5、 (x+y+z)/sqr(x^2+y^2+z^2)
6、 log(1+abs((a+b)/(a-b)))
四、 判断题（每题1分，共10分）
1．× 2．√ 3．× 4．√ 5．×
6．√ 7．× 8．× 9．× 10．√
五、 根据题意，将下列程序补充完整（每空1分，共10分）
1．（1） int(rnd*91)+10 （2） I10
2．（1） i*j （2） next i
3．（1）int(sqr(x))或者x-1 （2） flag=1
4．（1）dim f(15) as integer （2）f(I-1)+f(I-2)
六、 写出下面程序的输出结果（每题4分，共24分）
1、 y=65
2、 Zheng Zhou Zhong Yuan Gong Xue Yuan 2分
ZZZG 2分
3．1 2 3
4 2 3
4．1 8 27
5．3 4 5 6 7
5 6 7 8 9
7 8 9 10 11
9 10 11 12 13
11 12 13 14 15
6．-7
七、 编写程序
1. private sub command1_click()
dim x as integer,grade as string 1分
x=text1.text 1分
select case x 4分
case 90 to 100
grade=”A”
case 80 to 89
grade=”B”
case 70 to 79
grade=”C”
case 60 to 69
grade=”D”
case is60
grade=”E”
case else
msgbox “请重新输入”
end select
print “该学生成绩为”+grade 1分
end sub
2．Private Sub command1_click()
Dim n as integer,f as long 1分
n=text1.text 1分
f=1
for I=1 to n 3分
f=f*I
next I
text2.text=f 2分
end sub
3． Private Sub Command1_Click()
Dim a(1 To 20) As Integer ' 1分
Randomize
For i = 1 To 20 2分
a(i) = Int(Rnd * 100)
Print a(i);
Next
For i = 1 To 19 3分
For j = i + 1 To 20
If a(i) a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
For i = 1 To 20 2分
Print a(i);
Next i
End Sub
4． Private Sub Command1_Click()
Dim a(1 To 6, 1 To 6) As Integer ' 1分
Dim aver As Single
Randomize
For i = 1 To 6 3分
For j = 1 To 6
If i = j Or i + j = 7 Then
a(i, j) = 1
Else
a(i, j) = Int(Rnd * 30)
End If
Print a(i, j);
Next j
Next i
Max = 0: Min = 30 4分
For i = 1 To 6
s = 0
For j = 1 To 6
s = s + a(i, j)
Next j
aver = s / 6
If aver Max Then Max = aver: row_max = I
If aver Min Then Min = aver: row_min = i
Next i
Print row_max, row_min
End Sub
5． Private Sub Command1_Click()
Dim i As Integer, c As Integer
Dim s As Integer
For i = 1 To 100 4分
s = s + i
If i Mod 17 = 0 Then c = c + 1
Next i
Print "1+2+...+100="; s 2分
Print "能被17整数的数据有"; c; "个" 2分
End Sub
6． Private Sub Command1_Click()
Dim x As Integer
x = InputBox("x=") 1分
Print x;
Max = x: Min = x: s = x 2分
For i = 2 To 10 3分
x = InputBox("x=") ：Print x;
s = s + x
If x Max Then Max = x
If x Min Then Min = x
Next i
Print s / 10 1分
Print Max, Min 1分
End Sub
