例1:运行下列程序后显示结果为_____
CLEAR
C=”南京大学信息管理系”
FOR I=1 TO LEN(C)/2
IF I%20
SUBS(C,2*I-1,2)
ENDIF
ENDFOR
例2:完善下列程序以显示7~1000以内能被7整除、且含有数字5的所有整数(例如35、、、、、、、、、、56、105等).
FOR n=7 TO 1000_______
ch= ______
IF “5” $ ch
ENDIF
ENDFOR
例3:完善下列程序,使程序的运行结果如右图所示.
CLEAR
FOR i=1 TO 9
FOR j=1 TO 9
IF i
1:
CLEAR
C="南京大学信息管理系"
FOR I=1 TO LEN(C)/2
IF I%20 && 如果 I 不能被 2 整除
SUBS(C,2*I-1,2) && 输出由 2*I-1 开始的双字节字符
ENDIF
ENDFOR
输出 “南大信管系”
等同:
CLEAR
C="南京大学信息管理系"
FOR I=1 TO LENC(C)
IF MOD(I,2)0
SUBSTRC(C,I,1)
ENDIF
ENDFOR
2:
FOR n=7 TO 1000 STEP 7 && 以步长 7 进行循环
ch= STR(n) && 先将 n 转换成字符型
IF "5" $ ch && 如果发现字符型 n 中包含 "5"
n && 输出结果
ENDIF
ENDFOR
3:(看不到图)
4:
CLEAR
cstring= "VisualFoxPro"
nresult=0
m=len(cstring) && 获得字串 cstring 的长度
FOR n=1 to m
c=SUBSTR(cstring,n,1) && 顺序取 cstring 的 1 个字符
IF !BETWEEN(ASC(c),ASC("A"),ASC("Z")) && 如果 非大写 A—Z
LOOP && 不执行后续语句,继续循环
ENDIF
&& 如果通过(即 是大写字母),就计数
nresult=nresult+1
ENDFOR
nresult && 输出结果
输出结果 3
这是一段统计全单字节字串中大写字母数的程序
-
点赞数:0回答数:1
-
点赞数:0回答数:2
-
点赞数:0回答数:1
-
点赞数:0回答数:1
-
点赞数:0回答数:1
-
点赞数:0回答数:1
-
点赞数:0回答数:1
-
点赞数:0回答数:1
-
点赞数:0回答数:1
-
点赞数:0回答数:1

最新问答: 已知函数f(π)=1/2cos^2wx+√3/2sinwxcoswx+1,x∈R的f(x)的最小正周期为π(1)求w的值 英语翻译把available 用上 什么船在水面飞? 高中化学方程式归纳你会多少 数列前n项和的一个重要性质若数列{an}前n项和为Sn则S奇=奇数项*a中!我想问问有没有这个,是等差还是等比的!请晓得 show me your hands是什么句型结构 3x-3/10>4(x-5)的x的最大整数解 求一篇给留守儿童的一封信英语作文 一、请根据汉语提示完成下列句子 1、which is ________shirt?The green one.哪一件是最 液体只要吸热就一定沸腾对吗 (2013•雨花台区一模)下列不属于无性生殖的是( ) 英语“day and night”是指哪个成语 馈赠英语怎么说 六年级解方程练习题50道 工程队修一条公路,第一天修了全长的5分之1,第二天修了全长的8分之1,第一天比第二天多修12米.第一天修了多少米? 下列几个速度中属于平均速度的是( ). A.子弹射出枪口的速度是800 m/s B 磁感应强度单位是特斯拉,1T相当于 the rain may last till Friday.在这句话中last起什么作用 1.小船在200m宽的河中横渡,水流速度为2m/s,船在静水中的航速为4m/s,求:(1)当小船的船头始终正对对岸时,它 铜发生复分解反应时是+1价还是+2价