2022年VB上机练习题 .pdf

《2022年VB上机练习题 .pdf》由会员分享，可在线阅读，更多相关《2022年VB上机练习题 .pdf（21页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1 VB 上机练习题 ( 二) 18、新建一个工程，完成应用程序的设计，具体要求如下：1.按照图 11 所示在窗体上放置按钮和控件；2.在两个列表框控件的list中输入一些内容；3.单击“ ”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项；4.单击“ ”按钮时，把list1中选中的一项放到list2中，并且在list1中删除该项；6.单击“ ”按钮时，把list1中所有的项放到list2中，并且清空list1；7.单击“结束”按钮时，退出应用程序。图 15 Private Sub Command1_Click() If List1.ListIndex = -1 T

2、hen MsgBox 请选择一项再按键！ Else List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End If End Sub Private Sub Command2_Click() Do Until List1.ListCount = 0 List2.AddItem List1.List(0) List1.RemoveItem 0 Loop End Sub Private Sub Command3_Click() Do Until List2.ListCount = 0 名师归纳总结 精品学习资料 - - - - - -

3、 - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 1 页，共 21 页 - - - - - - - - - 2 List1.AddItem List2.List(0) List2.RemoveItem 0 Loop End Sub Private Sub Command4_Click() If List2.ListIndex = -1 Then MsgBox 请选择一项再按键！ Else List1.AddItem List2.Text List2.RemoveItem List2.ListIndex End If

4、End Sub Private Sub Command5_Click() End End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 2 页，共 21 页 - - - - - - - - - 3 19、新建一个工程，完成“收款计算”程序的设计，具体要求如下：1.按照图 16 所示在窗体上放置控件；2.窗体上有三个文本框，上面两个分别用于输入商品单价和商品数量，单击“计算” ，将应付款显示在最下面一个文本框中；3.最下面一个文本框（应付款）不能直接输入；4

5、.单击“清除”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。图 16 Private Sub Command1_Click() Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus End Sub Private Sub Command2_Click() Dim x, y, sum! x = Val(Text1.Text) y = Val(Text2.Text) sum = x * y Text3.Text = CStr(sum) End Sub Private Sub Form_Load() Text3.Enabled = Fal

6、se End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 3 页，共 21 页 - - - - - - - - - 4 20、新建一个工程，完成应用程序的设计，具体要求如下：1. 如图 17 所示，在窗体上放置一个水平滚动条、一个标签框和一个命令按钮；2. 滚动条状态发生改变时，标签上的文字可以左右移动，文字移动范围等于滚动条的范围。图 17 Private Sub Command1_Click() End End Sub Private Sub For

7、m_Load() HScroll1.Max = 6000 HScroll1.Min = 0 HScroll1.LargeChange = 40 HScroll1.SmallChange = 10 End Sub Private Sub HScroll1_Change() Label1.Left = HScroll1.Value End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 4 页，共 21 页 - - - - - - - - - 5 21、新建一个

8、工程，完成应用程序的设计，具体要求如下：1.按照图 18 所示在窗体上放置控件；2.4 个单选按钮分别用于显示星期、年份、月份和日期；3.选中某个单选按钮时，在文本框中显示当天对应的日期信息；4.单击“结束”命令该按钮时，退出应用程序。图 18 Private Sub Option1_Click() If Option1.Value = True Then Text1.Text = WeekdayName(Weekday(Now) End If End Sub Private Sub Option2_Click() If Option2.Value = True Then Text1.Text

9、 = Year(Now) End If End Sub Private Sub Option3_Click() If Option3.Value = True Then Text1.Text = Month(Now) End If End Sub Private Sub Option4_Click() If Option4.Value = True Then Text1.Text = Day(Now) End If End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - -

10、 - - 第 5 页，共 21 页 - - - - - - - - - 6 22、新建一个工程，完成“计算平均成绩”应用程序的设计，具体要求如下：1.按照图 19 所示在窗体上放置控件；2.在输入或修改单科成绩的同时计算平均分，即在 高数 、英语 和 计算机 文本框内容发生改变时，就要立即重新计算平均分，并将计算结果在“平均成绩”文本框中显示；3.“平均成绩”文本框不允许编辑，即不能手工修改；4.各单科成绩文本框中只能输入数字，不能输入字母或汉字，否则给出错误提示。图 19 Dim a, b, c, sum! Private Sub Form_Load() Text4.Enabled = Fa

11、lse End Sub Private Sub Text1_Change() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) sum = a + b + c Text4.Text = CStr(sum) End Sub Private Sub Text2_Change() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) sum = a + b + c Text4.Text = CStr(sum) End Sub Private Sub Text3_Ch

12、ange() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) sum = a + b + c Text4.Text = CStr(sum) End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 6 页，共 21 页 - - - - - - - - - 7 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 The

13、n MsgBox 请输入数字！ End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then MsgBox 请输入数字！ End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then MsgBox 请输入数字！ End Sub 23、 设计一个 秒表模拟程序，按下“开始”按钮，屏幕显示当前时间；按下“结束”按钮，屏幕显示结束时间和持续时间；按下“退出”按钮，结束程序。图 20 Dim a As Date, b As

14、Date Private Sub Command1_Click() a = Now Text1.Text = Format(Now, HH:MM:SS) End Sub Private Sub Command2_Click() b = Now Text2.Text = Format(Now, HH:MM:SS) Text3.Text = Format(a - b, HH:MM:SS) End Sub Private Sub Command3_Click() End End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料

15、- - - - - - - - - - - - - - - 第 7 页，共 21 页 - - - - - - - - - 8 24、设计一个用来控制文本框中信息格式的程序，界面如图21 所示：图 21 Private Sub Check1_Click(Index As Integer) If Check1(0).Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If If Check1(1).Value = 1 Then Text1.FontItalic = True Else Text1.FontItal

16、ic = False End If If Check1(2).Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 Text1.FontSize = 14 Case 1 Text1.FontSize = 12 Case Else Text1.FontSize = 8 End Select End Sub Private Sub Opt

17、ion2_Click(Index As Integer) Select Case Index 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 8 页，共 21 页 - - - - - - - - - 9 Case 0 Text1.ForeColor = vbRed Case 1 Text1.ForeColor = vbGreen Case Else Text1.ForeColor = vbBlue End Select End Sub 名师归纳总结 精品学习资料 -

18、 - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 9 页，共 21 页 - - - - - - - - - 10 25、新建一个工程，完成“字幕闪烁”程序的设计，程序界面如图22 所示，具体要求如下：1. 窗体的标题为“字幕闪烁”，固定边框；2. 在属性窗口中将标签（Label1 ）的标题设为 “祝您考试成功”，字体设置为 “宋体” 、“粗体”、“二号”，文字颜色为“红色”，格式设置为水平居中对齐；3. 单击“开始”按钮（Command1 ），标签文字在定时器控制下自动交替以红蓝两种颜色显示，同时

19、“开始”按钮变为“停止”按钮；4. 单击“停止”按钮，标签文字停止闪烁，同时“停止”按钮变为“开始”按钮；5.定时器（ Timer1 ）的时间间隔为0.3 秒。图 22 Private Sub Command1_Click() If Command1.Caption = 开始 Then Command1.Caption = 停止 Else Command1.Caption = 开始 End If If Command1.Caption = 开始 Then Timer1.Enabled = False If Command1.Caption = 停止 Then Timer1.Enabled =

20、True End Sub Private Sub Form_Load() Label1.ForeColor = vbRed Label1.Left = (Form1.Width - Label1.Width) / 2 Command1.Caption = 开始 Timer1.Enabled = False Timer1.Interval = 300 End Sub Private Sub Timer1_Timer() If Label1.ForeColor = vbRed Then Label1.ForeColor = vbBlue Else: Label1.ForeColor = vbRed

21、 End If End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 10 页，共 21 页 - - - - - - - - - 11 26、新建一个工程，完成“字幕滚动”程序的设计，程序界面如图23 所示，具体要求如下：1.窗体的标题为“字幕滚动”，固定边框；2.在属性窗口中将标签（Label1 ）的标题设为 “祝您考试成功” ，字体设置为 “宋体”、“粗体”、 “二号”，文字颜色为“红色” ；3.单击“开始”按钮，标签文字在定时器控制下自动地从左向右移

22、动，移动速度为每个时间间隔右移100 缇。当标签移动到窗体外时，再从窗体的左边进入，同时“开始”按钮变为“停止”按钮；4.单击“停止”按钮，标签“祝您考试成功”文字停止滚动，同时“停止”按钮变为“开始”按钮；5.定时器（ Timer1 ）的时间间隔为0.1 秒。图 23 Private Sub Command1_Click() If Command1.Caption = 开始 Then Command1.Caption = 停止 Else: Command1.Caption = 开始 End If If Command1.Caption = 开始 Then Timer1.Enabled = F

23、alse If Command1.Caption = 停止 Then Timer1.Enabled = True End Sub Private Sub Form_Load() Label1.ForeColor = vbRed Command1.Caption = 开始 Label1.Left = (Form1.Width - Label1.Width) / 2 Timer1.Enabled = False Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() If Label1.Left 1000 x = x * 1.35 Opti

24、on1(0).Value = True Case 800 To 1000 x = x * 1.25 Option1(1).Value = True Case Else x = x * 1.15 Option1(2).Value = True End Select Text2.Text = CStr(x) End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 19 页，共 21 页 - - - - - - - - - 20 33、设计一个“家电提货单”管理程

25、序，程序运行界面如下图所示。具体要求如下：1.单击“确定”后，根据选择的内容将清单及总价在列表框中列出。2.“清除”按钮用于清空列表框中的项目。3.所有文本框只接受数字。图 30 Private 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

26、a1 = 3580 * t1 msg1 = 彩电 & CStr(t1) & 台 & vbCrLf End If If Check2.Value = 1 Then a2 = 660 * t2 msg2 = 微波炉 & CStr(t2) & 台 & vbCrLf End If If Check3.Value = 1 Then a3 = 1850 * t3 msg3 = 电冰箱 & CStr(t3) & 台 & vbCrLf End If If Check4.Value = 1 Then a4 = 2880 * t4 msg4 = DVD & CStr(t4) & 台 & vbCrLf End If

27、 If Check5.Value = 1 Then a5 = 5500 * t5 msg5 = 空调 & CStr(t5) & 台 & vbCrLf End If a = a1 + a2 + a3 + a4 + a5 ts = t1 + t2 + t3 + t4 + t5 msg6 = 共： & CStr(ts) & 台 & 合计金额： & CStr(a) & 元 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 20 页，共 21 页 - - - - - - - -

28、 - 21 msg = msg1 + msg2 + msg3 + msg4 + msg5 + msg6 Text6.Text = msg End Sub Private Sub Command2_Click() Check1.Value = 0 Check2.Value = 0 Check3.Value = 0 Check4.Value = 0 Check5.Value = 0 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End Sub Private Sub Text1_KeyPr

29、ess(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 End If End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 21 页，共 21 页 - - - - - - - - -