VB设计习题选附答案Word下载.docx
- 文档编号:18392736
- 上传时间:2022-12-16
- 格式:DOCX
- 页数:22
- 大小:333.52KB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 设计 习题 答案