1、必做题：在每道题正确无误后保存为结果文件（*.exe），以自己的姓名加学号后两位进行命名，然后提交作业）

运费计算实例.计算规则如下所示：

50km以内: 运费=运量(t)*距离(km)*1(元)

50~100km: 运费=运量(t)*距离(km)*0.8(元)

101~300km:运费=运量(t)*距离(km)*0.6(元)

300km以上:运费=运量(t)*距离(km)*0.5(元)
设计界面如下：

运行界面：

具体代码提示：

Private Sub Command1_Click()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = False
End Sub

Private Sub Command2_Click()
Dim x!, l!, f!
x = Val(Text1)
l = Val(Text2)
If l <= 50 Then
    f = x * l * 1
ElseIf l <= 100 Then
    f = x * l * 0.8
ElseIf l <= 300 Then
    f = x * l * 0.6
Else
    f = x * l * 0.5
End If
    Text3 = Format(f, "###.00")
End Sub
    
Private Sub Command3_Click()
   End
End Sub

2、附加题（选做题，请有能力的同学完成下面的任务）

请在文本框中分别输入年和月份后，单击“显示天数”后在label标签上显示出X年X月有多少天？

注意：闰年的判断条件：每4年一个闰年"这说法不严谨。应该是四年一闰，百年不闰，四百年再闰，即计算机的术语是能整除4且不能整除100或能整除400。

设计界面如下所示：

代码提示：

Private SubCommand1_Click()

Dim y%, m%, d%

y =Val(Text1.Text)

m =Val(Text2.Text)

    Select Case m

    Case 1, 3, 5, 7, 8, 10, 12

       d = 31

    Case 4, 6, 9, 11

       d = 30

    Case 2

       If (y Mod 4 = 0 And y Mod 100<> 0) Or (yMod 400 = 0) Then

          d = 29

        Else

           d = 28

        End If

    Case Else

       MsgBox ("你输入的有误，请重新输入！")

       Text1.Text = ""

       Text2.Text = ""

    End Select

       If m <= 12 and m>=1 Then

          Label1.Caption = y & "年" & m & "月有" & d & "天"

       End If

End Sub