题型：综合题 题类：常考题 难易度：普通
浙江省温州新力量联盟2019-2020学年高一下学期信息技术期中联考试卷
Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
Dim mid As Integer
n = Val(Text1.Text)
If ① Then
Text2.Text = "输入错误，请输入偶数！"
Else
mid = n \ 2 + 1
s = ""
For i = 2 To n
If i = n Then
s = s + "2"
Else
s = s + ② + "，"
End If
Next i
③
End If
End Sub
① ② ③
试题篮
