题型：填空题 题类：常考题 难易度：普通
浙教版信息技术基础期末练习卷
Private Sub Command1_Click()
Dim n As Integer，cj As Integer，s As String
n＝Val(Text1.Text)
cj＝
s＝”s＝”
Do While
If n<>4 Then
n＝n－3
cj＝cj*3
s＝s＋”3×”
Else
n＝n－2
cj＝cj*2
s＝s＋”2×”
End If
Loop
cj＝
If n＝3 Then s＝s＋”3” Else s＝s＋”2”
Text2.Text＝s
Text3.Text＝cj
End Sub
试题篮
