2009年1月23日 星期五

99-9





Public Class Form1
Dim i, n
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
n = Val(TextBox1.Text)
For i = 1 To n
If i Mod 13 = 0 Then
TextBox2.Text = TextBox2.Text & i & " "
End If
Next
End Sub
End Class

1 則留言: