VB经典的程序设计题.docx
- 文档编号:746265
- 上传时间:2022-10-12
- 格式:DOCX
- 页数:13
- 大小:47.18KB
VB经典的程序设计题.docx
《VB经典的程序设计题.docx》由会员分享,可在线阅读,更多相关《VB经典的程序设计题.docx(13页珍藏版)》请在冰豆网上搜索。
VB经典的程序设计题
累加求和1到100
PrivateSubCommand1_Click()
DimiAsInteger,sumAsIntegersum=0
Fori=1To100
sum=sum+i
Next
Text1.Text=sum
EndSub
PrivateSubCommand2_Click()End
EndSub
1到100的奇数和
PrivateSubCommand1_Click()DimiAsInteger,sumAsIntegersum=0
Fori=1To100step2sum=sum+iNext
Text1.Text=sumEndSub
PrivateSubCommand2_Click()
End
求n!
PrivateSubCommand1_Click()
DimfactAsDouble,nAsInteger,iAsIntegern=Val(Text1.Text)
fact=1Fori=1Tonfact=fact*iNextText2.Text=factEndSub累加求和1到100
(Dowhile)
PrivateSubCommand1_Click()DimiAsInteger,sumAsIntegersum=0
i=1
DoWhilei<=100sum=sum+ii=i+1
Loop
Text1.Text=sumEndSub
PrivateSubCommand2_Click()
End
EndSub
(DoUntil)
PrivateSubCommand1_Click()DimiAsInteger,sumAsIntegersum=0
i=1
Dountili>100sum=sum+i
i=i+1
Loop
Text1.Text=sum
EndSub
PrivateSubCommand2_Click()
End
EndSub
求平均成绩
PrivateSubCommand1_Click()
DimaAsSingle,bAsSingle,cAsSingle,dAsSingleDimpjAsSingle
a=60:
b=70:
c=80:
d=90pj=(a+b+c+d)/4Text1.Text=Str(pj)EndSub
求圆的周长
PrivateSubCommand1_Click()
DimrAsDouble
Constpi=3.1415926
r=Val(InputBox("请输入圆的半径"))
Print"圆的周长为:
",2*pi*r
EndSub
输入两个整数mn,使得m>=n,并输出mn
PrivateSubCommand1_Click()
DimmAsInteger,nAsInteger,aAsIntegerm=Val(InputBox("请输入m:
",输入,"m"))n=Val(InputBox("请输入n:
",输入,"n"))Ifn>mThen
n=a
EndIf
Print"m=",mPrint"n=",nEndSub
计算sum=1/1!
+1/2!
+1/10!
PrivateSubCommand1_Click()
DimmAsInteger,nAsLong,sAsDoublen=1s=0
Form=1To10n=n*ms=s+1/nNextPrintsEndSub
定义一个下标上界为10的整型数组,并随机函数为其赋值(值处于
【0,100】之间,计算数组中所有偶数的和
PrivateSubCommand1_Click()
Randomize
Dima%(10)
Dimi%,s%
Fori=0To10a(i)=101*Rnd()
Next
Fori=0To10
Ifa(i)Mod2=0Thens=s+a(i)
EndIf
Next
Print"所有偶数的和为:
",s
EndSub
输入一个四位数,分别输出它的个位数字、十位数字、百位数字、和千位数字。
(待修改)
PrivateSubCommand1_Click()
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&vbcrlf&"千位数字
是:
"&m
Prints
EndSub
计算sum=2!
+4!
+6!
++10!
PrivateSubCommand1_Click()
Dima!
i%,sum!
i=1:
a=1
Do
a=2*i
IfiMod2=0Then
sum=sum+a
EndIf
i=i+1
LoopWhilei<=10
Printsum
EndSub
用inputbox输入一个年份,判断该年份是否是闰年,若是则输出
Yes,否则输出No
PrivateSubCommand1_Click()
Dimj%
j=Val(InputBox("请输入年份"))
IfjMod4=0Then
MsgBox("Yes")
Else
MsgBox("No")
EndIf
EndSub
计算并输出下面级数前n项(n=20)中奇数项的和。
1*2*3-2*3*4+3*4*5-4*5*6++(-1)(n-1)
*n*(n+1)*(n+2)+
PrivateSubCommand1_Click()
Dims!
i%
Fori=1To20Step2
s=s+i*(i+1)*(i+2)
Next
MsgBox(s)
EndSub
如果一个三位数等于其各位数字的立方和,则称其为水仙花数。
请输入一个三位数,并判断其是否为水仙花数。
若是,用MsgBox输出“yes”,否则输出“no”
PrivateSubCommand1_Click()
Dima%,i%,j%,k%
a=InputBox("请输入一个三位数!
")
i=a\100
j=a\10Mod10
k=aMod10
Ifa=iA3+jA3+kA3Then
MsgBox("yes")
Else
MsgBox("no")
EndIf
EndSub
某分段函数描述如下:
(1)当x为偶数时,y的值为x的二分之一
(2)当x为奇数时,y的值为x的二倍
PrivateSubCommand1_Click()
Dimx!
y!
x=Val(lnputBox("请输入X的值!
"))
IfxMod2=0Then
y=x/2
Elsey=2*xEndIfMsgBox(y)
EndSub
输入三个数,判断其是否能够构成三角形
PrivateSubCommand1_Click()
DimiAsInteger,a
(2)AsInteger,pAsSingle,sAsSingle
Fori=0To20
a(i)=val(inputbox("输入第"&i&"条边的边长:
"))
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)
Else
MsgBox("不能形成三角形!
")
EndIf
EndSub
计算1*3*5*9
PrivateSubCommand1_Click()
DimsumAsLong,iAsInteger
sum=1
Fori=1To9Step2
sum=sum*i
Next
MsgBox(sum)
EndSub
编写程序,求下面级数前n项的和s=1/1!
-1/2!
+1/3!
-1/4(-1)
A(n-1)*1/n!
+…..
求和过程当某一项的绝对值小于0.0001时结束(注意,该项参与求
和),计算并输出所求的和s,要求保留6位小数
PrivateSubCommand1_Click()
DimmAsDouble,nAsInteger,sAsDouble,fAsInteger
s=0:
n=-1:
m=1:
f=1DoWhile1/m>=0.0001m=m*ff=f+1
n=-ns=s+n/m
Loop
s=Format(s,"0.000000")
Prints
EndSub
随即输出一个位于【0,100】之间的整数
PrivateSubCommand1_Click()
Randomize
Dims%s=(101*Rnd)
Prints
EndSub
编写程序,计算并输出下面级数前n项(n=50)中的偶数项的和
PrivateSubCommand1_Click()
Dims!
i%
Fori=2To50Step2
s=s+i*(i+1)
Next
MsgBox(s)
EndSub
《VB期末范围题总汇》
1.求随机10个整数的最大值、最小值、平均值以及和;
Dima(1To10)
PrivateSubCommand1_Click()Randomize
Picture1.Print"产生的随机数为:
Fori=1To10
a(i)=Int(Rnd*99+1)
Picture1.Printa(i);
Nexti
Picture1.Print
EndSub
PrivateSubCommand2_Click()
Dimmax,min,avemax=a
(1)
min=a
(1)
ave=0.1*a
(1)
Fori=2To10
Ifa(i)>maxThenmax=a(i)
Ifa(i)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 经典 程序设计
![提示](https://static.bdocx.com/images/bang_tan.gif)