vb 如何输出"两个"并列的平行四边形
PrivateSubCommand1_Click()PrintFori=1To4PrintTab(20);PrintSpc(1+i);Forj=1To6Print"*";...
Private Sub Command1_Click()
Print
For i = 1 To 4
Print Tab(20);
Print Spc(1 + i);
For j = 1 To 6
Print "* ";
Next j
Print
Next i
Print
End Sub
请用类似的代码。 谢谢 跪求 展开
For i = 1 To 4
Print Tab(20);
Print Spc(1 + i);
For j = 1 To 6
Print "* ";
Next j
Next i
End Sub
请用类似的代码。 谢谢 跪求 展开
1个回答
展开全部
Private Sub Command1_Click()
Print
For i = 1 To 4
Print Tab(20);
Print Spc(1 + i);
For j = 1 To 6
Print "* ";
Next j
Print Spc(2);
For j = 1 To 6
Print "* ";
Next j
Print
Next i
Print
End Sub
For i = 1 To 4
Print Tab(20);
Print Spc(1 + i);
For j = 1 To 6
Print "* ";
Next j
Print Spc(2);
For j = 1 To 6
Print "* ";
Next j
Next i
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
