Question

用指针输入/输出一个2行3列的二维数组,要求输出的数据间相隔5个空格

Answer 1

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim i, j, ji, spaces, kongge As Short
Dim huiche As String
kongge = 0
huiche = Chr(13) + Chr(10)
Label2.Text = ""
For i = 1 To 9
For j = i To 9
ji = i * j
spaces = IIf(ji >= 10, 2, 3)
Label2.Text = Label2.Text & CStr(i) & "×" & CStr(j) & "=" & CStr(ji) & Space(spaces)
kongge = i * 5 + i * 4
Next

Label2.Text = Label2.Text & huiche & Space(kongge)
Next
End Sub