VB作业提

来源：百度知道 编辑：UC知道 时间：2024/06/05 21:13:24
1.
编写某市公用电话收费程序，程序运行界面如图2-10所示。收费标准为：通话时间在3分钟以下，收费0.5元；3分钟以上，则每超过一分钟加收0.15元；在7:00～19:00之间通话，按上述收费标准全价收费，在其它时间通话者，一律按收费标准的半价收费。
要求程序运行后，点击“开始通话”按钮，在文本框text1中以hh:mm:ss的形式显示通话开始的时间，点击“结束通话”按钮，在文本框text2中，以hh:mm:ss的形式显示通话结束的时间，点击“计费”按钮，在text3中显示通话的 分钟数，在text4中显示通话的费用，点击“清楚”按钮，清楚全部数据。

注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk2-07.vbp，窗体文件名为vbxk2-07.frm，文件夹名为vbxk2-07。

上传附件
文件 操作

满分：25 分
2.
编写一个用户界面如图2-8所示的列表框应用程序。
要求从文本框Text1中输入始发地名称，然后按“添加”按钮，把该名称添加到列表框List1中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。

图 2-8

注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk2-05.vbp，窗体文件名为vbxk2-05.frm，文件夹名为vbxk2-05。

上传附件
文件 操作

Private Sub Command1_Click()    '添加按钮

  Me.List1.AddItem (Me.Text1.Text)     '向list1中添加text1中的数据

End Sub

Private Sub Command2_Click()    '删除按钮

  Dim i

  For i = List1.ListCount - 1 To 0 Step -1

     If List1.List(i) = Me.List1.Text Then List1.RemoveItem i

  Next

End Sub

Private Sub Command3_Click()    '修改按钮

  Dim i

  If Me.Command3.Caption = "修改" Then

     Me.Text1.Text = Me.List1.Text

     Me.Command3.Caption = "修改确认"

  Else

    For i&nbs