(4)利用InputBox函数 Dim sB(1 To 2,1 To 3)As Single For i=1 To 2 For j=1 To 3 sB(,j)=inputBox("输入"&i&"," &j&"的值") Next j Next i Dim sB(1 To 2, 1 To 3) As Single For i = 1 To 2 For j = 1 To 3 sB(i, j) = InputBox("输入" & i & "," _ & j & "的值") Next j Next i （4）利用InputBox 函数