VB试题分类练习程序填空.docx
《VB试题分类练习程序填空.docx》由会员分享，可在线阅读，更多相关《VB试题分类练习程序填空.docx（8页珍藏版）》请在冰豆网上搜索。
VB试题分类练习程序填空
VB试题分类练习（程序填空题）
编者---EnidLIU
微博：
Alden微曦
1.从计算机输入三个数,找出中间数
1、PrivateSubFindMidNum（）
X=INPUTBOX（“PLEASEINPUTTHEFIRSTNUMBER”）
Y=INPUTBOX（“PLEASEINPUTTHESECONDNUMBER）
Z=INPUTBOX（“PLESSEINPUTTHETHIRDNUMBER）
IF（XA=X
X=Y
Y=A
ENDIF
IF（Y>=Z）THEN
PRINTY
ELSEIF（X>=Z）THEN
PRINTZ
ELSE
PRINTX
ENDIF
EndSub
2.打印以下杨辉三角形
1
11
12131
14641
15101051
DimQ（）AsInteger
N=InputBox（"PLEASEINPUTN"）
ReDimQ（N,N）
ForI=1ToN
ForJ=1ToN
Q（I,J）=（0）
NextJ
NextI
ForK=0To（N–1）
Q（K+1,1）=1
Print1;
ForI=1ToK
Q（K+1,I+1）=（Q（K,I+1））+Q（K,I）
Print（Q（K+1,I+1））
NextI
Print
NextK
3以下程序代码实现单击命令按钮Command1时生成20个（0～100）之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。
Int（Rnd*101）arr（k）>50
Dimarr（1To20）
ForI=1To20
arr（i）=
（1）
NextI
Sum=0
Fork=1to20
If
（2）Then
PrintTab（20）;arr（k）
Sum=Sum+arr（k）
EndIf
Nextk
PrintTab（20）;"Sum=";Sum
4以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。
n=mn=11-mm=1To10
PrivateSubForm_click（）
Dims（10,10）AsInteger
Forn=1To10
Form=1To10
If
（1）Or
（2）Then
s（n,m）=1
Else
s（n,m）=0
EndIf
Nextm
Nextn
Forn=1To10
For（3）
Prints（n,m）
Nextm
Print
Nextn
EndSub
5窗体中有图片框（Picture）和计时器（Timer1）两个控件。
运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向左、向右移动100twip。
PrivateSubForm_Load（）
Picture1_Picture=LoadPicture（"c:
\pic\mouth.ico"）
（1）Timer1.Interval=2000
EndSub
PrivateSubTimer1_Timer（）
Staticx,yAsInteger
x=x+100
y=y+100
Pictuer1.Movex,y
EndSub
6下列程序用来计算1+2+3……+10的值，请补充完程序。
Dimt,kassingle
K=0
DoWhilek<10
K=k+1
（1）t=t+k
Loop
printt
7下列程序用来计算1+2+……n，当和数大于100时停止计算，请补充完该程序。
Privatesubform_click（）
Dimnasinteger,sasinteger,Iasinteger,kasinteger
S=0
K=0
N=inputbox（"请输入n的值）
forI=1to100
k=k+1
s=s+I
（1）Ifs>100thenexitfor
NextI
prints
endsub
8用随机数函数产生100个100～300之间的整数，在窗体上输出能被3整除的数的和及个数。
i=1toS=S+X
PrivateSubForm_Click（）
DimS&,N%
S=0
N=0
Randomize
For
（1）100
x=Int（Rnd*200+100）
IfxMod3Then
（2）
N=N+1
EndIf
Nexti
PrintS
PrintN
EndSub
9、'从键盘输入三个整数，从其中找出最大值并输出到窗口
PrivateSubForm_Click（）
Dima%,b%,c%,max%
a=Val（InputBox（"请输入一个整数"
b=Val（InputBox（"请输入一个整数"））
c=Val（InputBox（"请输入一个整数"））max=a
If______Thenmax=bEndIf
Ifmax________EndIf
Printa;"、";b;"、";c;"中最大值是";______
EndSub
答案【参考答案】maxmaxb>=max
【参考答案】max=c
【参考答案】max
10、以下程序的功能。
'PrivateSubForm_Click（
Dima%,b%,c%,d!
Dimx1,x2Dimp,q,r
a=InputBox（"请输入a的值"）b=InputBox（"请输入b的值"）c=InputBox（"请输入c的值"）
d=b*b-4*a*cp=-b/（2*a）
Ifd>=0Then
If_____Then
r=Sqr（d）/（2*a）
x1=p+rx2=p-rElse
x1=px2=p_____Print"x1=";
x1,"x2=";x2'_____q=Sqr（-d）/（2*a）
Print"x1="p;"+";q;"i","x2=";p;"-";q;"i"
EndIf
答案
【参考答案】d>0【参考答案】EndifEndIfendif【参考答案】elseElseELSE
11.'从键盘输入学生分数，统计学生总人数和各分数段人数，'即优秀（90-100）、良好（80-89）、中等（70-79）、'及格（60-69）、不及格（60以下）的人数。
PrivateSubForm_Click（）
Dimscore%,n1%,n2%,n3%,n4%,n5%
msg="请输入分数（-1结束）"msgtitile="输入数据"score=Val（InputBox（msg,msgtitle））'**
While_____
total=total+1
SelectCase_____CaseIs>=90
n1=n1+1CaseIs>=80
n2=n2+1CaseIs>=70
n3=n3+1CaseIs>=60
n4=n4+1CaseElse
n5=n5+1'_____score=Val（InputBox（msg,msgtitle））Wend
Printn1,n2,n3,n4,n5,total
EndSub
答案【参考答案】score>=0andscore<=100score>=0andscore<=100score<>-1
【参考答案】SelectCasescore【参考答案】EndSelect
12、以下程序段用于实现：
输入两个正整数m和n，求其最大'公因数和最小公倍数。
PrivateSubForm_Click（）
Dima%,b%,num1%,num2%,tempnum1=InputBox（"请输入一个正整数"）num2=InputBox（"请输入一个正整数"）
If_____Then
temp=num1:
num1=num2:
num2=tempEndIfa=num1b=num2DoWhile_____temp=aModba=b
'_____Loop
Print"最大公因数为：
";aPrint"最小公倍数为：
";num1*num2/a
答案【参考答案】num1
升级会员 