Private Sub Command1_Click()
Text1.FontSize = 20
Text2.FontSize = 20
Text3.FontSize = 20
Text4.FontSize = 20
Text5.FontSize = 20
Text6.FontSize = 20
Text7.FontSize = 20
Dim a, b, c, d, e, f, g As Integer
Randomize
  a = Int((33 * Rnd) + 1)
  b = Int((33 * Rnd) + 1)
  c = Int((33 * Rnd) + 1)
  d = Int((33 * Rnd) + 1)
  e = Int((33 * Rnd) + 1)
  f = Int((33 * Rnd) + 1)
  g = Int((16 * Rnd) + 1)
  Text1 = a
  Text2 = b
  Text3 = c
  Text4 = d
  Text5 = e
  Text6 = f
  Text7 = g
End Sub
大家不要笑话啊
不好意思 可能看上去很繁琐  刚学几天  试着写了  运行正确  但是有一点
如何让  text1——text6  显示的数据不重复
也就是如果  text1 有了1  后面5个不可以有1