CK填空01.docx
- 文档编号:27505194
- 上传时间:2023-07-02
- 格式:DOCX
- 页数:16
- 大小:18.43KB
CK填空01.docx
《CK填空01.docx》由会员分享,可在线阅读,更多相关《CK填空01.docx(16页珍藏版)》请在冰豆网上搜索。
CK填空01
CK37
'以下程序用于判断一个正整数(≥3)是否为素数。
'PrivateSubForm_Click()
n=InputBox("请输入一个正整数(≥3)")
k=Int(Sqr(n))
i=2
swit=0
'**********SPACE**********
DoWhilei<=kAnd【?
】swit=0
'**********SPACE**********
If【?
】Thennmodi=0
swit=1
Else
'**********SPACE**********
【?
】i=i+1
EndIf
Loop
Ifswit=0Then
Printn;"是一个素数"
Else
Printn;"不是素数"
EndIf
EndSub
CK39
'以下程序段用于实现矩阵转置,即将一个n×m的矩阵的行和列互换
'
PrivateSubForm_Click()
Constn=3
Constm=4
Dima(n,m),b(m,n)AsInteger
ForI=1Ton
ForJ=1Tom
a(I,J)=Int(Rnd*90)+10
NextJ
'**********SPACE**********
【?
】nexti
ForI=1Ton
ForJ=1Tom
'**********SPACE**********
【?
】b(j,i)=a(i,j)
NextJ
NextI
Print"矩阵转置前"
ForI=1Ton
ForJ=1Tom
Printa(I,J);
NextJ
'**********SPACE**********
【?
NextI
Print"矩阵转置后"
ForJ=1Tom
ForI=1Ton
Printb(J,I);
NextI
NextJ
EndSub
CK56
'代码功能:
输入数字1-7,显示其对应的星期几(例:
输入1,显示星期日,
'如果输入其它内容,一律显示"输入错误")
'PrivateSubCommand1_Click()
DimxAsInteger
DimyAsString
x=Val(Text1.Text)
'**********SPACE**********
【?
】selectcasex
Case1
y="星期日"
Case2
y="星期一"
Case3
y="星期二"
Case4
y="星期三"
Case5
y="星期四"
Case6
'**********SPACE**********
【?
】y="星期五"
Case7
y="星期六"
'**********SPACE**********
【?
】Caseelse
y="输入错误"
EndSelect
Text2.Text=y
EndSub
CK57
'代码功能:
求1!
+2!
+……10!
的值?
'
'请在【】处填入正确的内容?
PrivateSubForm_Click()
'**********SPACE**********
【?
】t=1
s=1
ForI=2To10
t=t*I
'**********SPACE**********
【?
】s=s+t
'**********SPACE**********
【?
】Nexti
Prints
EndSub
CK59
代码功能:
输入一个数,若大于0,则显示"+";若小于0,则显示"-";若等于"0",则显示"零"。
'PrivateSubCommand1_Click()
x=Val(Text1.Text)
SelectCasex
'**********SPACE**********
【?
】CaseIs>0
Label1.Caption="+"
CaseIs<0
'**********SPACE**********
【?
】Label1.Caption="-"
'**********SPACE**********
【?
】caseelse
Label1.Caption="零"
EndSelect
EndSub
CK62
'输入任何一个英文字母x,若x的值为"a","c","d-f",则显示x的大写字母;
'若x的值为"m","o","p-z",则显示x的小写字母;
'若为其它的值,则显示xa(如输入的X的值是g,则显示ga)。
'
PrivateSubCommand1_Click()
x=Text1.Text
'**********SPACE**********
【?
】selectcasex
Case"a","c","d"To"f"
Label1.Caption=UCase(x)
'**********SPACE**********
Case【?
】"m","o","p"To"z"
Label1.Caption=LCase(x)
'**********SPACE**********
【?
】caseelse
Label1.Caption=Trim(x)+"a"
EndSelect
EndSub
CK65
'根据输入的学习成绩,分别显示优秀(90分以上),良好(75分以上),
'及格(60分以上),不及格几个等级。
PrivateSubCommand1_Click()
x=Val(Text1.Text)
Ifx>=90Then
Print"优秀"
'**********SPACE**********
【?
】ElseIfx>=75Then
Print"良好"
ElseIfx>=60Then
'**********SPACE**********
【?
】Print"及格"
'**********SPACE**********
【?
】else
Print"不及格"
EndIf
EndSub
CK491
题目:
以下程序的功能为,3次单击窗体后如果输入的数据分别为"W","8"和"?
"时,
'窗体上显示的内容分别是:
WisAlphaCharacter、8isNumeralCharacter、
'?
isOtherCharacter
PrivateSubForm_Click()
DimstrCAsString*1
strC=InputBox("请输入数据")
'**********SPACE**********
SelectCase【?
】strC
'**********SPACE**********
Case"a"To"z"【?
】,"A"to"z"
Form1.PrintstrC+"IsAlphaCharacter"
Case"0"To"9"
Form1.PrintstrC+"IsNumeralCharacter"
'**********SPACE**********
【?
】Elsecase
Form1.PrintstrC+"IsOtherCharacter"
EndSelect
EndSub
CK494
'题目:
本程序用辗转相除法求自然数m、n的最大公约数和最小公倍数,求最大公约数的算法如下:
'
(1)对于己知两数m、n,使得m>n;
'
(2)m除以n得余数r;
'(3)若r=0,则n为求得的最大公约数,算法结束;否则执行(4)
'(4)m<-n,n<-r再重复执行
(2)
'原两数相乘除以最大公约数即为最小公倍数,程序如下:
PrivateSubForm_Click()
Dimm%,n%,mn%
n=Val(InputBox("n="))
m=Val(InputBox("m="))
Ifn<=0Orm<=0Then
MsgBox"数据出错"
ExitSub
EndIf
'**********SPACE**********
【?
】mn=n*m
'**********SPACE**********
If【?
】Thenn>m
t=m
m=n
n=t
EndIf
'**********SPACE**********
DoWhile【?
】mmodn=0
'**********SPACE**********
【?
】r=mmodn
m=n
n=r
Loop
Form1.Print"最大公约数=";n
Form1.Print"最小公倍数=";mn/n
EndSub
CK500
'题目:
本程序执行功能为,输入系列字符串,按递减次序排列。
'
(1)在文本框输入字符串,按回车键后存放到数组a()中;
'
(2)单击"排序"按钮(Command1)时,进行递减次序排列,并在图形框控件显示。
Dima()AsString,nAsInteger
PrivateSubCommand1_Click()
n=n-1
Fori=0Ton-1
imin=i
'**********SPACE**********
Forj=【?
】Toni+1
'**********SPACE**********
Ifa(imin)【?
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- CK 填空 01