2012年江蘇省信息技術專題練習：VB程序（5）
發布：2024/4/20 14:35:0
一、解答題（共5小題，滿分0分）
-
1．打開“考生文件夾\178\工程1．vbp”，完善程序并保存。
實現功能：用遞歸法求3!+5!+7!的值。
'請不要更改源程序的結構，刪除原題里的①、②、③．填寫正確的代碼，使程序完善
Public Function Fac（a As Integer） As Integer
If a=1Then
Fac=①
Else
Fac=a*②（a-1）
End If
End Function
Private Sub Command1_Click （ ）
Dim S As Integer
S=Fac（3）+Fac（③）+Fac（7）
Print“S=“& CStr（S）
End Sub。組卷：2引用：1難度：0.5
一、解答題（共5小題，滿分0分）
-
4．打開“考生文件夾\175\工程1．vbp”，完善程序并保存。
實現功能：用遞歸法求1+2+3+…+100的值。
'請不要更改源程序的結構，刪除原題里的①、②、③．填寫正確的代碼，使程序完善
Public Function S（n As Integer） As Integer
If n=1Then
S=①
Else
S=②+S（n-1）
End If
End Function
Private Sub Command1_Click （ ）
Dim Sum As Integer
Sum=S（③）
Print“Sum=“& CStr（Sum）
End Sub。組卷：2引用：1難度：0.5 -
5．打開“考生文件夾\68\工程1．vbp”，完善程序并保存。
實現功能：在文本框Text1和Text2中分別輸入兩個整數，單擊“交換”按鈕后，兩個文本框中的數字進行交換。
''請不要更改源程序的結構，刪除原題里的①、②、③、④．填寫正確的代碼，使程序完善
Private Sub Command1_Click （ ）
Dim a As Integer
Dim b As Integer
Dim t As Integer
a=Val（Text1．Text）
b=Val（Text2．Text）
t=a
a=①
b=②
Text1．Text=③
Text2．Text=④
End Sub。組卷：2引用：1難度：0.6