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
good!
回覆刪除