怎樣用VB寫楊輝三角的完整代碼
『壹』 怎麼用vb程序編楊輝三角形
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, j As Integer, a(10, 10) As Integer
For i = 2 To 10
For j = 2 To i
If i = 1 Or j = i Then
a(i, j) = 1
Else
If i > 2 Then a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Print a(i, j);
Next
Print
Next
End Sub
『貳』 用vb自定義函數編楊輝三角的代碼，求解
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
n = Val(Text1.Text) + 1
Dim a(9, 9) As Integer
For i = 0 To n - 1
a(i, 0) = 1
Next i
For i = 1 To n - 1
For j = 1 To i
If i = j Then a(i, j) = 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j
Next i
For i = 0 To n - 1
For j = 0 To i
Picture1.Print Tab(30 - 3 * i + 6 * j); a(i, j);
Next j
Picture1.Print
Next i
End If
End Sub
『叄』 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
Print
Next i
End Sub
『肆』 楊輝三角如何用VB語言表示
來個短一點的，呵呵。
Private Sub Form_click()
Cls
Dim a() As Single
n = Val(InputBox("請輸入行數", "楊輝三角", 5))
ReDim a(n + 1, n + 1)
For i = 1 To n
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)
Print a(i, j);
Next j
Print
Next i
End Sub
『伍』 如何用VB編程輸出楊輝三角
VB代碼：
Option Base 1
Private Sub form_click()
Const n=10
Dim arr(n,n)As Integer
For i=1 To n
arr(i,i)=1
arr(i,1)=1
Next i
For i=3 To n
For j=2 To i-1
arr(i,j)=arr(i-1,j-1)+arr(i-1,j)
Next j
Next i
For i=1 To n
For j=1 To i
Print arr(i,j);
Next j
Next i
End Sub
輸出結果：
(5)怎樣用VB寫楊輝三角的完整代碼擴展閱讀：
printf的格式
printf函數的原型為：
#include<stdio.h>
int printf(const char*format,...);
在講每一個函數的時候都會先把它的函數原型寫出來，這個原型你們現在看不懂不要緊，等到學完C語言之後再來看這個原型就會發現它是很有參考意義的！它對深刻理解函數有著很大的價值。
printf的格式有四種：
1)printf("字元串 ");
#include<stdio.h>
int main(void)
{
printf("Hello World! ");// 表示換行
return 0;
}
其中 表示換行的意思。它是一個轉義字元，前面在講字元常量的時候見過。其中n是「new line」的縮寫，即「新的一行」。
此外需要注意的是，printf中的雙引號和後面的分號必須是在英文輸入法下。雙引號內的字元串可以是英文，也可以是中文。
2)printf("輸出控制符"，輸出參數);
#include<stdio.h>
int main(void)
{
int i=10;
printf("%d ",i);/*%d是輸出控制符，d表示十進制，後面的i是輸出參數*/
return 0;
}
這句話的意思是將變數i以十進制輸出。
i本身就是十進制，程序中雖然寫的是i=10，但是在內存中並不是將10這個十進制數存放進去，而是將10的二進制代碼存放進去了。計算機只能執行二進制0、1代碼，而0、1代碼本身並沒有什麼實際的含義，它可以表示任何類型的數據。
所以輸出的時候要強調是以哪種進制形式輸出。所以就必須要有「輸出控制符」，以告訴操作系統應該怎樣解讀二進制數據。
如果是%x就是以十六進制的形式輸出，要是%o就是以八進制的形式輸出。
3)printf("輸出控制符1輸出控制符2…",輸出參數1,輸出參數2,…);
#include<stdio.h>
int main(void)
{
int i=10;
int j=3;
printf("%d%d ",i,j);
return 0;
}
輸出控制符1對應的是輸出參數1，輸出控制符2對應的是輸出參數2……編譯、鏈接、執行後看一下輸出結果：
10 3
注意：10和3之間有一個空格；因為上面%d和%d之間有空格，printf中雙引號內除了輸出控制符和轉義字元 外，所有其餘的普通字元全部都原樣輸出。比如：
#include<stdio.h>
int main(void)
{
int i=10;
int j=3;
printf("i=%d,j=%d ",i,j);
return 0;
}
再編譯、鏈接、執行一下：
i=10,j=3
i=、,、空格和j=全都原樣輸出了。此外需要注意的是：「輸出控制符」和「輸出參數」無論在「順序上」還是在「個數上」一定要一一對應。
4)printf("輸出控制符非輸出控制符"，輸出參數);
『陸』 誰知道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編寫楊輝三角
INPUT "N="; n
Dim a(n, n)
FOR j = 1 TO n
a(j, j) = 1
a(j, 1) = 1
FOR k = 2 TO j - 1
a(j, k) = a(j - 1, k - 1) + a(j - 1, k)
NEXT k
NEXT j
FOR j = 1 TO n
FOR k = 1 TO j
PRINT TAB(5 * k); a(j, k);
NEXT k
Print
NEXT j 試一下吧!
『捌』 如何用vb編楊輝三角
在標准模塊些下面函數
Public Function zuhe(ByVal u As Long, ByVal d As Long) As Long
Dim i, a, b As Long
a = 1
b = 1
dd = d - u + 1
For i = d To dd Step -1
a = a * i
Next
For i = u To 1 Step -1
b = b * i
Next
zuhe = a / b
End Function
在對象代碼中響應某個按鈕的事件，將在窗體上顯示楊輝三角，若把i循環中的10改為其他數，可顯示不同的級數
Private Sub Command1_Click()
Dim s As String
Dim i, j As Long
For i = 1 To 10
For j = 0 To i
s = s + Str(zuhe(j, i))
Next
Print s
s = ""
Next
End Sub
高中數學講過二項式定理，應用排列組合的知識就可以解決。函數zuhe()用來算d個中取u個的組合數，不明白借本高二的書看看。