- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]字符的随机显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53928)
-- 发布时间：2014/7/18 9:55:00
-- [求助]字符的随机显示
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.foxdb |
此主题相关图片如下：qq截图20140718095420.jpg
定义15个字符，要随机显示30出个字符请问要怎么写
-- 发布时间：2014/7/18 9:59:00
--
Dim str() As String = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "+", "-", "*", "/", ">"}
For i As Integer = 1 To str.Length \'洗牌测次数
Dim rnum1 As Integer = Rand.Next(str.Length)
Dim rnum2 As Integer = Rand.Next(str.Length)
Dim temp As String = str(rnum1)
str(rnum1) = str(rnum2)
str(rnum2) = temp
Next
Dim data As String = String.Join("", str)
For i As Integer = 1 To str.Length \'洗牌测次数
Dim rnum1 As Integer = Rand.Next(str.Length)
Dim rnum2 As Integer = Rand.Next(str.Length)
Dim temp As String = str(rnum1)
str(rnum1) = str(rnum2)
str(rnum2) = temp
Next
data &= String.Join("", str)
msgbox(data)
-- 发布时间：2014/7/18 10:12:00
--
请问有点甜老师，定义成30是哪句代码？能指点下吗？谢谢！
-- 发布时间：2014/7/18 10:21:00
--
以下是引用weijun在2014-7-18 10:12:00的发言：
请问有点甜老师，定义成30是哪句代码？能指点下吗？谢谢！
请问有点甜老师，定义成30是哪句代码？能指点下吗？谢谢！
比如，你定义了10个字符，那么生成随机25字符，就应该是 10个+10个+(10个-5个)
上面的代码，每次15个，生成两次，就是30个。
-- 发布时间：2014/7/18 10:24:00
--
谢谢老师！
-- 发布时间：2014/7/18 11:39:00
--
上面代码生生成30个字符，要生成25个字符，就要减除5个看看了String的方法和属性还是没明白，请教下要怎样写代码？
-- 发布时间：2014/7/18 11:42:00
--
Dim str() As String = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "+", "-", "*", "/", ">"}
For i As Integer = 1 To str.Length \'洗牌测次数
Dim rnum1 As Integer = Rand.Next(str.Length)
Dim rnum2 As Integer = Rand.Next(str.Length)
Dim temp As String = str(rnum1)
str(rnum1) = str(rnum2)
str(rnum2) = temp
Next
Dim data As String = String.Join("", str)
For i As Integer = 1 To str.Length \'洗牌测次数
Dim rnum1 As Integer = Rand.Next(str.Length)
Dim rnum2 As Integer = Rand.Next(str.Length)
Dim temp As String = str(rnum1)
str(rnum1) = str(rnum2)
str(rnum2) = temp
Next
data &= String.Join("", str)
msgbox(data.Substring(0,25))