vb編程設(shè)計(jì)例題100例 用VB編寫(xiě)楊輝三角?
用VB編寫(xiě)楊輝三角?Option Base 1Private Sub form u click()Const n=10Dim arr(n,n)As Integer對(duì)于i=1到narr(i,i)=1ar
用VB編寫(xiě)楊輝三角?
Option Base 1
Private Sub form u click()
Const n=10
Dim arr(n,n)As Integer
對(duì)于i=1到n
arr(i,i)=1
arr(i,1)=1
Next i
對(duì)于i=3到n
對(duì)于j=2到i-1
arr(i,j)=arr(i-1,j-1)arr(i-1,j)
Next j
對(duì)于i=1到n
打印arr(i,j)
Nextj
打印
下一個(gè)我
結(jié)束訂閱