09VB期上机练习题及参考答案Word文档下载推荐.docx
《09VB期上机练习题及参考答案Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《09VB期上机练习题及参考答案Word文档下载推荐.docx(50页珍藏版)》请在冰点文库上搜索。
4、编制一个判断奇偶数的Function函数过程。
在窗体的Click事件中调用该函数,输入一个整数,判断其奇偶性。
[参考答案4]:
PrivateFunctionodd(nAsInteger)AsBoolean
IfnMod2=0Then
odd=False
odd=True
Endif
Primeodd(4),odd(5)
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
PrivateSubtext1_keypress(keyasciiAsInteger)
StaticnAsInteger
Ifkeyascii=13Then
IfText1.Text="
1234567"
Then
Label2.Caption="
欢迎光临!
"
Label1.Visible=False
Text1.Visible=False
n=n+1
Ifn<
密码错误,重新输入!
“"
Text1.Text="
非法用户,退出程序!
Text1.Enabled=False
6、
新建一个工程,完成“编辑”程序的设计。
(1)窗体的标题为“编辑”。
(2)窗体中有以下控件:
一个文本框、四个命令按钮。
(3)完成以下功能:
文本框实现文本编辑功能,单击按钮实现相应功能。
[参考答案6]:
PrivateSubCommand1_Click()
Clipboard.Clear'
清除剪贴板中的内容'
Clipboard.SetTextText1.SelText'
将选中文本送入剪贴板'
PrivateSubCommand2_Click()
Clipboard.Clear
Clipboard.SetTextText1.SelText
Text1.SelText="
'
清空文本框内被选中的文本'
PrivateSubCommand3_Click()
Text1.SelText=Clipboard.GetText'
将剪贴板上的文本复制到指定文本框的光标处'
PrivateSubCommand4_Click()
7、新建一个工程,完成“替换”程序的设计。
(1)窗体的标题为“替换”。
(2)窗体中有以下控件:
一个文本框可以多行编辑,两个文本框,两个标签框,一个命令按钮。
(3)完成以下功能:
输入查找内容,把编辑框中所有与查找内容一样的部分替换成另外一个内容。
单击“替换”按钮执行。
[参考答案7]:
Dimlen1AsInteger,len2AsInteger,len3AsInteger
len1=Len(Text1)
len2=Len(Text2)
len3=Len(Text3)
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
i=i+1
Loop
8、
新建一个工程,完成“字体修饰”程序的设计。
(1)按照下图所示在窗体上放置按钮和控件。
窗体的标题为“字体修饰”。
(2)框架Frame1中有一个复选框数组,可以选择粗体,斜体对标签中的文字进行修饰。
(3)框架Frame2中有一个单选钮框数组,可以选择宋体或楷体对标签中的文字进行修饰。
(4)标签Label1的文字内容为“VisualBasic程序设计“,宋体,常规,三号;
文字对齐方式为居中。
[参考答案8]:
PrivateSubCheck1_Click(IndexAsInteger)
SelectCaseIndex
Case0
IfCheck1(0).Value=1Then
Label1.FontBold=True
Label1.FontBold=False
Case1
IfCheck1
(1).Value=1Then
Label1.FontItalic=True
Label1.FontItalic=False
EndSelect
PrivateSubOption1_Click(IndexAsInteger)
Label1.FontName="
宋体"
楷体_gb2312"
9、新建一个工程,完成“点餐”程序的设计。
(1)窗体的标题为“点餐”。
一个框架控件作为容器,内有三个复选框数组、对应三个文本框数组、三个标签框、一个命令按钮。
(3)要求文本框只能接受数字键,并且只有选取了相应的套餐后才可以进行输入;
如果没有选取大套餐,那么文本框不能编辑,并清空。
(4)完成以下功能:
选择所需套餐种类及份数,单击确定按钮后计算所需的钱,并用消息框显示。
[参考答案9]:
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
IfCheck1(Index).Value=1Then
‘若当前复选框被选中,文本框被启用,同时获得焦点
Text1(Index).Enabled=True
Text1(Index).SetFocus
Else
Text1(Index).Text="
Text1(Index).Enabled=False
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&
元"
,"
总价"
PrivateSubText1_KeyPress(IndexAsInteger,KeyAsciiAsInteger)
IfKeyAscii<
48OrKeyAscii>
57Then
‘输入非数字时弹出对话框,同时文本框重新获得焦点
KeyAscii=0
请输入数字"
10、某公司对员工的工资进行调整:
若原有工资大于等于1000元,增加工资35%;
若小于1000元大于等于800元,则增加工资25%;
若小于800元,则增加工资15%。
请根据用户输入的原有工资,计算出增加后的工资。
[参考答案10]:
Text1.SetFocus
Text1.Text="
Text2.Text="
Option1.Value=False
Option2.Value=False
Option3.Value=False
End
PrivateSubOption1_Click()
IfVal(Text1.Text)>
=1000Then
Text2.Text=Val(Text1.Text)*1.35
PrivateSubOption2_Click()
IfVal(Text1.Text)>
=800AndVal(Text1.Text)<
1000Then
Text2.Text=Val(Text1.Text)*1.25
PrivateSubOption3_Click()
IfVal(Text1.Text)<
800AndVal(Text1.Text)>
0Then
Text2.Text=Val(Text1.Text)*1.15
11、设计一个“家电提货单”管理程序,程序运行界面如下图所示。
(1)单击“确定”后,根据选择的内容将清单及总价在列表框中列出。
(2)每选择一种家电,光标自动定位在相应的文本框中,取消选择时,相应的文本框自动清空。
(3)“清除”按钮用于清空列表框中的项目。
(4)所有文本框只接受数字。
[参考答案11]:
Text1(Index)="
IfCheck1(Index).Value=1Then
DimsumAsLong,n%
DimtitleAsString,priceAsInteger
sum=0
Fori=0To4
SelectCasei
title="
电视机"
price=3580
微波炉"
price=660
Case2
电冰箱"
price=1850
Case3
DVD"
price=2880
Case4
分体空调"
price=5500
IfCheck1(i).Value=1AndText1(i).Text<
>
List1.AddItemtitle&
Text1(i).Text&
台"
sum=sum+Val(Text1(i))*price
n=n+Val(Text1(i))
Ifsum<
List1.AddItem"
共:
n&
台"
合计金额:
List1.Clear
12、设计一个“个人资料”输入窗口,程序运行界面如下图所示。
(1)按照运行界面设计窗体,其中“民族”用组合列表框显示。
(2)单击“确定”按钮,将个人资料信息输出在“个人资料”框架的标签框中。
[参考答案12]:
PrivateSubForm_Load()'
初始化民族组合框
Combo1.AddItem"
回族"
汉族"
Combo1.Text="
DimSexAsString,HobbyAsString
IfOption1.ValueThen'
判断性别
Sex=Option1.Caption
Sex=Option2.Caption
'
判断爱好
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&
爱好:
Hobby
End
13、新建一个工程,完成应用程序的设计。
(2)窗体上有两个CheckBox,当这两个选项未被选定时,它们所在框架的其他控件不能使用。
(3)如果单击“确定”按钮,则在按钮下面的标签中显示用户所选择的信息。
[参考答案13]:
Label3.BorderStyle=1
Frame1.Caption="
Frame2.Caption="
Check1.Value=0
Check2.Value=0
PrivateSubCheck1_Click()
IfCheck1.Value=1Then
Text2.Enabled=True
Text1.Enabled=True
Text2.Enabled=False
PrivateSubCheck2_Click()
IfCheck2.Value=1Then
Option1.Enabled=True
Option2.Enabled=True
Option1.Enabled=False
Option2.Enabled=False
Label3.Caption="
Label3.Caption=Label3.Caption+"
计算机:
+Chr(13)+Chr(10)
Label3.Caption=Label3.Caption+combo1.Text+Text1+"
操作系统"
IfOption1.Value=TrueThen
Label3.Caption=Label3.Caption+Option1.Caption
Label3.Caption=Label3.Caption+Option2.Caption
14、
(1)参照运行时界面完成界面设计。
(2)单击“添加单词”按钮,将Text1中的单词添加到列表框,并使Text1获得焦点,可直接输入另一个单词。
(3)单击“删除单词”按钮,删除列表框中被选中的列表项。
(4)单击“全部删除”按钮,删除列表框中的全部表项。
(5)单击“退出”按钮,结束该程序。
[参考答案14]:
IfText1.Text<
List1.AddItemText1.Text
Text1.Text="
Iflist1.listindex<
-1then
List1.removeitemlist1.listindex
Endif
List1.clear
15、参照运行时界面完成界面设计。
要求:
(1)列表框内容中有四项,分别为“Word、Excel、PowerPoint、Outlook”。
(2)单击“添加”按钮(Command1),将文本框中的内容回到列表框中的第一项,如果文本框中没有内容,则给出提示“没有内容,不予添加”。
(3)单击“删除”按钮(Command2),将选中表项删除,如果没有选择要删除的表项,则给出提示“请选择输出的项目”。
[参考答案15]:
word"
excel"
frontpage"
outlook"
Form1.Caption="
添加和删除"
Form1.BorderStyle=1
Command1.Caption="
添加"
Command2.Caption="
删除"
IfText1.Text="
MsgBox("
没有内容,不予添加"
)
List1.AddItemText1.Text,0
IfList1.ListIndex=-1Then
如果没有选中任何一项,则该属性值为-1'
请选择输出的项目"
Li