UC知道vb 关于剔除一个数
来源：百度知道 编辑：UC知道 时间：2024/06/23 22:42:39
for i=0 to 3
现在，如果g=1,那么
结果等于抛去1的其他3个数，也就是023
如果g=2，结果等于抛去2的其他3个数，也就是013
要写成for 的如第一个例子（实际分别就是0 2 3）
如第一个例子s= "0123"
然后得到已知的g=1
然后在从1234抛去g，z=023
然后for y = 1 to 3
w=mid(z,y,1)
这样，w循环就得到0，2，3了
不过这样写太麻烦，有什么简单的方法吗
也就是i分别等于0，1，2，3
抛去g=? ,如1，那么，w分别等于0，2，3
这个该怎么写
Finding___老师，我要的就是循环的结果，是分别等于，而不是一段字符
Private Sub Command1_Click()
For y = 1 To 3
s = "0123"
g = 1
k = Replace(s, CStr(g), "")
w = Mid(k, y, 1)
MsgBox w
Next
End Sub
应该是这样，但是我说的是否有简单的方法，我不想用s = "0123"，而用s=0 to 3
但是要算出的结果是一样的
现在，如果g=1,那么
结果等于抛去1的其他3个数，也就是023
如果g=2，结果等于抛去2的其他3个数，也就是013
要写成for 的如第一个例子（实际分别就是0 2 3）
如第一个例子s= "0123"
然后得到已知的g=1
然后在从1234抛去g，z=023
然后for y = 1 to 3
w=mid(z,y,1)
这样，w循环就得到0，2，3了
不过这样写太麻烦，有什么简单的方法吗
也就是i分别等于0，1，2，3
抛去g=? ,如1，那么，w分别等于0，2，3
这个该怎么写
Finding___老师，我要的就是循环的结果，是分别等于，而不是一段字符
Private Sub Command1_Click()
For y = 1 To 3
s = "0123"
g = 1
k = Replace(s, CStr(g), "")
w = Mid(k, y, 1)
MsgBox w
Next
End Sub
应该是这样，但是我说的是否有简单的方法，我不想用s = "0123"，而用s=0 to 3
但是要算出的结果是一样的
很简单！
简单解释一下：当g=1的时候 跳出本次循环，进入下一次！
For i = 0 To 3
If g% = 1 Then GoTo Lop001
Lop001:
Next i
一行代码就可以了，干嘛还要用循环啊
s="0123"
g=1
s=replace(s,cstr(g),"") '把s中的数字替换掉
? s
Private Sub Command1_Click()
For y = 0 To 3
s = "0123"
g = 1
w = Mid(s, y + 1, 1)
If w = 1 Then GoTo 1
MsgBox w
1
Next
End Sub
----
还有
Private Sub Command1_Click()
For y = 0 To 3
If y = 1 Then GoTo 1
MsgBox y
1
Next
End Sub
Finding___的最简单，如果你想要最后出现的数组，
增加一句即可把字符串变成数组
s="0123"
g=1
s=replace(s,cstr(g),"") '把s中的数字替换掉
dim ss() as byte
字符串变成数组
ss=s
数组变成字符串
s=join(ss,"")