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