题型：综合题 题类：模拟题 难易度：普通
浙江省2019年信息技术选考模拟试卷五
Private Sub Command1_Click()
Dim n, k, i ,sAs Integer
s = Val(Text1.Text) : k = 2
Do While n < s
For i = 1 To k \ 2
If k Mod i = 0 Then
If (m + i) Mod 2 = 0 And (m - i) Mod 2 = 0 Then
n = n + 1
Exit For
End If
End If
Next i
k = k + 1
Loop
Label2.Caption = "第" + Text1.Text + "个好数是" +
End Sub
试题篮
