VB随机函数
来源:互联网 发布:数据分散程度 编辑:程序博客网 时间:2024/05/16 08:58
'********************************
'随机函数生成
'输入值:生成值范围 fromNum~toNum
'返回值:随机数
'********************************
Public Function Get_RandNum(fromNum,toNum)
If (fromNum<0) Or (toNum<0) Then
MsgBox "只接受大于零的输入"
ElseIf fromNum>toNum then
MsgBox "起始值必须小于结束值"
Else
Dim RunTime
Randomize
RunTime = Int((10 * Rnd) + 1)
Dim MyValue,i
For i = 1 To RunTime
Randomize
MyValue = Int(((toNum - fromNum + 1) * Rnd) + (fromNum))
Next
Get_randNum=MyValue
End If
End Function
'********************************
'随机生成(数字)
'********************************
Function MakeOnlyNum(inputlength)
Dim I,x,B,A
If IsNumeric(inputlength) Then
For I = 1 To inputlength
A = Array("0","1","2","3","4","5","6","7","8","9")
Randomize
x=Get_RandNum(0,9)
B = A(x)
MakeOnlyNum =MakeOnlyNum +B
Next
MakeOnlyNum = MakeOnlyNum
else
msgbox ("只接受数字输入")
End If
End Function
'********************************
'随机生成(字符串+数字)
'********************************
Function MakeString(inputlength)
Dim I,x,B,A
If IsNumeric(inputlength) Then
For I = 1 To inputlength
A = Array("0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z")
Randomize
x=Get_RandNum(0,35)
B = A(x)
makestring =makestring +B
Next
MakeString = makestring
else
msgbox ("只接受数字输入")
End If
End Function
'********************************
'随机生成(字符串)
'********************************
Function MakeOnlyString(inputlength)
Dim I,x,B,A
If IsNumeric(inputlength) Then
For I = 1 To inputlength
A = Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z")
Randomize
x=Get_RandNum(0,25)
B = A(x)
MakeOnlyString =MakeOnlyString +B
Next
MakeOnlyString = MakeOnlyString
else
msgbox ("只接受数字输入")
End If
End Function
- vb随机函数
- VB随机函数
- VB随机字母的函数
- [VB.NET]随机函数得到数字和字母组合
- [VB.NET]随机图形
- vb实现随机图形
- vb随机图形
- vb实现随机图形
- vb随机显示图片
- 关于VB调用Access的Rnd函数随机返回表中数据的解决方法
- qtp vb正则表达式RegExp、随机函数参数化RandomNumber实现
- 随机函数
- 随机函数
- 随机函数
- 随机函数
- 随机函数
- 随机函数
- 随机函数
- linux sar 命令详解
- hadoop对于压缩文件的支持及算法优缺点
- ava.lang.UnsupportedClassVersionError: Unsupported major.minor version 51.0
- 身份证号码验证
- uboot分析之uboot启动内核分析
- VB随机函数
- 全排列 算法题
- dr结构的抓包分析
- gdb调试器命令学习总结笔记
- java编译的莫名奇妙问题总结 .
- Rajawali 教程02创建一个动态壁纸和导入模型
- mysql存储过程中 declare 和 set 定义变量的区别
- 设计模式概述
- ZXingObjC 崩溃问题解决方法