admin 管理员组

文章数量: 1184232


2024年1月23日发(作者：linux查看文件命令find)

利用VB编程，用*号组成三角形的代码：

Private Sub Form_click()

Dim i As Integer

Dim j As Integer

For i = 1 To 7

Print Tab(10 - i);

For j = 1 To 2 * i - 1

Print "*";

Next j

Next i

End Sub

用*号组成菱形的代码：

Private Sub FORM_Click()

For i = 0 To 3

For j = 0 To 3 - i

Print " ";

Next j

For k = 0 To 2 * i + 1

Print "*";

Next k

Print

Next i

For i = 0 To 2

For j = 0 To i + 1

Print " ";

Next j

For k = 0 To 4 - 2 * i

Print "*";

Next k

Print

Next i

End Sub


本文标签： 组成 代码 查看 文件 编程

版权声明：本文标题：VB编程-组成三角形,菱形的星号图形代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1705983651a496657.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。