试题 试卷
题型:单选题 题类:常考题 难易度:容易
浙江省绍兴市诸暨中学2014-2015学年第高一下学期期中考试信息技术试题
Private Sub Command1_Click()
Dim n As Integer,cj As Integer,s As String
n=Val(Text1.Text)
cj={#blank#}1{#/blank#}
s=”s=”
Do While {#blank#}2{#/blank#}
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={#blank#}3{#/blank#}
If n=3 Then s=s+”3” Else s=s+”2”
Text2.Text=s
Text3.Text=cj
End Sub
试题篮