```vb.net
Option Explicit
Private Sub Command1_Click()
Dim SB(3,4)As singer
For i = 0 To 3
For j = 0 To 4
SB(i,j)=Inputbox("输入"&|&|&"的值")
Next j
Next i
End Sub
```
```vb.net
Option Explicit
Private Sub Command1_Click()
Dim SB(3,4)As singer
For i = 0 To 3
For j = 0 To 4
SB(i,j)=Inputbox("输入"&|&|&"的值")
Next j
Next i
End Sub
```