1. vb打印出杨辉三角的代码怎么写啊
Private Sub Form_Click() Const N = 10 Dim a(N, N) As Integer Dim i, j As Integer a(0, 0) = 1 a(1, 0) = 1 a(1, 1) = 1 For i = 2 To N - 1 a(i, 0) = 1 a(i, i) = 1 For j = 1 To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j, i For i = 0 To N - 1 For j = 0 To i Print a(i, j); Next j Print Next i End Sub 单击窗体就出来了.10行。
2. vb打印出杨辉三角的代码怎么写
窗体上添加一个按钮,代码如下:
Option Explicit
Private Sub Command1_Click()
Dim N As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
N = InputBox("请输入行数!", , 10)
ReDim a(N + 1, N + 1), b(N + 1, N + 1)
Cls
k = 8
For i = 1 To N
Print String((N - i) * k / 2 + 1, " ");
For j = 1 To i
a(i, 1) = 1
a(i, i) = 1
a(i + 1, j + 1) = a(i, j) + a(i, j + 1)
b(i, j) = Trim(Str(a(i, j)))
Print b(i, j); String(k - Len(b(i, j)), " ");
Next j
Next i
End Sub
3. 谁知道VB输出杨辉三角形的代码怎么写
先把form的autoredraw属性改成true,代码如下: ========================== Option Explicit Dim a(10, 10) As Long Dim b(10) As String Dim i As Byte Dim j As Byte Private Sub Form_Load() a(0, 0) = 1 For i = 1 To 9 For j = 1 To 9 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) If a(i, j) <> 0 Then b(j) = b(j - 1) & " " & a(i, j) End If Next Print b(i) Next End Sub。
4. 如何用vb做杨辉三角的程序啊
Option Explicit
Dim a(21, 21) As Long
Dim b(21) As String
Dim i As Byte
Dim j As Byte
Private Sub Form_Load()
a(0, 0) = 1
For i = 1 To 20
For j = 1 To 20
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
If a(i, j) <> 0 Then
b(j) = b(j - 1) & " " & a(i, j)
End If
Next
Print b(i)
Next
End Sub
5. 谁能解释一下这个VB杨辉三角的代码
Private Sub Form_click()
Dim a() As Single '设数组A,为单精度型
'通过对话框取得行数,放到变量N中
n = Val(InputBox("请输入行数", "杨辉三角"))
'根据N值重定义数组A为2维的N+1的数组
ReDim a(n + 1, n + 1)
For i = 1 To n '第1层FOR,让I从1,FOR 到N,用来打印行数
For j = 1 To i ' 第2层FOR, 让J从1FOR 到I, 可以想象,每行的数字因为I的累加, 个数也在变化
a(i, 1) = 1 '让每次数组的最左端为1
a(i, i) = 1 '让每次数组的最右端为1
a(i + 1, j + 1) = a(i, j) + a(i, j + 1) '让数组中间的元素等于此元素所在序号的步长加1
Print a(i, j); '打印,数组A(I,J),使用;号使每个J循环中的打印不换行
Next j
Print '每个J循环完成,打印换行
Next i
End Sub
6. 用vb编写杨辉三角的程序代码,有没有哪位能指点一下,谢谢
Private Sub Command1_Click() n = Val(Text1.Text) ReDim a(n + 1, n + 1), b(n + 1, n + 1) Cls k = 8 For i = 1 To n Print String((n - i) * k / 2 + 1, " "); For j = 1 To i a(i, 1) = 1 a(i, i) = 1 a(i + 1, j + 1) = a(i, j) + a(i, j + 1) b(i, j) = Trim(Str(a(i, j))) Print b(i, j); String(k - Len(b(i, j)), " "); Next j Print Next iEnd Sub创建一个2113text和5261command,在4102text中输入所需1653行数内,点击command即可容。
7. vb代码,杨辉三角代码
Private Sub Command1_Click()
Dim a() As Long
Dim n As Integer, v
Dim i As Integer, j As Integer
v = InputBox("请输入杨辉三角的行数")
If IsNumeric(v) = False Or Len(v) = 0 Then
MsgBox ("输入不是数字或者为空,请重新输入!")
Else
n = v
End If
ReDim a(n, n)
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 Tab(n * 3 - 3 * i + 6 * j); a(i, j);
Next j
Next i
End Sub
8. VB 中 显示出 杨辉三角第17行 的代码是什么 啊
Private Sub Command1_Click()
Dim a(1 To 17, 1 To 17)
For i = 1 To 17
a(i, i) = 1
a(i, 1) = 1
Next i
For i = 3 To 17
For j = 2 To i - 1
a(i, j) = a(i - 1, j) + a(i - 1, j - 1)
Next j
Next i
For j = 1 To 17
Print a(17, j);
Next j
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
End Sub
9. 用vb打印一个杨辉三角形~
下面有杨辉三角20行的代码,你可修改后用:
Option Explicit
Dim a(21, 21) As Long
Dim b(21) As String
Dim I As Byte
Dim j As Byte
Private Sub Form_Load()
a(0, 0) = 1
For I = 1 To 20
For j = 1 To 20
a(I, j) = a(I - 1, j - 1) + a(I - 1, j)
If a(I, j) <> 0 Then
b(j) = b(j - 1) & " " & a(I, j)
End If
Next
Print b(I)
Next
End Sub
10. 用VB打印杨辉三角,会的帮忙改下代码
Private Sub Command1_Click()Dim N As Integer, I As Integer, J As IntegerDim a(1,1) As IntegerForm1.ClsN = Val(InputBox("请输入杨辉三角的行数"))reDim a(N, N)For I = 1 To Na(I, I) = 1a(I, 1) = 1Print Format(a(I, 1), "@@@@");For J = 2 To I - 1
a(I, J) = a(I - 1, J) + a(I - 1, J)Print Format(a(I, J), "@@@@");Next JIf I <> 1 Then Print Format(a(I, I), "@@@@") Else PrintNext IEnd Sub
转载请注明出处育才学习网 » vb打印出杨辉三角的代码怎么写啊?它有什么规律哪????