Ifmin>a(i)Thenmin=a(i)
sum=sum+a(i)
Nexti
sum=sum-max-min
ave=sum/8
Print
Print"平均值为:
"&ave
EndSub
21.产生10个100以内的随机整数,统计其中偶数有多少个
PrivateSubCommand1_Click()
Dima(10)AsInteger
DimiAsInteger
DimcounAsInteger
Randomize
Fori=1To10
a(i)=Int(Rnd*100)
Printa(i);"";
Next
coun=0
Fori=1To10
Ifa(i)Mod2=0Thencoun=coun+1
Nexti
Print
Print"有"&coun&"个偶数"
EndSub
22.打印出所有的“水仙花数”,所谓“水仙花数”是指一个三位数,其各位数字立方和等于该数本身。
例如:
153是一个“水仙花数”,因为153=1的三次方+5的三次方+3的三次方。
PrivateSubCommand1_Click()
'方法一
DimiAsInteger
DimsAsString
DimaAsInteger
DimbAsInteger
DimcAsInteger
Fori=100To999
s=LTrim(Str(i))
a=Val(Left(s,1))
b=Val(Mid(s,2,1))
c=Val(Right(s,1))
Ifa^3+b^3+c^3=iThen
Printi
EndIf
Nexti
EndSub
PrivateSubCommand2_Click()
'方法二
DimiAsInteger
DimsAsString
DimaAsInteger
DimbAsInteger
DimcAsInteger
Fori=100To999
a=iMod10
b=i\100
c=(i\10)Mod10
Ifa^3+b^3+c^3=iThen
Printi
EndIf
Nexti
EndSub
23.输入二个整数,计算它们的最大公约数和最小公倍数
PrivateSubCommand1_Click()
DimmAsInteger
DimnAsInteger
DimdAsInteger
Dimm1AsInteger
Dimn1AsInteger
m=InputBox("请输入第一个数")
n=InputBox("请输入第二个数")
m1=m
n1=n
Ifmd=m
m=n