,255)
8.
是否闰年”的 事件的代码编写如下: 对”是否闰年 的 CLICK 事件的代码编写如下: 是否闰年 a=year(thisform.text1.value) if a%4=0 and a%100<>0 or a%400=0 thisform.text2.value="是闰年 是闰年" thisform.text2.value="是闰年" ELSE thisform.text2.value="不是闰年 不是闰年" thisform.text2.value="不是闰年" ENDI
9.
因子个数”的 事件代码编写如下: 对”因子个数 的 CLICK 事件代码编写如下: 因子个数 a=thisform.text1.value n=0 for i=1 to a if a%i=0 n=n+1 ENDIF ENDFOR THISFORM.TEXT2.VALUE=NTHISFORM.TEXT2.VALUE=N-1
10.
事件的代码编写如下: 对“数字字符个数”的 CLICK 事件的代码编写如下: 数字字符个数” a=thisform.text1.value &;&;输入的字符串的长度 b=len(a) &;&;输入的字符串的长度 c=”” c= n=0 for i=1 to b c=substr(a,i,1)&;&; &;&;将每个字符单独取出 c=substr(a,i,1)&;&;将每个字符单独取出 c$"0123456789"$$ $$包含数字的情况 if c$"0123456789"$$包含数字的情况 n=n+1 endi endfor thisform.text2.value=n thisform.text2.value=n
补充: 如果将题目改为求字母字符( 包括大写和小写) 补充 : 如果将题目改为求字母字符 ( 包括大写和小写 ) 的 个数(ASC(C)>=65 ASC(C)<=90)指大写 指大写, 个数(ASC(C)>=65 AND ASC(C)<=90)指大写, (ASC(C)>=97 ASC(C)<=122)指小写 AND ASC(C)<=122)指小写 a=thisform.text1.value &;&;输入的字符串的长度 b=len(a) &;&;输入的字符串的长度 c=”” c= n=0 for i=1 to b c=substr(a,i,1)&;&; &;&;将每个字符单独取出 c=substr(a,i,1)&;&;将每个字符单独取出 if (ASC(C)>=65 AND ASC(C)<=90) OR (ASC(C)>=97 AND ASC(C)<=122) n=n+1 endi endfor thisform.text2.value=n thisform.text2.value=n
11.
按从小到大排列”的 事件的代码编写如下: 对”按从小到大排列 的 CLICK 事件的代码编写如下: 按从小到大排列 a=thisform.text1.value b=thisform.text2.value if a>=b thisform.text3.value=b thisform.text4.value=a else thisform.text3.value=a thisform.text3.value=a thisform.text4.value=b endi
12.
计算”的 事件代码编写如下: 对”计算 的 CLICK 事件代码编写如下: 计算 &;&;给个数 n=0 &;&;给个数 n 赋初值 &;&;给和 s=0 &;&;给和 s 赋初值 ***********在两线条间完成其他语句 在两线条间完成其他语句************** ***********在两线条间完成其他语
句************** for i=0 to 100 if i%7=0 s=s+i n=n+1 endi endfor *********************************************** *********************************************** thisform.text1.value=n thisform.text2.value=s thisform.refresh
13.
逆序”的 事代码编写如下: 对”逆序 的 CLICK 事代码编写如下: 逆序 a=thisform.text1.value b=len(a) c="" for i=b to 1 step -1 c=c+substr(a,i,1) endfor thisform.text2.value=c