VB编程，打印如下所示的几何图形

* * * * * * * * * * * * * * * * * * * * * * * * * * * ** * * * * * * *

2024-12-29 00:06:38

推荐回答（2个）

回答1：

Private Sub printstar()
dim i as integer
For i = 7 To 0 Step -1
For j = 0 To 7
If j >= i Then Debug.Print "*" Else Debug.Print " "

Next
Debug.Print Char(13) ' 输出回车键
Next
End Sub

回答2：

下列代码打印在窗体上：新建一个Form就OK
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Font.Name = "宋体"
Dim i As Integer
For i = 1 To 7
Print String$(7 - i, " ") & String$(i, "*")
Next
End Sub

谁有《花容天下》的资源？歌也可以，河图唱的那个？急求！！

中天科技股票行情有什么利好

桌子剧烈振动会伤害笔记本电脑吗？

多少平方米才能算车库

为什么我的粉玉髓放家里几天变成蓝紫色了。泡盐水一晚上又变回去了

求自创气势磅礴有关战场的对联一服

关于合作的事例

他山之攻玉小说txt全集免费下载

为什么我从小就一直觉得很不开心，大人们都说我不合群，没朝气，也不知道和其他同龄人打打闹闹，说说笑笑