vb 随机数源码

vb 随机数源码
Private Sub Command1_Click()
    Text1.Text = ""
    Randomize
    For i = 0 To 6
        a = Int(Rnd * (47 - 44 + 1)) + 44
        Text1.Text = Text1.Text + CStr(a) + vbTab + vbTab
    Next i
    a = Int(Rnd * (43 - 34 + 1)) + 34
    Text1.Text = Text1.Text + CStr(a)
End Sub

vb 随机数源码


本站如无特别说明即为原创,转而告知:(http://iwonmo.com/archives/855.html)

标签: vb, 随机数源码

添加新评论