Sub 录入数据() Dim i As Integer, j As Integer, k As Integer Dim m As Integer, n As Integer m = InputBox("请输入：", "输入") n = m - 1 j = 5 i = 8 k = 6 Do While i