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

Public Class Form1

成都創(chuàng)新互聯(lián)公司，為您提供成都網(wǎng)站建設(shè)、成都網(wǎng)站制作、網(wǎng)站營銷推廣、網(wǎng)站開發(fā)設(shè)計(jì)，對(duì)服務(wù)航空箱等多個(gè)行業(yè)擁有豐富的網(wǎng)站建設(shè)及推廣經(jīng)驗(yàn)。成都創(chuàng)新互聯(lián)公司網(wǎng)站建設(shè)公司成立于2013年,提供專業(yè)網(wǎng)站制作報(bào)價(jià)服務(wù),我們深知市場(chǎng)的競(jìng)爭(zhēng)激烈，認(rèn)真對(duì)待每位客戶，為客戶提供賞心悅目的作品。 與客戶共同發(fā)展進(jìn)步，是我們永遠(yuǎn)的責(zé)任！

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

誰知道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打印楊輝三角形?

要求在窗體上打印出楊輝三角形，其打印行數(shù)由鍵盤輸入。

【設(shè)計(jì)思路】?1．定義一個(gè)整型二維動(dòng)態(tài)數(shù)組，其實(shí)際元素個(gè)數(shù)由鍵盤輸入。?

2． 對(duì)輸入數(shù)據(jù)進(jìn)行檢查，確保輸入數(shù)據(jù)在1至16之間，以免溢出。?

3． 編寫程序代碼，當(dāng)確認(rèn)輸入數(shù)據(jù)后，在窗體上打印楊輝三角形。

【操作步驟】

?1． 建立新項(xiàng)目，并設(shè)計(jì)窗體。

文本框用來輸入要打印楊輝三角形的行數(shù)；“確定”按鈕執(zhí)行具體打印操作；窗體左 側(cè)的數(shù)字為打印的楊輝三角形實(shí)例。

?2． 為“確定”按鈕編寫如下代碼：

Private Sub Command1Click()

?Dim RowNum() As Integer ′定義整型動(dòng)態(tài)數(shù)組

?Dim i As Integer, j As Integer ′定義循環(huán)變量

?Dim Num As Integer

?Cls ′清空窗體內(nèi)容

?Num=Val(Text1.Text) + 1

?If Num =18 Then ′對(duì)輸入數(shù)據(jù)進(jìn)行檢查（小于17）

? Text1.Text= 〃〃

? Exit Sub?

End If

ReDim RowNum(1 To Num, 1 To Num) ′根據(jù)輸入值重新確定數(shù)組

’維數(shù)及大小?下面是具體打印楊輝三角形的代碼：

For i = 1 To Num-1′將第一列及對(duì)角元素置1

? RowNum(i, i)=1

? RowNum(i, 1)=1

?Next

?For i = 3 To Num-1 ′計(jì)算其它元素值

? For j = 2 To i-1

? RowNum(i, j)=RowNum(i-1, j-1)+Row Num(i-1,j)

? Next

?Next

?For i = 1 To Num-1 ′打印楊輝三角形

? For j = 1 To i

? Print RowNum(i, j);

? Next

? Print

?Next

?End Sub

?3． 調(diào)試并運(yùn)行程序，觀察輸出結(jié)果。

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

參考：

以下為十行的楊輝三角輸出，根據(jù)這個(gè)自己做相應(yīng)修改，都做好了，那你就是伸手黨了。

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