如何在光标处打入一个随机数.谢谢.

来源：百度知道 编辑：UC知道 时间：2024/06/25 05:42:02
如何在光标处打入一个随机数.谢谢.
1.请问可以不用文本吗？就是说，只要有光标在的地方，就能用上。先谢谢你们。
2.另外一个相关的问题在这里，答好了，加分。谢谢。地址：http://zhidao.baidu.com/question/73536268.html

首先在窗体上画三个文本框,名称分别为text1,text2,text3
在代码窗口输入以下代码:
Private Sub form_Click()
If Form1.ActiveControl Is Text1 Then
Text1.Text = Int(1000 * Rnd() + 1)
ElseIf Form1.ActiveControl Is Text2 Then
Text2.Text = Int(1000 * Rnd() + 1)
ElseIf Form1.ActiveControl Is Text3 Then
Text3.Text = Int(1000 * Rnd() + 1)
End If
End Sub

运行后,单击窗体就会在光标处打入一个1-1000的随机数.
不知道这是不是你要的答案

闭上眼睛随便点击数字键就行了

Private Sub Command1_Click()
Randomize
Text1.SetFocus
Text1.SelText = Int(Rnd * 100)
End Sub