字符有关的填空题Word格式.docx
- 文档编号:18263267
- 上传时间:2022-12-14
- 格式:DOCX
- 页数:22
- 大小:20.20KB
字符有关的填空题Word格式.docx
《字符有关的填空题Word格式.docx》由会员分享,可在线阅读,更多相关《字符有关的填空题Word格式.docx(22页珍藏版)》请在冰豆网上搜索。
M=MONTH(X)
___2_____
S=S+SUBSTR(C,2*M+1,2)
ELSE
s=S+"
十"
+SUBSTR(C,2*MOD(M,10)+1,2)
ENDIF
S=S+"
月"
___3____
1.paraX
ifM<
=10
if10>
=M
3.returnS
4、编写一个自定义函数,将年份转换为中文大写形式。
____1____
Y=YEAR(X)
FORI=1TO4
____2_____
S=SUBSTR(C,2*P+1,2)+S
Y=INT(Y/10)
年"
____3_____
P=MOD(Y,10)
P=Y%10
P=Y-INT(Y/10)*10
3.RETURNS
5、编写一个自定义函数,将日转换为中文大写形式。
parax
D=DAY(X)
caseD<
s=S+substr(c,2*D+1,2)
=19
___2___
OTHERWISE
S=S+SUBSTR(C,2*INT(D/10)+1,2)+"
+IIF(MOD(D,10)=0,"
日"
第三十九题答案:
1.S="
s=S+"
+SUBSTR(C,2*MOD(D,10)+1,2)
+SUBSTR(C,2*(D%10)+1,2)
+SUBSTR(C,2*(D-INT(D/10)*10)+1,2)
3.RETURNS
6、该程序实现字符串倒置。
如字符串“ABCD”倒置后为“DCBA”。
SETTALKOFF
ACCEPT'
N='
M=LEN(ALLTRIM(N))
S='
'
DOWHILJ<
F=SUBSTR(N,J,1)
J=J+1
ENDDO
1.J=1
2.S=F+S
S
’S=’,S
答案三:
”S=”,S
7、将当前日期用汉字格式显示。
例如:
二○○三年五月一日。
T=DATE()
Y=YEAR(T)
M=MONTH(T)
D=DAY(T)
S=______1______
"
今天日期是:
+S
RETURN
FUNCRQ
PARAX
○一二三四五六七八九"
K="
DOWHILEX>
N=MOD(X,10)
L=SUBSTR(C,2*N+1,2)
K=L+K
X=______2______
______3______
ENDFUNC
1.答案一:
RQ(Y)+"
+RQ(M)+"
+RQ(D)+"
INT(X/10)
RETURNK
8、将汉字串“问君能有几多愁”反方向显示为“愁多几有能君问”。
问君能有几多愁"
M=______1______
T="
FORN=1TO______2______
P=SUBSTR(S,N,2)
______3______
T
LEN(S)
M-1STEP2
T=P+T
9、将字符串中的所有字符逆序存放。
SETTALKOFF
FORI=1TO10
ACCE“A[I]=”TOA[I]
FOR___2___
T=A[I]
A[11-I]=T
A[I]
RETURN
1.DIMEA[10]orDIMEA(10)orDECLA[10]orDECLA(10)
2.I=1TO5
3.A[I]=A[11-I]orA(I)=A(11-I)
10、以今天的日期作为口令,口令正确,跳出循环;
口令不正确,死循环。
CLEAR
DOWHILE.T.
“请输入口令”
INPUTTOPW
IFPW=DATE()
___3___
WAIT“口令不对!
按任意键重来”
ENDDO
1.SETCONSOLEON
2.SETCONSOLEOFF
3.EXIT
11、编写一个判断系统口令程序,输入次数在3次以内。
ACCEPTC+"
请输入口令:
TOPSW
IFALLTRIM(PSW)=="
MANAGER"
欢迎使用本系统!
___2___
ENDIF
C="
口令输入错误,再试一次!
ENDFOR
对不起,你无权使用本系统"
FORI=1TO3
FORI=1TO3STEP1
2.EXIT
IFI>
3
IF3<
I
12、本程序验证用户口令,有3次机会,如口令正确显示欢迎信息。
如口令错误提示重输,3次均错显示非法用户信息。
N=1
DOWHILE______1______
ACCEPT"
TOK
IFK="
168"
MESSAGEBOX("
欢迎,欢迎!
)
EXIT
ELSE
IF______2______
重输口令"
)
ELSE
非法用户"
ENDDO
1.N<
=3orN<
4or3>
=Nor4>
N
2.N<
3orN<
=2or3>
Nor2>
=N
3.N=N+1orN=1+N
13、本程序是一个外部函数,功能是:
将自然数型自变量转换成汉字。
PARAMETERSX
P="
零一二三四五六七八九"
______1______
DOWHILE.T.
N=X-INT(X/10)*10
C=______2______
S=C+S
X=INT(X/10)
IFX=0
RETURNS
orSTORE“”TOS
2.SUBSTR(P,2*N+1,2)
14、本程序输出如下菱形图案:
*
***
*****
*******
N=4
FORI=1TON
SPACE(N-I+2)
FORJ=1TO______1______
*"
FORP=______2______
SPACE(N-P+2)
FORK=1TO______3______
1.2*I-1
2.N-1TO1STEP-1
3.2*P-1
15、接收从键盘输入的任意5个数字,输入的数字可以是负数,但包括符号位最多三位。
程序的功能是,找出其中最大的数字和最小的数字,最后显示出来。
请输入第一个数字:
TOX
MA=X
MI=X
N=5
DOWHILEN>
1
INPUT"
请输入下一个数字:
IFMA<
X
IFMI>
最大数:
+STR(MA,3,0),"
最小数:
+STR(MI,3,0)
N=N-1
16、键盘输入两个4X3矩阵,计算并输出这两个矩阵的相加结果。
DIMEA(4,3),B(4,3),C(4,3)
FORH=1TO4
FORL=1TO3
请输入矩阵元素A("
+STR(H,1)+"
"
+STR(L,1)+"
)="
______1______
请输入矩阵元素B("
______2______
C(H,L)=A(H,L)+B(H,L)
TOA(H,L)
TOB(H,L)
C(H,L)
17、键盘输入一个4X4矩阵,查找并显示其中最大的元素及其下标。
DIMEA(4,4)
FORJ=1TO4
A("
+STR(I,2)+"
+STR(J,2)+"
)=?
TOA(I,J)
X=1
Y=1
M=A(X,Y)
IF______1______
M=A(I,J)
Y=______3______
数值最大的元素是:
M
位于"
X,"
行"
Y,"
列"
A(I,J)>
M
M<
A(I,J)
I
J
18、编写将输入字符串P转换为另一个字符串C。
ACCE"
TOP
FORI=1TOL
DOCASE
CASEA>
="
a"
ANDA<
u"
ORA>
A"
U"
A=CHR(ASC(A)+5)
v"
z"
V"
Z"
A=CHR(ASC(A)-21)
ENDCASE
P+"
--->
+C
1.L=LEN(P)
2.A=SUBSTR(P,I,1)
3.C=C+A
19、从键盘输入数据A,通过类型判断,输出其数据类型的汉字说明。
A="
TOA
DOCASE
casetype("
C"
A,"
是字符型数据。
是数值型数据。
L"
是逻辑型数据。
是日期型数据。
Y"
是货币型数据。
N"
casevartype(A)="
case"
=type("
)
答案四:
=vartype(A)
D"
3.ENDCASE
20、统计某个字符串(只包含西文字符)内有关字符出现的次数。
ACCEPT“请输入字符串”TOS
ACCEPT“请输入查找的某个字符”TOX
I=1
N=0
DOWHILE___1___
IFC==X
N=N+1
N
1.I<
=LEN(S)
2.C=SUBS(S,I,1)
3.I=I+1orI=1+I
21、键盘输入一个身份证号,分别统计输出其中阿拉伯数字(0-9)的个数。
DIMEN(10)
ACCEPT"
请输入身份证号:
L=______1______
FORK=1TOL
M=VAL(C)+1
N(M)=______3______
FORK=1TO10
K-1,N(K)
1.LEN(P)
2.SUBSTR(P,K,1)
3.N(M)+1
22、本程序是评委评分程序,分数的范围是0-100,在10个分数中去掉一个最高分,去掉一个最低分,剩下的分数求平均为最后得分。
A=0
B=100
FORN=1TO10
请输入分数?
S=______2______
IFX>
A
A=X
IFX<
B
B=X
S=______3______
最后得分为:
S
1.0
2.S+XorX+S
3.(S-A-B)/8or(S-B-A)/8
23、用菜单方式循环选择程序转向,当选数字5时退出菜单。
settalkoff
setproceduretoPRO51
store'
T'
toans
clear
1.数据记录添加2.数据记录删除"
3.数据记录修改4.数据记录查询"
5.退出"
WAIT"
请输入选择:
iftype("
ans"
.and.val(ans)<
=4.and.val(ans)<
>
prog="
prog"
+ans
loop
else
exit
endif
enddo
return
procprog1
wait"
已执行完数据记录添加的功能"
procprog2
已执行完数据记录删除的功能"
procprog3
已执行完数据记录修改的功能"
procprog4
已执行完数据记录查询的功能"
DO&
PROG
3,答案一:
SETPROCEDURETO
CLOSEPROCEDURE
24、实现四则运算。
store0toc
dowhile.t.
input"
输入第一个数:
toA
输入第二个数:
toB
accept"
请输入运算符:
docase
caseOP="
+"
storeA+BtoC
-"
storeA-BtoC
storeA*BtoC
/"
storeA/BtoC
otherwise
运算符错,重新输入"
endcase
store"
A&
OP.B="
toexp
exp+str(C)
是否继续?
(y/n)"
wait"
togo_on
ifupper(go_on)="
enddo
clear
再见!
settalkon
TOOP
2.答案一:
LOOP
3.答案一:
EXIT
25、通过键盘输入由数值组成的算术运算题,让学生回答,有2次回答机会,第二次回答错误计算机给出正确答案。
是否继续进行由用户决定。
请输入题目:
INPUTP+"
=?
X=EVALUATE(P)
正确!
错误,再试一次!
IFX=N
错误!
正确答案是:
X
继续吗?
(Y/N)"
IFUPPER(K)<
2,答案一:
X=N
N=X
26、利用自定义函数,统计给定的正整数表达式的值中所包含指定数值的单位数(例如:
在统计工资分发面额的张数时,金额23451元中包含面额100元的张数为234,50的张数为1,1元的张数为1,而10元,5元,2元的张数为0)。
SETESCAPEOn
DIMET(6)
************按ESC键结束操作***************"
请输入指定的金额数值M="
TOM
ALLTRIM(STR(M,19))+"
中包含指定面额:
P=M
T
(1)=100
T
(2)=50
T(3)=10
T(4)=5
T(5)=2
T(6)=1
FORI=1TO6
=VCT(@P,@R)
STR(T(I),5)+"
元的张数为:
+STR(P,19)+"
张。
___2___
IF___3___
SETESCAPEON
FUNCTIONVCT
PARAX,Y
B=X
IFX>
=Y
A=INT(X/Y)&
&
用于存放包含的张数
B=X%Y&
用于存放剩余的金额
X=A
Y=B
RETURN.T.
R=T(I)
P=R
INKEY(0)=27
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 字符 有关 填空
![提示](https://static.bdocx.com/images/bang_tan.gif)