Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim m, d, c As Integer
m = TextBox1.Text
d = TextBox2.Text
TextBox3.Text = (m * 2 + d) Mod 3
c = (m * 2 + d) Mod 3
Select Case c
Case c = 0
TextBox3.Text = "普通"
Case c = 1
TextBox3.Text = "吉"
Case c = 2
TextBox3.Text = "大吉"
End Select
End Sub
End Class c的數字是對的 但跑不出中文 是整麼回事?