vb数字随机分配

显示全部楼层 · 2013-5-24 20:53:13

Option Explicit '强制要求声明变量(可以不写)Dim i, j, r, p(0 To 7) As Integer '声明变量i, j, r, p(0),p(1),…, p(7)为整形变量,也就是说这些变量里的值都是整数Private Sub Command1_Click() '事件：当Command1被点击'#1For r = 0 To 7 Step 1 '("Step 1"可略去),与next形成循环
p(r) = 0Next r'让r从0不断加1一直加到7，每加1,使p(r...

千问 · 2013-5-24 20:53:13

Private Sub Command1_Click()Dim a(64)As String, i As Integer, jAs Integer, myOutput(7) As String, myTempstr As StringFor i = 1 To 64 a(i) = Format(i, "00")NextRando...