ＶＦ简单题目 帮忙解决下～
答案:1 悬赏:70 手机版
解决时间 2021-07-18 15:44
- 提问者网友：谁的错
- 2021-07-17 14:50
如图· 我刚学 不怎么会· 知道的帮下忙 谢了·
最佳答案
- 五星知识达人网友：煞尾
- 2021-07-17 15:20
界面：
运行效果：
代码如下：
s = thisform.text1.Value
k = ""
FOR i = 1 to LEN(s)
c = SUBSTr(s,i,1)
IF ISDIGIT(c) AND VAL(c) % 2 = 0 THEN
k = k + c
ENDIF
ENDFOR
thisform.text2.Value = k
运行效果：
代码如下：
s = thisform.text1.Value
k = ""
FOR i = 1 to LEN(s)
c = SUBSTr(s,i,1)
IF ISDIGIT(c) AND VAL(c) % 2 = 0 THEN
k = k + c
ENDIF
ENDFOR
thisform.text2.Value = k
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯