VB上机参考答案

1、1、 编制通用函数过程，计算1+2+N 的值。在窗体的Click事件中调用该函数。Private Function sum(n As Integer) As long Dim i As Integer For i = 1 To n sum = sum + i Next iEnd FunctionPrivate Sub Form_Click() Print sum(100)'任意选取一个数对函数过程进行调试就可End Sub2、 编制通用函数过程，计算N！的值。在窗体的Click事件中调用该函数。Private Function fact(n As Integer) As Double

2、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事件中调用该函数。Private Function prime(n As Integer) As Boolean' Boolean逻辑型 Dim i As Integer If n < 2 Then prim

3、e = False Else For i = 2 To Int(Sqr(n) If n Mod i = 0 Then Exit For Next i If i > Int(Sqr(n) Then prime = True Else prime = False End If End IfEnd FunctionPrivate Sub Form_Click() Print prime(4),prime(7) End Sub4、 编制一个判断奇偶数的Function函数过程。在窗体的Click事件中调用该函数，输入一个整数，判断其奇偶性。比如：输入10则显示“10是偶数”，输入3则显示“3是奇

4、数”Private Function Odd(n As Integer) As stringIf n Mod 2 = 0 Then Odd =n & “是偶数”Else Odd = n & “是奇数”End ifEnd FunctionPrivate Sub Form_Click() Print Odd(4),Odd(5) End Sub5、 新建一个工程，完成“密码检验”程序的设计。具体要求如下：（1）参照运行时界面完成界面设计。（2）文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。（3）窗体的下半部有一个标签控件Label2，用来显示密

5、码输入后的提示信息。（4）当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”；如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。Private Sub Form_Load() Label1.Caption = "输入密码后按回车" & chr(13) & chr(10) & "（提示：密码1234567

6、）" Text1.PasswordChar = "*" Text1.MaxLength = 7End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Static n As Integer'n用来记录输入次数 If KeyAscii = 13 Then'表示单击回车后 If Text1.Text = "1234567" Then'判断密码是否正确 Label2.Caption = "欢迎光临！" Label1.Visible = False Text

7、1.Visible = FalseElse n = n + 1'计算输入次数 If n<2 Then Label2.Caption = "密码不符，请再输入一遍！" Text1.Text = "" Else Label2.Caption = "非法用户，请退出程序！" Text1.Enabled = False'文本框不可用 End If End If End IfEnd Sub6、 新建一个工程，完成“编辑”程序的设计。具体要求如下：（1）窗体的标题为“编辑”。（2）窗体中有以下控件：一个文本框、四个命令按钮。

8、（3）完成以下功能：文本框实现文本编辑功能，单击按钮实现相应功能。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 C

9、ommand3_Click() Text1.SelText = Clipboard.GetText '将剪贴板上的文本复制到指定文本框的光标处'End SubPrivate Sub Command4_Click() Text1.SelText = "" '清空文本框内被选中的文本'End SubPrivate Sub Form_Load() Text1.Text = ""End Sub7、新建一个工程，完成“替换”程序的设计。具体要求如下：(1) 窗体的标题为“替换”。(2) 窗体中有以下控件：一个文本框可以多行编辑，两个

10、文本框，两个标签框，一个命令按钮。(3) 完成以下功能：输入查找内容，把编辑框中所有与查找内容一样的部分替换成另外一个内容。单击“替换”按钮执行。Private Sub Command1_Click() Dim len1 As Integer, len2 As Integer, len3 As Integer len1 = Len(Text1)'计算文本框1的长度放入变量len1中 len2 = Len(Text2)'计算文本框2的长度放入变量len2中 len3 = Len(Text3) '计算文本框3的长度放入变量len3中 Do While i <= len

11、1 - 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） 按照下图所示在窗体上放置按钮和控件。窗体的标题为“字体修饰”。（

12、2） 框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进行修饰。（3） 框架Frame2中有一个单选钮框数组，可以选择宋体或楷体对标签中的文字进行修饰。（4） 标签Label1的文字内容为“Visual Basic程序设计“，宋体，常规，三号；文字对齐方式为居中。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 Cas

13、e 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、 新建一个工程，完成“点餐”程序的设计。

14、具体要求如下：（1） 窗体的标题为“点餐”。（2） 窗体中有以下控件：一个框架控件作为容器，内有三个复选框数组、对应三个文本框数组、三个标签框、一个命令按钮。（3） 要求文本框只能接受数字键，并且只有选取了相应的套餐后才可以进行输入；如果没有选取大套餐，那么文本框不能编辑，并清空。（4） 完成以下功能：选择所需套餐种类及份数，单击确定按钮后计算所需的钱，并用消息框显示。Private Sub Form_Load()Form1.Caption = "点餐"Command1.Caption = "确定"Frame1.Caption = "菜单&qu

15、ot;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

16、'若当前复选框被选中,文本框被启用,同时获得焦点 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 *

17、 28 MsgBox "一共" & sum & "元", , "总价"End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then '输入非数字时弹出对话框,同时文本框重新获得焦点 KeyAscii = 0 MsgBox "请输入数字" Text1(Index).SetFocus End IfEnd Sub10、 某公司

18、对员工的工资进行调整：若原有工资大于等于1000元，增加工资35%；若小于1000元大于等于800元，则增加工资25%；若小于800元，则增加工资15%。请根据用户输入的原有工资，计算出增加后的工资。Private Sub Command1_Click()Text1.SetFocusText1.Text = ""Text2.Text = ""Option1.Value = FalseOption2.Value = FalseOption3.Value = FalseEnd SubPrivate Sub Command2_Click()EndEnd Sub

19、Private 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)

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

21、ot;" If Check1(Index).Value = 1 Then Text1(Index).SetFocus End IfEnd SubPrivate Sub Command1_Click() Dim i As Integer Dim 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 =

22、 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

23、) * 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 SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As In

24、teger) If KeyAscii < 48 Or KeyAscii > 57 Then '输入非数字时弹出对话框,同时文本框重新获得焦点 KeyAscii = 0 MsgBox "请输入数字" Text1(Index).SetFocus End IfEnd Sub12、 设计一个“个人资料”输入窗口，程序运行界面如下图所示。具体要求如下：（1）按照运行界面设计窗体，其中“民族”用组合列表框显示。（2）单击“确定”按钮，将个人资料信息输出在“个人资料”框架的标签框中。Private Sub Form_Load()'初始化民族组合框 Combo1

25、.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 = H

26、obby & " " & Check1.Caption' Hobby为变量名，存放爱好 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.Ca

27、ption '显示Label4.Caption = Txtname.Text & " " & Sex & " " & Txtage & " " & Combo1.Text & " 爱好： " & Hobby' Txtname表示姓名文本框的名称，Txtage表示年龄文本框的名称End SubPrivate Sub Command2_Click() EndEnd Sub13、 新建一个工程，完成应用程序的设计。具体要求如下：（1） 按照下

28、图所示在窗体上放置按钮和控件。品牌用组合框显示。（2） 窗体上有两个CheckBox，当这两个选项未被选定时，它们所在框架的其他控件不能使用。（3） 如果单击“确定”按钮，则在按钮下面的标签框中显示用户所选择的信息。Private Sub Form_Load() Label3.BorderStyle = 1 Frame1.Caption = "" Frame2.Caption = "" Check1.Value = 0 Check2.Value = 0 Text1.Text = ""End SubPrivate Sub Check1_

29、Click() If Check1.Value = 1 ThenText1.Enabled = TrueCombo1. Enabled = True Else Combo1.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 S

30、ubPrivate 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 = Labe

31、l3.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）单击“删除单词”按钮，删除列表框中被

32、选中的列表项。（4）单击“全部删除”按钮，删除列表框中的全部表项。（5）单击“退出”按钮，结束该程序。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 ifEn

33、d SubPrivate Sub Command3_Click() List1.ClearEnd SubPrivate Sub Command4_Click() EndEnd Sub15、（1）参照运行时界面完成界面设计。（2）列表框内容中有四项，分别为“Word、Excel、PowerPoint、Outlook”。（3）单击“添加”按钮（Command1），将文本框中的内容回到列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加”。（4）单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。Private Sub F

34、orm_Load() List1.AddItem "word" List1.AddItem "excel" List1.AddItem "frontpage" List1.AddItem "outlook"Form1.Caption = "添加和删除"Form1.BorderStyle = 1 '固定边框Command1.Caption = "添加"Command2.Caption = "删除" Text1.Text = ""E

35、nd SubPrivate Sub Command1_Click() If Text1.Text = "" Then MsgBox ("没有内容,不予添加") Else List1.AddItem Text1.Text, 0 '添加到第一项 Text1.Text = "" Text1.SetFocus End IfEnd SubPrivate Sub Command2_Click() If List1.ListIndex = -1 Then '如果没有选中任何一项,则该属性值为-1 MsgBox ("请选择输

36、出的项目") Else List1.RemoveItem List1.ListIndex End IfEnd Sub16、（1）参照运行时界面完成界面设计。（2）窗体的上边有一个文本框Text1，文字内容为“心想事成”，Font：宋体、常规、三号。（3）左边简单组合框Combo1，有三项内容，分别是“左对齐、居中、右对齐”，单击时对文本框的对齐方式进行设置。（3）右边简单组合框Combo2，有四项内容，分别是“常规、斜体、粗体、粗斜体”，单击时对文本框的字型进行设置。Private Sub Combo1_Click() Select Case Combo1.Text Case &qu

37、ot;左对齐" 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

38、 Case 3 Text1.FontBold = True Text1.FontItalic = TrueEnd SelectEnd Sub17、（1）参照运行时界面完成界面设计。（2）能完成以下功能：单击“产生”按钮，实现随机产生10个两位正整数，在左边列表框内显示；单击“>”按钮，把左边列表框中的偶数全部移到右边列表框中。Private Sub Form_Load() List1.Clear List2.ClearEnd SubPrivate Sub Command1_Click() '产生 Dim i As Integer Randomize List1.Clear Lis

39、t2.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)

40、>>>：移动选择的表项至右边列表框（允许选多个）(2)<：移动表项至左边列表框(3)全选：将所有表项添加至右边列表框( 全部右移)(4)还原：将所有表项添加至左边列表框( 全部左移)Private Sub Form_Load() List1.AddItem "蓝球" List1.AddItem "足球" List1.AddItem "排球" List1.AddItem "羽毛球" List1.AddItem "乒乓球" List1.AddItem "跑步&quo

41、t; List1.AddItem "登山" List1.AddItem "网球" List1.Multiselect=1 '实现多选End SubPrivate Sub Command1_Click() '>>>Dim i As Integeri = 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

42、IfLoopEnd SubPrivate 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

43、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）参照运行时界面完成界面设计。（2）在两个列表框控件的list中输入一些内容。（3）当单击“<”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项。（4）

44、当单击“<<”按钮时，把list2中所有的项放到list1中，并且清空list2。（5）当单击“结束”按钮时，退出应用程序。Private Sub Command1_Click() '> If List1.ListIndex <> -1 Then List2.AddItem List1.Text'或者：List2.AddItem List1.List(List1.ListIndex) List1.removeitem (List1.ListIndex Else MsgBox "先选择，再移动" End IfEnd SubPriv

45、ate 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() '<

46、 If List2.ListIndex <> -1 Then List1.AddItem List2.List(List2.ListIndex) Else MsgBox "先选择，再移动" End IfEnd SubPrivate Sub Command5_Click() '结束 EndEnd Sub20、（1）参照运行时界面完成界面设计。（2）左边一个简单组合框，对文本框的字体进行设置；有三项内容，分别是“宋体、黑体、楷体_GB2312”。（3）右边一个简单组合框，对文本框的文字大小进行设置；大小范围为820。Private Sub Form_Load

47、()Text1.Text = "心想事成"Combo1.Additem "宋体"Combo1.Additem "黑体"Combo1.Additem "楷体_Gb2312"Combo1.Text = "宋体"For i=8 to 20 Combo2.Additem iNext Combo2.Text = "9"End SubPrivate Sub Combo1_Click() Text1.FontName = Combo1.TextEnd SubPrivate Sub Comb

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

49、em "红楼梦" 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) - 1 If book <> "" And index >= 0 And index <= lis

50、t1.ListCount - 1 Then '判断是否已输入书名和有效的排名 list1.AddItem book, index End 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()'清除 T

51、ext1.Text= "": Text2.Text=""End SubPrivate Sub Command4_Click()'结束 EndEnd Sub22、 （1）参照运行时界面完成界面设计。（2）单击滚动条左右箭头时，标签上的字可以左右移动，标签移动范围等于滚动条的范围。Private Sub Form_Load() HScroll1.Max = Form1.Width - Label1.Width'标签移动到最右边的Left值即为滚动条的最大值 HScroll1.Value = Label1.Left'标签移动到最左边的L

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

53、roll1.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() Call HScroll1_ChangeEnd SubPrivate Sub Text1_Change() Dim i As Integ

54、er i = Val(Text1.Text) If i >= 10 And i <= 40 Then Label1.FontSize = i HScroll1.Value = i End IfEnd Sub24、（1）参照运行时界面完成界面设计。（2）在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”，格式设置为在窗体中水平居中对齐。（3）单击“开始”按钮（Command1），标签文字在定时器控制下自动交替以红兰两种颜色显示。同时“开始”按钮变为“停止”按钮。（4）单击“停止”按钮，标签文字停止闪烁，

55、同时“停止”按钮变为“开始”按钮。（5）定时器（Timer1）的时间间隔为0.3秒。Private Sub Form_Load() Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2 Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2 Command1.Caption = "开始" Timer1.Enabled = False Label1.ForeColor = vbRedEnd SubPrivate Sub Command1_Click() If Command1.Caption = "开始" Then Command1.Caption = "停止" Timer1.Enabled