1.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
2.vb打印出杨辉三角的代码怎么写
窗体上添加一个按钮,代码如下:Option ExplicitPrivate Sub Command1_Click()Dim N As IntegerDim i As IntegerDim j As IntegerDim k As IntegerN = InputBox("请输入行数!", , 10)ReDim a(N + 1, N + 1), b(N + 1, N + 1)Clsk = 8For 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 PrintNext iEnd Sub。
3.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
4.杨辉三角VB代码
Option Explicit
Function Fc(n As Long)
Dim arr() As Long, i As Integer, j As Integer, s As String
Cls
ReDim arr(1 To n, 1 To n) '重定义数组
For i = 1 To n
For j = 1 To i
If j = 1 Then
arr(i, j) = 1
Else
arr(i, j) = arr(i - 1, j - 1) + arr(i - 1, j)
End If
Next
Next For i = 1 To Val(Text1)
For j = 1 To i
s = s & arr(i, j) & Space(6 - Len(CStr(arr(i, j))))
Next
s = IIf(i Mod 2 = 1, Space(6 * Int((Val(Text1) - i + 1) / 2)) & s, Space(6 * Int((Val(Text1) - i) / 2) + 3) & s)
Print s
s = ""
Next
End FunctionPrivate Sub Form_Activate()
Text1 = 20
End SubPrivate Sub Text1_Change()
Cls
If IsNumeric(Text1) And Val(Text1) > 0 And Val(Text1) <= 20 Then '最大20
Fc Val(Text1)
Else
Text1 = ""
End If
End Sub
5.vb代码,杨辉三角代码
Private Sub Command1_Click()Dim a() As LongDim n As Integer, vDim i As Integer, j As Integerv = InputBox("请输入杨辉三角的行数")If IsNumeric(v) = False Or Len(v) = 0 ThenMsgBox ("输入不是数字或者为空,请重新输入!")Elsen = vEnd IfReDim 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 jNext iFor i = 1 To n For j = 1 To i Print Tab(n * 3 - 3 * i + 6 * j); a(i, j);Next jNext iEnd Sub。
6.如何用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
7.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行。
8.谁知道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。
转载请注明出处育才学习网 » vb中杨辉三角代码怎么写