visual studio notes -1

作業二
Public Class b123123 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click Tb3.Text = Val(Tb1.Text) + Val(Tb2.Text) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2.Click Tb3.Text = Val(Tb1.Text) - Val(Tb2.Text) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3.Click Tb3.Text = Val(Tb1.Text) * Val(Tb2.Text) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4.Click Tb3.Text = Val(Tb1.Text) / Val(Tb2.Text) End SubEnd Class

作業一Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load L1.Text = "您好!! XXXXXXX" L1.ForeColor = Color.Navy L1.Font = New Font("細明體", 12, FontStyle.Regular) End Sub Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click L1.Font = New Font("細明體", 18, FontStyle.Regular) End Sub Private Sub B2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2.Click L1.Font = New Font("細明體", 9, FontStyle.Regular) End Sub Private Sub B3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3.Click L1.Font = New Font(L1.Font.Name, L1.Font.Size, _L1.Font.Style Or FontStyle.Bold) End Sub Private Sub B4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4.Click L1.Font = New Font(L1.Font.Name, L1.Font.Size, _L1.Font.Style Or FontStyle.Italic) End Sub Private Sub B5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5.Click L1.ForeColor = Color.Navy L1.Font = New Font("細明體", 12, FontStyle.Regular) End Sub