按金字塔形状打印扬辉三角形(用数组做),在线等

dingding_2046 2004-11-22 02:08:06
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
如何去做啊?
...全文
309 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
dingding_2046 2004-11-23
  • 打赏
  • 举报
回复
不好意思,是我偷懒,下次不敢了
lxgmag 2004-11-22
  • 打赏
  • 举报
回复
这个问题跟我原来写程序一样,写数组和打印输出放在一起了!
分开考虑也是一个很好的思想!
daisy8675 2004-11-22
  • 打赏
  • 举报
回复
Form1.AutoRedraw属性是什么意思
//我想这样的问题你应该去查查MSDN^^
qidaozhilong 2004-11-22
  • 打赏
  • 举报
回复
Form1.AutoRedraw就是重绘属性罗。
dingding_2046 2004-11-22
  • 打赏
  • 举报
回复
daisy8675(莫依),谢谢你将程序分两部分写,我明白了,先生成数组,再按照特定格式输出,再问个问题:
Form1.AutoRedraw属性是什么意思
qidaozhilong 2004-11-22
  • 打赏
  • 举报
回复
我倒,这不是以前大学C语言的入门题嘛!
daisy8675 2004-11-22
  • 打赏
  • 举报
回复
Option Explicit



Dim yang(10, 10) As Integer

Private Sub Form_Load()
Dim n As Integer
Dim i As Integer, j As Integer
n = 8
For i = 0 To n - 1
yang(i, i) = 1
yang(i, 0) = 1
Next i
For i = 2 To n - 1
For j = 1 To i
yang(i, j) = yang(i - 1, j - 1) + yang(i - 1, j)
Next j
Next i
Form1.AutoRedraw = True '输出
For i = 0 To n - 1
For j = 1 To (8 - i) * 2
Print " ";
Next j
For j = 0 To i
Print yang(i, j) & " ";
Next j
Print vbNewLine
Next i
End Sub


daisy8675 2004-11-22
  • 打赏
  • 举报
回复
Option Explicit


Dim yang(10, 10) As Integer

Private Sub Form_Load()
Dim n As Integer
Dim i As Integer, j As Integer
n = 8 '输出的行数
For i = 0 To n - 1 '第1列和对角线上的元素置1
yang(i, i) = 1
yang(i, 0) = 1
Next i
For i = 2 To n - 1 '给杨辉三角形其它元素置数
For j = 1 To i
yang(i, j) = yang(i - 1, j - 1) + yang(i - 1, j)
Next j
Next i
Form1.AutoRedraw = True '输出
For i = 0 To n - 1
For j = 0 To i
Print yang(i, j);
Next j
Print vbNewLine
Next i
End Sub

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧