xqw001
- 粉丝: 0
- 资源: 14
看过该资源的人还看了
内容简介:Private Sub Form_Load()Randomize Timer Dim i As Integer, jls As Integer Dim Values(1 To 15, 1 To 3) For i = 1 To 15 Values(i, 1) = "T" & Format(i, "00") Next i For i = 1 To 15 Values(i, 2) = Rnd * 100 '以下两个赋相同的值就行了。 Values(i, 3) = Rnd(0) * 100 Next i MSC...