Public Class Multiplication
Dim a, b, d As Integer
Dim c As String = ""
Private Sub btnSum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSum.Click
a = ComboBox2.SelectedItem
b = ComboBox1.SelectedItem
TextBox1.Text = ""
For i As Integer = 0 To b
c = a & " * " & i & " = "
d = a * i
c &= d
TextBox1.Text &= c & Chr(13) & Chr(10)
Next
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
TextBox1.Text = ""
End Sub
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
Me.Close()
End Sub
ไม่มีความคิดเห็น:
แสดงความคิดเห็น