江阴网站建设,江阴网站制作,江阴网站设计,江阴SEO优化,江阴小程序开发-江阴雨辰互联

  1. JustNews 首页
  2. 网站建设

VB编程-组成三角形,菱形的星号图形代码

admin••网站建设•阅读63

VB编程-组成三角形,菱形的星号图形代码


2024年2月8日发(作者：)

利用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


发布者：admin，转转请注明出处：http://www.yc00.com/web/1707386223a1500524.html

adminadmin
0

相关推荐

发表回复

评论列表（0条）

  • 暂无评论

联系我们

400-800-8888

在线咨询： QQ交谈

邮件：admin@example.com

工作时间：周一至周五，9:30-18:30，节假日休息

关注微信