Question

VB怎样用for循环编出字母菱形

要用inputbox输入数字然后再输出字母菱形的

Answer 1

好久没写VB啦

好怀念，

先创建一个from把autoRedraw设置为True

然后贴入以下代码

Private Sub Form_Load()
Dim Length As Integer
Dim Width As Integer
Dim i As Integer
Dim j As Integer
Dim Space As String
Dim Ascii As Integer
Dim Str As String
Ascii = 65
Width = 1
Space = ""
Length = InputBox("输入长度：")

For i = 1 To Length
    Space = Space & " "
Next

For i = 1 To Length
    Str = ""
    For j = 1 To Width
        Str = Str & Chr(Ascii)
    Next
    Print Space & Str
    If i < Length Then
        Space = Mid(Space, 1, Len(Space) - 1)
        Ascii = Ascii + 1
        Width = Width + 2
    End If
Next


For i = 1 To Length
    Space = Space & " "
    Ascii = Ascii - 1
    Width = Width - 2
    Str = ""
    For j = 1 To Width
        Str = Str & Chr(Ascii)
    Next
    Print Space & Str
  
Next

End Sub

Answer 2

输入数字5就是最大5层吗？

追问

是的