怎么让vb在文本框上随机产生一个1-10的整数？

Question

如题所述

Answer 1

随机数的返回格式
用a表示下界，b表示上界，用一下的命令可以返回a～b之间的任意数

int(rnd()*(b-a+1))+a

你是要产生一个1～10之间的数，并显示与文本框上。假设这个文本框是Text1就可以这样

Text1.Text = Str(Int(Rnd()*10)+1)

Answer 2

打开工程,新建窗体,form1的事件为默认load, 我们只要使用一个label 标签控件和一个command 按纽控件 就能完成任务,具体代码实现如下：
Private Sub Command1_Click()
Dim MyValue
Randomize ’初始化随机变量
MyValue=Int((10*Rnd)+1)
label1.caption=MyValue
End sub

代码就这样 ， 很简单 ，你上机调试下 ， 看有什么问题 ， 有的 话 给我留言本回答被提问者采纳

Answer 3

Private Sub Command1_Click()
Randomize
Text1 = Cstr(Fix(10 * Rnd) + 1)
End Sub

Answer 4

dim a as long
a=rnd*10
text1.text=a

Answer 5

private
sub
command1_click()
randomize
text1.text
=
int(101
*
rnd())
'int((upperbound
-
lowerbound
+
1)
*
rnd
+
lowerbound)
end
sub