Question

VB如何生成随机数

如何用VB做一个生成随机数的软件？
要求生成的数是1到53之间，要整数因为上课抽签用
代码是什么？如果比较简单的话最好说明一下每段的用途，顺便学习一下，会适当加分
如果是把生成的数输出text1这里，有没有方法另字体大一点？

Answer 1

1、打开“Microsoft Visual Basic 6.0 中文版”软件，准备一个空白的工程文件：

2、然后需要一个命令按钮，单击左侧工具箱中的“命令按钮”，在窗体中右侧拖动鼠标左键画出即可：

3、双击该命令按钮，这里演示输入代码打印0～10之间的任意随即整数，生成其他范围的随机整数公式为“int（（上限-下限+1）*Rnd+下限）”，如果是1到53就是“int（（1-53+1）*Rnd+53”：

4、写完之后运行程序，每单击一次命令按钮，就会在窗体上打印一个0～10之间的随即整数：

Answer 2

1、随机生成数生成通式：

Randomize      ‘必要代码，不然的话每次随机生成都是一样的数

a=int(rnd*(m-n+1))+n   ’   其中m>n生成n~m间（包括n，m）的随机整数

假如我想随机生成20-100间 ，那么就是n=20，m=100

代码是int(rnd*(100-20+1))+20

2、代码：

Private Sub Command1_Click()
Cls
Dim n As Integer
Dim wzs(10) As Integer
n = 1
While n <= 10
wzs(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 10
Print wzs(n)
n = n + 1
Wend

扩展资料

随机数是专门的随机试验的结果。

在统计学的不同技术中需要使用随机数，比如在从统计总体中抽取有代表性的样本的时候，或者在将实验动物分配到不同的试验组的过程中，或者在进行蒙特卡罗模拟法计算的时候等等。

产生随机数有多种不同的方法。这些方法被称为随机数生成器。随机数最重要的特性是它在产生时后面的那个数与前面的那个数毫无关系。

参考资料

百度百科-随机数

Answer 3

其实随机生成数很简单：
----------------------------------
Randomize ‘必要代码，不然的话每次随机生成都是一样的数

a=int(rnd*(m-n+1))+n ’其中m>n生成n~m间（包括n，m）的随机整数
假如我想随机生成20-100间
那么就是n=20，m=100
代码是int(rnd*(100-20+1))+20

Answer 4

其实随机生成数很简单：

----------------------------------

Randomize   ‘必要代码，不然的话每次随机生成都是一样的数

a=int(rnd*(m-n+1))+n   ’其中m>n生成n~m间（包括n，m）的随机整数

假如我想随机生成20-100间

那么就是n=20，m=100

代码是int(rnd*(100-20+1))+20

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。 [1] 

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 [2]  。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

Answer 5

将以下代码输入即可
Private Sub Form_Click() '窗体Click()事件
Randomize
'防止每次生出随机数一样
Print Int(Rnd * 53) + 1
'rnd()生成[0，1）的随机数，int（）是取整
End Sub
改text1的font属性，那有改字号的