玩酷之家

 找回密码
 立即注册
查看: 1745|回复: 1

简单实用的VB生成随机数的代码【仅整数】

[复制链接]

20

主题

21

帖子

909

积分

高级会员

Rank: 4

积分
909
QQ
发表于 2019-2-18 17:01:34 | 显示全部楼层 |阅读模式
一个简单实用的VB语言快速生成随机整数代码,这个例子是VB.NET的,VB6使用需要改一下语法格式
  1. Private Function sjs随机数(ByVal 最小值 As Integer, ByVal 最大值 As Integer, ByVal 位数 As Integer)
  2.         最小值 = 最小值 - 1
  3.         最大值 = 最大值 + 1
  4.         Dim a = ""
  5.         For i = 1 To 位数
  6.             Randomize()
  7.             a = a & Int(((最小值) - (最大值) + 1) * Rnd() + (最大值))
  8.         Next
  9.         Return a
  10.     End Function
复制代码
使用时只需像其他函数一样使用即可例如
  1. sjs随机数(0, 9, 5)               '生成一个随机五位数整数
复制代码
如果需要生成特殊范围内的数字,例如在100到200之间,则最大值和最小值直接写上下限即可,位数写1,代表生成过程只运行一次

湖边的稻草 1059 Studio
回复

使用道具 举报

4

主题

20

帖子

157

积分

注册会员

Rank: 2

积分
157
QQ
发表于 2019-2-19 20:16:25 | 显示全部楼层
嗯嗯嗯嗯。
细嗅蔷薇。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号-1 )|

GMT+8, 2020-8-5 12:19 , Processed in 1.060802 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表