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