
用VB打印如下图形编写程序,图形是第一排一个*号,第二排三个*号,第三排5个*号,第四排7个*号
1个回答
2013-05-21
展开全部
Dim a As Long
'再窗体上添加一个按钮,命名为Command1
Private Sub Command1_Click()
For a = 0 To 3
Print String(2 * a + 1, "*")
Next
End Sub
'再窗体上添加一个按钮,命名为Command1
Private Sub Command1_Click()
For a = 0 To 3
Print String(2 * a + 1, "*")
Next
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询