二、事件过程代码

程序代码如下。

    Dim sum As Single
    Private Sub Form1_Load（ByVal sender As System.Object，ByVal e As
      System.EventArgs）Handles MyBase.Load
      Label1.Text = "名称                    单价         数量           金额"
      sum = 0                       '为变量sum赋初值，用于保存合计金额
    End Sub
    '单击"购买"按钮
    Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As
      System.EventArgs）Handles Button1.Click
      Dim s As Single
      If IsNumeric（TextBox2.Text）And IsNumeric（TextBox3.Text）Then
        Label2.Text = Label2.Text & TextBox1.Text & vbCrLf
        Label3.Text = Label3.Text & Format（Val（TextBox2.Text），"###.00"）& vbCrLf
                                    'Format函数控制输出显示两位小数
        Label4.Text = Label4.Text & Val（TextBox3.Text）& vbCrLf
        s = Val（TextBox2.Text）＊ Val（TextBox3.Text）
        sum = sum + s               '将计算出的金额累加到变量sum中
        Label5.Text = Label5.Text & Format（s，"$##，###.00"）& vbCrLf
                                    '控制输出格式为数字前加$符号，并加千分位
      Else
        If Not IsNumeric（TextBox2.Text）Then
        TextBox2.Focus（）
        Else
        TextBox3.Focus（）
        End If
      End If
    End Sub
    '单击“合计”按钮
    Private Sub Button2_Click（ByVal sender As System.Object，ByVal e As
      System.EventArgs）Handles Button2.Click
      '使用Now返回系统的当前日期和时间
        Label2.Text=Label2.Text & vbCrLf & "合计" & vbCrLf & "日期："& Format（Now，"d"）
        Label5.Text = Label5.Text & vbCrLf & Format（sum，"$###，###.00"）
    End Sub
    '单击"计算器"按钮
    Private Sub Button3_Click（ByVal sender As System.Object，ByVal e As
      System.EventArgs）Handles Button3.Click
        Dim f As Integer
        f = Shell（"c:\windows\System32\calc.exe"，AppWinStyle.NormalFocus）
                                              '运行计算器程序
    End Sub

试一试

1．编写一个显示成绩单的程序。输入课程名称和成绩后，单击“显示”按钮，检查成绩是否是数字，若是数字，则显示课程名称和成绩；否则清除成绩，将焦点移到“成绩”文本框，重新输入。“成绩”文本框中最多输入3位数字。单击“清除”按钮，清除窗体上显示的课程名称和成绩，并清除“课程名称”和“成绩”文本框中的内容。如图2-11“显示成绩单”程序界面所示。

图2-11 “显示成绩单”程序界面

2．编写一个程序，具有以下功能：在文本框中输入文本文件的文件名和路径，单击“记事本”按钮，运行Windows的“记事本”应用程序，并打开文本文件。单击“画图”按钮，运行Windows的“画图”应用程序，并且使窗口最大化。如图2-12“运行应用程序”程序界面所示。

图2-12 “运行应用程序”程序界面

提示：查找“画图”应用程序的文件名和路径的方法是：选择“开始”→“所有程序”→“附件”，将鼠标指向“画图”选项并右键单击，选择“属性”命令，在“快捷方式”选项卡中查看目标文件名和路径。