'请参考采纳!谢谢!Private Sub Command1_Click()For i = 1 To 4 For i1 = 1 To 4
a = InputBox("请输入第" & i & "行,第" & i1 & "列数字")
If i = 1 And i1 = 1 Then b = a: X = i1: Y = i
If b > a Then b = a: X = i1: Y = i
Print a & " | "; Next PrintNextPrint "最小的数字是第" & Y & "行,第" & X & "列的" & bEnd Sub...