网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,057贴子：1,166,242
  • 5回复贴，共1页

求助，大家进来看一个简单的编程图，帮我用数组做出来。

For i = -4 To 4
        Print Tab(Abs(i) * 2 + 1);
        For a = 1 To 9 - Abs(i) * 2
            Print "* ";
        Next
    Next
上面是用循环做出来的

请教大家用数组做出来的代码是怎么样的，贴出来参考下


怎么没人帮我呀。


2025-12-20 02:03:00
广告
不感兴趣
开通SVIP免广告
用数组？没想过。要不把信息赋值到二维数组中，然后打印


就这样挺好的，干嘛非要数组啊


Dim i As Long, a As Long, str(8) As String
 For i = -4 To 4
 str(i + 4) = Space(Abs(i) * 2 + 1)
 For a = 1 To 9 - Abs(i) * 2
 str(i + 4) = str(i + 4) & "* "
 Next
 Next
 
 For i = 0 To 8
 Print str(i)
 Next


楼上的在说什么呀


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 5回复贴，共1页
分享到: