Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim n As Integer, i As Integer, j As Integer, a(,) As Integer
n = 10
ReDim a(n + 1, n + 1)
For i = 1 To n + 1
a(i, 1) = 1 : a(i, i) = 1 : Next i
For i = 3 To n + 1
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j, i
For i = 1 To n + 1
For j = 1 To i
TextBox1.AppendText(Space(4 - Len(Trim(Str(a(i, j)))))Trim(Str(a(i, j))))
Next j
TextBox1.AppendText(vbCrLf)
Next i
End Sub
End Class
关于vb.net空心三角形和空心三角形java的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。
推荐阅读
- mysql新建表列设置约束，mysql新建表列设置约束怎么设置
- 安卓手机怎么把号码导入sim卡，怎么把安卓手机微信聊天记录导入苹果手机
- java二级菜单代码，java三级菜单
- linux转移文件命令，linux将文件移到指定文件夹
- linux开启usb命令 linux usbhid
- postgre函数定义的简单介绍
- ppt打印如何旋转方向，ppt打印如何旋转方向打印
- 华为服务器名，华为服务器名称
- go语言cpu高 go语言用的多吗