如何用vb程序输出一行五个星号和一列五个星号？

Answer 1

楼主可不可以把问题说得确切些？

Private Sub Command1_Click()
'输出一行5个星号
   Me.Cls
   Print String$(5, "*")
End Sub

Private Sub Command2_Click()
'输出一列5个星号
   Dim i As Long
   Me.Cls
   For i = 1 To 5
      Print "*"
   Next
End Sub

追问

《高中信息技术选修一》中（for。。。next）循环语句练习
1.输出1行五个星号（*****）
2.一列五个星号
：）

追答

楼主，你这追问，不是废话么？

跟你标题上的有什么实质区别嘛！

你可以把代码复制到你的工程中去，运行一下。

哪里不符合，说清楚呀！

Answer 2

Private Sub Command1_Click()
Dim i As Integer
   Me.Cls
   For i = 1 To 5
   Print "★" & "  ";
   Next i
   Print
   Print
   For i = 1 To 5
      Print "★"
   Next i
End Sub