麗山50-4

 

 

 

Public Class Form1
    Dim i, a, b
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If a Mod 9 <> 0 Then
            b = "此數不被九整除"
        Else
            b = "此數可被九整除"
        End If
        a = Val(TextBox1.Text)
        Label1.Text = b

    End Sub
End Class