2012年江蘇省信息技術(shù)專題練習(xí)：VB程序（5）
發(fā)布：2024/4/20 14:35:0
一、解答題（共5小題，滿分0分）
-
1．打開(kāi)“考生文件夾\178\工程1．vbp”，完善程序并保存。
實(shí)現(xiàn)功能：用遞歸法求3!+5!+7!的值。
'請(qǐng)不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③．填寫(xiě)正確的代碼，使程序完善
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 （ ?。?br />Dim S As Integer
S=Fac（3）+Fac（③）+Fac（7）
Print“S=“& CStr（S）
End Sub。組卷：2引用：1難度：0.5
一、解答題（共5小題，滿分0分）
-
4．打開(kāi)“考生文件夾\175\工程1．vbp”，完善程序并保存。
實(shí)現(xiàn)功能：用遞歸法求1+2+3+…+100的值。
'請(qǐng)不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③．填寫(xiě)正確的代碼，使程序完善
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．打開(kāi)“考生文件夾\68\工程1．vbp”，完善程序并保存。
實(shí)現(xiàn)功能：在文本框Text1和Text2中分別輸入兩個(gè)整數(shù)，單擊“交換”按鈕后，兩個(gè)文本框中的數(shù)字進(jìn)行交換。
''請(qǐng)不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③、④．填寫(xiě)正確的代碼，使程序完善
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