1.求輸入任意兩個數(shù)的最大公約數(shù)~!!
創(chuàng)新互聯(lián)是一家以網(wǎng)站設(shè)計(jì)建設(shè)，成都微信小程序、網(wǎng)站開發(fā)設(shè)計(jì)，網(wǎng)絡(luò)軟件產(chǎn)品開發(fā)，企業(yè)互聯(lián)網(wǎng)推廣服務(wù)為主的民營科技公司。主要業(yè)務(wù)涵蓋:為客戶提供網(wǎng)站策劃、網(wǎng)站設(shè)計(jì)、網(wǎng)站開發(fā)、域名注冊、網(wǎng)站優(yōu)化排名、買鏈接等服務(wù)領(lǐng)域。憑借建站老客戶口碑做市場，建設(shè)網(wǎng)站時，根據(jù)市場搜索規(guī)律和搜索引擎的排名收錄規(guī)律編程，全力為建站客戶設(shè)計(jì)制作排名好的網(wǎng)站，深受老客戶認(rèn)可和贊譽(yù)。
代碼如下: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以內(nèi)的所有水仙花數(shù)
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.設(shè)計(jì)程序,計(jì)算出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程序開發(fā)的特點(diǎn)是面向?qū)ο蟮氖录?qū)動。 （√）
2、Print_Text是一個不合法的變量名。 （×）
3、窗體的AutoRedraw屬性實(shí)現(xiàn)了屏幕圖像的重建。 （√）
4、設(shè)置字體大小應(yīng)使用Font屬性 （×）
5、Sub過程可以實(shí)現(xiàn)嵌套調(diào)用 （√）
6、IIF函數(shù)中的三個參數(shù)都不能省略。 （√）
7、塊結(jié)構(gòu)條件語句以End If結(jié)束，而單行結(jié)構(gòu)條件語句沒有End IF。（√）
8、當(dāng)終值小于初值時，步長為負(fù)數(shù)。 （√）
9、執(zhí)行While-Wend循環(huán)時，如果一開始條件就不成立，則語句塊一次也
不會執(zhí)行。（√）
10、關(guān)于數(shù)組的引用,在程序中,凡是簡單變量可以出現(xiàn)的地方都可以出現(xiàn)數(shù)組元素的引用 (√)
二、單項(xiàng)選擇題
1．Print Format（123，”####”）執(zhí)行之后的結(jié)果為
A）＃123 B）123 C）123＃ D）＃＃＃＃
【答案】B
2．下面可以表示注釋語句開頭的為
A）Re B）R C）Rem D）dim
【答案】C
3．下列選項(xiàng)中窗體載入事件為
A）Load事件 B）Click事件 C）DblClick事件 D）Unload事件
【答案】A
4．Timer控件可以使用下列哪種事件
A）Click事件 B）Timer事件 C）Dblclick事件 D）Change事件
【答案】B
5．在InputBox函數(shù)中哪一個參數(shù)是必須的
A）Prompt B）Buttons C）Title D）Context
【答案】A
6．以下敘述中錯誤的是：
A）如果過程被定義為Static類型，則該過程中的局部變量都是Static類型
B）Sub過程中不能嵌套定義Sub過程
C）Sub過程可以嵌套調(diào)用Sub過程
D）事件過程可以像通用過程一樣由用戶定義過程名
【答案】C
7．要填加一個標(biāo)準(zhǔn)模塊，可使用“_____”菜單中的“添加模塊”命令。
A）文件 B）視圖 C）工程 D）工具
【答案】 C
8．在塊結(jié)構(gòu)條件語句If-Then / Endif中
(A) 必須至少有一個Elseif語句
(B ) 可以有任意多個ElseIf-Then語句
(C) 如果沒有Else語句，運(yùn)行時將出現(xiàn)錯誤
(D ) 給定的條件只能是關(guān)系表達(dá)式或邏輯表達(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循環(huán)，正確的是( )。
A．如果循環(huán)條件為常數(shù)0，則一次循環(huán)也不執(zhí)行
B．如果循環(huán)條件為常數(shù)0，則至少執(zhí)行一次循環(huán)
C．如果循環(huán)條件是不為0的常數(shù)，則至少執(zhí)行一次循環(huán)
D．無論循環(huán)條件是否為"True"，則至少執(zhí)行一次循環(huán)
【答案】B
11．語句Dim arr(-3 To 5, 2 To 6) As Integer定義的數(shù)組元素有_______個。
A) 45 B) 40 C) 11 D) 54
【答案】A
12．下列關(guān)于Option Base語句說法錯誤的是______D
A) Option Base語句只能出現(xiàn)在窗體層或模塊層
B) Option Base語句不能出現(xiàn)在過程中
C) Option Base語句必須位于數(shù)組的定義之前
D) Option Base語句只對一維數(shù)組有效
【答案】D
13、Visual Basic的特點(diǎn)不包括下面的（A）
A 不需編程 B 面向豆象的程序設(shè)計(jì)
C 可視化程序設(shè)計(jì) D 時間驅(qū)動的程序設(shè)計(jì)
14、從鍵盤上能夠輸入兩個字符串，分別保存在變量str1、str2中。確定第二個字符串在第一個字符串中起始位置的函數(shù)是（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 =”O(jiān)K”
17、四個字符“E”,“y”,“B”,“8”的ASCII碼值最大的是（B）
A “E” B “y”
C “B” D “8”
18、將變量k四舍五入保留2位小數(shù)的表達(dá)式是（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．將數(shù)學(xué)表達(dá)式Cos2(a+b)+5e2寫成Visual Basic的表達(dá)式，其正確的形式是（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、在順序文件中，當(dāng)使用Write#語句時，文件打開的方式必須是（B）
A Output和Input B Output和Append
C Output D Append
三、程序分析題
1．以下語句的輸出結(jié)果是（注：■表示一個空格）
a = 123
b = 456
Print a; b
A）123■456 B）■123■456 C）■123■456■ D）■123■■456
【答案】D
2．下列程序執(zhí)行的結(jié)果為
x = -6 ^ 2
Print Sgn(x) + Abs(x) + Int(x)
A）－36 B）1 C）－1 D）－72
【答案】C
3．在窗體上畫一個名稱為Command1的命令按鈕，一個名稱為Label1的標(biāo)簽，然后編寫如下的事件過程：
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
程序運(yùn)行后，單擊命令按鈕，則標(biāo)簽中顯示的內(nèi)容為
A）1 B）5 C）27 D）45
【答案】B
4．在窗體上畫一個名稱為Command1的命令按鈕，一個名稱為Label1、Label2、Label3的標(biāo)簽，然后編寫如下的事件過程：
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
運(yùn)行程序后，連續(xù)三次單擊命令按鈕后，則三個標(biāo)簽中顯示的內(nèi)容分別是
A）10 10 10 B）30 30 30 C）30 30 10 D）10 30
【答案】C
5．在窗體上畫一個名稱為Command1的命令按鈕，一個名稱為Label1、Label2的標(biāo)簽，然后編寫如下的事件過程：
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
運(yùn)行程序后，則兩個標(biāo)簽中顯示的內(nèi)容分別是
A）5和3 B）25和3 C）25和6 D）5和6
【答案】B
6.下面程序段求兩個數(shù)中的大數(shù)，不正確的是
（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．下列程序段執(zhí)行結(jié)果為
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的值，計(jì)算分段函數(shù)f(x)，下面選項(xiàng)不正確的是
當(dāng) x＞=1， f(x)= ；
當(dāng)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．執(zhí)行完下面的程序段后，循環(huán)執(zhí)行了( )次。
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．下列程序段的執(zhí)行結(jié)果為( )。
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結(jié)構(gòu)是
（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語句共執(zhí)行了( )次循環(huán)。
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是一個數(shù)組，則使用正確的是______
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
程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是______
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
程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是______
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.設(shè)有如下程序：
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
程序運(yùn)行后，單擊窗體，則在窗體上顯示的是______
A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4
【答案】C
18．執(zhí)行以下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、設(shè)有語句
Open"c:\Test.Dat"For Output As#1
則以下錯誤的敘述是（B）
A）該語句打開C盤根目錄下一個已存在的文件Test.Dat
B）該語句在C盤根目錄下建立一個名為Test.Dat的文件
C）該語句建立的文件的文件號為1
D）執(zhí)行該語句后，就可以通過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
四、上機(jī)題
1．小王有存款A(yù)元，年利率為P,存儲時間為T年.請編寫一個程序計(jì)算本利合計(jì)。（A 、P、 T均使用Inputbox輸入）
2．求100以內(nèi)的素?cái)?shù)，素?cái)?shù)是指一個數(shù)x除了1和它本身，不能被其他任何整數(shù)整除。要求每行輸出10個素?cái)?shù)。
單擊窗體，運(yùn)行結(jié)果如圖所示：
答案
在單擊窗體的事件過程中添加代碼，程序代碼如下：
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以內(nèi)的素?cái)?shù)"
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個數(shù)
Next i
End Sub
評分標(biāo)準(zhǔn)：
1、正確給數(shù)組賦值 （2分）
2、正確判斷素?cái)?shù) （3分）
3、正確輸出顯示結(jié)果 （2分）
4、文件存盤 （2分）
5、程序結(jié)構(gòu)合理、清晰 （1分）
單項(xiàng)選擇題 判斷題 填空題 編程題
1) 下列程序運(yùn)行后，輸出的結(jié)果為______。
B=1
Do while (b40)
b=b*(b+1)
Loop
Print b
a) 42
b) 39
c) 6
d) 1 答案：A
2) 設(shè)執(zhí)行以下程序段時依次輸入1、3、5，執(zhí)行結(jié)果為_____。
Dim a(4) As Integer
Dim b(4) As Integer
For K =0 To 2
a(K+1) =Val(InputBox(“請輸入數(shù)據(jù)："))
b(3-K) =a(K+1)
Next K
Print b(K)
a) 1
b) 3
c) 5
d) 0 答案：A
3) 下列程序執(zhí)行后，變量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
程序運(yùn)行后，為了在窗體上輸出"Hello"，應(yīng)在窗體上執(zhí)行以下_______操作。
a) 同時按下 Shift 鍵和鼠標(biāo)左鍵
b) 同時按下 Shift 鍵和鼠標(biāo)右鍵
c) 同時按下Ctrl、Alt 鍵和鼠標(biāo)左鍵
d) 同時按下 Ctrl、Alt 鍵和鼠標(biāo)右鍵 答案：D
5) 當(dāng)變量x=2,y=5時，以下程序的輸出結(jié)果為____。
Do until y5
x=x*y
y=y+1
loop
print x
a) 2
b) 5
c) 10
d) 20 答案：C
6) 當(dāng)執(zhí)行以下程序時，在名為lblResult的標(biāo)簽框內(nèi)將顯示_____。
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) 整數(shù)15
c) 字符串5
d) 整數(shù)5 答案：A
7) 如下有一段不完整的程序段，如果要求該程序執(zhí)行3次循環(huán)，則應(yīng)在程序中的括號里輸入______。
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，則下列程序段執(zhí)行后整型變量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) 設(shè)有如下語句：
str1=inputbox("輸入","","練習(xí)")
從鍵盤上輸入字符串“示例”后，str1的值是___。
a) “輸入”
b) “”
c) “練習(xí)”
d) “示例” 答案：D
10) 我們在一個窗體上建立兩個文本框，名稱分別為Text1和Text2，事件過程如下，
Private Sub Text1_change( )
Text2.text=ucase(Text1.text)
End Sub
則在Text1文本框輸入“visual basic”，Text2將______。
a) Text2中無內(nèi)容顯示。
b) Text2顯示"VISUAL BASIC"。
c) Text2顯示"visual basic"
d) Text1顯示"visual basic" 答案：B
11) 下列程序的運(yùn)行后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) 下列程序的執(zhí)行結(jié)果是____。
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) 下列程序的執(zhí)行結(jié)果是_____。
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) 下列程序的執(zhí)行結(jié)果為_____。
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) 下列程序的執(zhí)行結(jié)果為_____。
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) 下列程序的執(zhí)行結(jié)果為_____。
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) 下列程序的執(zhí)行結(jié)果為________。
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) 下面程序執(zhí)行后，X的結(jié)果為_____。
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) 下面程序執(zhí)行的結(jié)果是____。
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) 下列循環(huán)語句將執(zhí)行______次。
A=100
Do
Print a
a=a+1
Loop until a=10
a) 1
b) 10
c) 100
d) 死循環(huán) 答案：D
21) 下面程序段的循環(huán)結(jié)構(gòu)執(zhí)行后， 的輸出值是_____。
程序段為：
For I=1 to 10 step 2
y=y+I
Next I
print I;
a) 25
b) 10
c) 11
d) 因?yàn)閅的初值不知道，所以不確定 答案：C
22) 寫列程序段的執(zhí)行結(jié)果____。
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) 以下語句輸出結(jié)果是（在立即窗口中）_____。
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
其循環(huán)執(zhí)行的次數(shù)為______。
a) 12
b) 13
c) 14
d) 15 答案：D
25) 有如下程序段，該程序執(zhí)行后，變量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) 執(zhí)行下列程序后，變量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) 執(zhí)行下列程序后，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) 執(zhí)行下列程序段后，整型變量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) 執(zhí)行完下面的程序段后，循環(huán)將執(zhí)行____次。
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) 有如下語句，執(zhí)行后該段語句的循環(huán)次數(shù)是_____。
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) 有如下程序，該程序?qū)_____。
For I=1 to 10 step 0
K=k+2
Next I
a) 形成無限循環(huán)。
b) 循環(huán)體執(zhí)行一此后結(jié)束循環(huán)。
c) 語法錯誤。
d) 循環(huán)體不執(zhí)行即結(jié)束循環(huán)。 答案：A
32) 有如下程序段，該程序段執(zhí)行完畢后，共循環(huán)了________。
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) 有如下程序，該程序的運(yùn)行結(jié)果為______。
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之間所有的偶數(shù)之和，請補(bǔ)充完該程序。
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) 以下是計(jì)算10的階乘的程序，請補(bǔ)充該程序。
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提供的一種專門的子程序，由對象本身所具有，反映該對象功能的內(nèi)部函數(shù)或過程。
a) 文件
b) 屬性
c) 方法
d) 窗體 答案：C
37) 剛建立一個新的標(biāo)準(zhǔn)EXE工程后，不在工具箱中出現(xiàn)的控件是_____。
a) 單選按鈕
b) 圖片框
c) 通用對話框
d) 文本框 答案：C
38) 下列各項(xiàng)不是Visual Basic的基本數(shù)據(jù)類型的是_____。
a) Char
b) String
c) Integer
d) Double 答案：A
39) 下列運(yùn)算結(jié)果中，值最大的是 ______。
a) 3\4
b) 3/4
c) 4 mod 3
d) 3 mod 4 答案：D
40) 以下不屬控件的一項(xiàng)是_____。
a) 文本框
b) 標(biāo)簽框
c) 列表框
d) 消息框 答案：D
41) 用InputBox函數(shù)可幫助生成_______。
a) 消息框
b) “保存”對話框
c) 簡單輸入框
d) “顏色”對話框 答案：C
42) ______對象不能響應(yīng)Click事件。
a) 列表框
b) 圖片框
c) 窗體
d) 計(jì)時器 答案：D
43) 17 mod 3的運(yùn)算結(jié)果是_____。
a) 0.5
b) 1
c) 1.5
d) 2 答案：D
44) 變量X=32769，則變量聲明時不能將其聲明為_____。
a) Intrger
b) Variant
c) Long
d) Single 答案：A
45) 表達(dá)式2*3^2+2*8/4+3^2的值為_____。
a) 64
b) 31
c) 49
d) 22 答案：B
46) 復(fù)選對象是否被選中，是由其_____屬性決定的。
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函數(shù)通過紅、綠、藍(lán)三基色混合產(chǎn)生某種顏色，其語法為RGB（紅、綠、藍(lán)），括號中紅、綠、藍(lán)三基色的成分使用0-255之間的整數(shù)。若使用3個滾動條分別輸入3種基色，為保證輸入數(shù)值有效，則應(yīng)設(shè)置_____屬性。
a) Max和Min
b) SmallChange和LargeChange
c) Scroll和Change
d) Value 答案：A
這有一份
VB期末考試試題 一、 填空題
1、VB程序設(shè)計(jì)的主要特點(diǎn)是 （1） 和 （2） 。
2、在VB中，最主要的兩種對象是 （3） 和 （4） 。
3、工程是構(gòu)成應(yīng)用程序文件的 （5） 。
4、方法是VB提供的一種 （6） ，用來完成一定的操作。
5、浮點(diǎn)類型數(shù)據(jù)包括單精度型和___（7）__數(shù)據(jù)。
6、事件是窗體或控件對象識別的___（8）____。
7、可用窗體的___（9）_ 方法在窗體中顯示文字。
8、 復(fù)選框控件Value屬性指示復(fù)選框處于____（10）___或禁止?fàn)顟B(tài)(暗淡的)中的某一種。
9、在VB中，修改窗體的 （11）和 （12） 屬性值，可改變窗體的大小。
10、雙擊工具箱中的控件圖標(biāo)，可在窗體的 （13） 出現(xiàn)一個尺寸為缺省值的控件。
11、在MsgBox函數(shù)中，如果缺省title參數(shù)，則使用 （14） 作為消息框的標(biāo)題。
12、設(shè)x＝34.58，語句Print Format(x,“000.0”)的輸出結(jié)果是 （15） 。
13、在VB 中，數(shù)值型變量的初值為 （16） ，Varant型變量的初值為 （17） ，布爾型變量的初值為 （18） 。
14、設(shè)置窗體的 （19） 屬性，可在窗體上顯示圖片。
15、程序運(yùn)行工程中，清除MP圖片框中的圖片應(yīng)使用語句 （20） 。
二、選擇題
1、菜單控件只包括一個事件，即 （1） ，當(dāng)用鼠標(biāo)單擊或鍵盤選中后按“回車”鍵時觸發(fā)該事件，除分隔條以外的所有菜單控件都能識別該事件。
A、GotFocus B、Load C、Click D、KeyDown
2、滾動條控件(如圖所示)的Max屬性所設(shè)置的是 （2） 。
A、滾動框處于最右位置時，一個滾動條位置的Value屬性最大設(shè)置值
B、 單擊滾動條和滾動箭頭之間的區(qū)域時，滾動條中滾動塊的最大移動量
C、單擊滾動條的箭頭區(qū)域時，滾動條中滾動塊的最大移動量
D、滾動條控件無該屬性
3、SQL 語句 Select * Form student 中的 *表示 （3） 。
A、所有記錄 B、所有字段 C、所有表 D、都不對
4、以下選項(xiàng)中，不屬于標(biāo)簽的屬性是 （4） 。
A、Enabled B、Caption C、Default D、Font
5、要求改命令按鈕顯示的文本，應(yīng)當(dāng)在屬性窗口中改變的屬性是 （5） 。
A、Caption B、Name C、Text D、Label
6、設(shè)置一個單選按鈕(OptionButton)所代表選項(xiàng)的選中狀態(tài)，應(yīng)當(dāng)在屬性窗口中改變的屬性是 （6） 。
A、Caption B、Name C、Text D、Value
7、允許在菜單項(xiàng)的左邊設(shè)置打勾標(biāo)記，下面哪種論述是正確的？ （7） 。
A、在標(biāo)題項(xiàng)中輸入，然后打勾 B、在索引項(xiàng)中打勾
C、在有效項(xiàng)中打勾 D、在復(fù)選項(xiàng)中打勾
8、當(dāng)執(zhí)行以下過程時，在窗體上將顯示 （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的結(jié)果為 （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、若要將窗體從內(nèi)存中卸載出去，其實(shí)現(xiàn)的方法是 （11） 。
A.Show B.Hide C.Load D.UnLoad
12、以下選項(xiàng)中，不是 Visual Basic控件的是 （12） 。
A.窗體 B.定時器 C.單選框 D.命令按鈕
13、雙擊窗體中的對象后，Visual Basic將顯示的窗口是 （13） 。
A.代碼窗口 B．工具箱 C．項(xiàng)目（工程）窗口 D．屬性窗口
14、可決定窗體的左上角是否有控制菜單的屬性是 （14） 。
A.ControlBox B.MinButton
C.MaxButton D.BorderStyle
15、設(shè)有如下語句：
Strl＝InputBox（"輸人"，""，"練習(xí)"）
從鍵盤上輸人字符 “示例”后，Strl的值是 （15） 。
A．“輸入” B．“ ” C．“練習(xí)” D．“示例”
16、窗體Form1的Name屬性是Frm1,它的單擊事件過程名是 （16） 。
A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click
17、窗體的hide屬性的含義是 （17） 。
A.隱藏 B.展現(xiàn) C.裝入 D.卸載
18、若要設(shè)置定時器控件的定時時間，需設(shè)置的屬性是 （18） 。
A．Enabled B．Value C．Interval D．Text
19、能夠改變復(fù)選框中背景顏色的屬性是 （19） 。
A．Value B．FontColor C．BackColor D．Font
20、窗體能響應(yīng)的事件是 （20） 。
A．ActiveForm B．Load C．Drive D．Change
三、判斷題(判斷下列正確與否，正確的打√，錯誤的打ⅹ。)
1、三種方式的組合框都允許用戶輸入哪些不在列表框中的選項(xiàng)。
2、圖象框中的Stretch屬性為true時，其作用是圖形自動調(diào)整大小以適應(yīng)圖象控件。
3、在菜單編輯器中使用“索引”時，可有一組菜單項(xiàng)具有相同的“名字”。
4、通過改變屬性窗口中的Name屬性，來改變窗體的標(biāo)題。
5、創(chuàng)建VB應(yīng)用程序的三個主要步驟是：(1)創(chuàng)建應(yīng)用程序界面(2)設(shè)置控件(3)編寫代碼。
6、變量是指在程序運(yùn)行過程中其值可以改變的那些量，而值不能改變的是常量。
7、已知P＝MsgBox(“Howareyou?"，VbYesNo+VbQuestion，“Hello!”)，變量P是Integer數(shù)據(jù)類型。
8、工程文件的擴(kuò)展名是 .vbg 。
9、VB允許設(shè)計(jì)和使用用戶自己設(shè)計(jì)的控件。
10、OptionButton控件沒有DblCliek事件。
11、同一條記錄中的各數(shù)據(jù)具有相同的類型。
12、使用Data控件可以直接顯示數(shù)據(jù)庫中的數(shù)據(jù)。
13、ImageList 是一個圖像容器控件，可用作工具欄的圖像庫。
14、當(dāng)用戶單擊工具欄按鈕時，將觸發(fā)工具欄按鈕的ButtonClick事件。
15、在VB的工程資源管理器中，如果從工程中移除已經(jīng)保存過的文件，該文件仍然被物理刪除（真正刪除）。
16、如果列表框的ListConut的屬性為10，則列表框最后一項(xiàng)的ListIndex值為10。
17、要是某個命令按鈕不起作用，應(yīng)將該按鈕的Enabeld屬性設(shè)置為False。
18、使用數(shù)組定義語句：Dim D$（10），則數(shù)組D中各元素的值為空。
19、如果在一行中輸入多條語句，各語句之間用使用 ；分隔。
20、在代碼窗口中輸入某行代碼并按回車鍵之后，如果代碼變成紅色，說明該行代碼有語法錯誤。
四、讀程序題，寫出程序運(yùn)行結(jié)果
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
運(yùn)行程序，第一次單擊窗體：
第二次單擊窗體：
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
程序運(yùn)行結(jié)果：
五、編程題
（一）窗體中有圖片框(Picture1)和計(jì)時器(Timer1)兩個控件，運(yùn)行程序時，將圖片加載到圖片框中，然后圖片框以每2秒鐘一次的速度向窗體的右下腳移動，每次向左、向右移動100twip（20分之一像素）。請?zhí)羁眨?/p>
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
（二）有一個單擊按鈕過程，其作用是產(chǎn)生50個60～100的隨機(jī)數(shù)，統(tǒng)計(jì)其中被6整除余2的個數(shù)，并將這些數(shù)輸出。請?zhí)羁眨?/p>
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程序設(shè)計(jì)與應(yīng)用》參考答案
一、填空題 1 2 3 4 5
答案 可視化設(shè)計(jì) 事件驅(qū)動編程 窗體（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
一、單項(xiàng)選擇題（共10分）
1．在代碼中引用一個控件時，應(yīng)使用控件的（B）屬性。
A．Caption B．Name C．Text D．Index
2．設(shè)變量x = 4，y = -1，a = 7，b = -8,下面表達(dá)式（A）的值為“假”。
A．x+a = b-y B． x 0 AND y 0
C．a(chǎn) = b OR xy D． x+y a+b AND NOT (y b)
3．表達(dá)式Int(Rnd*71)+10產(chǎn)生的隨機(jī)整數(shù)范圍是（C ）。
A．（10，80） B．（10，81） C．[10，80] D．[10，81]
4．函數(shù)Sgn(3.1416)的返回值是（C ）。
A．-1 B．0 C．1 D．以上都不對
5．67890屬于（ D ）類型數(shù)據(jù)。
A．整型 B．單精度浮點(diǎn)數(shù) 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．若要獲得列表框中被選中的列表項(xiàng)的內(nèi)容，可以通過訪問（D）屬性來實(shí)現(xiàn)。
A．Name B．ListIndex C．ListCount D．Text
10．下列代碼的運(yùn)行結(jié)果為（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．寫出整數(shù)n能同時被13和17整除的Basic表達(dá)n Mod 13=0 And n Mod 17=0式 。
2．代碼窗口中有兩個下拉列表框：左側(cè)是(對象)列表框，右側(cè)是過程列表框。
3．寫出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表達(dá)式LEFT(“Visual Basic 6.0”,6)。
4．函數(shù)Len(“abcdef”)的返回值是(6) 。
5．設(shè)a = 2，b = 5，c = -2，d = 100，則a b = c AND a b = d的值為False 。
三、將下列數(shù)學(xué)表達(dá)式轉(zhuǎn)換為VB表達(dá)式。（6分）
1．a(chǎn)2+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語句。
我在鄭州上學(xué)，這是我們的試卷，中原工學(xué)院經(jīng)管院大一的試題希望對你有用！
一、單項(xiàng)選擇題（共10分）
1．在代碼中引用一個控件時，應(yīng)使用控件的（ ）屬性。
A．Caption B．Name C．Text D．Index
2．設(shè)變量x = 4，y = -1，a = 7，b = -8,下面表達(dá)式（ ）的值為“假”。
A．x+a = b-y B． x 0 AND y 0
C．a(chǎn) = b OR xy D． x+y a+b AND NOT (y b)
3．表達(dá)式Int(Rnd*71)+10產(chǎn)生的隨機(jī)整數(shù)范圍是（ ）。
A．（10，80） B．（10，81） C．[10，80] D．[10，81]
4．函數(shù)Sgn(3.1416)的返回值是（ ）。
A．-1 B．0 C．1 D．以上都不對
5．67890屬于（ ）類型數(shù)據(jù)。
A．整型 B．單精度浮點(diǎn)數(shù) 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．若要獲得列表框中被選中的列表項(xiàng)的內(nèi)容，可以通過訪問（ ）屬性來實(shí)現(xiàn)。
A．Name B．ListIndex C．ListCount D．Text
10．下列代碼的運(yùn)行結(jié)果為（ ）。
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．寫出整數(shù)n能同時被13和17整除的Basic表達(dá)式 。
2．代碼窗口中有兩個下拉列表框：左側(cè)是 列表框，右側(cè)是過程列表框。
3．寫出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表達(dá)式 。
4．函數(shù)Len(“abcdef”)的返回值是 。
5．設(shè)a = 2，b = 5，c = -2，d = 100，則a b = c AND a b = d的值為 。
6．要使標(biāo)簽的大小自動與所顯示的文本相適應(yīng)，可以通過設(shè)置 屬性為True來實(shí)現(xiàn)。
7．若要在一行書寫多條語句，則各語句間應(yīng)加分隔符，Visual Basic的語句分隔符為 。
8．要強(qiáng)制顯式聲明變量，使用__________語句完成。
9．在VB中，用戶定義常量使用 語句，聲明變量使用 語句。
三、將下列數(shù)學(xué)表達(dá)式轉(zhuǎn)換為VB表達(dá)式。（6分）
1．a(chǎn)2+2ab+b2 __________________________
2． __________________________
3．8exln10 __________________________
4．2sin(450)cos(450) _______________________________
5． ___________________________________________
6． ___________________________________________
四、判斷題，正確打“√”，錯誤打“×”（10分）
1．在VB中，控件的事件只能通過用戶的操作觸發(fā)。（ ）
2．字符型數(shù)據(jù)以雙引號作為定界符，輸出時雙引號本身不會顯示在屏幕上。（ ）
3．保存工程時，窗體文件和工程文件的文件名不能相同。（ ）
4．改變控件的大小，可以使用鼠標(biāo)和鍵盤，還可以通過修改代碼。（ ）
5．同一過程中，數(shù)組和簡單變量可以同名。（ ）
6．VB函數(shù)中的參數(shù)可以是常量、變量、表達(dá)式，還可以是另一個函數(shù)。（ ）
7．代碼Const Number1=15：Number1=10合法。（ ）
8．允許將塊If-Then語句結(jié)構(gòu)中的所有語句都寫在一行上（ ）
9．定義數(shù)組語句Dim a(b) As Integer 是正確的（ ）
10．在過程調(diào)用中，“實(shí)參表”和“形參表”中對應(yīng)的變量名不必相同，但是變量的個數(shù)必須相等，而且實(shí)際參數(shù)的類型必須與相應(yīng)形式參數(shù)的類型相符。（ ）
五、根據(jù)題意，將下列程序補(bǔ)充完整。（16分）
1． 產(chǎn)生20個[10，100] 之間的隨機(jī)整數(shù)，每行輸出10個數(shù)據(jù)。
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．判斷一個數(shù)是否素?cái)?shù)
Private Sub command1_click()
x = InputBox("請輸入一個整數(shù)")
flag = 1
For i = 2 To （ )
If x Mod i = 0 Then
flag = 0
End If
Next i
If （ ）Then Print x; "是素?cái)?shù)" Else Print x; "不是素?cái)?shù)"
End Sub
4．利用數(shù)組輸出Fibonacci數(shù)列的前15項(xiàng)。
該數(shù)列的第1項(xiàng)和第2項(xiàng)為1，其余各項(xiàng)均為其前兩項(xiàng)之和。
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
六、寫出下面程序的輸出結(jié)果。（每題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．設(shè)有Sub過程：
Private Sub p1(x As Integer, ByVal y As Integer)
x = 4 ：y = 5 ：z = 6
End Sub
則如下程序段的運(yùn)行結(jié)果是:
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．設(shè)有Function過程:
Private Function f1(b, a)
a = a * a: b = b * b
f1 = a - b
End Function
則如下程序段的運(yùn)行結(jié)果是什么？
Private Sub command1_click()
a = 4: b = 3
a = f1(a, b)
Print a
End Sub
七．編程題（共30分）
注意：藝術(shù)類學(xué)生（環(huán)藝、裝潢、表演、服設(shè)）做第1、2、5、6小題；
其他學(xué)生做 第1、2、3、4 小題。
1．給出一個百分制的成績，要求輸出成績的相應(yīng)等級。（7分）
90分以上為“A”，80～89分為“B”，70～79分為“C”，60～69分為“D”，60分以下為“E”。
2．求n!,n由鍵盤輸入。（7分）
3．產(chǎn)生20個 [0，99] 之間的隨機(jī)整數(shù)，并按從小到大的順序輸出。（8分）
4．產(chǎn)生并輸出一個6×6的二維數(shù)組A：（8分）
（1）兩條對角線上元素的值為1，其余元素為小于30的隨機(jī)整數(shù)。
（2）計(jì)算各行元素的平均值，輸出平均值最大和平均值最小的行號。
5．輸出1+2+……+100的和，并求出1～100 之間能被17整除的數(shù)據(jù)的個數(shù)（8分）
6．從鍵盤輸入10個數(shù)，求出其中的最大數(shù)，最小數(shù)和平均值。（8分）
VB試題答案及評分標(biāo)準(zhǔn)
一、 單項(xiàng)選擇題（每題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
三、 將下列數(shù)學(xué)表達(dá)式轉(zhuǎn)換成VB表達(dá)式（每題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．√
五、 根據(jù)題意，將下列程序補(bǔ)充完整（每空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)
六、 寫出下面程序的輸出結(jié)果（每題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 “該學(xué)生成績?yōu)椤?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整數(shù)的數(shù)據(jù)有"; 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
重慶分公司
重慶分公司
