vb2005中如何设置成数组控件

来源：百度知道 编辑：UC知道 时间：2024/06/08 04:26:52
我想设计一个程序（vb 2005)

程序是思路是这样的

随机出2个数相加，如 2+4＝？
下面会出4个随机答案（其中有一个是正确的）： A：3 B：4 C：5 D：6
这4个答案用的控件是label或RadioButton1,

请问：
如何让答案随机出现在4个控件中其中的一个上（答案的位置一定要随机）

谢谢各位了。

假定你的label名为Label1～4，
n=int(rnd*4)+1
msgbox me.Controls("Label" & n).Caption

把你的控件设置成数组,比如:Lab(1-4)
用VB写的,你测试一下
添加四个标签:lab(1-4),一个按钮command1

加入下面代码
Private Sub Command1_Click()
setValue 5
End Sub

Private Sub setValue(iValue As Integer)
Dim iTmp As Integer
iTmp = Int(Rnd * 4 + 1)
For i = 1 To 4
If i = iTmp Then
lab(i) = iValue
Else
lab(i) = Int(Rnd * 5 + i) + iValue
End If

Next
End Sub