vb编程Word格式文档下载.docx
- 文档编号:15280055
- 上传时间:2022-10-29
- 格式:DOCX
- 页数:15
- 大小:19.56KB
vb编程Word格式文档下载.docx
《vb编程Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《vb编程Word格式文档下载.docx(15页珍藏版)》请在冰豆网上搜索。
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<
athenmax=a
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
cthen
a=c:
c=t
ifb>
t=b:
b=c:
print"
三个数顺序排列后为:
a,b,c
10.编写程序计算:
S=1*2+2*3+…+N*(N+1)。
dimsassingle,nasinteger
t=i+1
m=i*t
s=s+m
next
prints
11.求N的阶乘
s=1
n=inputbox("
输入自然数N"
ifn<
=0orn>
34then
exitsub
endif
s=s+j
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
Ifj>
Sqr(i)Thens=s+i
Prints
14.百元买鸡
Cls
Rem百元买百鸡问题
公鸡"
"
母鸡"
小鸡"
Forx=0To20
Fory=0To33
z=100-x-y
If5*x+3*y+z/3=100Then
Printx,y,z
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个数
Nextl
Nextk
Nextj
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
.编写程序在表单上显示出:
1~15之间的奇数
dimiasinteger
fori=1to15step2
18.有一个表单,表单中有一个文本框,名称为Text1,有一个按钮,试编写按钮的
单击事件,实现计算1!
+2!
+3!
+…+10!
将结果显示在文本框Text1中。
dimsassingle,tassingle
s=0:
t=1
fori=1to10
t=t*i
s=text1.text
19.编写程序在表单上显示出:
5/6+4/5+3/4+2/3+1/2
dimsassingle,sumassingle
fori=5to1step-1
s=i/t
sum=sum+s
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
您可以看所有的电影"
=12then
您可以看限制级的电影"
else
您只能看普通级电影"
23.下列应用程序可以根据用户不断单机窗体,应用程序可以根据静态变量Index的值更换窗体的标题
staticindex=1then
form1.caption="
复制操作"
elseifindex=2then
form2.caption="
剪切操作"
elseifindex=3then
form3.caption="
粘贴操作"
elseifindex=4then
form4.caption="
清除操作"
index=0
staticindexasinteger
index=index+1
selectcaseindex
case1
form1.caption
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 编程