随机产生一个四位数的VB编码 谢谢了
1.随机函数RND()产生一个0-1之间(不含0和1)的随机小数
2.INT(RND()*B+A)产生一个A(包括A)到A+B(不包括A+B)之间的整数,
如INT(RND()*40+60),产生60-99(包括99)之间的两位数
3.但RND()函数有个问题,必须在程序开始处加个Randomize Timer语句,否则每次运行时产生的第一个随机数是相同的
Private Sub Command1_Click()
Randomize
Dim rd As Integer
rd = Int(Rnd() * 10000+ 1000) ' 产生1000-9999 四位数
MsgBox rd
End sub
2.INT(RND()*B+A)产生一个A(包括A)到A+B(不包括A+B)之间的整数,
如INT(RND()*40+60),产生60-99(包括99)之间的两位数
3.但RND()函数有个问题,必须在程序开始处加个Randomize Timer语句,否则每次运行时产生的第一个随机数是相同的
Private Sub Command1_Click()
Randomize
Dim rd As Integer
rd = Int(Rnd() * 10000+ 1000) ' 产生1000-9999 四位数
MsgBox rd
End sub
佚名
2024-06-06 22:02:43
类似问题(10)
-
佚名2024-06-06 10:40:58
问如何用VB编写一个简单的选号器?就是点击然后程序随机帮选出一个数
答如何用VB编写一个简单的选号器?就是点击然后程序随机帮选出一个数。。。就是随机生成一个数字啊,代码:int(rnd*100) '生成0-99之间的一个数有个框可...
-
佚名2024-06-06 15:45:22
问VB,如何随机开发一个文件?
答dim iFolderCount as integerdim sFolderPath as stringdim iFileName as stringdim l...
-
佚名2024-06-06 08:00:00
问求一段C语言随机数代码
答#include <stdio.h>#include <stdlib.h>#include <time.h>int getRandomNum(...
-
佚名2024-06-06 08:00:00
问C# 怎样生成20个随机数,随机数范围为[10,100]?
答补充:List<int> num=new List<int>(); for (int i = 0; i < 20; i++) { ...
-
佚名2024-06-06 08:00:00
问号码随机抽取器 求一个随机抽取器,可以在自己输入的数据(电话号码)中随机抽取自己输入的电话号码。
答网上所有卖手机号的网站,都有填空选号的功能!!
-
佚名2024-06-06 08:00:00
问用VB编写一个随机选择器
答给你个简单的:Private Sub Command1_Click() '开始 Timer1.Enabled = TrueEnd SubPrivat...
-
佚名2024-06-06 08:00:00
问怎么用VB编写一个将数字1到8随机排序的程序?
答我 调试了 一段 代码用到 字符串 处理函数此处 无法 贴出代码,无奈 只好放 我 空间 里了请看看http://
-
佚名2024-06-06 08:00:00
问vb编程,产生随机数
答Randomize '关键必须有,不然每次运行随机数都不变n1 = InputBox("输入随机数最小的值(正整数)", "下限", "1")n2 = Inpu...
-
佚名2024-06-06 08:00:00
问c语言 产生1到100点随机数的代码
答#include <stdio.h>#include<time.h>#include<stdlib.h>int main(){ srand((...
-
佚名2024-06-06 08:00:00
问什么家居数码摄像机比较好用?有用过数码摄像机的帮忙推荐一下,谢谢
答索尼摄像机应该最最好,适合家庭用的有很多型号。
风水
起名
网名
- 1 带学霸的网名
- 2 关于创业者的网名
- 3 网名中带有紫字的网名
- 4 整套qq网名签名
- 5 怎样通过网名添加微信
- 6 90后创业网名
- 7 竖立网名在哪里下
- 8 微信群主改其他人昵称
- 9 cf手游昵称空白符号
- 10 带陌字的昵称大全女生版
说说
- 1 不爱我了的个性签名
- 2 关于姓霍的个性签名
- 3 他对我的人说说
- 4 悼念奶奶发表说说
- 5 自己太穷 没人嫁伤感说说
- 6 游戏输了惩罚发说说狠
- 7 手机qq无法发表说说
- 8 即将迎来2020年的说说
- 9 关于心被伤透的说说
- 10 做个瘦子吧的说说