【急求解谢谢，需完整过程】——（VB程序设计）编辑输出下列图形 * *** ***** ******* *********
展开全部
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim temp As String
temp = "*********"
For i = 1 To 9 Step 2
Print Left(temp, i)
Next
End Sub
一个循环，简单字符截取，比较直观
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Private Sub command1_Click()
Dim i%, j%
For i = 1 To 9 Step 2
For j = 1 To i
Print "*";
Next j
Print
Next i
End Sub
Dim i%, j%
For i = 1 To 9 Step 2
For j = 1 To i
Print "*";
Next j
Next i
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Private Sub command1_Click()
Dim i%, j%
x=input()
For i = 1 To x Step 2
For j = 1 To i
Print "*";
Next j
Print
Next i
End Sub
x是几随你自己选
Dim i%, j%
x=input()
For i = 1 To x Step 2
For j = 1 To i
Print "*";
Next j
Next i
End Sub
x是几随你自己选
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
