输入整数n，显示出具有n行的杨辉三角形。VB编程，跪求。
答案:4 悬赏:0
解决时间 2021-01-15 00:41
- 提问者网友：皆是孤独
- 2021-01-14 08:23
输入整数n，显示出具有n行的杨辉三角形。VB编程，跪求。
最佳答案
- 二级知识专家网友：佘樂
- 2021-01-14 09:58
Private Sub Form_Click()
Dim A() As Long, N As Integer, I As Integer, J As Integer
N = Val(InputBox("请输入"))
ReDim A(N, N)
Me.Cls
For I = 1 To N
For J = 1 To I
If J = 1 Or I = J Then
A(I, J) = 1
Else
A(I, J) = A(I - 1, J - 1) + A(I - 1, J)
End If
Next J
Next I
For I = 1 To N
For J = 1 To I
Print A(I, J);
Next J
Print
Next I
End Sub
Dim A() As Long, N As Integer, I As Integer, J As Integer
N = Val(InputBox("请输入"))
ReDim A(N, N)
Me.Cls
For I = 1 To N
For J = 1 To I
If J = 1 Or I = J Then
A(I, J) = 1
Else
A(I, J) = A(I - 1, J - 1) + A(I - 1, J)
End If
Next J
Next I
For I = 1 To N
For J = 1 To I
Print A(I, J);
Next J
Next I
End Sub
全部回答
- 1楼网友：轮獄道
- 2021-01-14 12:21
我暂时保留我的看法！
- 2楼网友：空山清雨
- 2021-01-14 11:18
这些都是我做过的考试要求，- - 不过忘记了
- 3楼网友：青灯有味
- 2021-01-14 10:22
Private Sub yh(ByVal n As Integer)
Dim a(n, n) As Integer
For i As Integer = 0 To n
a(i, 0) = 1
Next
For i = 0 To n - 1
For j As Integer = 1 To i
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next
Next
Label1.Text = ""
For i = 0 To n - 1
For j = 0 To i
Label1.Text += a(i, j).ToString() + " "
Next
Label1.Text += vbCrLf
Next
End Sub
Dim a(n, n) As Integer
For i As Integer = 0 To n
a(i, 0) = 1
Next
For i = 0 To n - 1
For j As Integer = 1 To i
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next
Next
Label1.Text = ""
For i = 0 To n - 1
For j = 0 To i
Label1.Text += a(i, j).ToString() + " "
Next
Label1.Text += vbCrLf
Next
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息