VB编程作业.docx
- 文档编号:9163751
- 上传时间:2023-02-03
- 格式:DOCX
- 页数:31
- 大小:1.32MB
VB编程作业.docx
《VB编程作业.docx》由会员分享,可在线阅读,更多相关《VB编程作业.docx(31页珍藏版)》请在冰豆网上搜索。
VB编程作业
程序设计作业
姓名:
宋望
学号:
20101968
班级:
工业工程1班
2011年6月27日
注:
1.黑色题号是第一版教材的,红色题号是第二版教材的,只有一个题号的是第一、二版教材的
2.将运行结果的截图粘贴到题下,并将程序代码也复制到题下。
3.期末打印出来交上来。
4.每章做出两道题即可,其它题选做。
(4-1)设计一个计算购书价程序,界面如图所示。
要求:
1)界面上的文字全部为宋体五号字
2)按图示给文本框取名。
为“计算总价(C)”和“退出(X)”按钮设访问键
3)编写代码,使得运行时焦点定位在DJ文本框中,输入单价后,按Tab键可输入数量。
在输入单价和数量后,点击“计算总价(C)”按钮,将计算出的总价钱,先是在文本框ZJ中,单击“退出(X)”按钮结束运行。
运行时,计算出的总价为只读,用户不能在界面上修改计算出的总价,且焦点不能定位在ZJ文本框中。
提示:
先将文本框中的内容使用Val函数转换后再进行计算。
4)将ZJ文本框改换成标签,将标签的BorderStyle属性设置为1-FixedSingle,用标签输出计算结果。
文本框DJ
文本框SJ
文本框ZJ
PrivateSubCommand1_Click()
ZJ.Text=Val(DJ.Text)*Val(SJ.Text)
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubCommand1_Click()
ZJ.Caption=Val(DJ.Text)*Val(SJ.Text)
EndSub
PrivateSubCommand2_Click()
End
EndSub
(4-2)设计一个收款计算程序,界面如图所示。
要求:
1)三个输入文本框依次取名为T1、T2、T3,应付款文本框取名为TRESULT。
2)运行时焦点在折扣一栏,输入折扣后,按Tab键可输入单价,再按Tab键可输入数量。
3)单击“计算”按钮计算应付款,应付款内容为只读。
4)单击“清除”按钮或“ESC”键清除应付款内容,
并将焦点定位在“折扣”一栏,选中“折扣”中的内容,以便修改。
提示:
使用以下语句定位焦点并选中文本
T3.SetFocus
T3.SelStart=0
T3.SelLength=Len(T3.Text)
5)单击“退出”按钮结束执行。
PrivateSubCommand1_Click()
TRESULT.Text=Val(T1.Text)*Val(T2.Text)*Val(T3.Text)
EndSub
PrivateSubCommand2_Click()
TRESULT.Text=""
T3.SetFocus
T3.SelStart=0
T3.SelLength=Len(T3.Text)
EndSub
PrivateSubCommand3_Click()
End
EndSub
(4-3)(2-10)设计如图所示界面。
运行时按下某命令按钮对文本框中的文字完成相应的设置。
其中每按一次“增大”或“缩小”按钮将是文本框中的文字增大或缩小5磅。
文本框各属性如下:
字号:
.FontSize下划线:
FontUnderline.删除线:
FontStrikethru粗体:
FontBold斜体:
FontItalic
PrivateSubCommand1_Click()
List1.FontSize=List1.FontSize+5
EndSub
PrivateSubCommand2_Click()
List1.FontSize=List1.FontSize-5
EndSub
PrivateSubCommand3_Click()
List1.FontUnderline=True
EndSub
PrivateSubCommand4_Click()
List1.FontStrikethru=True
EndSub
PrivateSubCommand5_Click()
List1.FontBold=True
EndSub
PrivateSubCommand6_Click()
List1.FontItalic=True
EndSub
(4-5)(3-2)设计见面如图所示,单击“出题”按钮,产生任意两个[1,100]之间的随机正数,单击“计算”按钮,求这两数的和。
PrivateSubCommand1_Click()
Text1.Text=Int(Rnd*101)
Text2.Text=Int(Rnd*101)
EndSub
PrivateSubCommand2_Click()
Text3.Text=Val(Text1.Text)+Val(Text2.Text)
EndSub
(5-2)(5-1)从文本框中输入一个数,单击“判断”按钮判断它能否同时被3、5、7整除,若能整除,则在窗体上显示“能同时被3、5、7整除”,否则显示“不能整除”
PrivateSubCommand1_Click()
IfVal(Text1.Text)Mod105=0ThenLabel3.Caption="能同时被3、5、7整除"ElseLabel3.Caption="不能能同时被3、5、7整除"
EndSub
(5-3)(5-2)用InputBox函数输入三个数,选出其中的最大数和最小数,显示与窗体上。
PrivateSubForm_Activate()
DimaAsSingle,bAsSingle,cAsSingle
DimmaxAsSingle,minAsSingle
a=CSng(InputBox("请输入第一个数","求三个数中的最大数和最小数","0"))
b=CSng(InputBox("请输入第二个数","求三个数中的最大数和最小数","0"))
c=CSng(InputBox("请输入第三个数","求三个数中的最大数和最小数","0"))
max=a
Ifb>maxThenmax=b
Ifc>maxThenmax=c
min=a
Ifb Ifc Print"最大数: ";max;vbCrLf;"最小数: ";min EndSub (5-6)(5-5)使用SelectCase语句进行条件判断。 用文本框输入学生某门课程的分数后,给出五级评分。 评分标准如下: 优 [90,100] 良 [80,90) 中 [70,80) 及格 [60,70) 不及格 [0,60) 如果输入的分数不在[0,100]范围内,则给出错误提示,并将焦点定位在输入分数的文本框,选中其中的文本。 PrivateSubCommand1_Click() y=Val(Text1.Text) SelectCasey CaseIs<60 Label2.Caption="不及格" CaseIs<70 Label2.Caption="及格" CaseIs<80 Label2.Caption="中" CaseIs<90 Label2.Caption="良" Case90To100 Label2.Caption="优" EndSelect EndSub PrivateSubCommand2_Click() End EndSub (6-1)(6-6)单击某命令按钮输出3~100之间的所有奇数、奇数之和。 将奇数显示与带垂直滚动条的文本框中,奇数之和显示与另一文本框中。 PrivateSubCommand1_Click() DimiAsInteger,sAsInteger Fori=3To100Step2 Text1.Text=Text1.Text&i&vbCrLf Sum=Sum+i Next Text2.Text=Sum EndSub PrivateSubCommand2_Click() End EndSub (6-10)(6-12)求1! +2! +3! +…+20! 。 (6-12)(6-13)“水仙花数”是指一个3位数,其中各位数的立方和等于该数,如153=1^3+5^3+3^3,编写程序,打印出100~1000之间的所有水仙花数。 PrivateSubForm_Click() DimaAsInteger,bAsInteger,cAsInteger Fora=0To9 Forb=0To9 Forc=1To9 Ifa*a*a+b*b*b+c*c*c=a+10*b+100*cThen Print100*c+10*b+a EndIf Next Next Next 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种文字的样式或效果。 PrivateSubOption1_Click() Text1.FontName="宋体" EndSub PrivateSubOption2_Click() Text1.FontName="楷体" EndSub PrivateSubOption3_Click() Text1.FontName="黑体" EndSub PrivateSubOption4_Click() Text1.FontName="隶书" EndSub PrivateSubCheck1_Click() Text1.FontBold=Check1.Value EndSub PrivateSubCheck2_Click() Text1.FontItalic=Check2.Value EndSub PrivateSubCheck3_Click() Text1.FontStrikethru=Check3.Value EndSub PrivateSubCheck4_Click() Text1.FontUnderline=Check4.Value EndSub (7-5)(9-5)让一行欢迎词从窗体的左侧逐渐移向右侧,当全部移出右侧后,从窗体左侧开始移动,直到按下某按钮后停止移动。 (7-9)(9-9)设计一个滚动条及两个文本框,滚动条代表温度,最小值是摄氏零度(或华氏32度),最大值是摄氏100度(或华氏212度),如图所示。 运行时,当移动滚动条时,摄氏及华氏文本框能正确显示相应的温度值 PrivateSubVScroll1_Change() Text2.Text=VScroll1.Value Text1.Text=((9*VScroll1.Value)/5)+32 EndSub (8-1)(7-2)用InputBox函数输入10个数与数组A中,输入后将这10个数显示在文本框中,并统计正数的个数,正数的和,负数的个数,负数的和。 用Print方法将结果打印在窗体上,设计界面、运行结果如图所示。 PrivateSubform_click() DimiAsInteger,zsAsInteger DimzsumAsSingle,fsumAsSingle DimA(1To10)AsSingle Me.AutoRedraw=True Text1="" Fori=1To10 A(i)=Val(InputBox("输入第"&i&"个数")) IfA(i)>=0Then zs=zs+1: zsum=zsum+A(i) Else fsum=fsum+A(i) EndIf Text1=Text1.Text&Space(4)&A(i) Nexti Me.CurrentY=Text1.Top+Text1.Height Print Print"正数的个数="&zs&"正数的和="&zsum Print"负数的个数="&10-zs&"负数的和="&fsum EndSub (8-2)(7-11)设计如图所示的界面,其中,第一行为控件数组Text1,第二行为控件数组Text2,运行时,输入任意内容于控件数组Text1中,点击“交换”按钮将控件数组Text1中的内容按相反的次序显示与控件数组Text2中。 PrivateSubCommand1_Click() ForI=0To9 Text2(I).Text=Text1(Text1.UBound-I).Text NextI EndSub (8-3)(7-3)单击第一个按钮,生成20个[0,100]之间的随机整数,显示于文本框Text1中,单击第二个按钮,求这20个随机整数中的最大数,并将其显示在文本框Text2中。 DimxAsInteger PrivateSubCommand1_Click() Randomize Dima(20)AsInteger Fori=1To20 a(i)=Int(Rnd*100) Text1=Text1.Text&a(i)&Space(7)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 编程 作业