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
