Question

vb用shape画五个椭圆怎么随机生成其中三个.急!!

求代码

Answer 1

shape：控件数组，index属性是0 到 5
然后用随机函数产生数组索引

把以下代码稍作修改就可以达到你要的效果：

Dim i As Integer
Private Sub Command1_Click()
Dim Sindex As Integer
For i = 0 To 4
Shape1(i).Visible = False
Next i
Randomize
Sindex = Int(Rnd() * 5) '产生0~4之间的随即整数
Shape1(Sindex).Visible = True
Randomize
Sindex = Int(Rnd() * 5) '产生0~4之间的随即整数
Shape1(Sindex).Visible = True
Randomize
Sindex = Int(Rnd() * 5) '产生0~4之间的随即整数
Shape1(Sindex).Visible = True
End Sub

Private Sub Form_Load()
For i = 0 To 4
Shape1(i).Visible = False
Next i
End Sub