杭州交通信息网初中政治做更好的自己:请vb哥哥姐姐解释一段代码
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/04 05:48:42
Dim rm(6, 3) As Integer
Private Sub Form_Load()
rm(1, 1) = 2101: rm(1, 2) = 2147: rm(1, 3) = 102
rm(2, 1) = 1741: rm(2, 2) = 1802: rm(2, 3) = 103
rm(3, 1) = 1201: rm(3, 2) = 1287: rm(3, 3) = 114
rm(4, 1) = 3333: rm(4, 2) = 3387: rm(4, 3) = 209
rm(5, 1) = 1803: rm(5, 2) = 1829: rm(5, 3) = 305
rm(6, 1) = 2511: rm(6, 2) = 2576: rm(6, 3) = 306
－－－－－－上面数组后的＝号什么意思－－－－－－
End Sub
Private Sub command1_Click()
Dim no As Integer, flag As Integer
flag = 0 '查找标记，0表示未找到
no = Val(Text1.Text)
For i = 1 To 6
If no >= rm(i, 1) And no <= rm(i, 2) Then
Text2.Text = rm(i, 3) '显示教室号码
－－－－－－rm(i, 1)后面括号里的（i，l）什么意思－－－－－－ 谢谢回答
flag = 1 '1表示找到
Exit For
End If
Next i
Private Sub Form_Load()
rm(1, 1) = 2101: rm(1, 2) = 2147: rm(1, 3) = 102
rm(2, 1) = 1741: rm(2, 2) = 1802: rm(2, 3) = 103
rm(3, 1) = 1201: rm(3, 2) = 1287: rm(3, 3) = 114
rm(4, 1) = 3333: rm(4, 2) = 3387: rm(4, 3) = 209
rm(5, 1) = 1803: rm(5, 2) = 1829: rm(5, 3) = 305
rm(6, 1) = 2511: rm(6, 2) = 2576: rm(6, 3) = 306
－－－－－－上面数组后的＝号什么意思－－－－－－
End Sub
Private Sub command1_Click()
Dim no As Integer, flag As Integer
flag = 0 '查找标记，0表示未找到
no = Val(Text1.Text)
For i = 1 To 6
If no >= rm(i, 1) And no <= rm(i, 2) Then
Text2.Text = rm(i, 3) '显示教室号码
－－－－－－rm(i, 1)后面括号里的（i，l）什么意思－－－－－－ 谢谢回答
flag = 1 '1表示找到
Exit For
End If
Next i
=号是赋值号；
For i = 1 To 6
If no >= rm(i, 1) And no <= rm(i, 2) Then
Text2.Text = rm(i, 3)
以上代码是根据text1里的数值来定text2的值，即如果text1里的数值处于rm(i,1)与rm(i,2)之间，则将rm(i,3)的值显示在text2中；你问rm（i,1）是什么意思，其实i的值是循环从1到6来执行、判断是否将rm(i,3)显示在text2中的。
＝号代表赋值，就是吧＝号右面的值或者表达式的值赋值给左面的变量或常量里。
rm(i, 1)括号里的（i，l）的意思是代表rm数组中某个元素的下标。