一、 單選題
1．在過程定義中用 ________表示形參的傳值。
A） Var
B） ByRef
C） ByVal
D） ByValue
2．若已經(jīng)編寫一個(gè)Sort子過程，在該工程中有多個(gè)窗體，為了方便調(diào)用Sort子程序，應(yīng)該將子過程放在 ________中。
A） 窗體模塊
B） 類模塊
C） 工程
D） 標(biāo)準(zhǔn)模塊
3．下面的子過程語句說明合法的是________。
A） Sub f1(ByVal n%())
B） Sub f1(n%) As Integer
C） Function f1%(f1%)
D） Function f1(ByVal n%)
4．要想從子過程調(diào)用后返回兩個(gè)結(jié)果，下面子過程語句說明合法的是________。
A） Sub f(ByVal n%, ByVal m%)
B） Sub f(n%, ByVal m%)
C） Sub f(ByVal n%, m%)
D） Sub f(n%, m%)
5．下面程序運(yùn)行的結(jié)果是 ________。
Private Sub Command1_Click()
Dim x%, y%
x = 12 : y = 34
Call f(x,y)
Print x,y
End Sub
Public Sub f1(n%,ByVal m%)
n = n Mod 10
m = m \ 10
End Sub
A） 2 34
B） 12 34
C） 2 3
D） 12 3
6．在窗體上畫一個(gè)名稱為Command1的命令按鈕，再畫兩個(gè)名稱分別為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)行后，單擊命令按鈕，則兩個(gè)標(biāo)簽中顯示的內(nèi)容分別是______。
A）5和3
B）25和3
C）25和6
D）5和6
7．下面程序運(yùn)行的結(jié)果是 ________。
Dim a% , b% , c%
Public Sub p1(x%, y%)
Dim c%
x = 2 * x : y = y + 2 : c = x + y
End Sub
Public Sub p2(x%, ByVal y%)
Dim c%
x = 2 * x : y = y + 2 : c = x + y
End Sub
Private Sub Command1_Click()
a = 2 : b = 4 : c = 6
Call p1(a, B）
Print "a = "；a ；"b = "；b ； "c = "；c
Call p2(a, B）
Print "a = "；a ；"b = "；b ； "c = "；c
End sub
A） a = 2 b = 4 c = 6
a = 4 b = 6 c = 10
B） a = 4 b = 6 c = 10
a = 8 b = 8 c = 16
C） a = 4 b = 6 c = 6
a = 8 b = 6 c = 6
D） a = 4 b = 6 c = 14
a = 8 b = 8 c = 6
8．下面程序運(yùn)行的結(jié)果是 ________。
Public Sub Proc(a%())
Static i%
Do
a(i) = a(i) + a(i+1)
i = i + 1
Loop While i < 2
End Sub
Private Command1_click()
Dim m% , i% , x%()
For i = 0 to 4 : x(i) = i + 1 : Next i
For i = 1 to 2 : Call Proc(x()) : Next i
For i = 0 to 4 : Print x(i) : Next i
End Sub
A） 3 4 7 5 6
B） 3 5 7 4 5
C） 2 3 4 4 5
D） 4 5 6 7 8
9.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：
Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X,Y
End Sub
程序運(yùn)行時(shí)，三次單擊命令按鈕Command1后，窗體上顯示的結(jié)果為______。
A）15 16
B）15 6
C）15 15
D）5 6
10. 下列敘述中正確的是______。
A）在窗體的Form_Load事件過程中定義的變量是全局變量
B）局部變量的作用域可以超出所定義的過程
C）在某個(gè)Sub過程中定義的局部變量可以與其它事件過程中定義的局部變量同名，但其作用域只限于該過程
D）在調(diào)用過程時(shí)，所有局部變量被系統(tǒng)初始化為0或空字符串
11 .以下關(guān)于變量作用域的敘述中，正確的是______。
A）窗體中凡被聲明為Private的變量只能在某個(gè)指定的過程中使用
B）全局變量必須在標(biāo)準(zhǔn)模塊中聲明
C）模塊級(jí)變量只能用Private關(guān)鍵字聲明
D）Static類型變量的作用域是它所在的窗體或模塊文件
12. 單擊一次命令按鈕之后，下列程序代碼的執(zhí)行結(jié)果為______。
Private Sub Command1_Click( )
S=P(1)+P(2)+P(3)+P(4)
Print S;
End Sub
Private Function P(N As Integer)
Static SUM
For I= 1 TO N
Sum=sum+1
Next I
P=SUM
End Function
A）135
B）115
C）35
D）20
13. 可以在窗體模塊的通用聲明段中聲明______。
A）全局變量
B）全局常量
C）全局?jǐn)?shù)組
D）全局用戶自定義類型
14. 設(shè)有如下通用過程：
Public Function f(x As Integer)
Dim y As Integer
x=20
y=2
f=x*y
End Function
在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Static x As Integer
x=10
y=5
y=f(x)
Print x;y
End Sub
程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是______。
A）10 5
B）20 5
C）20 40
D）10 40
15. 單擊命令按鈕時(shí)，下列程序代碼的執(zhí)行結(jié)果為______。
Dim a As integer,b As Integer,c As Integer
Private Sub Command1_Click( )
a=5:b=8:c=9
Call Proc1(a,B）
Print"a=";a;"b=";b;"c=";c
Call Proc2(a,B）
Print"a=";a;"b=";b;"c=";c
End Sub
Public Sub Proc1(x As Integer,y As Integer)
Dim c As Integer
x=2*x:y=y+2:c=x+y
End Sub
Public sub proc2(x As Integer,Byval y as Integer)
Dim c As Integer
x=2*x:y=y+2:c=x+y
End sub
A）a=20 b=10 c=9
a=10 b=10 c=9
B）a=10 b=10 c=9
a=20 b=10 c=9
C）a=10 b=10 c=9
a=10 b=10 c=9
D）a=20 b=20 c=9
a=20 b=10 c=9
16. 單擊命令按鈕時(shí)，下列程序代碼的執(zhí)行結(jié)果為______。
Public Sub Procl(n As Integer,ByVal m As Integer)
n=n Mod 10
m=m\10
End Sub
Private Sub Command1_Click( )
Dim x As Integer,y As Integer
x=23:y=65
Call Procl(x,y)
Print x;y
End Sub
A）3 65
B）23 65
C）3 60
D）0 65
17. 在窗體上畫一個(gè)名稱為Command1命令按鈕和三個(gè)名稱分別為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ù)三次單擊命令按鈕后，則三個(gè)標(biāo)簽中顯示的內(nèi)容分別是______。
A）10 10 10
B）30 30 30
C）30 30 10
D）10 30 30
18. 以下關(guān)于函數(shù)過程的敘述中，正確的是______。
A）函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系
B）在函數(shù)過程中，通過函數(shù)名可以返回多個(gè)值
C）當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞
D）如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型
19. 單擊窗體時(shí)，下列程序代碼的執(zhí)行結(jié)果為______。
Private Sub Form_Click()
Test 2
End Sub
Private Sub Test(x As Integer)
x=x*2+1
If x<6 Then
Call Test(x)
End If
x=x*2+1
Print x;
End Sub
A）5 11
B）23 47
C）10 22
D）23 23
20. 假定已定義了一個(gè)過程Sub Add(a As Single,b As Single)，則正確的調(diào)用語句是______。
A）Add 12,12
B）Call(2*x,Sin(1.57))
C）Call Add x,y
D）Call Add(12,12,x)
21. 一個(gè)工程中包含兩個(gè)名稱分別為Form1、Form2的窗體，一個(gè)名稱為Md1Func的標(biāo)準(zhǔn)模塊。假定在Form1、Form2和Md1Func中分別建立了自定義過程，其定義格式為：
Form1中定義的過程：
Private Sub frmFunction1()
……
End Sub
Form2中定義的過程：
Private Sub frmFunction2()
……
End Sub
mdlFunc中定義的過程：
Public Sub md1Function()
……
End Sub
在調(diào)用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是______。
A）上述三個(gè)過程都可以在工程中的任何窗體或模塊中被調(diào)用
B）frmFunction2和mdlFunction過程能夠在工程中各個(gè)窗體或模塊中被調(diào)用
C）上述三個(gè)過程都只能在各自被定義的模塊中調(diào)用
D）只有Md1Function過程能夠被工程中各個(gè)窗體或模塊調(diào)用
22. 在窗體上畫一個(gè)命令按鈕，名稱為Command1,然后編寫如下程序：
Function Func(ByVal x As Integer, y As Integer)
y = y * x
If y > 0 Then
Func = x
Else
Func = y
End If
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 3
b = 4
c = Func(a, B）
Print a;b;c
End Sub
程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為______。
A）3 4 12
B）3 4 3
C）3 12 3
D）3 12 12
23. 以下敘述中錯(cuò)誤的是______。
A）一個(gè)工程中可以包含多個(gè)窗體文件
B）在一個(gè)窗體文件中用Public定義的通用過程不能被其他窗體調(diào)用
C）窗體和標(biāo)準(zhǔn)模塊需要分別保存為不同類型的磁盤文件
D）用Dim定義的窗體層變量只能在該窗體中使用
24. 下面的過程定義語句中合法的是______。
A）Sub Procl(ByVal n())
B）Sub Procl(n) As Integer
C）Function Procl(Procl)
D）Function Procl(ByVal n)
25. 設(shè)有如下通用過程：
Public Function Fun(xStr As String) As String
Dim tStr As String, strL As Integer
tStr = ""
strL = Len(xStr)
i = 1
Do While i <= strL / 2
tStr = tStr & Mid(xStr, i, 1) & Mid(xStr, strL - i + 1, 1)
i = i + 1
Loop
Fun = tStr
End Function
在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下的事件過程：
Private Sub Command1_Click()
Dim S1 As String
S1 = "abcdef"
Text1.Text = UCase(Fun(S1))
End Sub
程序運(yùn)行后，單擊命令按鈕，則Text1中顯示的是______。
A）ABCDEF
B）abcdef
C）AFBECD
D）DEFABC
26. 在窗體上畫1個(gè)命令按鈕，編寫代碼如下。程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為______。
Private Sub Command1_Click()
Dim a(10) As Integer
Dim x As Integer
For i=1 To 10
a(i)=8+i
Next
x=2
Print a(f(x)+x)
End Sub
Function f(x As Integer)
x=x+3
f=x
End Function
A）12
B）15
C）17
D）18
27. 在過程中定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值，則使用______關(guān)鍵字在過程中定義局部變量。
A）Dim
B）Private
C）Public
D）Static
28. 以下正確的描述是：在Visual Basic應(yīng)用程序中______。
A）過程的定義可以嵌套，但過程的調(diào)用不能嵌套。
B）過程的定義不可以嵌套，但過程的調(diào)用可以嵌套。
C）過程的定義和過程的調(diào)用均可以嵌套。
D）過程的定義和過程的調(diào)用均不能嵌套。
29. 有子過程語句說明：Sub fSum(sum%,ByVal m%,ByVal n%),
且在事件過程中有如下變量說明：Dim a%,b%,c!
則下列調(diào)用語句中正確的是______。
A）fsum a,a,b
B）fsum 2,3,4
C）fsum a+b,a,b
D）Call fsum (c,a,B）
30. 有如下程序，其運(yùn)行的結(jié)果是______。
Public Function f(m%,n%)
Do While m<>n
Do while m>n : m=m-n : Loop
Do while m Loop
F=m
End Function
Private Sub Command1_Click( )
Print f(24,18)
End Sub
A）0
B） 2
C）3
D）6
31. 假定有如下的Sub過程：
Sub S(x As Single,y As Single)
t = x
x =t/y
y =t Mod y
End Sub
在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：
Private Sub Commandl_Click ( )
Dim a As Single
Dim b As Single
a =5
b =4
S a,b
Print a,b
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為______ 。
A） 5 4
B） 1 1
C） 1.25 4
D） 1.25 1
32. 假定有以下兩個(gè)過程：
Sub S1(ByVal x As Integer,ByBal y As Integer)
Dim t As Integer
t=x : x=y : y=t
End Sub
Sub S2(x As Integer, y As Integer)
Dim t As Integer
t=x : x=y : y=t
End Sub
則以下說法中正確的是______。
A）用子過程S1可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作，S2不能實(shí)現(xiàn)
B）用子過程S2可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作，S1不能實(shí)現(xiàn)
C）用子過程S1和S2都可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作
D）用子過程S1和S2都不能實(shí)現(xiàn)交換兩個(gè)變量的值的操作
33. 閱讀程序：
Sub subP(b( ) As Integer)
For i =1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Commandl_Click()
Dim a(1 To 4)As Integer
a (1)=5: a (2)=6: a (3)=7: a (4)=8
subP a ()
For i =1 To 4
Print a(i);
Next i
End Sub
運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為 ______。
A）2 4 6 8
B）5 6 7 8
C）10 12 14 16
D）出錯(cuò)
34. 在窗體上畫一個(gè)名稱為Command1 的命令按鈕，然后編寫如下事件過程；
Private Sub Command1_Click()
Static x As Integer
Cls
For i = 1 To 2
y = y + x
x = x + 2
Next
Print x, y
End Sub
程序運(yùn)行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示的是______。
A）4 2
B）12 18
C）12 30
D）4 6
35. 閱讀程序：
Function F(a As Integer)
b = 0
Static c
b = b+1
c = c+1
f = a+b+c
End Function
Private Sub Commandl_Click ()
Dim a As Integer
a =2
For i =1 To 3
Print F(A）;
Next i
End Sub
運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為 ______。
A） 4 4 4
B） 4 5 6
C） 4 6 8
D） 4 7 9
36. 假定有下面的過程：
Function Func(a As Integer,b As Integer)As Integer
Static m As Integer,i As Integer
m=0
i=2
i=i+m+1
m=i+a+b
Func=m
End Function
在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim k As Integer,m As Integer
Dim p As Integer
k=4
m=1
p=Func(k,m)
Print p;
p=Func(k,m)
Print p
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為___________。
A）8 17
B）8 16
C）8 20
D）8 8
37. 在過程調(diào)用中，參數(shù)的傳遞可以分為______和按地址傳遞兩種方式。
A）按值傳遞
B）按地址傳遞
C）按參數(shù)傳遞
D）按位置傳遞
38. 單擊窗體時(shí)，下列程序代碼的執(zhí)行結(jié)果為______。
Private Sub Value(ByVal m As Integer, ByVal n As Integer)
m = m - n: n = n + 3
Print m; n
End Sub
Private Sub Form_click()
Dim x As Integer, Y As Integer
x = 5: Y = 6
Call Value(x, Y)
Print x; Y
End Sub
A）-1 9
-1 9
B）5 6
5 6
C）-1 9
5 6
D）9 -1
5 6
39. 要想在過程調(diào)用后返回兩個(gè)結(jié)果，下面的過程定義語句合法的是______。
A）Sub Procl(ByVal n,ByVal m)
B）Sub Procl(n,ByVal m)
C）Sub Procl(n,m)
D）Sub Procl(ByVal n,m)
40. 在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為Text1的文本框，然后編寫如下程序：
Private Sub Command1_Click()
Dim x,y,z As Integer
x = 5
y = 7
z = 0
Text1.Text = ""
Call P1(x,y,z)
Text1.Text = Str(z)
End Sub
Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)
c = a + b
End Sub
程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是______。
A）0
B）12
C）Str(z)
D）沒有顯示
41. 在窗體上畫一個(gè)名稱為Comman1的命令按鈕，并編寫如下程序：
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x = 10
y = 5
Call f1(x, y)
Print x, y
End Sub
Private Sub f1(x1 As Integer, y1 As Integer)
x1 = x1 + 2
y1 = y1 + 2
End Sub
程序運(yùn)行后，單擊命令按鈕，在窗體上顯示內(nèi)容是______。
A）10 5
B）12 5
C）10 7
D）12 7
42. 函數(shù)過程F1 的功能是：如果參數(shù)b為奇數(shù)，則返回值為1，否則返回值為0 ，以下能正確實(shí)現(xiàn)上述功能的代碼是______。
A）Function F1 (b As Integer)
If b Mod 2= 0 Then
Return 0
Else
Return 1
Endif
End Function
B）Function F1 (b As Integer)
If b Mod 2=0 Then
F1=0
Else
F1=1
Endif
End Function
C）Function F1 (b As Integer)
If b Mod 2 =0 Then
F1 =1
Else
F1= 0
End if
End Function
D）Function F1 (b As Iinteger)
If b Mod 2<>0 Then
Return 0
Else
Return 1
End if
End Function
43. 在窗體上畫一個(gè)命令按鈕，名稱為Command1,然后編寫如下程序：
Function Func(ByVal x As Integer, y As Integer)
y = y * x
If y > 0 Then
Func = x
Else
Func = y
End If
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 3
b = 4
c = Func(a, B）
Print a;b;c
End Sub
程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為______。
A）3 12 3
B）3 4 3
C）3 4 12
D）3 12 12
44. 假定有以下函數(shù)過程：
Function Fun(S As String)As String
Dim s1 As String
For i = 1 To Len(S)
s1 = UCase(Mid(S,i,1))+s1
Next i
Fun = s1
End Function
在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = InputBox("請(qǐng)輸入一個(gè)字符串")
Str2 = Fun(Str1)
Print Str2
End Sub
程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串"abcdefg"，則單擊“確定”按鈕后在窗體上的輸出結(jié)果為______。
A）abcdefg
B）ABCDEFG
C）gfedcba
D）GFEDCBA
45. 單擊命令按鈕時(shí),下列程序代碼的執(zhí)行結(jié)果為______。
Private Function FirProc(x As Integer,y As Integer,z As Integer)
FirProc=2*x+y+3*z
End Function
Private Function SecProc(x As Integer,y As Integer,z As Integer)
SecProc=FirProc(z,x,y)+x
End Function
Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
A=2:b=3:c=4
Print SecProc(c,b,A）
End Sub
A）21
B）19
C）17
D）34
二、 填空題
1. 閱讀下面程序，子過程Swap的功能是實(shí)現(xiàn)兩個(gè)數(shù)的交換，請(qǐng)將程序填寫完整。
Public Sub Swap(x As Integer, y As Integer)
Dim t As Integer
t = x : x = y : y = t
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 10 : b = 20
【1】
Print "a = "; a , "b ="; b
End Sub
2. 下列程序中，fac是求n!的遞歸函數(shù)，請(qǐng)將程序填寫完整。
Public Function fac(n As Integer)
If n = 1 Then fac = 1
Else fac = 【2】
End If
End Sub
3．如下程序，運(yùn)行的結(jié)果是 【3】 ，函數(shù)過程的功能是 【4】 。
Public Function f(ByVal n% , ByVal r%)
If n <> 0 Then
f = f(n\r，r)
Print n Mod r；
End If
End Function
Private Sub Command1_Click()
Print f(100，8)
End Sub
4．如下程序，運(yùn)行的結(jié)果是 【5】 ，函數(shù)過程的功能是 【6】 。
Public Function f(m% , m%)
Do While m <> n
Do While m > n ：m = m – n ：Loop
Do While m < n ：n = n – m ：Loop
Loop
f = m
End Function
Private Sub Command1_Click()
Print f(24，18)
End Sub
5．兩質(zhì)數(shù)的差為2，稱此對(duì)質(zhì)數(shù)為質(zhì)數(shù)對(duì)，下列程序，是找出100以內(nèi)的質(zhì)數(shù)對(duì)，并成對(duì)顯示結(jié)果。其中IsP是判斷m是否為質(zhì)數(shù)的函數(shù)過程。
Public Function IsP(m%) As Boolean
Dim i%
【7】
For i = 2 to Int(Sqr(m))
If 【8】 Then IsP = False
Next i
End Function
Private Sub Command1_Click()
Dim i%
p1 = IsP(3)
For i = 5 to 100 step
p2 = IsP(i)
If 【9】 Then Print i-2；i
p1 【10】
Next i
End Sub
6．統(tǒng)計(jì)輸入的文章中單詞數(shù)，并將出現(xiàn)的定冠詞The全部去除，同時(shí)統(tǒng)計(jì)刪除定冠詞的個(gè)數(shù)。假定單詞以一個(gè)空格間隔。
Public Sub PWord(s% ,CountWord% ,CountThe%)
Dim len%，i%，st$
CountWord = 0 ：CountThe = 0
st = Trim(s)
【11】
Do While i > 0
CountWord = CountWord + 1
st = 【12】
i = InStr(st，" ")
Loop
CountWord = CountWord + 1
st = Trim(s)
【13】
Do While i > 0
CountThe = CountThe + 1
st = 【14】
i = InStr(st，"The")
Loop
【15】
End Sub
7．全局變量必須在__【16】__模塊中定義，所用的語句為__【17】__。
8．設(shè)有以下函數(shù)過程：
Function Fun (m as Integer) As Integer
Dim k As Integer, Sum As Integer
Sum =0
For k = m To 1 Step -2
Sum =Sum +k
Next k
Fun =Sum
End Function
若在程序中用語句 s =fun(10)調(diào)用此函數(shù)，則s的值為 【18】 。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
C D D D A B C B B C B D A C B
16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
A C A B A D C B D C D D B A D
31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
D B A B B D A C C B D B A D A
二、填空題
【1】 Swap a,b 【2】 n * fac(n-1)
【3】 1 4 4 【4】 用遞歸函數(shù)實(shí)現(xiàn)將十進(jìn)制數(shù)以r進(jìn)制顯示
【5】 6 【6】 用碾轉(zhuǎn)相減法求m、n的公約數(shù)
【7】 IsP = True 【8】 m Mod i = 0
【9】 p1 AND p2 【10】 = p2
【11】 i = InStr(st，" ") 【12】 Mid(st，i+1)
【13】 i = InStr(st，"The") 【14】 Left(st，i-1)+ Mid(st，i+4)
【15】 s = st 【16】 標(biāo)準(zhǔn)
【17】 Public 【18】 30