二、代码设计

程序用到4个变量，分别存放初始速度、初始高度、时间和高度，并将重力加速度定义为常量，单击“计算”按钮进行计算。初始速度、初始高度和时间由文本框输入，使用If…Then语句判断输入的数据是否正确。

单击“计算”按钮的事件过程代码为：

    Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As
      System.EventArgs）Handles Button1.Click
      Const G As Single = 9.8                   '声明符号常量
      Dim h，h0，v0，t As Single                '定义变量
      h0 = Val（TextBox1.Text）                  '将数字字符串转换成数值
      v0 = Val（TextBox2.Text）
      t = Val（TextBox3.Text）
      If t >= 0 And h0 >= 0 And v0 >= 0 Then    '判断输入数据是否在正确范围
        h = h0 + v0 ＊ t -1.0 / 2 ＊ G ＊（t ^ 2）
      Else
        MsgBox（"数据不正确，请重新输入"，vbExclamation，"提示"）
                                              '使用系统常量vbExclamation
        TextBox1.Focus（）                        '将光标定位在文本框TextBox1内
      EndIf
        Label5.ForeColor = Color.Blue
        Label5.Text = h
      End Sub

单击“退出”按钮的事件过程代码为：

    Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As
      System.EventArgs）Handles Button1.Click
      Exit
    End Sub

提示：（1）If…Then…Else语句是双分支结构语句，当If后的表达式值为True时，执行Then后面的分支语句，若表达式的值为False，则执行Else后的分支语句。

（2）MsgBox用于输出数据，它会在屏幕上显示一个对话框。它可以向用户传递信息，并可通过用户在对话框上的选择接收用户所做的响应，作为程序继续执行的依据。

（3）不能以下标形式命名v0变量，但可以命名为V0。

试一试

1．编写一个程序，具有以下功能：输入半径后，计算圆周长、圆面积、圆球表面积和圆球体积。要求将π定义为符号常量。定义一个变量存储半径，用文本框输入，再用4个标签分别显示4个计算量。

提示：圆周长 = 2πr，圆面积 = πr2，圆球表面积 = 4πr2，圆球体积 = 。

2．编写一个程序，具有以下功能：输入弧度值，将弧度换算为角度值（度、分、秒）的形式，然后输出。

3．编写一个程序，实现以下功能：输入一个ASCII码（32～126），显示对应的字符；输入一个字符，显示其ASCII码。

提示：输入的ASCII码值使用整型变量存储，转换为字符型输出；输入的字符用字符型变量存储，用Asc函数求其ASCII码值。

4．编写一个程序，实现以下功能：输入一个不超过5位的整数，输出其各个数字的和。

提示：输入整数x，除以10的余数即为这个数的个位数，整除10000得到万位数，如

    a = x Mod 10
    b = x\10 Mod 10     '整除10后再除以10取余数，得到十位数