VB编程作业Word格式.docx
- 文档编号:22299854
- 上传时间:2023-02-03
- 格式:DOCX
- 页数:31
- 大小:1.32MB
VB编程作业Word格式.docx
《VB编程作业Word格式.docx》由会员分享,可在线阅读,更多相关《VB编程作业Word格式.docx(31页珍藏版)》请在冰豆网上搜索。
PrivateSubCommand1_Click()
ZJ.Text=Val(DJ.Text)*Val(SJ.Text)
EndSub
PrivateSubCommand2_Click()
End
ZJ.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)
TRESULT.Text="
"
PrivateSubCommand3_Click()
(4-3)(2-10)设计如图所示界面。
运行时按下某命令按钮对文本框中的文字完成相应的设置。
其中每按一次“增大”或“缩小”按钮将是文本框中的文字增大或缩小5磅。
文本框各属性如下:
字号:
.FontSize下划线:
FontUnderline.删除线:
FontStrikethru粗体:
FontBold斜体:
FontItalic
List1.FontSize=List1.FontSize+5
List1.FontSize=List1.FontSize-5
List1.FontUnderline=True
PrivateSubCommand4_Click()
List1.FontStrikethru=True
PrivateSubCommand5_Click()
List1.FontBold=True
PrivateSubCommand6_Click()
List1.FontItalic=True
(4-5)(3-2)设计见面如图所示,单击“出题”按钮,产生任意两个[1,100]之间的随机正数,单击“计算”按钮,求这两数的和。
Text1.Text=Int(Rnd*101)
Text2.Text=Int(Rnd*101)
Text3.Text=Val(Text1.Text)+Val(Text2.Text)
(5-2)(5-1)从文本框中输入一个数,单击“判断”按钮判断它能否同时被3、5、7整除,若能整除,则在窗体上显示“能同时被3、5、7整除”,否则显示“不能整除”
IfVal(Text1.Text)Mod105=0ThenLabel3.Caption="
能同时被3、5、7整除"
ElseLabel3.Caption="
不能能同时被3、5、7整除"
(5-3)(5-2)用InputBox函数输入三个数,选出其中的最大数和最小数,显示与窗体上。
PrivateSubForm_Activate()
DimaAsSingle,bAsSingle,cAsSingle
DimmaxAsSingle,minAsSingle
a=CSng(InputBox("
请输入第一个数"
"
求三个数中的最大数和最小数"
0"
))
b=CSng(InputBox("
请输入第二个数"
c=CSng(InputBox("
请输入第三个数"
max=a
Ifb>
maxThenmax=b
Ifc>
maxThenmax=c
min=a
Ifb<
minThenmin=b
Ifc<
minThenmin=c
Print"
最大数:
;
max;
vbCrLf;
"
最小数:
min
(5-6)(5-5)使用SelectCase语句进行条件判断。
用文本框输入学生某门课程的分数后,给出五级评分。
评分标准如下:
优
[90,100]
良
[80,90)
中
[70,80)
及格
[60,70)
不及格
[0,60)
如果输入的分数不在[0,100]范围内,则给出错误提示,并将焦点定位在输入分数的文本框,选中其中的文本。
y=Val(Text1.Text)
SelectCasey
CaseIs<
60
Label2.Caption="
不及格"
70
及格"
80
中"
90
良"
Case90To100
优"
EndSelect
(6-1)(6-6)单击某命令按钮输出3~100之间的所有奇数、奇数之和。
将奇数显示与带垂直滚动条的文本框中,奇数之和显示与另一文本框中。
DimiAsInteger,sAsInteger
Fori=3To100Step2
Text1.Text=Text1.Text&
i&
vbCrLf
Sum=Sum+i
Next
Text2.Text=Sum
(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
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="
宋体"
PrivateSubOption2_Click()
楷体"
PrivateSubOption3_Click()
黑体"
PrivateSubOption4_Click()
隶书"
PrivateSubCheck1_Click()
Text1.FontBold=Check1.Value
PrivateSubCheck2_Click()
Text1.FontItalic=Check2.Value
PrivateSubCheck3_Click()
Text1.FontStrikethru=Check3.Value
PrivateSubCheck4_Click()
Text1.FontUnderline=Check4.Value
(7-5)(9-5)让一行欢迎词从窗体的左侧逐渐移向右侧,当全部移出右侧后,从窗体左侧开始移动,直到按下某按钮后停止移动。
(7-9)(9-9)设计一个滚动条及两个文本框,滚动条代表温度,最小值是摄氏零度(或华氏32度),最大值是摄氏100度(或华氏212度),如图所示。
运行时,当移动滚动条时,摄氏及华氏文本框能正确显示相应的温度值
PrivateSubVScroll1_Change()
Text2.Text=VScroll1.Value
Text1.Text=((9*VScroll1.Value)/5)+32
(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("
输入第"
&
个数"
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"
正数的个数="
zs&
正数的和="
zsum
负数的个数="
10-zs&
负数的和="
fsum
(8-2)(7-11)设计如图所示的界面,其中,第一行为控件数组Text1,第二行为控件数组Text2,运行时,输入任意内容于控件数组Text1中,点击“交换”按钮将控件数组Text1中的内容按相反的次序显示与控件数组Text2中。
ForI=0To9
Text2(I).Text=Text1(Text1.UBound-I).Text
NextI
(8-3)(7-3)单击第一个按钮,生成20个[0,100]之间的随机整数,显示于文本框Text1中,单击第二个按钮,求这20个随机整数中的最大数,并将其显示在文本框Text2中。
DimxAsInteger
Randomize
Dima(20)AsInteger
Fori=1To20
a(i)=Int(Rnd*100)
a(i)&
Space(7)
Ifx<
a(i)Thenx=a(i)
Text2=x
(9-1)(8-1)设计如图所示的界面,在窗体模块中编写一函数过程,计算1+2+3+…+n,运行时输入m,n,p的值,单击“y=”按钮调用该函数过程计算一下y值,运算结果保留4位小数。
运行时界面如图。
Y=((1+2+…+m)+(1+2+…+n))/(1+2+…+p)
PrivateFunctionSum(nAsInteger)
Fori=1Ton
Sum=Sum+i
Nexti
EndFunction
DimmAsInteger,nAsInteger,pAsInteger,yAsDouble
m=Val(Text1.Text)
n=Val(Text2.Text)
p=Val(Text3.Text)
Ifm<
1Orn<
1Orp<
1Then
MsgBox"
数据输入格式有误,请重新输入"
Else
y=(Sum(m)+Sum(n))/Sum(p)
Text4.Text=Format(y,"
0.0000"
)
(9-2)(8-2)将实习(9-1)改成用Sub过程求1+2+3+…+N,完成相同的功能。
PrivateSubSum(nAsInteger,resultAsInteger)
result=0
result=result+i
DimresultmAsInteger,resultnAsInteger,resultpAsInteger
数据输入格式错误,请重新输入!
CallSum(m,resultm)
CallSum(n,resultn)
CallSum(p,resultp)
y=(resultm+resultn)/resultp
(9-3)(8-3)在窗体模块中自定义一个Sub过程,按给定的不同字符及行数在图片框中打印行数相同。
运行时,单击图片框,用InputBox输入任一字符及行数,调用该过程打印图形。
PrivateSubPicture1_Click()
DimcAsString
DimnAsInteger
c=InputBox("
请输入字符"
n=Val(InputBox("
请输入行数"
PrintCharc,n
PrivateSubPrintChar(ByValcAsString,ByValnAsInteger)
DimiAsInteger
DimsAsString
Fori=1Ton
s=s&
c
Picture1.Prints
s="
s
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 编程 作业