VB上机练习题(二).doc

VB上机练习题(二)18、新建一个工程，完成应用程序的设计，具体要求如下：1. 按照图11所示在窗体上放置按钮和控件；2. 在两个列表框控件的list中输入一些内容；3. 单击“”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项；4. 单击“”按钮时，把list1中选中的一项放到list2中，并且在list1中删除该项；6. 单击“”按钮时，把list1中所有的项放到list2中，并且清空list1；7. 单击“结束”按钮时，退出应用程序。图15Private Sub Command1_Click()If List1.ListIndex = -1 Then MsgBox 请选择一项再按键！Else List2.AddItem List1.Text List1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Command2_Click()Do Until List1.ListCount = 0 List2.AddItem List1.List(0) List1.RemoveItem 0LoopEnd SubPrivate Sub Command3_Click()Do Until List2.ListCount = 0 List1.AddItem List2.List(0) List2.RemoveItem 0LoopEnd SubPrivate Sub Command4_Click()If List2.ListIndex = -1 Then MsgBox 请选择一项再按键！Else List1.AddItem List2.Text List2.RemoveItem List2.ListIndexEnd IfEnd SubPrivate Sub Command5_Click()EndEnd Sub19、新建一个工程，完成“收款计算”程序的设计，具体要求如下：1. 按照图16所示在窗体上放置控件；2. 窗体上有三个文本框，上面两个分别用于输入商品单价和商品数量，单击“计算”，将应付款显示在最下面一个文本框中；3. 最下面一个文本框（应付款）不能直接输入；4. 单击“清除”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。图16Private Sub Command1_Click()Text1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd SubPrivate Sub Command2_Click()Dim x, y, sum!x = Val(Text1.Text)y = Val(Text2.Text)sum = x * yText3.Text = CStr(sum)End SubPrivate Sub Form_Load()Text3.Enabled = FalseEnd Sub20、新建一个工程，完成应用程序的设计，具体要求如下：1. 如图17所示，在窗体上放置一个水平滚动条、一个标签框和一个命令按钮；2. 滚动条状态发生改变时，标签上的文字可以左右移动，文字移动范围等于滚动条的范围。图17Private Sub Command1_Click()EndEnd SubPrivate Sub Form_Load()HScroll1.Max = 6000HScroll1.Min = 0HScroll1.LargeChange = 40HScroll1.SmallChange = 10End SubPrivate Sub HScroll1_Change()Label1.Left = HScroll1.ValueEnd Sub21、新建一个工程，完成应用程序的设计，具体要求如下：1. 按照图18所示在窗体上放置控件；2. 4个单选按钮分别用于显示星期、年份、月份和日期；3. 选中某个单选按钮时，在文本框中显示当天对应的日期信息；4. 单击“结束”命令该按钮时，退出应用程序。图18Private Sub Option1_Click()If Option1.Value = True ThenText1.Text = WeekdayName(Weekday(Now)End IfEnd SubPrivate Sub Option2_Click()If Option2.Value = True ThenText1.Text = Year(Now)End IfEnd SubPrivate Sub Option3_Click()If Option3.Value = True ThenText1.Text = Month(Now)End IfEnd SubPrivate Sub Option4_Click()If Option4.Value = True ThenText1.Text = Day(Now)End IfEnd Sub22、新建一个工程，完成“计算平均成绩”应用程序的设计，具体要求如下：1. 按照图19所示在窗体上放置控件；2. 在输入或修改单科成绩的同时计算平均分，即在高数、英语和计算机文本框内容发生改变时，就要立即重新计算平均分，并将计算结果在“平均成绩”文本框中显示；3. “平均成绩”文本框不允许编辑，即不能手工修改；4. 各单科成绩文本框中只能输入数字，不能输入字母或汉字，否则给出错误提示。图19Dim a, b, c, sum!Private Sub Form_Load()Text4.Enabled = FalseEnd SubPrivate Sub Text1_Change()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)sum = a + b + cText4.Text = CStr(sum)End SubPrivate Sub Text2_Change()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)sum = a + b + cText4.Text = CStr(sum)End SubPrivate Sub Text3_Change()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)sum = a + b + cText4.Text = CStr(sum)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii 57 Then MsgBox 请输入数字！End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii 57 Then MsgBox 请输入数字！End SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)If KeyAscii 57 Then MsgBox 请输入数字！End Sub23、设计一个秒表模拟程序，按下“开始”按钮，屏幕显示当前时间；按下“结束”按钮，屏幕显示结束时间和持续时间；按下“退出”按钮，结束程序。图20Dim a As Date, b As DatePrivate Sub Command1_Click()a = NowText1.Text = Format(Now, HH:MM:SS)End SubPrivate Sub Command2_Click()b = NowText2.Text = Format(Now, HH:MM:SS)Text3.Text = Format(a - b, HH:MM:SS)End SubPrivate Sub Command3_Click()EndEnd Sub24、设计一个用来控制文本框中信息格式的程序，界面如图21所示：图21Private Sub Check1_Click(Index As Integer)If Check1(0).Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfIf Check1(1).Value = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfIf Check1(2).Value = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Option1_Click(Index As Integer)Select Case Index Case 0 Text1.FontSize = 14 Case 1 Text1.FontSize = 12 Case Else Text1.FontSize = 8End SelectEnd SubPrivate Sub Option2_Click(Index As Integer)Select Case Index Case 0 Text1.ForeColor = vbRed Case 1 Text1.ForeColor = vbGreen Case Else Text1.ForeColor = vbBlueEnd SelectEnd Sub25、新建一个工程，完成“字幕闪烁”程序的设计，程序界面如图22所示，具体要求如下：1. 窗体的标题为“字幕闪烁”，固定边框；2. 在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、“粗体”、“二号”，文字颜色为“红色”，格式设置为水平居中对齐；3. 单击“开始”按钮（Command1），标签文字在定时器控制下自动交替以红蓝两种颜色显示，同时“开始”按钮变为“停止”按钮；4. 单击“停止”按钮，标签文字停止闪烁，同时“停止”按钮变为“开始”按钮；5. 定时器（Timer1）的时间间隔为0.3秒。图22Private Sub Command1_Click()If Command1.Caption = 开始 Then Command1.Caption = 停止Else Command1.Caption = 开始End IfIf Command1.Caption = 开始 Then Timer1.Enabled = FalseIf Command1.Caption = 停止 Then Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Label1.ForeColor = vbRedLabel1.Left = (Form1.Width - Label1.Width) / 2Command1.Caption = 开始Timer1.Enabled = FalseTimer1.Interval = 300End SubPrivate Sub Timer1_Timer()If Label1.ForeColor = vbRed Then Label1.ForeColor = vbBlueElse: Label1.ForeColor = vbRedEnd IfEnd Sub26、新建一个工程，完成“字幕滚动”程序的设计，程序界面如图23所示，具体要求如下：1. 窗体的标题为“字幕滚动”，固定边框；2. 在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、“粗体”、“二号”，文字颜色为“红色”；3. 单击“开始”按钮，标签文字在定时器控制下自动地从左向右移动，移动速度为每个时间间隔右移100缇。当标签移动到窗体外时，再从窗体的左边进入，同时“开始”按钮变为“停止”按钮；4. 单击“停止”按钮，标签“祝您考试成功”文字停止滚动，同时“停止”按钮变为“开始”按钮；5. 定时器（Timer1）的时间间隔为0.1秒。图23Private Sub Command1_Click()If Command1.Caption = 开始 Then Command1.Caption = 停止Else: Command1.Caption = 开始End IfIf Command1.Caption = 开始 Then Timer1.Enabled = FalseIf Command1.Caption = 停止 Then Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Label1.ForeColor = vbRedCommand1.Caption = 开始Label1.Left = (Form1.Width - Label1.Width) / 2Timer1.Enabled = FalseTimer1.Interval = 100End SubPrivate Sub Timer1_Timer()If Label1.Left 1000 x = x * 1.35 Option1(0).Value = True Case 800 To 1000 x = x * 1.25 Option1(1).Value = True Case Else x = x * 1.15 Option1(2).Value = TrueEnd SelectText2.Text = CStr(x)End Sub33、设计一个“家电提货单”管理程序，程序运行界面如下图所示。具体要求如下：1. 单击“确定”后，根据选择的内容将清单及总价在列表框中列出。2. “清除”按钮用于清空列表框中的项目。3. 所有文本框只接受数字。图30Private Sub Command1_Click()Dim a1, a2, a3, a4, a5, a, t1, t2, t3, t4, t5, ts%t1 = Val(Text1.Text)t2 = Val(Text2.Text)t3 = Val(Text3.Text)t4 = Val(Text4.Text)t5 = Val(Text5.Text)If Check1.Value = 1 Then a1 = 3580 * t1 msg1 = 彩电 & CStr(t1) & 台 & vbCrLfEnd IfIf Check2.Value = 1 Then a2 = 660 * t2 msg2 = 微波炉 & CStr(t2) & 台 & vbCrLfEnd IfIf Check3.Value = 1 Then a3 = 1850 * t3 msg3 = 电冰箱 & CStr(t3) & 台 & vbCrLfEnd IfIf Check4.Value = 1 Then a4 = 2880 * t4 msg4 = DVD & CStr(t4) & 台 & vbCrLfEnd IfIf Check5.Value = 1 Then a5 = 5500 * t5 msg5 = 空调 & CStr(t5) & 台 & vbCrLfEnd Ifa = a1 + a2 + a3 + a4 + a5ts = t1 + t2 + t3 + t4 + t5msg6 = 共： & CStr(ts) & 台 & 合计金额： & CStr(a) & 元msg =