VB试题分类练习程序填空Word文档下载推荐.docx
《VB试题分类练习程序填空Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB试题分类练习程序填空Word文档下载推荐.docx（8页珍藏版）》请在冰点文库上搜索。
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）
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
Nextm
Nextn
For（3）
Prints（n,m）
Print
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
N=inputbox（"
请输入n的值）
forI=1to100
k=k+1
s=s+I
（1）Ifs>
100thenexitfor
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
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<
cThen
________EndIf
Printa;
、"
b;
c;
中最大值是"
______
答案【参考答案】max<
bmax<
=bb>
maxb>
=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"
p;
+"
q;
i"
"
-"
EndIf
答案
【参考答案】d>
0【参考答案】EndifEndIfendif【参考答案】elseElseELSE
11.'
从键盘输入学生分数，统计学生总人数和各分数段人数，'
即优秀（90-100）、良好（80-89）、中等（70-79）、'
及格（60-69）、不及格（60以下）的人数。
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
答案【参考答案】score>
=0andscore<
=100score>
=100score<
>
-1
【参考答案】SelectCasescore【参考答案】EndSelect
12、以下程序段用于实现：
输入两个正整数m和n，求其最大'
公因数和最小公倍数。
Dima%,b%,num1%,num2%,tempnum1=InputBox（"
请输入一个正整数"
）num2=InputBox（"
）
temp=num1:
num1=num2:
num2=tempEndIfa=num1b=num2DoWhile_____temp=aModba=b
_____Loop
最大公因数为：
"
aPrint"
最小公倍数为：
num1*num2/a
答案【参考答案】num1<
num2
升级会员 