用vb.net2008打印楊輝三角形(打印10行),要求如圖所示？

Public Class Form1

遼寧ssl適用于網站、小程序/APP、API接口等需要進行數據傳輸應用場景，ssl證書未來市場廣闊！成為創新互聯公司的ssl證書銷售渠道，可以享受市場價格4-6折優惠！如果有意向歡迎電話聯系或者加微信：028-86922220（備注：SSL證書合作）期待與您的合作！

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim n As Integer, i As Integer, j As Integer, a(,) As Integer

n = 10

ReDim a(n + 1, n + 1)

For i = 1 To n + 1

a(i, 1) = 1 : a(i, i) = 1 : Next i

For i = 3 To n + 1

For j = 2 To i - 1

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

Next j, i

For i = 1 To n + 1

For j = 1 To i

TextBox1.AppendText(Space(4 - Len(Trim(Str(a(i, j))))) Trim(Str(a(i, j))))

Next j

TextBox1.AppendText(vbCrLf)

Next i

End Sub

End Class,9,

xixihahano1 舉報

謝謝了，但是你寫的代碼可以輸出多少行？多久會溢出了

舉報 ccddty

沒試過，你可以試試，將n的值加大 當n》16的時候就顯示“參數“Number”必須大于或等于 0。”了 有沒有辦法解決？,

VB.net打印十階楊輝三角代碼

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i, j As Integer

Dim n As Integer

n = 10

Dim dete(n, n) As Integer

Dim sum As Integer

For i = 0 To n

For j = 0 To i

If i = 0 Then

dete(i, j) = 1

ElseIf j = 0 Then

dete(i, j) = 1

ElseIf i = j Then

dete(i, j) = 1

Else

dete(i, j) = dete(i - 1, j - 1) + dete(i - 1, j)

End If

Next

Next

For i = 0 To n

For j = 0 To i

Debug.Write(dete(i, j) " ")

sum += dete(i, j)

Next

Debug.WriteLine(" ")

Next

Debug.WriteLine(" 所有數的和：" sum)

End Sub

End Class

如何用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

Print

Next i

End Sub

輸出結果：

擴展資料：

printf的格式

printf函數的原型為：

#includelt;stdio.hgt;

int printf(const char*format,...);

在講每一個函數的時候都會先把它的函數原型寫出來，這個原型你們現在看不懂不要緊，等到學完C語言之后再來看這個原型就會發現它是很有參考意義的！它對深刻理解函數有著很大的價值。

printf的格式有四種：

1)printf("字符串\n");

#includelt;stdio.hgt;

int main(void)

{

printf("Hello World!\n");//\n表示換行

return 0;

}

其中\n表示換行的意思。它是一個轉義字符，前面在講字符常量的時候見過。其中n是“new line”的縮寫，即“新的一行”。

此外需要注意的是，printf中的雙引號和后面的分號必須是在英文輸入法下。雙引號內的字符串可以是英文，也可以是中文。

2)printf("輸出控制符"，輸出參數);

#includelt;stdio.hgt;

int main(void)

{

int i=10;

printf("%d\n",i);/*%d是輸出控制符，d表示十進制，后面的i是輸出參數*/

return 0;

}

這句話的意思是將變量i以十進制輸出。

i本身就是十進制，程序中雖然寫的是i=10，但是在內存中并不是將10這個十進制數存放進去，而是將10的二進制代碼存放進去了。計算機只能執行二進制0、1代碼，而0、1代碼本身并沒有什么實際的含義，它可以表示任何類型的數據。

所以輸出的時候要強調是以哪種進制形式輸出。所以就必須要有“輸出控制符”，以告訴操作系統應該怎樣解讀二進制數據。

如果是%x就是以十六進制的形式輸出，要是%o就是以八進制的形式輸出。

3)printf("輸出控制符1輸出控制符2?",輸出參數1,輸出參數2,?);

#includelt;stdio.hgt;

int main(void)

{

int i=10;

int j=3;

printf("%d%d\n",i,j);

return 0;

}

輸出控制符1對應的是輸出參數1，輸出控制符2對應的是輸出參數2??編譯、鏈接、執行后看一下輸出結果：

10 3

注意：10和3之間有一個空格；因為上面%d和%d之間有空格，printf中雙引號內除了輸出控制符和轉義字符\n外，所有其余的普通字符全部都原樣輸出。比如：

#includelt;stdio.hgt;

int main(void)

{

int i=10;

int j=3;

printf("i=%d,j=%d\n",i,j);

return 0;

}

再編譯、鏈接、執行一下：

i=10,j=3

i=、,、空格和j=全都原樣輸出了。此外需要注意的是：“輸出控制符”和“輸出參數”無論在“順序上”還是在“個數上”一定要一一對應。

4)printf("輸出控制符非輸出控制符"，輸出參數);

VB.Net的問題，輸入整數n，顯示具有n行的楊輝三角形。

參考：

以下為十行的楊輝三角輸出，根據這個自己做相應修改，都做好了，那你就是伸手黨了。

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i, j As Integer

Dim n As Integer

n = 10

Dim dete(n, n) As Integer

Dim sum As Integer

For i = 0 To n

For j = 0 To i

If i = 0 Then

dete(i, j) = 1

ElseIf j = 0 Then

dete(i, j) = 1

ElseIf i = j Then

dete(i, j) = 1

Else

dete(i, j) = dete(i - 1, j - 1) + dete(i - 1, j)

End If

Next

Next

For i = 0 To n

For j = 0 To i

Debug.Write(dete(i, j) " ")

sum += dete(i, j)

Next

Debug.WriteLine(" ")

Next

End Sub

End Class

網站標題：VB.NET輸出楊輝三角 vb楊輝三角
標題來源：http://vcdvsql.cn/article24/dopjice.html

成都網站建設公司_創新互聯，為您提供動態網站、Google、網站營銷、手機網站建設、企業建站、軟件開發

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯