VB设计习题选附答案Word下载.docx
《VB设计习题选附答案Word下载.docx》由会员分享，可在线阅读，更多相关《VB设计习题选附答案Word下载.docx（22页珍藏版）》请在冰豆网上搜索。
DJ.SelStart=0
DJ.SelLength=Len（DJ.Text）
PrivateSubSJ_Change（）
PrivateSubSJ_GotFocus（）
SJ.SelStart=0
SJ.SelLength=Len（SJ.Text）
（代码二）
Label4.Caption=Val（DJ.Text）*Val（SJ.Text）
（4-2）设计一个收款计算程序，界面如图所示。
1）三个输入文本框依次取名为T1、T2、T3，应付款文本框取名为TRESULT。
2）运行时焦点在折扣一栏，输入折扣后，按Tab键可输入单价，再按Tab键可输入数量。
3）单击“计算”按钮计算应付款，应付款内容为只读。
4）单击“清除”按钮或“ESC”键清除应付款内容，
并将焦点定位在“折扣”一栏，选中“折扣”中的内容，以便修改。
使用以下语句定位焦点并选中文本
T3.SetFocus
T3.SelStart=0
T3.SelLength=Len（T3.Text）
5）单击“退出”按钮结束执行。
TRESULT.Text=Val（T1.Text）*Val（T2.Text）*Val（T3.Text）*0.1
TRESULT.Text="
T3.SetFocus
T3.SelStart=0
T3.SelLength=Len（T3.Text）
PrivateSubCommand3_Click（）
（4-3）（2-10）设计如图所示界面。
运行时按下某命令按钮对文本框中的文字完成相应的设置。
其中每按一次“增大”或“缩小”按钮将是文本框中的文字增大或缩小5磅。
文本框各属性如下：
字号：
.FontSize下划线：
FontUnderline.删除线：
FontStrikethru粗体：
FontBold斜体：
FontItalic
Text1.FontSize=Text1.FontSize+5
Text1.FontSize=Text1.FontSize-5
Text1.FontUnderline=True
PrivateSubCommand4_Click（）
Text1.FontStrikethru=True
PrivateSubCommand5_Click（）
Text1.FontBold=True
PrivateSubCommand6_Click（）
Text1.FontItalic=True
（4-5）（3-2）设计见面如图所示，单击“出题”按钮，产生任意两个[1,100]之间的随机正数，单击“计算”按钮，求这两数的和。
Randomize
Text1.Text=Int（100*Rnd+1）
Text2.Text=Int（100*Rnd+1）
Text3.Text="
Text3.Text=Val（Text1.Text）+Val（Text2.Text）
（5-2）（5-1）从文本框中输入一个数，单击“判断”按钮判断它能否同时被3、5、7整除，若能整除，则在窗体上显示“能同时被3、5、7整除”，否则显示“不能整除”
DimaAsInteger
a=Val（Text1.Text）
IfaMod3=0AndaMod5=0AndaMod7=0Then
Print"
能同时被3,5,7整除"
Else
不能整除"
EndIf
PrivateSubForm_Load（）
CurrentX=900
CurrentY=1435
（5-3）（5-2）用InputBox函数输入三个数，选出其中的最大数和最小数，显示与窗体上。
Form1.AutoRedraw=True
DimaAsInteger,bAsInteger,cAsInteger
a=Val（InputBox（"
请输入第一个数"
"
请输入三个数"
））
b=Val（InputBox（"
请输入第二个数"
c=Val（InputBox（"
请输入第三个数"
Ifa<
bThen
t=a:
a=b:
b=t
cThen
a=c:
c=t
Ifb<
t=b:
b=c:
最大数为:
;
a
最小数为:
c
（5-6）（5-5）使用SelectCase语句进行条件判断。
用文本框输入学生某门课程的分数后，给出五级评分。
评分标准如下：
优
[90,100]
良
[80,90）
中
[70,80）
及格
[60,70）
不及格
[0,60）
如果输入的分数不在[0,100]范围内，则给出错误提示，并将焦点定位在输入分数的文本框，选中其中的文本。
Dima%
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len（Text1.Text）
0Ora>
100Then
MsgBox"
输入错误,请重新输入"
64,"
error"
SelectCasea
Case0To59
Label2.Caption="
不及格"
Case60To69
及格"
Case70To79
中"
Case80To89
良"
Case90To100
优"
CaseElse
EndSelect
（6-1）（6-6）单击某命令按钮输出3～100之间的所有奇数、奇数之和。
将奇数显示与带垂直滚动条的文本框中，奇数之和显示与另一文本框中。
DimiAsInteger,sumAsInteger
sum=0
Fori=3To100
IfiMod2<
>
0Then
Text1.Text=Text1.Text&
Str（i）&
vbCrLf
sum=sum+i
Nexti
Text2.Text=sum
（6-10）（6-12）求1!
+2!
+3!
+…+20!
。
PrivateSubForm_Click（）
Dimn#,sum#
n=1
DoWhilen<
=20
Item=1
Fori=1Ton
Item=Item*i
sum=sum+Item
n=n+1
Loop
sum="
sum
（6-12）（6-13）“水仙花数”是指一个3位数，其中各位数的立方和等于该数，如153=1^3+5^3+3^3，编写程序，打印出100～1000之间的所有水仙花数。
Dima,b,cAsInteger
Fora=0To9
Forb=0To9
Forc=1To9
Ifa^3+b^3+c^3=a+10*b+100*cThen
Print100*c+10*b+a
Nextc
Nextb
Nexta
EndSub
（7-2）（9-2）在窗体上先画两个图片框Picture1和Picture2，在Picture1中方四个选项按钮Option1（0）、Option1
（1）、Option1
（2）、Option1（3）；
设置各个选项按钮的Style属性为1-Graphical，使他们成为按钮的形状；
修改各个选项按钮的Caption属性，使他们分别为“宋体”、“楷体”、“黑体”和“隶书”；
在Picture2中方四个复选框Check1（0）、Check1
（1）、Check1
（2）、Check1（3），设置各个复选框的Style属性为1-Graphical，使他们成为按钮的形状；
修改各个复选框的Caption属性，使他们分别为“粗体”、“斜体”、“删除线”、“下划线”，如图所示。
编写程序，单击选项按钮可以改变文本框中文字的字体，点击复选框中的选项可以对文本框中的文字同时设置（或取消）1～4种文字的样式或效果。
PrivateSubCheck1_Click（）
Text1.FontBold=Check1.Value
PrivateSubCheck2_Click（）
Text1.FontItalic=Check2.Value
PrivateSubCheck3_Click（）
Text1.FontStrikethru=Check3.Value
PrivateSubCheck4_Click（）
Text1.FontUnderline=Check4.Value
Text1.Text="
6月14日，在中华民族传统佳节端午节来临之际，"
&
_
"
中共中央政治局常委、国务院总理温家宝先后来到北京市儿童福利院"
、西城区富国里社区、地铁6号线平安里站施工工地，"
看望孤残儿童和城市低保户，了解农贸市场蔬菜供应和价格情况，"
召开新一代农民工座谈会。
这是温家宝在北京市西城区富国里社区看望低保户"
PrivateSubOption1_Click（）
Text1.FontName="
宋体"
PrivateSubOption2_Click（）
楷体"
PrivateSubOption3_Click（）
黑体"
PrivateSubOption4_Click（）
华文隶书"
（7-5）（9-5）让一行欢迎词从窗体的左侧逐渐移向右侧，当全部移出右侧后，从窗体左侧开始移动，只到按下某按钮后停止移动。
Timer1.Enabled=True
Timer1.Enabled=False
Timer1.Interval=50
Label1.Left=0
PrivateSubTimer1_Timer（）
IfLabel1.Left>
=Form1.ScaleWidthThen
Label1.Left=Label1.Left+100
（7-9）（9-9）设计一个滚动条及两个文本框，滚动条代表温度，最小值是摄氏零度（或华氏32度），最大值是摄氏100度（或华氏212度），如图所示。
运行时，当移动滚动条时，摄氏及华氏文本框能正确显示相应的温度值
VScroll1.Min=32
VScroll1.Max=212
PrivateSubVScroll1_Change（）
Text1.Text=VScroll1.Value
Text2.Text=Int（5/9*（VScroll1.Value-32））
PrivateSubVScroll1_Scroll（）
（8-1）（7-2）用InputBox函数输入10个数与数组A中，输入后将这10个数显示在文本框中，并统计正数的个数，正数的和，负数的个数，负数的和。
用Print方法将结果打印在窗体上，设计界面、运行结果如图所示。
Label1.Visible=False
DimNumber（1To10）AsInteger
DimZSCountAsInteger,FSCountAsInteger
DimZSSumAsInteger,FSSumAsInteger
ForI=1To10
Number（I）=Val（InputBox（"
请输入第"
I&
个数"
数据统计"
））
Number（I）&
IfNumber（I）>
ZSCount=ZSCount+1
ZSSum=ZSSum+Number（I）
ElseIfNumber（I）<
FSCount=FSCount+1
FSSum=FSSum+Number（I）
NextI
CurrentX=900:
CurrentY=1750
正数的个数="
ZSCount&
正数的和="
ZSSum
CurrentY=1950
负数的个数="
FSCount&
负数的和="
FSSum
（8-2）（7-11）设计如图所示的界面，其中，第一行为控件数组Text1，第二行为控件数组Text2，运行时，输入任意内容于控件数组Text1中，点击“交换”按钮将控件数组Text1中的内容按相反的次序显示与控件数组Text2中。
Fori=0To8
Text2（8-i）.Text=Text1（i）.Text
（8-3）（7-3）单击第一个按钮，生成20个[0，100]之间的随机整数，显示于文本框Text1中，单击第二个按钮，求这20个随机整数中的最大数，并将其显示在文本框Text2中。
PublicmaxAsInteger
Dima（1To20）AsInteger
Fori=1To20
a（i）=Int（100*Rnd+1）
Str（a（i））&
Nexti
Fori=1To19
Forj=i+1To20
Ifa（i）>
a（j）Then
t=a（i）:
a（i）=a（j）:
a（j）=t
Nextj
max=a（20）
Text2.Text=max
（9-1）（8-1）设计如图所示的界面，在窗体模块中编写一函数过程，计算1+2+3+…+n，运行时输入m，n，p的值，单击“y=”按钮调用该函数过程计算一下y值，运算结果保留4位小数。
运行时界面如图。
Y=（（1+2+…+m）+（1+2+…+n））/（1+2+…+p）
FunctionFact1（nAsInteger）AsLong
DimFAsLong
F=0
F=F+i
Fact1=F
EndFunction
SubFact2（nAsInteger,FAsLong）
Dimm%,n%,p%
Dimf1AsLong,f2AsLong,f3AsLong
m=Val（Text1.Text）
n=Val（Text2.Text）
p=Val（Text3.Text）
Text4.Text=Format（（Fact1（m）+Fact1（n））/Fact1（p）,"
0.0000"
）
（9-2）（8-2）将实习（9-1）改成用Sub过程求1+2+3+…+N，完成相同的功能。
CallFact2（m,f1）
CallFact2（n,f2）
CallFact2（p,f3）
Text4.Text=Format（（f1+f2）/f3,"
（9-3）（8-3）在窗体模块中自定义一个Sub过程，按给定的不同字符及行数在图片框中打印行数相同。
运行时，单击图片框，用InputBox输入任一字符及行数，调用该过程打印图形。
OptionExplicit
PrivateSubPicture1_Click（）
DimcharAsString*1
DimnAsInteger
char=InputBox（"
字符类型"
请输入字符"
n=Val
升级会员 