m0_68950896 2022-03-31 11:53 采纳率: 100%
浏览 21
已结题

这个vb看不明白啊,有没有人能解答一下啊😭😭

img


private Sub Form_Click()
Dim i%, j%, k%
For i = 3 To 0 Step -1
For j = 0 To 2 * i
Print " ";
Next j
'SPACE
For k = 5 To 【?】
Print "";
Next k
Print
Next i
For i = 0 To 3
For j = 0 To 2 * i + 2
'SPACE
【?】
Next j
For k = 0 To 4 - 2 * i
Print "
";
Next k
'SPACE
【?】
Next i
End Sub

  • 写回答

1条回答 默认 最新

  • 浪客 2022-03-31 12:26
    关注
    
    Dim i%, j%, k%
    For i = 3 To 0 Step -1
        For j = 0 To 2 * i
            Print " ";
        Next j
    'SPACE
        For k = 5 To 2 * i - 1 Step -1
            Print "*";
        Next k
        Print
    Next i
    For i = 0 To 3
        For j = 0 To 2 * i + 2
    'SPACE
            Print " ";
        Next j
        For k = 0 To 4 - 2 * i
            Print "*";
        Next k
    'SPACE
        Print
    Next i
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 4月8日
  • 已采纳回答 3月31日
  • 创建了问题 3月31日