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日

悬赏问题

  • ¥100 嵌入式系统基于PIC16F882和热敏电阻的数字温度计
  • ¥20 BAPI_PR_CHANGE how to add account assignment information for service line
  • ¥500 火焰左右视图、视差(基于双目相机)
  • ¥100 set_link_state
  • ¥15 虚幻5 UE美术毛发渲染
  • ¥15 CVRP 图论 物流运输优化
  • ¥15 Tableau online 嵌入ppt失败
  • ¥100 支付宝网页转账系统不识别账号
  • ¥15 基于单片机的靶位控制系统
  • ¥15 真我手机蓝牙传输进度消息被关闭了,怎么打开?(关键词-消息通知)