09VB上机参考答案2解析.docx
《09VB上机参考答案2解析.docx》由会员分享，可在线阅读，更多相关《09VB上机参考答案2解析.docx（50页珍藏版）》请在冰豆网上搜索。
09VB上机参考答案2解析
1、编制通用函数过程，计算1+2+……+N的值。
在窗体的Click事件中调用该函数。
PrivateFunctionsum（nAsInteger）Aslong
DimiAsInteger
Fori=1Ton
sum=sum+i
Nexti
EndFunction
PrivateSubForm_Click（）
Printsum（100）'任意选取一个数对函数过程进行调试就可
EndSub
2、编制通用函数过程，计算N！
的值。
在窗体的Click事件中调用该函数。
PrivateFunctionfact（nAsInteger）AsDouble
DimiAsInteger
fact=1'必须赋初值
Fori=1Ton
fact=fact*i
Nexti
EndFunction
PrivateSubForm_Click（）
Printfact（5）
EndSub
3、编制通用函数过程，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。
在窗体的Click事件中调用该函数。
PrivateFunctionprime（nAsInteger）AsBoolean'Boolean逻辑型
DimiAsInteger
Ifn<2Then
prime=False
Else
Fori=2ToInt（Sqr（n））
IfnModi=0ThenExitFor
Nexti
Ifi>Int（Sqr（n））Then
prime=True
Else
prime=False
EndIf
EndIf
EndFunction
PrivateSubForm_Click（）
Printprime（4）,prime（7）
EndSub
4、编制一个判断奇偶数的Function函数过程。
在窗体的Click事件中调用该函数，输入一个整数，判断其奇偶性。
比如：
输入10则显示“10是偶数”，输入3则显示“3是奇数”
PrivateFunctionOdd（nAsInteger）Asstring
IfnMod2=0Then
Odd=n&“是偶数”
Else
Odd=n&“是奇数”
Endif
EndFunction
PrivateSubForm_Click（）
PrintOdd（4）,Odd（5）
EndSub
5、新建一个工程，完成“密码检验”程序的设计。
具体要求如下：
（1）参照运行时界面完成界面设计。
（2）文本框Text1，用于输入密码。
文本框中输入的字符显示为*，并且最多可以接受7个字符。
（3）窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息。
（4）当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！
”；如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！
”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！
”，文本框就不能使用了。
PrivateSubForm_Load（）
Label1.Caption="输入密码后按回车"&chr（13）&chr（10）&"（提示：
密码1234567）"
Text1.PasswordChar="*"
Text1.MaxLength=7
EndSub
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
StaticnAsInteger'n用来记录输入次数
IfKeyAscii=13Then'表示单击回车后
IfText1.Text="1234567"Then'判断密码是否正确
Label2.Caption="欢迎光临！
"
Label1.Visible=False
Text1.Visible=False
Else
n=n+1'计算输入次数
Ifn<2Then
Label2.Caption="密码不符，请再输入一遍！
"
Text1.Text=""
Else
Label2.Caption="非法用户，请退出程序！
"
Text1.Enabled=False'文本框不可用
EndIf
EndIf
EndIf
EndSub
6、新建一个工程，完成“编辑”程序的设计。
具体要求如下：
（1）窗体的标题为“编辑”。
（2）窗体中有以下控件：
一个文本框、四个命令按钮。
（3）完成以下功能：
文本框实现文本编辑功能，单击按钮实现相应功能。
PrivateSubCommand1_Click（）
Clipboard.Clear'清除剪贴板中的内容'
Clipboard.SetTextText1.SelText'将选中文本送入剪贴板
EndSub
PrivateSubCommand2_Click（）
Clipboard.Clear
Clipboard.SetTextText1.SelText
Text1.SelText=""'清空文本框内被选中的文本'
EndSub
PrivateSubCommand3_Click（）
Text1.SelText=Clipboard.GetText'将剪贴板上的文本复制到指定文本框的光标处'
EndSub
PrivateSubCommand4_Click（）
Text1.SelText=""'清空文本框内被选中的文本'
EndSub
PrivateSubForm_Load（）
Text1.Text=""
EndSub
7、
新建一个工程，完成“替换”程序的设计。
具体要求如下：
（1）窗体的标题为“替换”。
（2）窗体中有以下控件：
一个文本框可以多行编辑，两个文本框，两个标签框，一个命令按钮。
（3）完成以下功能：
输入查找内容，把编辑框中所有与查找内容一样的部分替换成另外一个内容。
单击“替换”按钮执行。
PrivateSubCommand1_Click（）
Dimlen1AsInteger,len2AsInteger,len3AsInteger
len1=Len（Text1）'计算文本框1的长度放入变量len1中
len2=Len（Text2）'计算文本框2的长度放入变量len2中
len3=Len（Text3）'计算文本框3的长度放入变量len3中
DoWhilei<=len1-len2
IfText2=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
EndIf
Loop
EndSub
8、新建一个工程，完成“字体修饰”程序的设计。
具体要求如下：
（1）按照下图所示在窗体上放置按钮和控件。
窗体的标题为“字体修饰”。
（2）框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进行修饰。
（3）框架Frame2中有一个单选钮框数组，可以选择宋体或楷体对标签中的文字进行修饰。
（4）标签Label1的文字内容为“VisualBasic程序设计“，宋体，常规，三号；文字对齐方式为居中。
PrivateSubCheck1_Click（IndexAsInteger）
SelectCaseIndex
Case0
IfCheck1（0）.Value=1Then
Label1.FontBold=True
Else
Label1.FontBold=False
EndIf
Case1
IfCheck1
（1）.Value=1Then
Label1.FontItalic=True
Else
Label1.FontItalic=False
EndIf
EndSelect
EndSub
PrivateSubOption1_Click（IndexAsInteger）
SelectCaseIndex
Case0
Label1.FontName="宋体"
Case1
Label1.FontName="楷体_gb2312"
EndSelect
EndSub
9、新建一个工程，完成“点餐”程序的设计。
具体要求如下：
（1）窗体的标题为“点餐”。
（2）窗体中有以下控件：
一个框架控件作为容器，内有三个复选框数组、对应三个文本框数组、三个标签框、一个命令按钮。
（3）要求文本框只能接受数字键，并且只有选取了相应的套餐后才可以进行输入；如果没有选取大套餐，那么文本框不能编辑，并清空。
（4）完成以下功能：
选择所需套餐种类及份数，单击确定按钮后计算所需的钱，并用消息框显示。
PrivateSubForm_Load（）
Form1.Caption="点餐"
Command1.Caption="确定"
Frame1.Caption="菜单"
Check1（0）.Caption="儿童套餐馆18元"
Check1
（1）.Caption="标准套餐23元"
Check1
（2）.Caption="商务餐28元"
Fori=0To2
Label1（i）.Caption="份数"
Check1（i）.Value=0
Text1（i）.Enabled=False
Next
EndSub
PrivateSubCheck1_Click（IndexAsInteger）
IfCheck1（Index）.Value=1Then'若当前复选框被选中,文本框被启用,同时获得焦点
Text1（Index）.Enabled=True
Text1（Index）.SetFocus
Else
Text1（Index）.Text=""
Text1（Index）.Enabled=False
EndIf
EndSub
PrivateSubCommand1_Click（）
Dima%,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&"元",,"总价"
EndSub
PrivateSubText1_KeyPress（IndexAsInteger,KeyAsciiAsInteger）
IfKeyAscii<48OrKeyAscii>57Then'输入非数字时弹出对话框,同时文本框重新获得焦点
KeyAscii=0
MsgBox"请输入数字"
Text1（Index）.SetFocus
EndIf
EndSub
10、某公司对员工的工资进行调整：
若原有工资大于等于1000元，增加工资35%；若小于1000元大于等于800元，则增加工资25%；若小于800元，则增加工资15%。
请根据用户输入的原有工资，计算出增加后的工资。
PrivateSubCommand1_Click（）
Text1.SetFocus
Text1.Text=""
Text2.Text=""
Option1.Value=False
Option2.Value=False
Option3.Value=False
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubOption1_Click（）
IfVal（Text1.Text）>=1000Then
Text2.Text=Val（Text1.Text）*1.35
EndIf
EndSub
PrivateSubOption2_Click（）
IfVal（Text1.Text）>=800AndVal（Text1.Text）<1000Then
Text2.Text=Val（Text1.Text）*1.25
EndIf
EndSub
PrivateSubOption3_Click（）
IfVal（Text1.Text）<800AndVal（Text1.Text）>0Then
Text2.Text=Val（Text1.Text）*1.15
EndIf
EndSub
11、设计一个“家电提货单”管理程序，程序运行界面如下图所示。
具体要求如下：
（1）单击“确定”后，根据选择的内容将清单及总价在列表框中列出。
（2）每选择一种家电，光标自动定位在相应的文本框中，取消选择时，相应的文本框自动清空。
（3）“清除”按钮用于清空列表框中的项目。
（4）所有文本框只接受数字。
PrivateSubCheck1_Click（IndexAsInteger）
Text1（Index）=""
IfCheck1（Index）.Value=1Then
Text1（Index）.SetFocus
EndIf
EndSub
PrivateSubCommand1_Click（）
DimiAsInteger
DimsumAsLong,n%
DimtitleAsString,priceAsInteger
sum=0
Fori=0To4
SelectCasei
Case0
title="电视机"
price=3580
Case1
title="微波炉"
price=660
Case2
title="电冰箱"
price=1850
Case3
title="DVD"
price=2880
Case4
title="分体空调"
price=5500
EndSelect
IfCheck1（i）.Value=1AndText1（i）.Text<>""Then
List1.AddItemtitle&Text1（i）.Text&"台"
sum=sum+Val（Text1（i））*price
n=n+Val（Text1（i））
EndIf
Nexti
Ifsum<>0Then
List1.AddItem"共:
"&n&"台"&"合计金额:
"&sum&"元"
EndIf
EndSub
PrivateSubCommand2_Click（）
List1.Clear
EndSub
PrivateSubText1_KeyPress（IndexAsInteger,KeyAsciiAsInteger）
IfKeyAscii<48OrKeyAscii>57Then'输入非数字时弹出对话框,同时文本框重新获得焦点
KeyAscii=0
MsgBox"请输入数字"
Text1（Index）.SetFocus
EndIf
EndSub
12、设计一个“个人资料”输入窗口，程序运行界面如下图所示。
具体要求如下：
（1）按照运行界面设计窗体，其中“民族”用组合列表框显示。
（2）单击“确定”按钮，将个人资料信息输出在“个人资料”框架的标签框中。
PrivateSubForm_Load（）'初始化民族组合框
Combo1.AddItem"回族"
Combo1.AddItem"汉族"
Combo1.Text="汉族"'组合框的默认值为汉族
EndSub
PrivateSubCommand1_Click（）
DimSexAsString,HobbyAsString
IfOption1.ValueThen'判断性别
Sex=Option1.Caption
Else
Sex=Option2.Caption
EndIf
'判断爱好
IfCheck1.Value=1ThenHobby=Hobby&""&Check1.Caption'Hobby为变量名，存放爱好
IfCheck2.Value=1ThenHobby=Hobby&""&Check2.Caption
IfCheck3.Value=1ThenHobby=Hobby&""&Check3.Caption
IfCheck4.Value=1ThenHobby=Hobby&""&Check4.Caption
'显示
Label4.Caption=Txtname.Text&""&Sex&""&Txtage&""&Combo1.Text&"爱好：
"&Hobby
'Txtname表示姓名文本框的名称，Txtage表示年龄文本框的名称
EndSub
PrivateSubCommand2_Click（）
End
EndSub
13、新建一个工程，完成应用程序的设计。
具体要求如下：
（1）按照下图所示在窗体上放置按钮和控件。
品牌用组合框显示。
（2）窗体上有两个CheckBox，当这两个选项未被选定时，它们所在框架的其他控件不能使用。
（3）如果单击“确定”按钮，则在按钮下面的标签框中显示用户所选择的信息。
PrivateSubForm_Load（）
Label3.BorderStyle=1
Frame1.Caption=""
Frame2.Caption=""
Check1.Value=0
Check2.Value=0
Text1.Text=""
EndSub
PrivateSubCheck1_Click（）
IfCheck1.Value=1Then
Text1.Enabled=True
Combo1.Enabled=True
Else
Combo1.Enabled=False
Text1.Enabled=False
EndIf
EndSub
PrivateSubCheck2_Click（）
IfCheck2.Value=1Then
Option1.Enabled=True
Option2.Enabled=True
Else
Option1.Enabled=False
Option2.Enabled=False
EndIf
EndSub
PrivateSubCommand1_Click（）
Label3.Caption=""
IfCheck1.Value=1Then
Label3.Caption=Label3.Caption+"计算机:
"+Chr（13）+Chr（10）
Label3.Caption=Label3.Caption+Combo1.Text+Text1+"台"+Chr（13）+Chr（10）
EndIf
IfCheck2.Value=1Then
Label3.Caption=Label3.Caption+"操作系统"+Chr（13）+Chr（10）
IfOption1.Value=TrueThen
Label3.Caption=Label3.Caption+Option1.Caption
Else
Label3.Caption=Label3.Caption+Option2.Caption
EndIf
EndIf
EndSub
14、
（1）参照运行时界面完成界面设计。
（2）单击“添加单词”按钮，将Text1中的单词添加到列表框，并使Text1获得焦点，可直接输入另一个单词。
（3）单击“删除单词”按钮，删除列表框中被选中的列表项。
（4）单击“全部删除”按钮，删除列表框中的全部表项。
（5）单击“退出”按钮，结束该程序。
PrivateSubCommand1_Click（）
IfText1.Text<>""Then
List1.AddItemText1.Text
Text1.Text=""
Text1.SetFocus
EndIf
EndSub
PrivateSubCommand2_Click（）
Iflist1.listindex<>-1then
List1.removeitemlist1.listindex
Endif
EndSub
PrivateSubCommand3_Click（）
List1.Clear
EndSub
PrivateSubCommand4_Click（）
End
EndSub
15、
（1）参照运行时界面完成界面设计。
（2）列表框内容中有四项，分别为“Word、Excel、PowerPoint、Outlook”。
（3）单击“添加”按钮（Command1），将文本框中的内容回到列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加”。
（4）单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。
PrivateSubForm_Load（）
List1.AddItem"word"
List1.AddItem"excel"
List1.AddItem"frontpage"
List1.AddItem"ou
升级会员 