实验31 循环结构程序设计.docx

实验31循环结构程序设计
用For…Next语句编写计算1/(1*2)+1/(2*3)+…+1/(n*(n+1))的程序，并显示其计算结果
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimi,nAsInteger,sAsDouble
n=InputBox("输入求和级数n的值：")
s=0
Fori=1Ton
s=s+1/(i*(i+1))
Next
MsgBox("1/(1*2)+1/(2*3)…"&"1/"&i-1&"*("&i-1&"+1)="&Format(s,"0.0000000"))
EndSub
显示图形*
*
***
*****
*******

PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Dimr,s,c,jAsInteger,y(5),ysAsString
ys=""
r=1
DoWhiler<=4
c=10-r:s=1
y(r)=y(r)&Space(c+s)'定一行中显示的起始位置
DoWhiles<=2*r-1
y(r)=y(r)&"*"'形成每行中显示的*符号
s=s+1
Loop
r=r+1
Loop
Forj=1To4
ys=ys&y(j)&Chr(10)
Next
MsgBox(ys)
EndSub

显示上图的倒置图案
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
Dimr,s,c,jAsInteger,y(5),ysAsString
ys=""
r=4
DoWhiler>=1
c=10-r:s=1
ys=ys&Space(c+s)
DoWhiles<=2*r-1
ys=ys&"*"
s=s+1
Loop
r=r-1
ys=ys&Chr(10)
Loop
MsgBox(ys)

EndSub

利用InputBox函数给一个10个元素的数组赋10个任意的数值型数据，然后分别计算下标为奇数的元素和下标为偶数的元素的和，并显示计算结果。要求在同一个循环语句中实现求和。
PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click
Dimx(10)'要求可以是任意数值类型，所以定义为变体变量
Dimodd_num,even_num
Fori=1To10
x(i)=Val(InputBox("请输入第"&Str(i)&"数据","输入数组的10个元素"))
Nexti
odd_num=0:even_num=0
Fori=1To5
odd_num=odd_num+x(2*i-1)'奇下标的元素累加
even_num=even_num+x(2*i)'偶下标的元素累加
Nexti
MsgBox("下标为奇数的元素的和="&odd_num)
MsgBox("下标为偶数的元素的和="&even_num)
EndSub

根据20人组的销售收入业绩编写一个统计程序，要求统计销售金额在50万元以上的业务员人数和收入在10万元以下的业务员人数，并显示其计算结果（提示：说明一个有20个元素的数组。用随机函数产生0~100之间的正整数，作为数组的值）
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
'统计20人的销售业绩
Dimgrade(20)AsSingle,Man_over50,Man_under10AsInteger
Randomize()'生成随机数发生器的新种子值,使每次运行时,产生不同的随机数
Fori=1To20
grade(i)=Int(Rnd()*100)
Nexti
Man_over50=0:Man_under10=0
Fori=1To20
Ifgrade(i)>=50Then
Man_over50=Man_over50+1
ElseIfgrade(i)<10Then
Man_under10=Man_under10+1
EndIf
Nexti
MsgBox("销售业绩在50万元以上的人数="&Man_over50)
MsgBox("销售业绩在10万元以下的人数="&Man_under