请教一些数据剔出的问题

显示全部楼层 · 2011-4-17 01:26:50

首先用command1 生成一组数据
private sub command1_click()
for i= 1 to 3
for j= 1 to 3
for k = 1 to 3
text1.text= text1.text defds123 i defds123 j defds123 k

next
next
next
end sub

然后我想用command2 剔出 text1.text中已经生成的某些数据应该怎么编写呢？
private sub command2.click()
比如 i 和 j 和 k 都是偶数的情况下就把他们剔出

end sub

千问 · 2011-4-17 01:26:50

<pre id=\"best-answer-content\" class=\"reply-text mb10\">private sub command2_click()
dim str1 as string
dim str2 as string
dim m as integer
str1 = text1.text
for m = 0 to 2
i = int(mid(str1,m*3,1))
j = int(mid(str1,m*3 1,1))
k = int(mid(str1,m*3 2,1))
if i mod 2 = 0 and j mod 2 = 0 and k mod 2 = 0 then
else
str2= str2defds123 i defds123 j defds123 k
end if
next
text1.text = str2
end sub