求助各路大神幫忙VB編程！

Private Sub Command1_Click()

m = Val(InputBox("輸入壹個整數（100～999）"))

n = Val(InputBox("輸入壹個整數（100～999）"))

If m >= 100 And m <= 999 And n >= 100 And n < 999 And m < n Then

For i = m To n

For j = 2 To i - 1

If i Mod j = 0 Then Exit For

Next

If j = i Then

Print i;

k = k + 1

If k Mod 5 = 0 Then Print

End If

Next

Else

MsgBox "輸入不正確"

End If

End Sub

上一篇:捷豹XJL無鑰匙進入要多拉幾次門才能開是怎麽回事

下一篇:我在學VB，怎麽學數據庫？從哪入手比較容易入門？