09VB期末上机练习题及参考答案.docx
- 文档编号:25234327
- 上传时间:2023-06-06
- 格式:DOCX
- 页数:37
- 大小:66.25KB
09VB期末上机练习题及参考答案.docx
《09VB期末上机练习题及参考答案.docx》由会员分享,可在线阅读,更多相关《09VB期末上机练习题及参考答案.docx(37页珍藏版)》请在冰豆网上搜索。
09VB期末上机练习题及参考答案
09VB本科期末上机练习及参考答案
1、编制通用函数过程,计算1+2+„„+N的值。
在窗体的Click事件中调用该函数。
[参考答案1]:
PrivateFunctionsum(nAsIntegerAslong
DimiAsInteger
Fori=1Ton
sum=sum+i
Nexti
EndFunction
PrivateSubForm_Click(
Printsum(100
EndSub
2、编制通用函数过程,计算N!
的值。
在窗体的Click事件中调用该函数。
[参考答案2]:
PrivateFunctionfact(nAsIntegerAsDouble
DimiAsInteger
fact=1
Fori=1Ton
fact=fact*i
Nexti
EndFunction
PrivateSubForm_Click(
Printfact(5
EndSub
3、编制通用函数过程,用于判断1个整数是否为素数,若是则显示true,若不是则显示false。
在窗体的Click事件中调用该函数。
[参考答案3]:
PrivateFunctionprime(nAsIntegerAsBooleanDimiAsInteger
Ifn<2Then
prime=False
Else
Fori=2ToInt(Sqr(n
IfnModi=0ThenExitFor
Nexti
Ifi>Int(Sqr(nThen
prime=TrueElse
prime=FalseEndIf
EndIf
EndFunction
PrivateSubForm_Click(Printprime(4,prime(7EndSub
4、编制一个判断奇偶数的Function函数过程。
在窗体的Click事件中调用该函数,输入一个整数,判断其奇偶性。
[参考答案4]:
PrivateFunctionodd(nAsIntegerAsBoolean
IfnMod2=0Then
odd=False
Else
odd=True
Endif
EndFunction
PrivateSubForm_Click(
Primeodd(4,odd(5
EndSub
5、新建一个工程,完成“密码检验”程序的设计。
参照运行时界面完成界面设计。
具体要求如下:
(1文本框Text1,用于输入密码。
文本框中输入的字符显示为*,并且最多可以接受7个字符。
(2窗体的下半部有一个标签控件Label2,用来显示密码输入后的提示信息。
(3当在文本框中输入密码“1234567”,并按回车后,标签Label2显示为“欢迎光临!
”;如果输入的密码与“1234567”不吻合,标签Label2显示为“密码不符,请再输入一遍!
”,同时清空文本框的内容,允许再输入一遍;如果第二次输入的密码仍然与“1234567”不吻合,标签Label2显示为“非法用户,请退出程序!
”,文本框就不能使用了。
[参考答案5]:
PrivateSubForm_Load(
Label1.Caption="输入密码后按回车"&Chr(13&Chr(10&"(提示密码:
1234567"
Text1.PasswordChar="*"
Text1.MaxLength=7
EndSub
PrivateSubtext1_keypress(keyasciiAsInteger
StaticnAsInteger
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完成以下功能:
文本框实现文本编辑功能,单击按钮实现相应功能。
[参考答案6]:
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完成以下功能:
输入查找内容,把编辑框中所有与查找内容一样的部分替换成另外一个内容。
单击“替换”按钮执
行。
[参考答案7]:
PrivateSubCommand1_Click(
Dimlen1AsInteger,len2AsInteger,len3AsInteger
len1=Len(Text1
len2=Len(Text2
len3=Len(Text3
DoWhilei<=len1-len2
IfText2=Mid(Text1,i+1,len2Then
Text1.SetFocus
Text1.SelStart=i
Text1.SelLength=len2
Text1.SelText=Text3
i=i+len3
len1=len1-len2+len3
Else
i=i+1
EndIf
Loop
8、新建一个工程,完成“字体修饰”程序的设计。
具体要求如下:
(1按照下图所示在窗体上放置按钮和控件。
窗体的标题为“字体修饰”。
(2框架Frame1中有一个复选框数组,可以选择粗体,斜体对标签中的文字进
行修饰。
(3框架Frame2中有一个单选钮框数组,可以选择宋体或楷体对标签中的文字
进行修饰。
(4标签Label1的文字内容为“VisualBasic程序设计“,宋体,常规,三号;
文字对齐方式为居中。
[参考答案8]:
PrivateSubCheck1_Click(IndexAsIntegerSelectCaseIndexCase0IfCheck1(0.Value=1ThenLabel1.FontBold=TrueElseLabel1.FontBold=FalseEndIfCase1IfCheck1(1.Value=1ThenLabel1.FontItalic=TrueElse
Label1.FontItalic=False
EndIf
EndSelect
EndSub
PrivateSubOption1_Click(IndexAsInteger
SelectCaseIndex
Case0
Label1.FontName="宋体"Case1Label1.FontName="楷体_gb2312"EndSelectEndSub
9、新建一个工程,完成“点餐”程序的设计。
具体要求如下:
(1窗体的标题为“点餐”。
(2窗体中有以下控件:
一个框架控件作为容器,内有三个复选框数组、
对应三个文本框数组、三个标签框、一个命令按钮。
(3要求文本框只能接受数字键,并且只有选取了相应的套餐后才可以
进行输入;如果没有选取大套餐,那么文本框不能编辑,并清空。
(4完成以下功能:
选择所需套餐种类及份数,单击确定按钮后计算所
需的钱,并用消息框显示。
[参考答案9]:
PrivateSubForm_Load(Form1.Caption="点餐"Command1.Caption="确定"Frame1.Caption="菜单"Check1(0.Caption="儿童套餐馆18元"Check1(1.Caption="标准套餐23元"Check1(2.Caption="商务餐28元"Fori=0To2Label1(i.Caption="份数"Check1(i.Value=0Text1(i.Enabled=FalseNextEndSubPrivateSubCheck1_Click(IndexAsIntegerIfCheck1(Index.Value=1Then‘若当前复选框被选中,文本框被启用,同时获得焦点Text1(Index.Enabled=TrueText1(Index.SetFocusElseText1(Index.Text=""
Text1(Index.Enabled=False
EndIf
EndSubPrivateSubCommand1_Click(Dima%,b%,c%,sum%a=Val(Text1(0.Textb=Val(Text1(1.Textc=Val(Text1(2.Textsum=a*18+b*23+c*28MsgBox"一共"&sum&"元",,"总价"EndSubPrivateSubText1_KeyPress(IndexAsInteger,KeyAsciiAsIntegerIfKeyAscii<48OrKeyAscii>57Then‘输入非数字时弹出对话框,同时文本框重新获得焦点KeyAscii=0MsgBox"请输入数字"Text1(Index.SetFocusEndIfEndSub
10、某公司对员工的工资进行调整:
若原有工资大于等于1000元,增加工资35%;若小于1000元大于等于800元,则
增加工资25%;若小于800元,则增加工资15%。
请根据用户输入的原有工资,计算出增加后的工资。
[参考答案10]:
PrivateSubCommand1_Click(
Text1.SetFocus
Text1.Text=""
Text2.Text=""
Option1.Value=False
Option2.Value=False
Option3.Value=False
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所有文本框只接受数字。
[参考答案11]:
PrivateSubCheck1_Click(IndexAsIntegerText1(Index=""IfCheck1(Index.Value=1ThenText1(Index.SetFocusEndIfEndSubPrivateSubCommand1_Click(DimiAsIntegerDimsumAsLong,n%DimtitleAsString,priceAsIntegersum=0Fori=0To4SelectCaseiCase0title="电视机"price=3580Case1title="微波炉"price=660Case2title="电冰箱"price=1850
Case3
title="DVD"
price=2880
Case4
title="分体空调"price=5500EndSelectIfCheck1(i.Value=1AndText1(i.Text<>""ThenList1.AddItemtitle&Text1(i.Text&"台"sum=sum+Val(Text1(i*pricen=n+Val(Text1(iEndIfNextiIfsum<>0ThenList1.AddItem"共:
"&n&"台"&"合计金额:
"&sum&"元"EndIfEndSubPrivateSubCommand2_Click(List1.ClearEndSub
12、设计一个“个人资料”输入窗口,程序运行界面如下图所示。
具体要求如下:
(1按照运行界面设计窗体,其中“民族”用组合列表框显示。
(2单击“确定”按钮,将个人资料信息输出在“个人资料”框架的标签框中。
[参考答案12]:
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
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&"爱好:
"&HobbyEndSub
PrivateSubCommand2_Click(
End
EndSub
13、新建一个工程,完成应用程序的设计。
具体要求如下:
(1按照下图所示在窗体上放置按钮和控件。
(2窗体上有两个CheckBox,当这两个选项未被选定时,它们所在框架的其他控件不能使用。
(3如果单击“确定”按钮,则在按钮下面的标签中显示用户所选择的信息。
[参考答案13]:
PrivateSubForm_Load(
Label3.BorderStyle=1
Frame1.Caption=""
Frame2.Caption=""
Check1.Value=0
Check2.Value=0
Text1.Text=""
EndSub
PrivateSubCheck1_Click(
IfCheck1.Value=1Then
Text2.Enabled=True
Text1.Enabled=True
Else
Text2.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单击“退出”按钮,结束该程序。
[参考答案14]:
PrivateSubCommand1_Click(IfText1.Text<>""ThenList1.AddItemText1.Text
Text1.Text=""Text1.SetFocus
EndIf
EndSubPrivateSubCommand2_Click(Iflist1.listindex<>-1thenList1.removeitemlist1.listindexEndifEndSubPrivateSubCommand3_Click(
List1.clear
EndSub
PrivateSubCommand4_Click(
End
EndSub
15、参照运行时界面完成界面设计。
要求:
(1列表框内容中有四项,分别为“Word、Excel、PowerPoint、
Outlook”。
(2单击“添加”按钮(Command1,将文本框中的内容回到列表框
中的第一项,如果文本框中没有内容,则给出提示“没有内容,不予添加”。
(3单击“删除”按钮(Command2,将选中表项删除,如果没有选
择要删除的表项,则给出提示“请选择输出的项目”。
[参考答案15]:
PrivateSubForm_Load(List1.AddItem"word"List1.AddItem"excel"List1.AddItem"frontpage"List1.AddItem"outlook"Form1.Caption="添加和删除"Form1.BorderStyle=1Command1.Caption="添加"Command2.Caption="删除"Text1.Text=""EndSubPrivateSubCommand1_Click(IfText1.Text=""ThenMsgBox("没有内容,不予添加"
Else
List1.AddItemText1.Text,0
Text1.Text=""
Text1.SetFocus
EndIf
EndSubPrivateSubCommand2_Click(IfList1.ListIndex=-1Then'如果没有选中任何一项,则该属性值为-1'MsgBox("请选择输出的项目"ElseList1.RemoveItemList1.ListIndexEndIfEndSub
16、参照运行时界面完成界面设计。
要求:
(1窗体的上边有一个文本框Text1,文字内容为“心想事成”,Font:
宋体、
常规、三号。
(2左边简单组合框Combo1,有三项内容,分别是“左对齐、居中、右对齐”,
单击时对文本框的对齐方式进行设置。
(3右边简单组合框Combo2,有四项内容,分别是“常规、斜体、粗体、粗斜
体”,单击时对文本框的字型进行设置。
[参考答案16]:
PrivateSubCombo1_Click(SelectCase
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 09 VB 期末 上机 练习题 参考答案