vb编程代码.docx
《vb编程代码.docx》由会员分享，可在线阅读，更多相关《vb编程代码.docx（31页珍藏版）》请在冰豆网上搜索。
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
Print
begin=begin-1
Nexti
begin=2
Fori=4To1Step-1
PrintTab（begin）;
orj=1To2*i-1
Print"*";
Nextj
Print
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
Print
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
Print
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
Print
begin=begin-2
Nexti
begin=3
Fori=1To4
PrintTab（begin）;
Forn=1To9-2*i
Print"*";
Nextn
Print
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
Print
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
Print
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
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
Print
Forn=1To8
PrintTab（2*n+2）;
Form=1To8
PrintSpc
（1）;"*";
Next
Print
Next
EndSub
PrivateSub图形4_Click（）
Cls
Fori=1To5
PrintTab（20-3*i）;
Forj=1To2*i-1
Printi;
Nextj
Print
Nexti
EndSub
PrivateSub图形6_Click（）
Cls
k=1
Fori=1To6
Forj=1Toi
PrintTab（5*j）;k;
k=k+1
Nextj
Print
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
Print
Forn=1To5
PrintTab（n+2）;
Form=nTo10-n
Print"*";
Next
PrintSpc（4）;
Form=1To2*n-1
Print"*";
Next
Print
Next
EndSub
PrivateSub图形3_Click（）
Cls
Print
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
Print
Forn=1To10
Form=1To10
PrintTab（m*3）;a（n,m）;
Next
Print
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
Print
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（）
'编写程序，输出下列三角形：
（要求用循环做，非循环不给分）
'河
'河南
'河南农
'河南农业
'河南农业大
'河南农业大学
Cls
DimaAsString,iAsInteger,kAsInteger
a="河南农
升级会员 