杭州交通信息网六年级组获奖的科幻画:vb小题目，大家帮这做下，谢谢。
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 17:14:44
a
b b b
c c c c c
d d d d d d d
c c c c c
b b b
a
用循环语句打印出来。
字母是居中的，不是左对齐的，这里打不出来，你们能理解吧？，大家帮帮忙啊。谢谢谢谢谢谢谢。
b b b
c c c c c
d d d d d d d
c c c c c
b b b
a
用循环语句打印出来。
字母是居中的，不是左对齐的，这里打不出来，你们能理解吧？，大家帮帮忙啊。谢谢谢谢谢谢谢。
'打印函数，width就是要打印的总宽度，lenc打印多少次字符，c打印的字符（串）,，返回的是要打印的字符串
Private Function Printx(width As Integer, lenc As Integer, c As String) As String
Dim SpCount As Integer
Dim ReturnStr As String
Dim i As Integer
SpCount = CInt((width - lenc) / 2)
For i = 1 To SpCount
ReturnStr = ReturnStr & " "
Next
For i = 1 To lenc
ReturnStr = ReturnStr & c
Next
For i = 1 To SpCount
ReturnStr = ReturnStr & " "
Next
Printx = ReturnStr
End Function
'测试部分.....
Private Sub Form_Click()
Me.Cls
Me.Print Printx(7, 1, "a")
Me.Print Printx(7, 3, "b")
Me.Print Printx(7, 5, "c")
Me.Print Printx(7, 7, "d")
Me.Print Printx(7, 5, "c")
Me.Print Printx(7, 3, "b")
Me.Print Printx(7, 1, "a")
End Sub