〖第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
'**********SP