试题 试卷
题型：单选题 题类： 难易度：普通
新疆伊犁哈萨克自治州霍城县2023-2024学年高一上学期信息技术10月月考试卷
图1
图2
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
试题篮
