VB复习题带答案1Word格式文档下载.docx
- 文档编号:19154446
- 上传时间:2023-01-04
- 格式:DOCX
- 页数:39
- 大小:217.45KB
VB复习题带答案1Word格式文档下载.docx
《VB复习题带答案1Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VB复习题带答案1Word格式文档下载.docx(39页珍藏版)》请在冰豆网上搜索。
请输入a的值"
b=InputBox("
请输入b的值"
c=InputBox("
请输入c的值"
d=b*b-4*a*c
p=-b/(2*a)
Ifd>
=0Then
'
If【?
】Thend>
r=Sqr(d)/(2*a)
x1=p+r
x2=p-r
Else
x1=p
x2=p
【?
】endif
x1="
x1,"
x2="
x2
【?
】else
q=Sqr(-d)/(2*a)
p;
+"
q;
i"
"
-"
EndIf
3、功能:
以下程序用于判断一个正整数(≥3)是否为素数。
n=InputBox("
请输入一个正整数(≥3)"
k=Int(Sqr(n))
i=2
swit=0
DoWhilei<
=kAnd【?
】swit=0
If【?
】Thennmodi=0
swit=1
Else
】i=i+1
Loop
Ifswit=0Then
Printn;
是一个素数"
不是素数"
4、功能:
下面的程序段,用于实现在一个nXm的矩阵中,找出值最大的元素所在的行和列,并输出其值及行号和列号。
Dimmat()AsInteger
Dimnasinteger,mAsInteger
n=Val(InputBox("
请输入矩阵的行数"
))
m=Val(InputBox("
请输入矩阵的列数"
】ReDimmat(n,m)AsInteger
Fori=1Ton
Forj=1Tom
mat(i,j)=InputBox("
请输入数组元素值"
mat(i,j)=Val(mat(i,j))
Nextj
Nexti
Print"
所建立的矩阵为"
Printmat(i,j);
Max=mat(1,1)
】Thenmat(I,j)>
max
Max=mat(i,j)
col=j
】row=i
EndIf
矩阵最大的元素的值为:
"
mat(row,col)
它所在的行号为:
row;
列号为:
col
5、功能:
以下程序段用于实现矩阵转置,即将一个n×
m的矩阵的行和列互换
Constn=3
Constm=4
Dima(n,m),b(m,m)AsInteger
ForI=1Ton
a(I,j)=Int(Rnd*90)+10
】nexti
】b(j,i)=a(I,j)
NextI
矩阵转置前"
Printa(I,j);
矩阵转置后"
ForI=1Tom
Forj=1Ton
Printb(I,j);
6、下面过程max()用于求3个数中最大值,利用这个过程求5个数中最大值。
5个数34、124、68、73、352的最大值是:
max1=max(34,124,68)
max1=【?
】max(max1,73,352)
Printmax1
PublicFunctionmax(ByVala%,ByValb%,ByValc%)
】Thena>
b
m=a
m=b
】Thenm>
c
max=m
max=c
EndFunction
7、功能:
以下程序段利用随机函数生成15个10-100之间的整数,然后用选择法将其从小到大排序。
Constn=15
Dima(1Ton)AsInteger
DimiAsInteger,jAsInteger,tAsInteger,minAsInteger
Randomize
a(i)=【?
】int(rnd*91+10)
Printa(i);
Fori=1Ton-1
】t=I
Forj=i+1Ton
Ifa(j)<
a(t)Thent=j
】Thent<
>
i
min=a(i):
a(i)=a(t):
a(t)=min
8、功能:
下面的程序段用于实现以下功能:
利用冒泡法将一组整数从小到大排序。
Dima(1Ton)AsInteger,workAsBoolean
DimiAsInteger,jAsInteger,xAsInteger
a(i)=Int(90*Rnd)+10
Fori=nTo2【?
】step-1
work=True
Forj=1Toi-1
Ifa(j)>
a(j+1)Then
x=a(j):
a(j)=a(j+1):
a(j+1)=x
】work=false
IfworkThen【?
】exitfor
9、功能:
DimsAsSingle,mAsInteger,p#
s=1
Form=1To10
p=【?
】n(m)
s=s+1/p
Nextm
Prints
Functionn(k%)
p=1
Form=1Tok
p=【?
】p*m
】n=p
10、功能:
从键盘输入学生分数,统计学生总人数和各分数段人数,即优秀(90-100)、良好(80-89)、中等(70-79)、及格(60-69)、不及格(60以下)的人数。
Dimscore%,n1%,n2%,n3%,n4%,n5%
msg="
请输入分数(-1结束)"
msgtitile="
输入数据"
score=Val(InputBox(msg,msgtitle))
While【?
】score>
=0andscore<
=100
total=total+1
SelectCase【?
】score
CaseIs>
=90
n1=n1+1
=80
n2=n2+1
=70
n3=n3+1
=60
n4=n4+1
CaseElse
n5=n5+1
】endselect
Wend
Printn1,n2,n3,n4,n5,total
11、功能:
以下程序段用于实现:
输入两个正整数m和n,求其最大公因数和最小公倍数。
Dima%,b%,num1%,num2%,temp
num1=InputBox("
请输入一个正整数"
num2=InputBox("
】Thennum1<
num2
temp=num1:
num1=num2:
num2=temp
a=num1
b=num2
DoWhile【?
】b<
temp=aModb
a=b
】b=temp
最大公因数为:
a
最小公倍数为:
num1*num2/a
12、功能:
利用下面的过程求m!
和m*n
DimmAsInteger,nAsInteger
m=2
n=3
】findm,n
PrivateSubfind(xAsInteger,yAsInteger)
Dims,iAsInteger
】s=1
Fori=1Tox
s=s*i
】x*y
Prints,p
13、功能:
以下程序段用于求∑n!
DimsumAsInteger,nAsInteger
sum=0
sum=【?
】sum+mul(i)
Printsum
PrivateFunctionmul(ByValxAsInteger)
DimsAsInteger,iAsInteger
Fori=1To【?
】x
】mul=s
14、功能:
从键盘上输入一串字符,以"
?
结束,统计输入字符中的大、小写字母和数字的个数。
Dimch$,n1%,n2%,n3%
n1=0
n2=0
n3=0
ch=InputBox("
请输入一个字符"
】ch<
SelectCasech
Case"
a"
To"
z"
Case【?
】"
A"
Z"
0"
9"
EndSelect
**********SPACE**********loop
】
Printn1,n2,n3
15、功能:
下面的程序实现:
从键盘输入一个数字,将其插入一个有序数组中,插入后的数组仍保持有序。
Dima(10)AsInteger,xAsInteger
Fori=1To8
a(i)=2*i-1
x=InputBox("
请输入要插入的整数"
】a(0)=x
i=8
DoWhilea(i)>
x
】a(i+1)=a(i)
i=i-1
Ifi>
0Then【?
】a(i+1)=x
Fori=1To9
16、功能:
过程suixian可以判断某一个数字是否是水仙花数,利用该过程找出三位数中所有水仙花数。
所谓"
水仙花数"
是指一个3位数,其各位数字立方和等于该数本身。
DimiAsInteger
Fori=100To999
】suixiani
PublicSubsuixian(xAsInteger)
Dimi%,j%,k%
i=【?
】x\100
j=(x-i*100)\10
k=x-i*100-j*10
】ThenPrintxi^3+j^3+k^3=x
17、功能:
输入一个数,若大于0,则显示"
;
若小于0,则显示"
若等于"
则显示"
零"
。
PrivateSubCommand1_Click()
x=Val(Text1.Text)
SelectCasex
【?
】CaseIs>
Label1.Caption="
CaseIs<
0
】Label1.Caption="
】case0
18、功能:
以下程序段用于计算数组中各元素的乘积。
PrivateSubCommand1_Click()
Dima(1To5)【?
】,b%(2To10),i%,t1#,t2#AsIinteger
Fori=1To5
a(i)=i
Fori=2To10
b(i)=i
t1=tim(a())
t2=tim(b())
t1="
t1,"
t2="
t2
Functiontim(【?
】AsInteger)a()
Dimt#,i%
t=1
Fori=LBound(a)ToUBound(a)
t=t*a(i)
tim=t
19、功能:
本程序功能为,单击窗体,Form1的输出结果为
A1=10B1=20
A2=20B2=10
PublicSubSwap1【?
】xAsInteger,ByValyAsInteger)(ByVal
DimtAsInteger
t=x
x=y
y=t
PublicSubSwap2(xAsInteger,yAsInteger)
DimaAsInteger,bAsInteger
a=10
b=20
】a,b
Form1.Print"
A1="
a,"
B1="
b
A2="
B2="
20、功能:
求表达式s=x/2!
+x^3/4!
+...+x^(2n-1)/(2n)!
的值,并在窗体上输出。
DimxAsSingle
DimnAsInteger
DimsumAsSingle
x=Val(InputBox("
PleaseinputxValue:
n=Val(InputBox("
Pleaseinputainteger:
sum=【?
s="
sum
Functions(nAsInteger,xAsSingle)AsSingle
DimiAsSingle,tAsLong
s=0
Forj=1To2*i
s=s+x^(【?
】)/t
21、功能:
写出程序运行后,单击窗体,Form1上显示的内容sum函数的功能为累加求和
isum=1
isum=
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 复习题 答案