VB期末上机练习题及参考答案.doc

1、VB 后半学期练习题109VB 本科期末上机练习及参考答案1、 编制通用函数过程，计算 1+2+N 的值。在窗体的 Click 事件中调用该函数。参考答案 1：Private Function sum(n As Integer) As longDim i As IntegerFor i = 1 To nsum = sum + iNext iEnd FunctionPrivate Sub Form_Click()Print sum(100)End Sub2、 编制通用函数过程，计算 N！的值。在窗体的 Click 事件中调用该函数。参考答案 2：Private Function fact(n A

2、s Integer) As DoubleDim i As Integerfact = 1For i = 1 To nfact = fact * iNext iEnd FunctionPrivate Sub Form_Click()Print fact(5)End Sub3、 编制通用函数过程，用于判断 1 个整数是否为素数，若是则显示 true，若不是则显示 false。在窗体的 Click 事件中调用该函数。参考答案 3：Private Function prime(n As Integer) As BooleanDim i As IntegerIf n Int(Sqr(n) Thenpri

3、me = TrueElseprime = FalseEnd IfEnd IfEnd FunctionPrivate Sub Form_Click()Print prime(4),prime(7)End Sub4、 编制一个判断奇偶数的 Function 函数过程。在窗体的 Click 事件中调用该函数，输入一个整数，判断其奇偶性。参考答案 4：Private Function odd(n As Integer) As BooleanIf n Mod 2 = 0 Then odd = FalseElseodd = TrueEnd ifEnd FunctionPrivate Sub Form_Cl

4、ick()Prime odd(4),odd(5)End Sub5、 新建一个工程，完成“密码检验”程序的设计。参照运行时界面完成界面设计。具体要求如下：（1）文本框 Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受 7 个字符。（2）窗体的下半部有一个标签控件 Label2，用来显示密码输入后的提示信息。（3）当在文本框中输入密码“1234567”，并按回车后，标签 Label2 显示为“欢迎光临！”；如果输入的密码与“1234567”不吻合，标签 Label2 显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234

5、567”不吻合，标签 Label2 显示为“非法用户，请退出程序！”，文本框就不能使用了。参考答案 5：Private Sub Form_Load()Label1.Caption = “输入密码后按回车“ & Chr(13) & Chr(10) & “(提示密码：1234567)“Text1.PasswordChar = “*“Text1.MaxLength = 7End SubVB 后半学期练习题2Private Sub text1_keypress(keyascii As Integer)Static n As IntegerIf keyascii = 13 ThenIf Text1.Te

6、xt = “1234567“ ThenLabel2.Caption = “欢迎光临！“Label1.Visible = FalseText1.Visible = FalseElsen = n + 1If n 57 Then 输入非数字时弹出对话框,同时文本框重新获得焦点KeyAscii = 0MsgBox “请输入数字“Text1(Index).SetFocusEnd IfEnd Sub10、某公司对员工的工资进行调整：若原有工资大于等于 1000 元，增加工资 35%；若小于 1000 元大于等于 800 元，则增加工资 25%；若小于 800 元，则增加工资 15%。请根据用户输入的原有工

7、资，计算出增加后的工资。参考答案 10：Private Sub Command1_Click()Text1.SetFocusText1.Text = “Text2.Text = “Option1.Value = FalseOption2.Value = FalseOption3.Value = FalseVB 后半学期练习题4End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Option1_Click()If Val(Text1.Text) = 1000 ThenText2.Text = Val(Text1.Text) * 1.3

8、5End IfEnd SubPrivate Sub Option2_Click()If Val(Text1.Text) = 800 And Val(Text1.Text) 0 ThenText2.Text = Val(Text1.Text) * 1.15End IfEnd Sub11、设计一个“家电提货单”管理程序，程序运行界面如下图所示。具体要求如下：（1）单击“确定”后，根据选择的内容将清单及总价在列表框中列出。（2）每选择一种家电，光标自动定位在相应的文本框中，取消选择时，相应的文本框自动清空。（3） “清除”按钮用于清空列表框中的项目。（4）所有文本框只接受数字。参考答案 11：Pri

9、vate Sub Check1_Click(Index As Integer)Text1(Index) = “If Check1(Index).Value = 1 ThenText1(Index).SetFocusEnd IfEnd SubPrivate Sub Command1_Click()Dim i As IntegerDim sum As Long, n%Dim title As String, price As Integersum = 0For i = 0 To 4Select Case iCase 0title = “电视机“price = 3580Case 1title = “

10、微波炉“price = 660Case 2title = “电冰箱“price = 1850Case 3title = “DVD“price = 2880Case 4title = “分体空调 “price = 5500End SelectIf Check1(i).Value = 1 And Text1(i).Text 0 ThenList1.AddItem “共: “ & n & “台 “ & “合计金额:“ & sum & “元“End IfEnd SubPrivate Sub Command2_Click()List1.ClearEnd Sub12、设计一个“个人资料”输入窗口，程序运行

11、界面如下图所示。具体要求如下：（1）按照运行界面设计窗体，其中“民族”用组合列表框显示。（2）单击“确定”按钮，将个人资料信息输出在“个人资料”框架的标签框中。参考答案 12：Private Sub Form_Load() 初始化民族组合框Combo1.AddItem “回族“Combo1.AddItem “汉族“Combo1.Text = “汉族“End SubPrivate Sub Command1_Click()Dim Sex As String, Hobby As StringIf Option1.Value Then 判断性别Sex = Option1.CaptionElseSex

12、= Option2.CaptionEnd If判断爱好If Check1.Value = 1 Then Hobby = Hobby & “ “ & Check1.CaptionVB 后半学期练习题5If Check2.Value = 1 Then Hobby = Hobby & “ “ & Check2.CaptionIf Check3.Value = 1 Then Hobby = Hobby & “ “ & Check3.CaptionIf Check4.Value = 1 Then Hobby = Hobby & “ “ & Check4.Caption显示Label4.Caption =

13、 Txtname.Text & “ “ & Sex & “ “ & Txtage & “ “ & Combo1.Text & “ 爱好： “ & HobbyEnd SubPrivate Sub Command2_Click()EndEnd Sub13、新建一个工程，完成应用程序的设计。具体要求如下：（1） 按照下图所示在窗体上放置按钮和控件。（2） 窗体上有两个 CheckBox，当这两个选项未被选定时，它们所在框架的其他控件不能使用。（3） 如果单击“确定”按钮，则在按钮下面的标签中显示用户所选择的信息。参考答案 13：Private Sub Form_Load()Label3.Border

14、Style = 1Frame1.Caption = “Frame2.Caption = “Check1.Value = 0Check2.Value = 0Text1.Text = “End SubPrivate Sub Check1_Click()If Check1.Value = 1 ThenText2.Enabled = TrueText1.Enabled = TrueElseText2.Enabled = FalseText1.Enabled = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenOpt

15、ion1.Enabled = TrueOption2.Enabled = TrueElseOption1.Enabled = FalseOption2.Enabled = FalseEnd IfEnd SubPrivate Sub Command1_Click()Label3.Caption = “If Check1.Value = 1 ThenLabel3.Caption = Label3.Caption + “计算机:“ + Chr(13) + Chr(10)Label3.Caption = Label3.Caption + combo1.Text + Text1 + “台“ + Chr(

16、13) + Chr(10)End IfIf Check2.Value = 1 ThenLabel3.Caption = Label3.Caption + “操作系统“ + Chr(13) + Chr(10)If Option1.Value = True ThenLabel3.Caption = Label3.Caption + Option1.CaptionElseLabel3.Caption = Label3.Caption + Option2.CaptionEnd IfEnd IfEnd Sub14、（1）参照运行时界面完成界面设计。（2）单击“添加单词”按钮，将 Text1 中的单词添加

17、到列表框，并使 Text1 获得焦点，可直接输入另一个单词。（3）单击“删除单词”按钮，删除列表框中被选中的列表项。（4）单击“全部删除”按钮，删除列表框中的全部表项。（5）单击“退出”按钮，结束该程序。参考答案 14：Private Sub Command1_Click()If Text1.Text-1 thenList1.removeitem list1.listindexEnd ifEnd SubPrivate Sub Command3_Click()List1.clearEnd SubPrivate Sub Command4_Click()EndEnd Sub15、参照运行时界面完成界

18、面设计。要求：（1）列表框内容中有四项，分别为“Word、Excel、PowerPoint、Outlook” 。（2）单击“添加”按钮（Command1） ，将文本框中的内容回到列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加” 。（3）单击“删除”按钮（Command2） ，将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目” 。参考答案 15：Private Sub Form_Load()List1.AddItem “word“List1.AddItem “excel“List1.AddItem “frontpage“List1.AddItem “

19、outlook“Form1.Caption = “添加和删除“Form1.BorderStyle = 1Command1.Caption = “添加“Command2.Caption = “删除“Text1.Text = “End SubPrivate Sub Command1_Click()If Text1.Text = “ ThenMsgBox (“没有内容,不予添加“)ElseList1.AddItem Text1.Text, 0Text1.Text = “Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()If List1.Li

20、stIndex = -1 Then如果没有选中任何一项,则该属性值为 -1MsgBox (“请选择输出的项目“)ElseList1.RemoveItem List1.ListIndexEnd IfEnd Sub16、参照运行时界面完成界面设计。要求：（1）窗体的上边有一个文本框 Text1，文字内容为“心想事成” ，Font：宋体、常规、三号。（2）左边简单组合框 Combo1，有三项内容，分别是“左对齐、居中、右对齐” ，单击时对文本框的对齐方式进行设置。（3）右边简单组合框 Combo2，有四项内容，分别是“常规、斜体、粗体、粗斜体” ，单击时对文本框的字型进行设置。参考答案 16：Pri

21、vate Sub Combo1_Click()Select Case Combo1.TextCase “左对齐“Text1.Alignment = 0Case “居中“Text1.Alignment = 2Case “右对齐“Text1.Alignment = 1End SelectEnd SubPrivate Sub Combo2_Click()Select Case Combo2.ListIndexCase 0Text1.FontBold = FalseText1.FontItalic = FalseCase 1Text1.FontItalic = TrueCase 2Text1.Font

22、Bold = TrueCase 3Text1.FontBold = TrueText1.FontItalic = TrueEnd SelectEnd Sub17、参照运行时界面完成界面设计。要求能完成以下功能：单击“产生”按钮，实现随机产生 10 个两位正整数，在左边列表框内显示；单击“”按钮，把左边列表框中的偶数全部移到右边列表框中。参考答案 17：Private Sub Form_Load()List1.ClearList2.ClearEnd SubPrivate Sub Command1_Click() 产生Dim i As IntegerRandomizeList1.ClearVB 后

23、半学期练习题7List2.ClearFor i = 1 To 10List1.AddItem (Int(Rnd * 90) + 10)Next iEnd SubPrivate Sub Command2_Click()Dim i As Integeri = 0Do Until i = List1.ListCountIf Val(List1.List(i) Mod 2 = 0 ThenList2.AddItem List1.List(i)List1.RemoveItem iElsei = i + 1End IfLoopEnd Sub18、设计一个程序在两个列表框之间进行操作。(1)：移动选择的表项

24、至右边列表框（允许选多个）(2) -1 ThenList1.AddItem List2.TextList2.RemoveItem List2.ListIndexElseMsgBox “先选择右列表框中的项，再移至左边“End IfEnd SubPrivate Sub Command3_Click() 全选Do While List1.ListCount 0List1.AddItem List2.List(0)List2.RemoveItem 0LoopEnd Sub19、参照运行时界面完成界面设计。 （1）在两个列表框控件的 list 中输入一些内容。 （2）当单击“ -1 ThenList2

25、.AddItem List1.Text list2.AddItem List1.List(List1.ListIndex)ElseMsgBox “先选择，再移动“End IfEnd SubPrivate Sub Command2_Click()For i = 0 To List1.ListCount - 1List2.AddItem List1.List(i)Next iList1.ClearEnd SubPrivate Sub Command3_Click()Do While List2.ListCount -1 ThenList1.AddItem List2.List(List2.List

26、Index)ElseMsgBox “先选择，再移动“End IfEnd SubPrivate Sub Command5_Click()EndEnd SubVB 后半学期练习题820、参照运行时界面完成界面设计。 （1）左边一个简单组合框，对文本框的字体进行设置；有三项内容，分别是“宋体、黑体、楷体_GB2312” 。 （2）右边一个简单组合框，对文本框的文字大小进行设置；大小范围为 820。参考答案 20：Private Sub Form_Load()Text1.Text = “心想事成“Combo1.Text = “宋体“Combo2.Text = “9“End SubPrivate Sub

27、 Combo1_Click()Text1.FontName = Combo1.TextEnd SubPrivate Sub Combo2_Click()Text1.FontSize = Val(Combo2.Text)End Sub21、设计一个畅销书排行榜程序，运行界面如下图所示。具体要求如下：（1）在左边列表框中显示排名前 5 名的畅销书； （2）输入新书名和名次，单击“入榜” ，添加到左边列表框中相应位置；（3）单击“下榜” ，将选择的书从排行榜中删除，如未选择，则显示“请先选择！” ；（4）单击“清除” ，可以删除文本框中的输入内容，文本框 2 只允许输入数字 15；（5）单击“结束”

28、 ，退出程序运行。参考答案 21：Private Sub Form_Load()list1.AddItem “西游记“list1.AddItem “红楼梦“list1.AddItem “史记“list1.AddItem “水浒“list1.AddItem “镜花缘“End SubPrivate Sub Command1_Click() 上榜Dim book As String, index As Integerbook = Text1.Textindex = Val(Text2.Text)判断是否已输入书名和有效的排名If book = 0 And index -1 Thenlist1.Rem

29、oveItem indexEnd IfEnd SubPrivate Sub Command3_Click()list1.ClearEnd SubPrivate Sub Command4_Click()EndEnd Sub22、参照运行界面完成界面设计。单击滚动条左右箭头时，标签上的字可以左右移动，标签移动范围等于滚动条的范围。参考答案 22：Private Sub Form_Load()HScroll1.Max = Form1.Width - Label1.WidthHScroll1.Value = Label1.LeftEnd SubPrivate Sub HScroll1_Change()

30、Label1.Left = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()Call HScroll1_ChangeEnd SubPrivate Sub Command1_Click() 结束EndEnd Sub23、参照运行时界面完成界面设计。要求：（1）滚动条的取值范围均为 10-40。 （2）完成以下功能：根据设定字号改变标签框内显示文字的大小。要求水平滚动条与文本框相关联。参考答案 23：Private Sub Form_Load()HScroll1.Max = 40HScroll1.Min = 10Label1.FontSize =

31、 HScroll1.ValueForm1.Caption = “改变字号“End SubPrivate Sub HScroll1_Change()Text1.Text = HScroll1.ValueLabel1.FontSize = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()Text1.Text = HScroll1.ValueLabel1.FontSize = HScroll1.ValueEnd SubPrivate Sub Text1_Change()Dim i As IntegerVB 后半学期练习题9i = Val(Text1

32、.Text)If i = 10 And i = Form1.Width ThenLabel1.Left = -Label1.WidthEnd IfEnd Sub26、参照运行时界面完成界面设计。要求：（1）单击“开始”按钮（Command1） ，标签“欢迎光临” （Label1）文字在定时器控制下字号自动增加 2。同时“开始”按钮变为“停止”按钮。（2）单击“停止”按钮，标签“欢迎光临”文字停止放大。同时“停止”按钮为“开始”按钮。（3）要求标签文字在放大时保持水平居中。（4）定时器（Timer1）的时间间隔为 0.2 秒。参考答案 26：Private Sub Command1_Click(

33、)If Command1.Caption = “开始“ ThenTimer1.Enabled = TrueCommand1.Caption = “停止“ElseTimer1.Enabled = FalseCommand1.Caption = “开始“End IfEnd SubPrivate Sub Form_Load()Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2VB 后半学期练习题10Label1.ForeColor = v

34、bRedEnd SubPrivate Sub Timer1_Timer()Label1.FontSize = Label1.FontSize + 2Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2End Sub27、参照运行时界面完成界面设计。要求：（1）设计两个定时器，Timer1 用于显示系统时间，时间间隔为 1 秒；Timer2用于判断闹钟时间，时间间隔为 0.5 秒，Timer2 设置为不可使用。（2）窗体的上半部是标签

35、Label1，用于显示时间，设置 Label1 的Font 为：宋体、粗体、二号，背景白色，文字居中对齐，固定边框。（3）窗体的下半部有一个标签 Label2，标题为“闹钟时间：” ；Label2 的右边是文本框 Text1。（4）在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器 Timer2，如果 Label1 显示的时间超过闹钟时间，则标签 Label1 的背景色按红白两色交替变换。参考答案 27：Private Sub Form_Load()Timer1.Interval = 1000Timer2.Interval = 500Form1.Caption = “电子钟“Timer

36、2.Enabled = FalseLabel1.BackColor = vbWhiteEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenTimer2.Enabled = TrueEnd IfEnd SubPrivate Sub Timer1_Timer()Label1.Caption = TimeEnd SubPrivate Sub Timer2_Timer()If Label1.Caption Text1.Text ThenIf Label1.BackColor = vbWhite ThenL

37、abel1.BackColor = vbRedElseLabel1.BackColor = vbWhiteEnd IfEnd IfEnd Sub28、参照运行时界面完成界面设计。要求：（1）窗体的左边有一个框架 Frame1，标题为“选择时间” ；框架内有一组单选按钮控件数组，从上到下为 Option1（0） 、Option1（1） 、Option1 （2） ，标题分别为“1 分钟” 、 “5 分钟” 、 “10 分钟” 。默认选择为 1 分钟。（2）标签 Label1，用于显示倒计时的剩余的时间。（3）单击“开始计时”按钮（Command1）后，程序根据选择的时间开始倒计时，同时命令按钮变为

38、不可使用，框架也不可使用。（4）当剩余时间到 0 分 0 秒时，改为显示“时间到！” 。（5）定时器 Timer1 的时间间隔为 1 秒。参考答案 28：Dim X As IntegerPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Timer1.Enabled = FalseLabel1.Caption = “X = 60Timer1.Interval = 1000End SubPrivate Sub Option1_Click(Index As Integer)Select Cas

39、e IndexCase 0X = 60Case 1X = 300Case 2X = 600End SelectEnd SubPrivate Sub Timer1_Timer()If X = 0 ThenLabel1.Caption = “时间到!“Timer1.Enabled = FalseCommand1.Enabled = TrueFrame1.Enabled = TrueElseX = X - 1Label1.Caption = Str(X 60) + “分“ + Str(X Mod 60) + “秒“Command1.Enabled = FalseFrame1.Enabled = FalseEnd IfEnd Sub29、设计一个“秒表计时”程序，运行界面如下图所示。具体要求如下：（1）标签 Label1 用来显示累计的时间，Caption 初值设置为 0，Autosize 设置为 True，字体、字号、颜色等属性自定。（2）定时器 Timer1 的 Interval 设置为 1 秒，Enabled 初值设为 False。（3）命令按钮 Command1 的标题设置为“计时开始”用来启动计时器，当计时开始后标题变为“停止”用来关闭计时器，同时以消息框显示一共运行几小时几分几秒。