vb编程代码.docx
- 文档编号:8333603
- 上传时间:2023-01-30
- 格式:DOCX
- 页数:32
- 大小:391.32KB
vb编程代码.docx
《vb编程代码.docx》由会员分享,可在线阅读,更多相关《vb编程代码.docx(32页珍藏版)》请在冰豆网上搜索。
vb编程代码
计算二的n次幂
代码
PrivateSubCommand1_Click()
DimnAsInteger,miAsDouble
DimiAsInteger
n=Int(Val(InputBox("")))
mi=1
Fori=1Ton
mi=mi*2
Nexti
Print"2的";n;"次幂为:
";mi
EndSub
编写程序,随机生成100个两位整数,并统计出其中小于等于40、大于40小于等于70及大于70的数据个数。
代码
PrivateSubCommand1_Click()
DimxAsInteger,iAsInteger
Dimcnt1AsInteger,cnt2AsInteger,cnt3AsInteger
cnt1=0:
cnt2=0:
cnt3=0
Randomize
Fori=1To100
x=Int(Rnd*90+10)
Ifx<=40Then
cnt1=cnt1+1
ElseIfx<70Then
cnt2=cnt2+1
Else
cnt3=cnt3+1
EndIf
Nexti
Printcnt1,cnt2,cnt3
EndSub
编写程序,单击窗体时在窗体上输出如下所示的图形。
代码
PrivateSubForm_Click()
DimiAsInteger,beginAsInteger
begin=5
Fori=1To5
PrintTab(begin);
Forj=1To2*i-1
Print"*";
Nextj
begin=begin-1
Nexti
begin=2
Fori=4To1Step-1
PrintTab(begin);
orj=1To2*i-1
Print"*";
Nextj
begin=begin+1
Nexti
EndSub
编写程序,计算并输出下面级数前n项(n=80)的部分和。
1-1/2+1/3-1/4+1/5+……+1/n
代码
Inputbox中输入2,出现上述结果
PrivateSubCommand1_Click()
DimnAsInteger,iAsInteger
DimsumAsDouble
n=Val(InputBox(""))
sum=0
Fori=1Ton
IfiMod2<>0Then
sum=sum+(1/i)
Else
sum=sum-(1/i)
EndIf
Nexti
Printsum
EndSub
有100匹马,驮100担货:
大马驮3担,中马驮2担,两匹小马驮1担,问有大、中小马各多少?
代码
显示结果如上所示
PrivateSubForm_Click()
DimxAsInteger,yAsInteger,zAsInteger
Print"大马","中马","小马"
Forx=0To33
Fory=0To50
z=100-x-y
If(x*3+y*2+z*0.5)=100Then
Printx,y,z
EndIf
Nexty
Nextx
编写程序,要求从键盘输入0-6中的任一个,可对应得到星期日、星期一---星期六
代码
Inputbox中输入2结果如上
DimnAsInteger
n=Int(Val(InputBox("")))
SelectCasen
Case0
Printn;":
星期日"
Case1
Printn;":
星期一"
Case2
Printn;":
星期二"
Case3
Printn;":
星期三"
Case4
Printn;":
星期四"
Case5
Printn;":
星期五"
Case6
Printn;":
星期六"
CaseElse
Printn;":
错误"
EndSelect
EndSub
编写程序,输出下列三角形:
(要求用循环做,非循环不给分。
)
代码
运行结果如上图所示
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger,beginAsInteger
begin=7
Fori=1To4
PrintTab(begin);
Forj=1To2*i-1
Print"1";'注意:
双引号中1后面必须有一个空格
Nextj
begin=begin-2
Nexti
EndSub
求公式:
1/1!
+1/2!
+1/3!
+……+1/n!
直到最后一项小于10^(-6)时e的值。
(注:
写在Command1的Click事件中。
)
代码
运行结果如上图所示
PrivateSubCommand1_Click()
DimsumAsDouble,nAsLong,njAsDouble
DimiAsLong
sum=0
n=1
Do
nj=1
Fori=1Ton
nj=nj*i
Nexti
sum=sum+1/nj
n=n+1
LoopWhile(1/nj)>=0.000001
Printsum
EndSub
编写程序,输出下列三角形:
总行数通过键盘输入。
代码
Inputbox输入5运行结果如上图所示
OptionExplicit
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger,nAsInteger,beginAsInteger
n=Int(Val(InputBox("")))
begin=1
Fori=1Ton
PrintTab(begin);
Forj=1To9-2*i
Print"1";
Nextj
begin=begin+2
Nexti
EndSub
输入一串数字,求其中偶数位数字之和。
例如输入1357986,则求3+7+8
代码
Inputbox输入5运行结果如上图所示
PrivateSubCommand1_Click()
DimstrAsString,sAsString*1,iAsLong,sumAsLong
str=InputBox("")
Printstr
sum=0
Fori=2ToLen(str)Step2
s=Mid(str,i,1)
sum=sum+Val(s)
Prints
Nexti
输入一串数字,求其中奇数数字构成的数与偶数数字构成的数之差。
例如输入1654238,求153-6428。
代码
Inputbox输入5运行结果如上图所示
PrivateSubCommand1_Click()
DimstrAsString,s1AsString,s2AsString,iAsLong
str=InputBox("")
Printstr
s1=""
s2=""
Fori=1ToLen(str)
IfiMod2=1Then
s1=s1&Mid(str,i,1)
Else
s2=s2&Mid(str,i,1)
EndIf
Nexti
Prints1;"-";s2;"=";Val(s1)-Val(s2)
EndSub
编写程序,单击窗体时在窗体上输出如下所示的图形。
代码
PrivateSubCommand1_Click()
DimbeginAsInteger,nAsInteger,iAsLong
begin=9
Fori=1To5
PrintTab(begin);
Forn=1To2*i-1
Print"*";
Nextn
begin=begin-2
Nexti
begin=3
Fori=1To4
PrintTab(begin);
Forn=1To9-2*i
Print"*";
Nextn
begin=begin+2
Nexti
EndSub
有一分数序列:
1,1/2,2/3,3/5,5/8,8/13……
求出这个数列的前20项之和。
代码
OptionExplicit
PrivateSubCommand1_Click()
DimsumAsDouble
Dima1AsLong,a2AsLong,a3AsLong
Dimb1AsLong,b2AsLong,b3AsLong
DimiAsLong
a1=1:
a2=1
b1=1:
b2=2
sum=a1/b1+a2/b2
Fori=3To20
a3=a1+a2
b3=b1+b2
sum=sum+a3/b3
a1=a2
a2=a3
b1=b2
b2=b3
Nexti
Printsum
EndSub
编写程序,计算下面级数前n项中(n=50)奇数项的和,并输出该级数最后两项之差的绝对1*2*3+2*3*4+3*4*5+…+n*(n+1)*(n+2)+…
代码
OptionExplicit
PrivateSubCommand1_Click()
DimsumAsLong,difAsLong,nAsLong
sum=0
Forn=1To49Step2
sum=sum+n*(n+1)*(n+2)
Nextn
dif=(49-52)*50*51
Printsum
PrintAbs(dif)
EndSub
编程打印如下图形,总行数通过键盘输入。
(要求用循环做,非循环不给分。
按原图形直接打印者无效。
)
代码
Inputbox输入5运行结果如上图所示
OptionExplicit
PrivateSubCommand1_Click()
Dimf1AsLong,f2AsLong,f3AsLong
DimnAsLong,beginAsLong
DimiAsLong,jAsLong
n=Int(Val(InputBox("")))
begin=4*n-3
f1=1
f2=1
Fori=1Ton
f3=f1+f2
PrintTab(begin);
Forj=1To2*i-1
PrintTrim(f3);Spc(4-Len(Trim(f3)));'相邻两数的位置差4
Nextj
begin=begin-4
f1=f2
f2=f3
Nexti
EndSub
编写程序,计算并输出下面级数前n项(n=30)的部分和。
1/(1*2)+1/(2*3)+1/(3*4)+…+1/(n*(n+1))+……
代码
OptionExplicit
PrivateSubCommand1_Click()
DimsumAsDouble,nAsLong
sum=0
Forn=1To30
sum=sum+1/(n*(n+1))
Nextn
Printsum
EndSub
编写程序,输出下列三角形:
代码
OptionExplicit
PrivateSubCommand1_Click()
Dimcode1AsInteger,code2AsInteger
Forcode1=Asc("G")ToAsc("A")Step-1
Forcode2=code1ToAsc("G")
PrintChr(code2);
Nextcode2
Nextcode1
EndSub
勾股定理中三个数的关系是:
a^2+b^2=c^2编写程序,输出100以内满足上述关系的整数组合,例如3,4,5就是一个整数组合。
代码
Pressenterstarthis
还有两列结果未显示
OptionExplicit
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsDouble
Dimcnt
cnt=0
Fora=1To99
Forb=1To99
c=Sqr(a*a+b*b)
Ifc<100AndInt(c)=cThen
Printa;"";b;"";c;"",
cnt=cnt+1
IfcntMod4=0ThenPrint
EndIf
Nextb
Nexta
EndSub
通过键盘输入任意长度的字符串,要求将字符顺序倒置,例如,将输入的"HEJISUANJISHIYANSHI"变换成"IHSNAYIHSIJNAUSIJEH"。
代码
先后输入5和a后显示结果如上
OptionExplicit
PrivateSubCommand1_Click()
Dims1AsString,s2AsString
DimiAsLong
s1=InputBox("请输入原始字符串")
s2=""
Fori=Len(s1)To1Step-1
s2=s2&Mid(s1,i,1)
Nexti
Prints1
Prints2
EndSub
求1000以内分别被3、5、7除,余数都为1的正整数的个数及其和
代码
OptionExplicit
PrivateSubCommand1_Click()
DimnAsInteger,sumAsDouble
DimcntAsInteger
sum=0
cnt=0
Forn=1To1000
If(nMod3=1)And(nMod5=1)And(nMod7=1)Then
Printn
cnt=cnt+1
sum=sum+n
EndIf
Nextn
Print"共";cnt;"个"
Print"和为";sum
EndSub
代码
图形1_Click()
图形4_Click()
图形6_Click()
水仙花数_Click()
图形2_Click()
图形3_Click()
图形5_Click()
乘积表_Click()
数列_Click()
阶梯数_Click()
图形7_Click()
PrivateSub图形1_Click()
Cls
Forn=1To8
PrintTab(2*n+2);
Form=1To8
PrintSpc
(1);"*";
Next
Next
EndSub
PrivateSub图形4_Click()
Cls
Fori=1To5
PrintTab(20-3*i);
Forj=1To2*i-1
Printi;
Nextj
Nexti
EndSub
PrivateSub图形6_Click()
Cls
k=1
Fori=1To6
Forj=1Toi
PrintTab(5*j);k;
k=k+1
Nextj
Nexti
EndSub
PrivateSub水仙花数_Click()
'一个三位数,如果它等于各位数的立方和,
'如153=1^3+5^3+3^3,称为水仙花数。
求所有的水仙花数。
Cls
Fori=1To9
Forj=0To9
Fork=0To9
a=100*i+10*j+k
b=i^3+j^3+k^3
Ifa=bThenPrintTab(4);a
Nextk
Nextj
Nexti
EndSub
PrivateSub图形2_Click()
Cls
Forn=1To5
PrintTab(n+2);
Form=nTo10-n
Print"*";
Next
PrintSpc(4);
Form=1To2*n-1
Print"*";
Next
Next
EndSub
PrivateSub图形3_Click()
Cls
Forn=1To6
PrintTab(8-n);
Form=1To2*n-1
Print"*";
Nextm
Nextn
Forn=1To5
PrintTab(n+2);
Form=nTo10-n
Print"*";
Nextm
Nextn
EndSub
PrivateSub矩阵_Click()
Cls
Dima(10,10)AsInteger
DimmAsInteger,nAsInteger
Forn=1To10
Form=1To10
Ifn=mOrn=11-mThen
a(n,m)=1
Else
a(n,m)=0
EndIf
Next
Next
Forn=1To10
Form=1To10
PrintTab(m*3);a(n,m);
Next
Next
EndSub
PrivateSub图形5_Click()
Cls
'编写程序,输出下列三角形:
(要求用循环做,非循环不给分)
'G
'FG
'EFG
'DEFG
'CDEFG
'BCDEFG
'ABCDEFG
DimaAsString,iAsInteger,kAsInteger
a="ABCDEFG"
k=Len(a)
Fori=1Tok
PrintTab(3);Right(a,i)
Nexti
EndSub
PrivateSub乘积表_Click()
'编写程序,打印如下的乘积表:
'*36912
'15
'16
'17
'18
DimiAsInteger,jAsInteger
Cls
Print"*36912"
Fori=15To18
Printi;"";
Forj=3To12Step3
Printi*j;"";
Nextj
Nexti
EndSub
PrivateSub数列_Click()
'有一数列:
1、1、2、3、5、8、13、21…,求出这个数列的前20项之和
Cls
Dimf1AsSingle,f2AsSingle,f3AsSingle
DimiAsInteger,sumAsSingle
f1=1
f2=1
PrintTab(3);f1
PrintTab(3);f2
sum=2
DoWhilei<=20-3
f3=f1+f2
f1=f2
f2=f3
sum=sum+f3
i=i+1
PrintTab(3);f3
Loop
PrintTab(3);"其和是:
";sum
EndSub
PrivateSub阶梯数_Click()
'有一个长阶梯,如果每步跨2阶最后剩1阶,
'如果每步跨3阶最后剩2阶,如果每步跨4阶最后剩3阶,
'如果每步跨5阶最后剩4阶,如果每步跨6阶最后剩5阶,
'只有当如果每步跨7阶时恰好走完,问这个阶梯至少有多少阶?
DimaAsInteger,iAsInteger
Cls
DoWhileTrue
i=i+1
IfiMod2=1AndiMod3=2AndiMod4=3AndiMod5=4AndiMod6=5AndiMod7=0Then
PrintTab(3);"该阶梯至少有";i;"阶"
ExitDo
EndIf
Loop
EndSub
PrivateSub图形7_Click()
'编写程序,输出下列三角形:
(要求用循环做,非循环不给分)
'河
'河南
'河南农
'河南农业
'河南农业大
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 编程 代码
![提示](https://static.bdocx.com/images/bang_tan.gif)