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

如题所述

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

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.一列五个星号
:)

追答

楼主,你这追问,不是废话么?

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

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

哪里不符合,说清楚呀!

温馨提示:内容为网友见解,仅供参考
第1个回答  2014-01-05
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

相似回答