VB中的赋值问题

来源：百度知道 编辑：UC知道 时间：2024/06/25 08:12:36
假设text1.text的值为1到999间的随机数，并且会不断变化，而text1.text的值的变化会引起text2.text的相应变化，而我要记录下这些变化并保存在变量中，当text1.text的值等于1时，用a1来记录text2.text的值，当text1.text的值为2时，用a2来记录，当text1.text的值为m时，用am来记录text2.text的值。。。这样到最后，我想知道当text1.text等于n的时候text2.text的值的时候，只要调出an的值就知道了，这样的赋值要怎么写？

用一维数组就可以了
给你一个例子：
Dim a(999)
Private Sub Command1_Click()
Randomize
For i = 1 To 999
Text1 = i
Text2 = Int(Rnd * 998) + 1
a(i) = Text2 ''''将text2的值存在a()中
Next i
End Sub

Private Sub Command2_Click()
i = InputBox("请输入1-999中的一个值")
MsgBox "当 text1 的值为" & i & "时 text2 的值为" & a(i)
End Sub

a(text1)=text2

本题中，text2怎样随text1相应变化没有说明，我们先不去管它，我们就看怎样记录text2的值就行了，可以这样：
1，先声明一个数组：a(999),如果text2的值都是整数，则可以声明为整形变量，如果是小数可声明成单精度变量，分别是：
dim a(999) as integer（整数）
或dim a(999) as single（小数）
两句中选一句即可；
2，当text1中出现一个值时（这个值必须是整数！），这时，text2中同时出现了一个相应的值，用语句：a(text1.text)=text2.text把text2中出现的值写入数组，再循环显示和记录就可以了；
3，最后，想查看当text1中出现n的时候text2中出现的是啥值的时候，只要使用print a(n)就可以了，因为它存放的值就是当text1中出现n时text2里相应的变化后的值。

完毕。因没有详细的数据，只能说了程序设计的思路。如果还有不明白的地方，或需要详细设计，请留言。

这样吗？
Dim temp As String, a(1000) As Int