Vb复习材料Word文档下载推荐.docx
- 文档编号:22031877
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:18
- 大小:74.78KB
Vb复习材料Word文档下载推荐.docx
《Vb复习材料Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《Vb复习材料Word文档下载推荐.docx(18页珍藏版)》请在冰豆网上搜索。
A04、求并联电阻R的值。
在两个文本框中分别输入电阻R1、R2的值,单击“计算”按钮,在“R”框中显示并联电阻R的值;
单击“清除”按钮清除数据;
单击“退出”按钮程序。
R=R1*R2/(R1+R2))
r1=Val(Text1.Text)
r2=Val(Text2.Text)
Label4.Caption=r1*r2/(r1+r2)
Text1.Text="
Text2.Text="
Label4.Caption="
PrivateSubCommand3_Click()
End
A05、编程完成美元兑换人民币的计算,假设美元兑换人民币,100美元=635人民币,输入美元数,输出兑换的人民币数。
m=Val(Text1.Text)
Label3.Caption=m*6.35
Label3.Caption="
B类需界面设计
B01、在文本框中任意输入两个数,单击“比较”按钮后,将其中的最大值显示在下方标签中;
单击“清除”按钮清除各项数值。
Ifa>
bThenc=aElsec=b
Label4.Caption=c
B02、某公司卖光盘,50片以上(含50片),每片2元。
50片以下,每片3元。
编程在“光盘数量”框中输入购买的光盘数,单击“计算”按钮后在“应收金额”框中显示应收钱数。
单击“结束”按钮结束程序。
=50Thenb=2*aElseb=3*a
Label4.Caption=b
B03、由铁路托运行李,从甲地到乙地,行李不超过50kg时,运费为1.50元/kg,如果超过50kg,超过部分的运费为2.00元/kg。
请编写程序,当输入行李重量后,单击“计算”按钮计算运费,单击“清除”按钮可以清除各项数值。
Ifa<
=50Thenb=1.5*aElseb=75+2*(a-50)
Label3.Caption=b
Label3.Caption="
B04、输入a,b的值,当a×
b>
0时计算表达式y=
的值,否则输出“wrong”。
Ifa*b>
0Theny=(a+b)/Sqr(4*a*b)Elsey="
wrong"
Label4.Caption=y
Text2.Text="
Label4.Caption="
B05.某人去批发白糖,买50袋以下,每袋3.2元,买50袋以上(含50),每袋可少收0.7元,问批发若干袋,应付多少钱?
50Thenb=3.2*aElseb=(3.2-0.7)*a
B06.某商场在“五一”期间进行促销活动,若消费者所购商品低于500(含500)元,则实行八折优惠,否则实行七折优惠。
=500Thenb=0.8*aElseb=0.7*a
B07.有键盘输入三条边ABC,判断是否构成三角形,构成三角形的显示“此三边能够成三角形”,否则显示“此三边不能够成三角形”。
c=Val(Text3.Text)
Ifa+b>
candb+c>
aanda+c>
bThenLabel5.Caption="
此三边能够成三角形"
elseLabel5.Caption="
此三边不能够成三角形"
PrivateSubCommand3_Click()
B08.某商店出售铅笔,买60只以上(含60)按批发价,每只0.4元,买铅笔不足60支的按零售价,每只0.6元.计算买铅笔应付款。
60Thenb=0.6*aElseb=0.4*a
B09.输入一个人的身高(单位:
厘米)和体重(单位:
斤),如果体重大于(身高-50(斤))就显示“超重”否则输出“不超重”。
g=Val(Text1.Text)
t=Val(Text2.Text)
Ift>
g-50Thenb=“超重”Elseb=“不超重”
B10.输入一个数,如果是整数,就打印“YES”,否则就打印“NO”。
Ifa=fix(a)Thenb=“YES”Elseb=“NO”
C类需界面设计
C01求1到1000之间的偶数和、奇数和。
s1=0
s2=0
Fori=1To1000
If(iMod2)=0Thens1=s1+iElses2=s2+i
Next
Label2.caption=s1
Label4.caption=s2
C02编程计算S=1+2+3+4+……N,找一个最大整数,使得S<
30000
s=0
Fori=1To30000
s=s+i
Ifs<
30000Ands+i+1>
=30000Then
Label2.Caption=i
Label4.Caption=s
EndIf
C03、求N!
=1*2*3*…*N,N值由键盘输入(N应在5---10之间,否则输出“N值不符合要求”)。
n=Val(InputBox("
n="
"
输入n值(5-10)"
))
Ifn>
=5Andn<
=10Then
s=1
Fori=1Ton
s=s*i
Next
Label1.Caption="
1*2*3*......*"
&
n&
"
="
s
Else
N值不符合要求"
EndIf
C04编程求累加101+102+103+……+X的值(101≤X≤200)。
X的值由键盘输入,累加结果显示在“结果”框中。
x值"
输入X值(101-200)"
=101Andn<
=200Then
s=0
Fori=101Ton
101+102+103+……+"
X值不符合要求,请重新输入"
C05单击窗体时生成20个[0,9]范围内的随机整数,在窗体上显示出其中大于5的随机整数。
PrivateSubForm_Click()
Cls
Randomize
Fori=1To20
a=Fix(Rnd*10)
Ifa>
5ThenPrinta
C06求1+2*2+3*3+4*4…..前20项的和。
(用循环语句完成)
s=s+i^2
Label2.Caption=s
C08生成10个[10,99]范围内的随机整数,显示并求平均值。
Fori=1To10
a=Fix(Rnd*90)+10
Printa,
s=s+a
Print"
平均值为:
s/10
C09显示所有能被13整除的两位数并统计个数(使用循环结构)
Fori=10To99
If(iMod13)=0Then
Printi;
s=s+1
C10计算1*2+2*3+3*4+……+9*10的值。
Fori=1To9
s=s+i*(i+1)
C11、求1+1/2+1/3+……+1/10的和
s=s+1/i
Nexti
Label2.caption=s
C12、求1+2^1+2^2+2^3+……+2^10的和
s=s+2^i
C13、编程求1+3+5+……+21的值
Fori=1To21Step2
C14、模拟连续20次掷色子,统计其中出现6点的次数并打印输出
s=0
Fori=1to20
a=Fix(Rnd*6)+1
Ifa=6thens=s+1
D类
D01打印九九乘法表
九九乘法表"
Forj=1Toi
Printi&
*"
j&
i*j,
Next
EndSub
D02编程实现:
点击窗体画出如下图形:
*
***
*****
*******
*********
PrivateSubform1_Click()
Fori=1to5
Printstring(5-i,"
)&
string(2*i-1,"
)
D03编程实现:
*********
*******
*
Fori=5to1step-1
D04编程实现:
点击窗体画出如下图形:
**
****
Fori=1to5
Forj=1toi
print"
D05
一个数列的前两项分别是1和1,从第3个数开始分别是它前面两个数之和,单击窗体输出这个数列的前10项。
(注:
定义数组DIM
A(1
to
10)
as
integer)
Dima(1to10)asinteger
a
(1)=1
a
(2)=1
Fori=3To10
a(i)=a(i-1)+a(i-2)
Printa(i);
D06
有一数列的前四项是:
3,9,27,81….
请找出数列的规律,单击窗体打印输出这个数列的前10项,并计算该数列前10项的和。
Long)
Dima(1to10)asLong
a(i)=3^i
Printa(i)
s=s+a(i)
总和="
;
C07、单击窗体显示出100—200之间的所有素数。
Fori=100to200
f=1
Forj=2toi-1
if(imodj)=0thenf=0
Next
Iff=1thenprinti
Next
C08、单击窗体显示出100以内的所有素数。
Fori=2to100
Iff=1thenprinti;
D09产生10个两位的随机整数并打印输出,点击“排序”按钮将它们
按从小到大的顺序排序并在下一行打印输出。
点击“结束”按钮退出。
Dima(10)
a(i)=Fix(Rnd*90)+10
Forj=i+1To10
Ifa(i)>
a(j)Thent=a(i):
a(i)=a(j):
a(j)=t
D10随机产生10个[1,100]之间的随机整数,请编程单击窗体求出其中最大和次大的整数。
a(i)=Fix(Rnd*100)+1
Fori=2To10
Ifa
(1)<
a(i)Then
t=a
(1)
a
(1)=a(i)
a(i)=t
Endif
Printa
(1)
Ifa
(2)<
a(i)Then
t=a
(2)
a
(2)=a(i)
a(i)=t
Printa
(2)
D11我国古代数学家张丘建在《算经》中出了一道“百钱百鸡”题,题意是:
公鸡五元一只,母鸡三元一只,小鸡一元三只。
用100元钱买100只鸡,问公、母、小鸡各买多少只?
编程输出所有购买方案
公鸡"
"
母鸡"
小鸡"
Forx=1To100
Fory=1To99
z=100-x-y
If5*x+3*y+z/3=100Then
Printx,y,z
Nexty
Nextx
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Vb 复习 材料