VB题库程序填空1文档格式.docx
《VB题库程序填空1文档格式.docx》由会员分享，可在线阅读，更多相关《VB题库程序填空1文档格式.docx（41页珍藏版）》请在冰豆网上搜索。
功能：
输入任何一个英文字母x,
若x的值为"
a"
"
c"
d-f"
则显示x的大写字母；
m"
o"
p-z"
则显示x的小写字母；
若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。
PrivateSubCommand1_Click（）
x=Text1.Text
【?
】
Case【?
Label1.Caption=UCase（x）
Case"
"
p"
To"
z"
Label1.Caption=LCase（x）
CaseElse
1）.SelectCasex
2）."
d"
f"
3）.Label1.Caption=Trim（x）+"
或Label1.Caption=x+"
〖第3题〗『程序填空』（1分）（题号:
36）
以下程序的功能如（图1）。
PrivateSubForm_Click（）
Dima%,b%,c%,d!
Dimx1,x2
Dimp,q,r
a=InputBox（"
请输入a的值"
）
b=InputBox（"
请输入b的值"
c=InputBox（"
请输入c的值"
d=b*b-4*a*c
p=-b/（2*a）
Ifd>
=0Then
If【?
】Then
r=Sqr（d）/（2*a）
x1=p+r
x2=p-r
Else
x1=p
x2=p
Print"
x1="
;
x1,"
x2="
x2
【?
q=Sqr（-d）/（2*a）
p;
"
q;
i"
EndIf
1）.d>
0或0<
d
2）.EndIf
3）.Else
〖第4题〗『程序填空』（1分）（题号:
51）
下面的程序段用于建立文件并输出文件，文件内容如下：
*****
*****
Open"
c:
\1.txt"
For【?
】As#1
Fori=1To5
Print#1,Spc（i）;
*****"
Nexti
LineInput#1,x
Printx
Close#1
1）.Output
2）.Close#1或Close
3）.Input
〖第5题〗『程序填空』（1分）（题号:
49）
以下程序段用于求∑n!
DimsumAsInteger,nAsInteger
n=InputBox（"
请输入一个正整数"
sum=0
Fori=1Ton
sum=【?
Nexti
Printsum
PrivateFunctionmul（ByValxAsInteger）
DimsAsInteger,iAsInteger
s=1
Fori=1To【?
s=s*i
EndFunction
1）.sum★+★mul（i）
2）.x
3）.mul=s
〖第6题〗『程序填空』（1分）（题号:
61）
根据输入的学习成绩,分别显示优秀（90分以上）,良好
（75分以上）,及格（60分以上）,不及格几个等级。
Ifx>
=90Then
优秀"
ElseIf【?
】Then
良好"
ElseIfx>
=60Then
不及格"
1）.x>
=75或75<
=X
及格"
或Label1="
〖第8题〗『程序填空』（1分）（题号:
46）
从键盘输入学生分数，统计学生总人数和各分数段人数，
即优秀（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+1
=80
n2=n2+1
=70
n3=n3+1
=60
n4=n4+1
n5=n5+1
Wend
Printn1,n2,n3,n4,n5,total
1）.score>
=0★And★score<
=100或0<
=score★And★score<
=score★And★100>
=score或score>
=0★And★100>
=score
2）.score
3）.EndSelect
〖第9题〗『程序填空』（1分）（题号:
56）
输入数字1-7,显示其对应是星期几（例:
输入1,显示星期日,
如果输入其它内容，一律显示"
输入错误"
dimxasinteger
dimyasstring
x=val（text1.text）
case1
y="
今天是星期日"
case2
星期一"
case3
星期二"
case4
y="
星期三"
case5
星期四"
case6
case7
星期六"
y="
endselect
Text2.Text=y
1）.selectcasex
2）.y="
星期五"
3）.CaseElse
〖第10题〗『程序填空』（1分）（题号:
41）
下面过程max（）用于求3个数中最大值，利用这个过程求5个数中最大值。
Print"
5个数34、124、68、73、352的最大值是：
"
max1=max（34,124,68）
max1=【?
Printmax1
PublicFunctionmax（ByVala%,ByValb%,ByValc%）
If【?
m=a
Else
m=b
max=m
max=c
1）.max（max1,73,352）
2）.a>
b或b<
a
3）.m>
c或c<
m
〖第11题〗『程序填空』（1分）（题号:
43）
下面的程序段用于实现以下功能：
利用冒泡法将一组整数
从小到大排序。
Constn=15
Dima（1Ton）AsInteger,workAsBoolean
DimiAsInteger,jAsInteger,xAsInteger
Randomize
Fori=1Ton
a（i）=Int（90*Rnd）+10
Printa（i）;
Print
Fori=nTo2【?
work=True
Forj=1Toi-1
Ifa（j）>
a（j+1）Then
x=a（j）:
a（j）=a（j+1）:
a（j+1）=x
EndIf
Nextj
IfworkThen【?
1）.Step-1
2）.work=False或work=0或notwork=true
3）.ExitFor
〖第12题〗『程序填空』（1分）（题号:
37）
以下程序用于判断一个正整数（≥3）是否为素数。
n=InputBox（"
请输入一个正整数（≥3）"
k=Int（Sqr（n））
i=2
swit=0
DoWhilei<
=kAnd【?
swit=1
Loop
Ifswit=0Then
Printn;
是一个素数"
不是素数"
1）.swit=0
2）.nModi=0或n/i★=★n\i或n/i★=★int（n/i）
3）.i=★i★+★1
〖第13题〗『程序填空』（1分）（题号:
55）
过程suixian可以判断某一个数字是否是水仙花数，利用
该过程找出三位数中所有水仙花数。
所谓"
水仙花数"
是指一个3位数，其各位数字立方和等于
该数本身。
DimiAsInteger
Fori=100To999
PublicSubsuixian（xAsInteger）
Dimi%,j%,k%
i=【?
j=（x-i*100）\10
k=x-i*100-j*10
】ThenPrintx
1）.suixian（i）或callsuixian（i）或suixiani
2）.x\100或int（x/100）
3）.x=★i^3★+★j^3★+★k^3或x=★i*i*i★+★j*j*j★+★k*k*k
〖第14题〗『程序填空』（1分）（题号:
50）
从键盘上输入一串字符，以"
?
结束，统计输入字符中的
大、小写字母和数字的个数。
Dimch$,n1%,n2%,n3%
n1=0
n2=0
n3=0
ch=InputBox（"
请输入一个字符"
DoWhile【?
SelectCasech
9"
Printn1,n2,n3
1）.ch★<
>
★"
或notch="
或not"
=ch
A"
Z"
3）.Loop
〖第15题〗『程序填空』（1分）（题号:
54）
本程序用于实现：
从键盘接收一数字，判断其是否在数组
中，如果在数组中则将其删除，否则显示该数字不在数组
中。
Dima（10）AsInteger,xAsInteger
Fori=1To10
a（i）=Int（Rnd*90）+10
x=InputBox（"
请输入要删除的整数"
Ifa（i）=xThen【?
Fork=iTo9
**********SPACE*
升级会员 