请教两个常见问题。（在线等）

yugui

第一个问题：
a = Int((10 * Rnd) + 1)
b = Int((10 * Rnd) + 1)

如果判断得到的a能被b整除，也就是不带小数，否则就重新生成。
比如: 2/1=2 是对的 3/2=1.5 就要重新生成。

第二个问题：
做一个按钮，如果判断点击这个按钮就等于键盘上的backspace
比如我的text1.text="12345" 每点击一次这个按钮，text1.text的值将从右到左去掉一位。

coldney

Private Sub MakeRnd(A As Integer, B As Integer)
A = Int((10 * Rnd) + 1)
B = Int((10 * Rnd) + 1)
If A Mod B <> 0 Then MakeRnd A, B
End Sub

yugui

谢谢，那第二个问题呢？

yinxiaodan

private sub KeyUp(.....
       text1.text=left(text1.text,len(text1.text)-1)
end sub

fy_pig

第一个

do
    A = Int((10 * Rnd) + 1)
    B = Int((10 * Rnd) + 1)
loop while A Mod B <> 0

fy_pig

第二个有点麻烦,楼主的意思好象要设置一个按钮来模拟 Backscape 按钮的功能,不知道用 sendkeys 函数行不行.
还可以用API函数 SendMessage 模拟一个键盘动作,但好象需要一个 public 变量来保存某个输入对象的句柄.

KORE

private sub KeyUp(.....
       text1.text=left(text1.text,len(text1.text)-1)
end sub

这个就可以模拟了啊，每次点击从右删除一个