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

VB后半学期练习题09VB 本科期末上机练习及参考答案1、 编制通用函数过程，计算1+2+N 的值。在窗体的Click事件中调用该函数。参考答案1：Private Function sum(n As Integer) As longDim i As Integer For i = 1 To n sum = sum + i Next iEnd FunctionPrivate Sub Form_Click() Print sum(100)End Sub2、 编制通用函数过程，计算N！的值。在窗体的Click事件中调用该函数。参考答案2：Private Function fact(n As Integer) As Double Dim i As Integer fact = 1 For i = 1 To n fact = fact * i Next iEnd FunctionPrivate Sub Form_Click() Print fact(5)End Sub3、 编制通用函数过程，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。在窗体的Click事件中调用该函数。参考答案3：- 14 -Private Function prime(n As Integer) As BooleanDim i As IntegerIf n Int(Sqr(n) Then prime = True Else prime = False End 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 = FalseElse odd = TrueEnd ifEnd FunctionPrivate Sub Form_Click() Prime odd(4),odd(5)End Sub5、 新建一个工程，完成“密码检验”程序的设计。参照运行时界面完成界面设计。具体要求如下：（1）文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。（2）窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息。（3）当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”；如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。参考答案5：Private Sub Form_Load()Label1.Caption = 输入密码后按回车 & Chr(13) & Chr(10) & (提示密码：1234567)Text1.PasswordChar = *Text1.MaxLength = 7End SubPrivate Sub text1_keypress(keyascii As Integer)Static n As IntegerIf keyascii = 13 Then If Text1.Text = 1234567 Then Label2.Caption = 欢迎光临！ Label1.Visible = False Text1.Visible = False Else n = n + 1 If n 2 Then Label2.Caption = 密码错误，重新输入！“ Text1.Text = Else Label2.Caption = 非法用户，退出程序! Text1.Enabled = False End If End IfEnd IfEnd Sub6、 新建一个工程，完成“编辑”程序的设计。具体要求如下：（1）窗体的标题为“编辑”。（2）窗体中有以下控件：一个文本框、四个命令按钮。（3）完成以下功能：文本框实现文本编辑功能，单击按钮实现相应功能。参考答案6：Private Sub Command1_Click() Clipboard.Clear 清除剪贴板中的内容 Clipboard.SetText Text1.SelText 将选中文本送入剪贴板End SubPrivate Sub Command2_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = 清空文本框内被选中的文本End SubPrivate Sub Command3_Click() Text1.SelText = Clipboard.GetText 将剪贴板上的文本复制到指定文本框的光标处End SubPrivate Sub Command4_Click() Text1.SelText = 清空文本框内被选中的文本End SubPrivate Sub Form_Load() Text1.Text = End Sub7、 新建一个工程，完成“替换”程序的设计。具体要求如下：(1) 窗体的标题为“替换”。(2) 窗体中有以下控件：一个文本框可以多行编辑，两个文本框，两个标签框，一个命令按钮。(3) 完成以下功能：输入查找内容，把编辑框中所有与查找内容一样的部分替换成另外一个内容。单击“替换”按钮执行。参考答案7：Private Sub Command1_Click() Dim len1 As Integer, len2 As Integer, len3 As Integer len1 = Len(Text1) len2 = Len(Text2) len3 = Len(Text3) Do While i = len1 - len2 If Text2 = Mid(Text1, i + 1, len2) Then Text1.SetFocus Text1.SelStart = i Text1.SelLength = len2 Text1.SelText = Text3 i = i + len3 len1 = len1 - len2 + len3 Else i = i + 1 End If LoopEnd Sub8、 新建一个工程，完成“字体修饰” 程序的设计。具体要求如下：（1） 按照下图所示在窗体上放置按钮和控件。窗体的标题为“字体修饰”。（2） 框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进行修饰。（3） 框架Frame2中有一个单选钮框数组，可以选择宋体或楷体对标签中的文字进行修饰。（4） 标签Label1的文字内容为“Visual Basic程序设计“，宋体，常规，三号；文字对齐方式为居中。参考答案8：Private Sub Check1_Click(Index As Integer) Select Case Index Case 0 If Check1(0).Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If Case 1 If Check1(1).Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End SelectEnd SubPrivate Sub Option1_Click(Index As Integer) Select Case Index Case 0 Label1.FontName = 宋体 Case 1 Label1.FontName = 楷体_gb2312 End SelectEnd Sub9、 新建一个工程，完成“点餐”程序的设计。具体要求如下：（1） 窗体的标题为“点餐”。（2） 窗体中有以下控件：一个框架控件作为容器，内有三个复选框数组、对应三个文本框数组、三个标签框、一个命令按钮。（3） 要求文本框只能接受数字键，并且只有选取了相应的套餐后才可以进行输入；如果没有选取大套餐，那么文本框不能编辑，并清空。（4） 完成以下功能：选择所需套餐种类及份数，单击确定按钮后计算所需的钱，并用消息框显示。参考答案9：Private Sub Form_Load()Form1.Caption = 点餐Command1.Caption = 确定Frame1.Caption = 菜单Check1(0).Caption = 儿童套餐馆18元Check1(1).Caption = 标准套餐23元Check1(2).Caption = 商务餐28元For i = 0 To 2 Label1(i).Caption = 份数 Check1(i).Value = 0 Text1(i).Enabled = FalseNextEnd SubPrivate Sub Check1_Click(Index As Integer) If Check1(Index).Value = 1 Then 若当前复选框被选中,文本框被启用,同时获得焦点 Text1(Index).Enabled = True Text1(Index).SetFocus Else Text1(Index).Text=Text1(Index).Enabled=False End IfEnd SubPrivate Sub Command1_Click() Dim a%, b%, c%, sum% a = Val(Text1(0).Text) b = Val(Text1(1).Text) c = Val(Text1(2).Text) sum = a * 18 + b * 23 + c * 28 MsgBox 一共 & sum & 元, , 总价End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii 57 Then 输入非数字时弹出对话框,同时文本框重新获得焦点 KeyAscii = 0 MsgBox 请输入数字 Text1(Index).SetFocus End IfEnd Sub10、 某公司对员工的工资进行调整：若原有工资大于等于1000元，增加工资35%；若小于1000元大于等于800元，则增加工资25%；若小于800元，则增加工资15%。请根据用户输入的原有工资，计算出增加后的工资。参考答案10：Private Sub Command1_Click()Text1.SetFocusText1.Text = Text2.Text = Option1.Value = FalseOption2.Value = FalseOption3.Value = FalseEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Option1_Click() If Val(Text1.Text) = 1000 Then Text2.Text = Val(Text1.Text) * 1.35 End IfEnd SubPrivate Sub Option2_Click()If Val(Text1.Text) = 800 And Val(Text1.Text) 1000 Then Text2.Text = Val(Text1.Text) * 1.25 End IfEnd SubPrivate Sub Option3_Click() If Val(Text1.Text) 0 Then Text2.Text = Val(Text1.Text) * 1.15 End IfEnd Sub11、 设计一个“家电提货单”管理程序，程序运行界面如下图所示。具体要求如下：（1）单击“确定”后，根据选择的内容将清单及总价在列表框中列出。（2）每选择一种家电，光标自动定位在相应的文本框中，取消选择时，相应的文本框自动清空。（3）“清除”按钮用于清空列表框中的项目。（4）所有文本框只接受数字。参考答案11：Private Sub Check1_Click(Index As Integer) Text1(Index) = If Check1(Index).Value = 1 Then Text1(Index).SetFocus End IfEnd SubPrivate Sub Command1_Click()Dim i As IntegerDim sum As Long, n%Dim title As String, price As Integer sum = 0 For i = 0 To 4 Select Case i Case 0 title = 电视机 price = 3580 Case 1 title = 微波炉 price = 660 Case 2 title = 电冰箱 price = 1850 Case 3 title = DVD price = 2880 Case 4 title = 分体空调 price = 5500 End Select If Check1(i).Value = 1 And Text1(i).Text Then List1.AddItem title & Text1(i).Text & 台 sum = sum + Val(Text1(i) * price n = n + Val(Text1(i) End If Next i If sum 0 Then List1.AddItem 共: & n & 台 & 合计金额: & sum & 元 End IfEnd SubPrivate Sub Command2_Click() List1.ClearEnd Sub12、 设计一个“个人资料”输入窗口，程序运行界面如下图所示。具体要求如下：（1）按照运行界面设计窗体，其中“民族”用组合列表框显示。（2）单击“确定”按钮，将个人资料信息输出在“个人资料”框架的标签框中。参考答案12：Private Sub Form_Load() 初始化民族组合框 Combo1.AddItem 回族 Combo1.AddItem 汉族 Combo1.Text = 汉族End SubPrivate Sub Command1_Click() Dim Sex As String, Hobby As String If Option1.Value Then 判断性别 Sex = Option1.Caption Else Sex = Option2.Caption End If 判断爱好 If Check1.Value = 1 Then Hobby = Hobby & & Check1.Caption If Check2.Value = 1 Then Hobby = Hobby & & Check2.Caption If Check3.Value = 1 Then Hobby = Hobby & & Check3.Caption If Check4.Value = 1 Then Hobby = Hobby & & Check4.Caption 显示 Label4.Caption = Txtname.Text & & Sex & & Txtage & & Combo1.Text & 爱好： & HobbyEnd SubPrivate Sub Command2_Click() EndEnd Sub13、 新建一个工程，完成应用程序的设计。具体要求如下：（1） 按照下图所示在窗体上放置按钮和控件。（2） 窗体上有两个CheckBox，当这两个选项未被选定时，它们所在框架的其他控件不能使用。（3） 如果单击“确定”按钮，则在按钮下面的标签中显示用户所选择的信息。参考答案13：Private Sub Form_Load() Label3.BorderStyle = 1 Frame1.Caption = Frame2.Caption = Check1.Value = 0 Check2.Value = 0 Text1.Text = End SubPrivate Sub Check1_Click() If Check1.Value = 1 Then Text2.Enabled = True Text1.Enabled = True Else Text2.Enabled = False Text1.Enabled = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Option1.Enabled = True Option2.Enabled = True Else Option1.Enabled = False Option2.Enabled = False End IfEnd SubPrivate Sub Command1_Click() Label3.Caption = If Check1.Value = 1 Then Label3.Caption = Label3.Caption + 计算机: + Chr(13) + Chr(10) Label3.Caption = Label3.Caption + combo1.Text + Text1 + 台 + Chr(13) + Chr(10) End If If Check2.Value = 1 Then Label3.Caption = Label3.Caption + 操作系统 + Chr(13) + Chr(10) If Option1.Value = True Then Label3.Caption = Label3.Caption + Option1.Caption Else Label3.Caption = Label3.Caption + Option2.Caption End If End IfEnd Sub14、 （1）参照运行时界面完成界面设计。（2）单击“添加单词”按钮，将Text1中的单词添加到列表框，并使Text1获得焦点，可直接输入另一个单词。（3）单击“删除单词”按钮，删除列表框中被选中的列表项。（4）单击“全部删除”按钮，删除列表框中的全部表项。（5）单击“退出”按钮，结束该程序。参考答案14：Private Sub Command1_Click() If Text1.Text Then List1.AddItem Text1.Text Text1.Text= Text1.SetFocus End IfEnd SubPrivate Sub Command2_Click() If list1.listindex-1 then List1.removeitem list1.listindex End ifEnd SubPrivate Sub Command3_Click() List1.clearEnd SubPrivate Sub Command4_Click() EndEnd Sub15、 参照运行时界面完成界面设计。要求：（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 outlook Form1.Caption = 添加和删除 Form1.BorderStyle = 1 Command1.Caption = 添加 Command2.Caption = 删除 Text1.Text = End SubPrivate Sub Command1_Click()If Text1.Text = Then MsgBox (没有内容,不予添加)Else List1.AddItem Text1.Text, 0 Text1.Text = Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()If List1.ListIndex = -1 Then 如果没有选中任何一项,则该属性值为-1 MsgBox (请选择输出的项目)Else List1.RemoveItem List1.ListIndexEnd IfEnd Sub16、 参照运行时界面完成界面设计。要求：（1）窗体的上边有一个文本框Text1，文字内容为“心想事成”，Font：宋体、常规、三号。（2）左边简单组合框Combo1，有三项内容，分别是“左对齐、居中、右对齐”，单击时对文本框的对齐方式进行设置。（3）右边简单组合框Combo2，有四项内容，分别是“常规、斜体、粗体、粗斜体”，单击时对文本框的字型进行设置。参考答案16：Private Sub Combo1_Click() Select Case Combo1.Text Case 左对齐 Text1.Alignment = 0 Case 居中 Text1.Alignment = 2 Case 右对齐 Text1.Alignment = 1 End SelectEnd SubPrivate Sub Combo2_Click()Select Case Combo2.ListIndex Case 0 Text1.FontBold = False Text1.FontItalic = False Case 1 Text1.FontItalic = True Case 2 Text1.FontBold = True Case 3 Text1.FontBold = True Text1.FontItalic = TrueEnd SelectEnd Sub17、 参照运行时界面完成界面设计。要求能完成以下功能：单击“产生”按钮，实现随机产生10个两位正整数，在左边列表框内显示；单击“”按钮，把左边列表框中的偶数全部移到右边列表框中。参考答案17：Private Sub Form_Load() List1.Clear List2.ClearEnd SubPrivate Sub Command1_Click() 产生 Dim i As Integer Randomize List1.Clear List2.Clear For i = 1 To 10 List1.AddItem (Int(Rnd * 90) + 10) Next iEnd SubPrivate Sub Command2_Click() Dim i As Integer i = 0 Do Until i = List1.ListCount If Val(List1.List(i) Mod 2 = 0 Then List2.AddItem List1.List(i) List1.RemoveItem i Else i = i + 1 End If LoopEnd Sub18、 设计一个程序在两个列表框之间进行操作。(1)：移动选择的表项至右边列表框（允许选多个）(2)：移动表项至左边列表框(3)全选：将所有表项添加至右边列表框( 全部右移)(4)还原：将所有表项添加至左边列表框( 全部左移)参考答案18：Private Sub Form_Load() List1.AddItem 蓝球 List1.AddItem 足球 List1.AddItem 排球 List1.AddItem 羽毛球 List1.AddItem 乒乓球 List1.AddItem 跑步 List1.AddItem 登山 List1.AddItem 网球End SubPrivate Sub Command1_Click()Dim i As Integer i = 0Do While i = List1.ListCount - 1 If List1.Selected(i) = True Then List2.AddItem List1.List(i) List1.RemoveItem i Else i = i + 1 End IfLoopEnd Sub Private Sub Command2_Click()If List2.ListIndex -1 Then List1.AddItem List2.Text List2.RemoveItem List2.ListIndexElse MsgBox 先选择右列表框中的项，再移至左边End IfEnd SubPrivate Sub Command3_Click() 全选Do While List1.ListCount 0 判断是否还有表项 List2.AddItem List1.List(0) 每次移动最前面的表项 List1.RemoveItem 0 删除最前面的表项LoopEnd SubPrivate Sub Command4_Click() 还原Do While List2.ListCount 0 List1.AddItem List2.List(0) List2.RemoveItem 0LoopEnd Sub19、 参照运行时界面完成界面设计。（1）在两个列表框控件的list中输入一些内容。（2）当单击“”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项。（3）当单击“”按钮时，把list2中所有的项放到list1中，并且清空list2。（4）当单击“结束”按钮时，退出应用程序。参考答案19：Private Sub Command1_Click() If List1.ListIndex -1 ThenList2.AddItem List1.Text list2.AddItem List1.List(List1.ListIndex) Else MsgBox 先选择，再移动 End IfEnd SubPrivate Sub Command2_Click() For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i) Next i List1.ClearEnd SubPrivate Sub Command3_Click() Do While List2.ListCount 0 List1.AddItem List2.List(0) List2.RemoveItem 0 LoopEnd SubPrivate Sub Command4_Click() If List2.ListIndex -1 Then List1.AddItem List2.List(List2.ListIndex) Else MsgBox 先选择，再移动 End IfEnd SubPrivate Sub Command5_Click() EndEnd Sub20、 参照运行时界面完成界面设计。（1）左边一个简单组合框，对文本框的字体进行设置；有三项内容，分别是“宋体、黑体、楷体_GB2312”。（2）右边一个简单组合框，对文本框的文字大小进行设置；大小范围为820。参考答案20：Private Sub Form_Load() Text1.Text = 心想事成 Combo1.Text = 宋体 Combo2.Text = 9End SubPrivate Sub 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）单击“结束”，退出程序运行。参考答案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 Integer book = Text1.Text index = Val(Text2.Text) 判断是否已输入书名和有效的排名If book And index = 0 And index = list1.ListCount - 1 Then list1.AddItem book, index - 1End If list1.RemoveItem list1.ListCount - 1End SubPrivate Sub Command2_Click() 下榜 Dim index As Integer index = list1.ListIndex If index -1 Then list1.RemoveItem index End IfEnd SubPrivate Sub Command3_Click() list1.ClearEnd SubPrivate Sub Command4_Click() EndEnd Sub22、 参照运行界面完成界面设计。单击滚动条左右箭头时，标签上的字可以左右移动，标签移动范围等于滚动条的范围。参考答案22：Private Sub Form_Load() HScroll1.Max = Form1.Width - Label1.Width HScroll1.Value = Label1.LeftEnd SubPrivate Sub HScroll1_Change() 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 = 40 HScroll1.Min = 10 Label1.FontSize = HScroll1.Value Form1.Caption = 改变字号End SubPrivate Sub HScroll1_Change() Text1.Text = HScroll1.Value Label1.FontSize = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() Text1.Text = HScroll1.Value Label1.FontSize = HScroll1.ValueEnd SubPrivate Sub Text1_Change() Dim i As Integer i = Val(Text1.Text) If i = 10 And i = Form1.Width Then Label1.Left = -Label1.Width End IfEnd Sub26、 参照运行时界面完成界面设计。要求：（1）单击“开始”按钮（Command1），标签“欢迎光临”（Label1）文字在定时器控制下字号自动增加2。同时“开始”按钮变为“停止”按钮。（2）单击“停止”