VB经典的程序设计题Word文档下载推荐.docx
《VB经典的程序设计题Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《VB经典的程序设计题Word文档下载推荐.docx(13页珍藏版)》请在冰豆网上搜索。
![VB经典的程序设计题Word文档下载推荐.docx](https://file1.bdocx.com/fileroot1/2022-10/12/bfc1ed75-4ba8-46f2-a3bf-573b3a5fed8f/bfc1ed75-4ba8-46f2-a3bf-573b3a5fed8f1.gif)
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