vb課后實(shí)驗(yàn)6答案(文件)
【正文】 l()i = 1j = (n + 1) \ 2 For count = 1 To n * n a(i, j) = count If count Mod n = 0 Then i = i + 1 ElseIf i 1 1 Then i = n j = j + 1 ElseIf j + 1 n Then j = 1 i = i 1 Else i = i – 1: j = j + 1 End IfNext countFor i = 1 To 5 For j = 1 To 5 Print Mid(Str(a(i, j)) amp。Private Sub Command1_Click()For i = 1 To 5For j = 1 To 5……‘ 給數(shù)組a各元素賦初值，同時(shí)輸出各元素值Next j ‘換行Next iEnd SubPrivate Sub Command2_Click()‘將二維數(shù)組轉(zhuǎn)換成一維數(shù)組For i = 1 To 5For j = 1 To 5b((i 1) * 5 + j) = a(i, j)Next jNext i‘用冒泡法或選擇法對數(shù)組元素進(jìn)行排序……‘輸出排序后的結(jié)果For i = 1 To 25 …… ‘輸出一維數(shù)族元素b（i）If i Mod 5 = 0 Then…… ‘Picture2換行End IfNext iEnd SubPrivate Sub Command3_Click()End Sub66Dim a(1 To 10) As Integer ‘定義窗體級變量Private Sub Command1_Click()‘ 給數(shù)組a各元素賦初值，同時(shí)輸出各元素值For i = 1 To 10a(i) = Int((50 20 + 1) * Rnd) + 20 a(i)。 , 1, 3)。 End If Next j If p Then ‘可寫成if p=True Then，當(dāng)P為True時(shí)說明i不被j整除，是素?cái)?shù)。 max = 對角線元素之和為 amp。 imax amp。 Next jNext iEnd
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1