VB打印数字菱形 FOR 循环语句
1个回答
展开全部
Private Sub Form_Click() '点击窗体运行
Dim i As Integer
For i = 1 To 9
If i > 5 Then
Print Tab(i - 4); String(19 - 2 * i, CStr(10 - i))
Else
Print Tab(6 - i); String(2 * i - 1, CStr(i))
End If
Next i
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
