VB复习题带答案1Word格式文档下载.docx
《VB复习题带答案1Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VB复习题带答案1Word格式文档下载.docx（37页珍藏版）》请在冰豆网上搜索。
请输入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）;
Print
Max=mat（1,1）
】Thenmat（I,j）>
max
Max=mat（i,j）
col=j
】row=i
EndIf
Print
矩阵最大的元素的值为：
"
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）;
】print
矩阵转置后"
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=
升级会员 