三、代码设计

通过代码窗口编辑程序代码，以下是抽车牌程序的代码设置方法。

提示

① 各个事件过程的起始语句和结束语句是自动生成的，不必输入。

② 以单引号引导的是注释内容，由关键字Rem引导的语句为注释语句，可以不输入。

1．双击TextBox1文本框，进入代码窗口，编写并输入如下所示的事件过程代码。

    Private Sub TextBox1_TextChanged（ByVal sender As System.Object，
      ByVal e As System.EventArgs）Handles TextBox1.TextChanged
      TextBox1.Text = UCase（TextBox1.Text）     '将输入的字母转换成大写
    End Sub

2．单击“Form1.vb[设计]”选项卡，切换到设计器窗口。双击Form1窗体，编写并输入如下所示的事件过程代码。

    Private Sub Form1_Load（ByVal sender As System.Object，
      ByVal e As System.EventArgs）Handles MyBase.Load
      Randomize（）                      '将Rnd函数的随机数生成器初始化
    End Sub

3．双击Timer1定时器，进入代码窗口，编写并输入如下所示的事件过程代码。

    Private Sub Timer1_Tick（ByVal sender As System.Object，
      ByVal e As System.EventArgs）Handles Timer1.Tick
      REM随机产生一个中奖号码
      Dim x As Long
      x = Int（Rnd（）＊ 10000）               '随机产生0～9999之间的整数
      Label3.Text = TextBox1.Text & Format（x，"00000"）
    End Sub

提示：Rnd函数产生[0，1）之间的双精度随机数。默认情况下，由于Visual Basic提供了相同的种子值，每次运行时产生相同序列的随机数。在使用Rnd函数之前，执行Randomize语句，将提供一个新的种子值，产生不同的随机数。

4．双击Button1命令按钮，进入代码窗口，编写并输入如下所示的事件过程代码。

    Private Sub Button1_Click（ByVal sender As System.Object，
      ByVal e As System.EventArgs）Handles Button1.Click
      If Button1.Text = "开始" Then
        Timer1.Enabled = True               '启用定时器
        Label3.ForeColor = Color.White      '设置字体颜色为白色
        Button1.Text = "停止"                '设置命令按钮上显示"停止"字样
      Else
        Timer1.Enabled = False              '禁用定时器
        Label3.ForeColor = Color.Red        '设置字体颜色为红色
        Button1.Text = "开始"                '设置命令按钮上显示"开始"字样
        TextBox1.Focus（）                    '将光标放到TextBox1文本框中
      End If
    End Sub

注意：“If Button1.Text = "开始" Then”等语句中双引号是字符串的定界符，需在西文状态下输入。

5．在代码窗口的对象栏选择Button2，在事件过程栏选择Click事件，编写并输入如下所示的事件过程代码。

    Private Sub Button2_Click（ByVal sender As Object，ByVal e As
      System.EventArgs）Handles Button2.Click
      End                                    '结束程序运行
    End Sub

提示

进入代码窗口的方法有：

①“视图”→“代码窗口”命令；

② 右击对象→“查看代码”命令；

③ 双击对象；

④ 按F7键；

⑤单击“解决方案资源管理器”窗口的“查看代码”按钮。

选择事件过程的方法有：

① 双击对象；

② 在代码窗口中选择对象、然后选择事件。