Sub test()
Do While (True)
a = Int(Rnd() * 10)
b = Int(Rnd() * 10)
c = Int(Rnd() * 10)
d = Int(Rnd() * 10)
If (a <> 0) Then
Cells(1, 1).Value = a & b & c & d
Exit Sub
End If
Loop
End Sub追问
那怎么设计窗体界面啊
本回答被提问者采纳0123456789随机组合成一个4位数 用vb怎么弄啊
那就产生4个随机数字（0-9），把它们组合成一个最高位不是0的四位数就可以了。
用vb随机产生一个数,在c盘里创建文件夹以随机数命名
char = "0123456789"Redim num(len(char)-1)for x=0 to len(char)-1 num(x)=right(left(char, x+1), 1)next Randomize for x=1 to 6 str = str & num(Int(len(char) * Rnd))next ' ***下面两行是你需要的代码 Set fso = CreateObject("Scripting.FileSystemObject")Set f = ...
...比如输入“1925”,输出“一九二五” 用VB做
Dim L As Integer Dim ss1 As String Dim ss2 As String sy = "0123456789"st = "另一二三四五六七八九"ss1 = InputBox("输入一个年份（四位阿拉伯数字）")ss2 = ""For i = 1 To Len(ss1)L = InStr(sy, Mid(ss1, i, 1))ss2 = ss2 & Mid(st, L, 1)Next i Print ss2...
用vb写一个账号密码生成器,账号密码的形式都是汉语拼音加数字?谢谢...
Dim strResult As String Const mDic As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"Randomize '获取密码长度 8-12位 nPswLen = Fix(Rnd * 5 + 8) '5=12-8+1 '第一位确保是字母 N = Fix(Rnd * 26 + 1) '26指 mDic 的前26位 strResult = Mid(mDic, N, 1)'生成其他位 For...
VB生产随机字母+数字的方法
Private Sub Command1_Click()Randomize Dim strA As String Dim ShuChu As String strA = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"ShuChu = ""For i = 1 To 9 ShuChu = ShuChu & Mid(strA, Int((62) * Rnd), 1)Next Print ShuChu End Sub 希望你能看懂！
请问哪位高手知道EXCEL表格自动该换数字,因为我想把他作为密码用、但...
举个例子（当然如果纯数字的话可以直接用rand（）函数）=INDEX({1;2;3;4;5;6;7;8;9;0},(INT(RAND()*10)+1))产生一个0-9直接的随机数 连接6个 =INDEX({1;2;3;4;5;6;7;8;9;0},(INT(RAND()*10)+1))&INDEX({1;2;3;4;5;6;7;8;9;0},(INT(RAND()*10)+1))&...
怎么让附加码出4位数?
不太懂VB，不过可以给你一个建议。Dim zimg(6), NStr 声明的时候改为数组大小改为4 Dim zimg(4),NStr 下面有两个循环是 For i = 0 To 5 都改成 For i = 0 To 3
各一个最简单的vb打字游戏代码
' '下面是窗体代码,在 VB6.0 调试通过:'在窗体上放置下面 6 个控件:' Option1: 用于进行字符类型选择' Label1: 用于显示下落的字符' Label2: 用于显示游戏信息' Timer1: 用于移动字符' Picture1:下落字符的背景' Text1: 用于显示游戏者键入的字符'在属性窗口将 Option1 和 Label1 的 Index 属性设置为 0...
vb代码:一个方法可将数字金额变为大写
= Mid(strG, 3, 1) Case 5 GetG = Mid(strG, 4, 1) Case 9 GetG = Mid(strG, 5, 1) End Select End Function Private Function ReadLongNumber(ByVal LongX As String) As String Dim NumberX As String Dim l As Long '长度 Dim m As Long '多余位数 Dim c As Long '...
用vb生成随机字符串
你可以随机从ASCII码中的33到126之间随机选一个数 然后还原成字符 重复12次就可以得到12位随机字符串了~使用rnd函数 为了生成某个范围内的随机整数，可使用以下公式 Int((upperbound - lowerbound + 1) * Rnd + lowerbound)upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限 Int...
