vb编程.docx
- 文档编号:2362939
- 上传时间:2022-10-29
- 格式:DOCX
- 页数:15
- 大小:19.56KB
vb编程.docx
《vb编程.docx》由会员分享,可在线阅读,更多相关《vb编程.docx(15页珍藏版)》请在冰豆网上搜索。
vb编程
1.九九乘法表
Dima(1To9,1To9)AsInteger
Fori=1To9
Forj=1To9
a(i,j)=i*j
Print;i&"*"&j&"="&a(i,j),
Next
Next
2.将123改为321
Dima$,i%,c$,d$,n%
a=InputBox$("输入字符串")
Printa,
n=Len(a)
Fori=1ToInt(n/2)
c=Mid(a,i,1)
Mid(a,i,1)=Mid(a,n-i+1,1)
Mid(a,n-i+1,1)=c
Nexti
Printa
3.交换AB数值
Dima,b,k
a=InputBox("输入一个数")
b=InputBox("输入一个数")
k=b
b=a
a=k
Printa,b
4.编程将一维数组A(10)中的数组元素循环向后移动一个位置,最后一个元素移到第一个元素位置上。
Dima(10)AsLongPrivateSubForm_Click()n=10Fori=0Tona(i)=iNextk=a(n)Fori=0TonPrinta(i);NextPrintFori=nTo1Step-1a(i)=a(i-1)Nexta(0)=kFori=0TonPrinta(i);NextEndSub
5.给定随机数中找出最大值
Dima(10)AsDoublePrivateSubForm_Click()n=10Fori=0Tona(i)=RndNextm=a
(1)Fori=nTo1Step-1Ifa(i)>mThenm=a(i)NextPrintmEndSub
6.计算本本利和
DimnAsInteger,pAsInteger
DimrAsSingle,p1AsSingle
p=1000
n=3
r=0.02
p1=p*(1+r)^n
p1=Int(p1*100+0.5)/100
Print"本利和为;",p1
7.编写一个程序,用户连续输入N个值,直到输入-1为止,最后输出其中最大的一个数。
dimaasinteger,maxasinteger
do
a=val(inputbox(""))
ifa=-1thenexitdo
printa
ifmax loop print"最大的是";max 8.求s=a+aa+aaa+...+aaa...a(n个)的值,其中a和n的值由用户自己输入。 Dimaasinteger,nasinteger,sasdouble,tasdouble n=inputbox(“请输入n“) a=inputbox(“请输入a“) fori=1ton t=t+a*10^(i-1) s=s+t nexti printa,n,s 9.输入三个数,按从小到大的顺序输出 dimaassingle,bassingle,cassingle,tassingle a=inputbox("输入a的值","输入框") b=inputbox("输入b的值","输入框") c=inputbox("输入c的值","输入框") ifa>bthen t=a: a=b: b=t endif ifa>cthen t=a: a=c: c=t endif ifb>cthen t=b: b=c: c=t endif print"三个数顺序排列后为: ",a,b,c 10.编写程序计算: S=1*2+2*3+…+N*(N+1)。 dimsassingle,nasinteger fori=1ton t=i+1 m=i*t s=s+m next prints 11.求N的阶乘 dimsassingle,nasinteger s=1 n=inputbox("输入自然数N") ifn<=0orn>34then exitsub endif fori=1ton s=s+j next print"n=";n,"s=";s 12.画圆 PrivateSubCommand1_Click() Label1.Caption="单击清除按钮清除圆" Form1.Circle(2300,1600),800 EndSub 13.求素数和 PrivateSubForm_Click() DimsAsSingle DimnAsSingle s=0 n=Val(Text1.Text) Fori=2Ton Forj=2ToSqr(i) IfiModj=0Then ExitFor EndIf Next Ifj>Sqr(i)Thens=s+i Next Prints EndSub 14.百元买鸡 Cls Rem百元买百鸡问题 Print"公鸡","母鸡","小鸡" Forx=0To20 Fory=0To33 z=100-x-y If5*x+3*y+z/3=100Then Printx,y,z EndIf Nexty,x 15.输入由1,2,3,这四个数组成的所有可能的四位数,并统计他们的个数 DimnAsInteger,iAsInteger,jAsInteger DimkAsInteger,lAsInteger,mAsInteger n=0 Fori=1To4 Forj=1To4 Fork=1To4 m=1000*i+100*j+10*k+l Printm; n=n+1 IfnMod10=0Then'一行输入10个数 Print EndIf Nextl Nextk Nextj Nexti Print Print"1,2,3,4四个数字组成的所有四位数共";n;"个。 " 16.编写程序计算多项式: 1^1+2^2+3^3+…+10^10 Privatesubform_click Dimiasinteger,sumasdouble Sum=0 Fori=1to10 Sum=sum+i^i Nexti Printsum Endsub 17..编写程序在表单上显示出: 1~15之间的偶数 dimiasinteger fori=0to14step2 printi nexti .编写程序在表单上显示出: 1~15之间的奇数 dimiasinteger fori=1to15step2 printi nexti 18.有一个表单,表单中有一个文本框,名称为Text1,有一个按钮,试编写按钮的 单击事件,实现计算1! +2! +3! +…+10! 将结果显示在文本框Text1中。 dimsassingle,tassingle s=0: t=1 fori=1to10 t=t*i s=s+t next s=text1.text prints 19.编写程序在表单上显示出: 5/6+4/5+3/4+2/3+1/2 dimsassingle,sumassingle fori=5to1step-1 t=i+1 s=i/t sum=sum+s next print"5/6+4/5+3/4+2/3+1/2";sum 20.有一个表单,表单中有三个文本框,名称分别为Text1、Text2、Text3,有一个标签Label1,有一个按钮,试编写按钮的 单击事件,分别以Text1、Text2、Text3中输入值为一元二次方程的二次项、一次项和常数项时方程的根,结果显示在文本框标签中。 说明: 方程无实根时,在Label1中显示“方程无实根”,否则显示计算出的二个实根。 dimaassingle,bassingle,cassingle dimdassingle dimx1assingle,x2assingle a=text1.text b=text2.text c=text3.text d=b*b-4*a*c ifd>othen x1=(-b+sqr(d))/(2*a) x2=(-b-sqr(d))/(2*a) label2.caption=label2.caption+format(x1) label3.caption=label3.caption+format(x2) endif 21.编写程序计算: s=1+1/2! +1/3! +…+1/n! 说明: 在表单中有一个文本框控件: Text1,用来接收n的值,有一个标签控件: Label1,用来显示S的值,试编写表单的单击事件,实现计算与显示功能,只要求写出事件的主要代码,事件过程的起始语句和结束语句可略去。 n=thisform.text1.value s=0 fori=1ton t=1 forj=1toI t=t*j nextj s=s+1/t nextI thisform.label1.caption=str(s) 22.根据年龄使用多分支语句选择看什么等级的电影。 设年龄大于等于18的,可以看所有的电影;年龄在12至17岁之间的,可以看限制级的电影;年龄小于12岁的只能看普通级电影 old=inputbox("请输入您的年龄") ifnotisnumeric(old)then msgbox"您输入的年龄数据有问题" elseifold>=18then msgbox"您可以看所有的电影" elseifold>=12then msgbox"您可以看限制级的电影" else msgbox"您只能看普通级电影" endif 23.下列应用程序可以根据用户不断单机窗体,应用程序可以根据静态变量Index的值更换窗体的标题 staticindex=1then form1.caption="复制操作" elseifindex=2then form2.caption="剪切操作" elseifindex=3then form3.caption="粘贴操作" elseifindex=4then form4.caption="清除操作" index=0 endif staticindexasinteger index=index+1 selectcaseindex case1 form1.caption
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 编程