VB经典的程序设计题Word文档下载推荐.docx
《VB经典的程序设计题Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB经典的程序设计题Word文档下载推荐.docx（13页珍藏版）》请在冰豆网上搜索。
DoWhilei<
=100sum=sum+ii=i+1
Loop
（DoUntil）
Dountili>
100sum=sum+i
i=i+1
求平均成绩
DimaAsSingle,bAsSingle,cAsSingle,dAsSingleDimpjAsSingle
a=60:
b=70:
c=80:
d=90pj=（a+b+c+d）/4Text1.Text=Str（pj）EndSub
求圆的周长
DimrAsDouble
Constpi=3.1415926
r=Val（InputBox（"
请输入圆的半径"
））
Print"
圆的周长为:
"
2*pi*r
输入两个整数mn，使得m>
=n,并输出mn
DimmAsInteger,nAsInteger,aAsIntegerm=Val（InputBox（"
请输入m:
输入,"
m"
））n=Val（InputBox（"
请输入n:
n"
））Ifn>
mThen
n=a
EndIf
m="
mPrint"
n="
nEndSub
计算sum=1/1!
+1/2!
+1/10!
DimmAsInteger,nAsLong,sAsDoublen=1s=0
Form=1To10n=n*ms=s+1/nNextPrintsEndSub
定义一个下标上界为10的整型数组，并随机函数为其赋值（值处于
【0,100】之间，计算数组中所有偶数的和
Randomize
Dima%（10）
Dimi%,s%
Fori=0To10a（i）=101*Rnd（）
Fori=0To10
Ifa（i）Mod2=0Thens=s+a（i）
所有偶数的和为:
s
输入一个四位数，分别输出它的个位数字、十位数字、百位数字、和千位数字。
（待修改）
Dima%,i%,k%,m%,s$
a=Val（InputBox（"
请输入一个四位数"
i=aMod10
j=（aMod100）\10
k=（aMod1000）\100
m=a\1000
s="
个位数字是:
&
i&
vbcrlf"
十位数字是:
j&
vbcrlf&
百位数字是:
k&
千位数字
是:
m
Prints
计算sum=2!
+4!
+6!
++10!
Dima!
i%,sum!
i=1:
a=1
Do
a=2*i
IfiMod2=0Then
sum=sum+a
LoopWhilei<
=10
Printsum
用inputbox输入一个年份，判断该年份是否是闰年，若是则输出
Yes,否则输出No
Dimj%
j=Val（InputBox（"
请输入年份"
IfjMod4=0Then
MsgBox（"
Yes"
）
Else
No"
计算并输出下面级数前n项（n=20）中奇数项的和。
1*2*3-2*3*4+3*4*5-4*5*6++（-1）（n-1）
*n*（n+1）*（n+2）+
Dims!
i%
Fori=1To20Step2
s=s+i*（i+1）*（i+2）
MsgBox（s）
如果一个三位数等于其各位数字的立方和，则称其为水仙花数。
请输入一个三位数，并判断其是否为水仙花数。
若是，用MsgBox输出“yes”，否则输出“no”
Dima%,i%,j%,k%
a=InputBox（"
请输入一个三位数！
"
i=a\100
j=a\10Mod10
k=aMod10
Ifa=iA3+jA3+kA3Then
yes"
no"
某分段函数描述如下：
（1）当x为偶数时，y的值为x的二分之一
（2）当x为奇数时，y的值为x的二倍
Dimx!
y!
x=Val（lnputBox（"
请输入X的值！
IfxMod2=0Then
y=x/2
Elsey=2*xEndIfMsgBox（y）
输入三个数，判断其是否能够构成三角形
DimiAsInteger,a
（2）AsInteger,pAsSingle,sAsSingle
Fori=0To20
a（i）=val（inputbox（"
输入第"
条边的边长:
Nexti
Ifa（0）+a
（1）>
a
（2）Anda（0）+a
（2）>
a
（1）Anda
（1）+a
（2）>
a（0）Then
p=（a（0）+a
（1）+a
（2））/2s=sqr（p*（p-a（0）*（p-a
（1））*（p-a
（2）））MsgBox（s）
不能形成三角形!
计算1*3*5*9
DimsumAsLong,iAsInteger
sum=1
Fori=1To9Step2
sum=sum*i
MsgBox（sum）
编写程序，求下面级数前n项的和s=1/1!
-1/2!
+1/3!
-1/4（-1）
A（n-1）*1/n!
+…..
求和过程当某一项的绝对值小于0.0001时结束（注意，该项参与求
和），计算并输出所求的和s，要求保留6位小数
DimmAsDouble,nAsInteger,sAsDouble,fAsInteger
s=0:
n=-1:
m=1:
f=1DoWhile1/m>
=0.0001m=m*ff=f+1
n=-ns=s+n/m
s=Format（s,"
0.000000"
随即输出一个位于【0,100】之间的整数
Dims%s=（101*Rnd）
编写程序，计算并输出下面级数前n项（n=50）中的偶数项的和
Fori=2To50Step2
s=s+i*（i+1）
《VB期末范围题总汇》
1．求随机10个整数的最大值、最小值、平均值以及和；
Dima（1To10）
PrivateSubCommand1_Click（）Randomize
Picture1.Print"
产生的随机数为：
Fori=1To10
a（i）=Int（Rnd*99+1）
Picture1.Printa（i）;
Picture1.Print
Dimmax,min,avemax=a
（1）
min=a
（1）
ave=0.1*a
（1）
Fori=2To10
Ifa（i）>
maxThenmax=a（i）
Ifa（i）<
minThenmin=a（i）ave=ave
升级会员 