成人AV在线无码|婷婷五月激情色,|伊人加勒比二三四区|国产一区激情都市|亚洲AV无码电影|日av韩av无码|天堂在线亚洲Av|无码一区二区影院|成人无码毛片AV|超碰在线看中文字幕

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é)束訂閱