(12分)修改 VB 程序,使其具有下列功能: 1 、单击“通话开始”按钮,则在“开始时间”右侧的文本框中显示开始时间,且“通话结束”命令按钮变为可用,“通话开始”命令按钮变为不可用; 2 、如果单击“通话结束”按钮,则在“结束时间”右侧的文本框中显示结束时间,同时计算机通话费用,并将其显示在“通话费用”右侧的文本框中,“通话开始”命令按钮变为可用,“通话结束”命令按钮变为不可用; 3 、计时收费的标准是:通话时间在 3 分钟以内时,收费 0.5 元; 3 分钟以上时,每超过 1 分钟加收 0.15 元,不足 1 分钟按 1 分钟计算。 如下图 2 所示。 图 2 打开 “试题二”文件夹中的工程文件“ test2.vbp ”,完成下列操作。 1 、打开“试题二”文件夹下的“ code1.txt ”文件,复制全部代码到窗体的合适事件中。( 1 分) 2 、分别在代码中的123456处填写一句完整的代码(填写完成后,删除标号和注释符,不得修改其他部分的代码),以让程序正确执行。调试并运行程序。(每空 4 分,共 24 分) 3 、保存窗体文件和工程文件,生成可执行文件“ test2.exe ”并保存到“试题二”文件夹下。 Private Sub Cmd1_Click() = Str(Time()) '(1) Text1(1).Text = "": Text1(2).Text = "" Cmd1.Enabled = False Cmd2.Enabled = True End Sub Private Sub Cmd2_Click() Text1(1).Text = Str(Time()) t_start = Hour(Text1(0).Text) * 3600 + Minute(Text1(0).Text) * 60 + Second(Text1(0).Text) t_end = Hour(Text1(1).Text) * 3600 + Minute(Text1(1).Text) * 60 + Second(Text1(1).Text) t = ’ (2) m = t \ 60 If Then m = m + 1 ‘(3) s = 0.5 If m - 3 > 0 Then s = s + *0.15 ‘(4) End If Text1(2).Text = Str(s) + "元" ‘(5) ‘(6) End Sub