15/2/2007
Public Class frmMain
Private Sub Ex1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ex1ToolStripMenuItem.Click
Dim frm1 As New Ex1
frm1.Show()
End Sub
Private Sub Ex2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ex2ToolStripMenuItem.Click
Dim frm2 As New Ex2
frm2.Show()
End Sub
Private Sub Ex3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ex3ToolStripMenuItem.Click
Dim frm3 As New Ex3
frm3.Show()
End Sub
End Class
--------------------------
Public Class Ex1
Private Sub cmdEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnd.Click
End
End Sub
Private Sub cmdCompare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCompare.Click
Dim mark1 As Integer
Dim mark2 As Integer
mark1 = txtMark1.Text
mark2 = txtMark2.Text
If mark2 > mark1 Then
lblResult.Text = "Mark2 is higher"
End If
If mark2 = mark1 Then
lblResult.Text = "Mark1 = Mark2"
End If
If mark1 > mark2 Then
lblResult.Text = "Mark1 is higher"
End If
End Sub
Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClear.Click
txtMark1.Text = ""
txtMark2.Text = ""
End Sub
End Class
--------------------------
Public Class Ex2
Private Sub cmdCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCheck.Click
Dim Fare As Decimal
Fare = txtFare.Text
If Fare <= 9.9 Then
lblResult.Text = "Sorry,you have no Discount"
End If
If Fare >= 10 Then
lblResult.Text = "You can obtain 5%-10% Discount"
End If
End Sub
Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClear.Click
txtFare.Text = ""
lblResult.Text = ""
End Sub
End Class
-----------------
Public Class Ex3
Private Sub cmdCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCheck.Click
Dim member As String
Dim age As Integer
member = txtMember.Text
age = txtAge.Text
If member = "yes" And age < 18 Then
lblResult.Text = "$20.00"
Else
lblResult.Text = "$50.00"
End If
End Sub
Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClear.Click
txtMember.Text = ""
txtAge.Text = ""
lblResult.Text = ""
End Sub
End Class
==================================================
Public Class Name_and_title
Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click
Dim Name, Message As String
