一、VB随机数生成的方法
vb随机数生成函数是Rnd[(number)]，number参数为可选项。在调用Rnd生成随机数之前，先使用Randomize初始化随机数生成器来产生种子，该生成器是根据系统计时器来产生种子的。
1、生成100以内的随机数
Randomize
Int(Rnd()*100)//生成0-99之间的随机数
Int(Rnd()*101)//生成0-100之间的随机数
2、生成指定范围随机数
由于vb没有提供直接生成指定范围随机数的函数，所以要把Rnd变通一下，方法如下：
Int((上限-下限+1)*Rnd+下限);
把它封装成可直接调用的函数如下：
FunctionGetRandom(under,overAsInteger)AsInteger
Ifunder<overThen
temp=under;
under=over;
over=temp;
EndIf
Randomize
GetRandom=Int((under-over+1)*Rnd+over);
EndFunction
调用方法：
GetRandom(10,100);//生成10到100的随机数
二、生成随机数的方法
1、方法：Random.Next(intminValue,intmaxValue);
2、说明：
若minValue和maxValue都没有提供，则生成一个0-2147483647之间的随机数；
若minValue和maxValue只提供一个，则生成一个0-maxValue之间的随机数；
若minValue和maxValue两个都提供，则生成一个minValue-maxValue之间的随机数；
3、举例
Dimran=NewSystem.Random()
ran.Next()//生成0-2147483647之间的随机数
ran.Next(100)//生成0-100之间的随机数
ran.Next(10,100)//生成10-100之间的随机数
Dimran=NewRandom(DateTime.Now.Millisecond)//通过日期的微秒生成随机数
比如利用vb编程在VB里画一个源？
先在工程－引用里面增加autocad类型库然后写以下代码PrivateSubCommand1_Click()Dimp(2)AsDoubleDimacadAsAcadApplicationDimmspaceAsAcadDocumentSetacad=CreateObject(“autocad.application.16”)acad.Visible=TrueSetmspace=acad.Documents.AddFori=1.5To99.5p(0)=i:p(1)=i:p(2)=0mspace.ModelSpace.AddCirclep,Sqr(2)/2NextiEndSub
WPS如何写代码？
1、打开WPS软件，在表格中创建一个简单的表格，在单元格中的输入数据，并给表格添加边框和单元格背景颜色。
2.接着，鼠标左键单击【开发工具】，选择【命令按钮】图标，并把按钮拖放到表格的单元格中。
3.然后，鼠标左键单击【设计模式】。
4.接着，鼠标右键单击命令按钮，选择【查看代码】。
5.然后，会弹出VB代码编辑窗口。
6.接着，在命令按钮单击的代码中，添加一个消息提示函数。
7.然后，鼠标左键单击【退出设计】模式，这样就可以测试命令按钮中的代码。
8.最后，鼠标左键单击命令按钮，会弹出一个消息提示窗口。这说明代码添加成功了
