学进去

某数据查找程序:在文木框Text和Text2中分别输入矩阵的行数m和列数n，单击“产生”按钮，随机产生m×n个范围是[1，10]的整数，并在列表框Listl中以矩阵显示.在文本框text3中输入整数数据key，单击“查找”按钮，将查找key在矩阵中的位置，并在列表框List2中输出查找结果。
例如矩阵行数为7，矩阵列数为4，查找数据为3，程序运行界面如图所示。

（1）实现上述功能的VB程序如下，请在划线处填入合适的代码。

Dim a(1 To 100) As Integer

Dim m As Integer, n As Integer

Private Sub Command1_Click()

Dim i As Integer, j As Integer, x As Integer

Dim s As String

m = Val(Text1.Text)
n = Val(Text2.Text)

Randomize

For i= 1 To m

For j= 1 To n

x = Int(Rnd* 10＋ 1)

_______

Next j
Next i

s = ""

For i= 1 To m *n

s =s + Str(a(i))

If i Mod n=0 Then

List1.AddItem s

_______
End If
Next i
End Sub
Private Sub Command2_Click()

Dim i As Integer, x As Integer, y As Integer

Dim key As Integer, flag As Boolean

key = Val(Text3.Text): flag = False

For i= 1 To m * n
If key = a(i) Then
x =(i-1)\m+ 1
y=______
list2.AddItem Str(key)+"的坐标为:第"+Str(x)+"行，第"+Str(y)+"列"
flag = True
End If
Next i
If Not flag Then
list2.AddItem "未查找到相应数据! "
End If
End Sub
（2）若随机产生矩阵，查找数据为3，则在列表框List2中显示内容是_____。