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