vb的一编程题
编程输出下列数字图案(lx2.frm)1 1 1 2 3 4 5 6 7 8
2 3 2 3 9 1 2 3 4 5 6 7
4 5 6 4 5 6 8 9 1 2 3 4 5 6
7 8 9 1 7 8 9 1 7 8 9 1 2 3 4 5
2 3 4 5 6 2 3 4 5 6 6 7 8 9 1 2 3 4
… … 5 6 7 8 9 1 2 3
4 5 6 7 8 9 1 2
3 4 5 6 7 8 9 1
答案:Private Sub Form_Load()
Dim k As Integer
For i = 1 To 5
Text1.Text = Text1.Text & Space(5 - i)
For j = 1 To i
k = k + 1
If k >= 10 Then k = 1
Text1.Text = Text1.Text & k & " "
Next j
Text1.Text = Text1.Text & vbCrLf
Next i
k = 0
For i = 1 To 7
For j = 1 To i
k = k + 1
If k >= 10 Then k = 1
Text2.Text = Text2.Text & k & " "
Next j
Text2.Text = Text2.Text & vbCrLf
Next i
k = 0
For i = 1 To 5
Text3.Text = Text3.Text & Space(i - 1)
For j = 1 To 8
k = k + 1
If k >= 10 Then k = 1
Text3.Text = Text3.Text & k & ""
Next j
Text3.Text = Text3.Text & vbCrLf
Next i
End Sub
上一个:编程VB计时怎么编
下一个:用VB.NET编程有什么好处?