vb課后實驗6答案(編輯修改稿)
2025-07-04 13:37 本頁面
【文章內容簡介】 max =……: imax = ……: jmax =…… End If If 條件 Then sum1 = …… ‘i=j時，主對角線上的元素 If 條件 Then sum2 = …… ‘ij時，上三角元素 If 條件 Then sum3 = …… ‘ij時，下三角元素 Next jNext i = 最大元素為a( amp。 imax amp。 , amp。 jmax amp。 )= amp。 max = 對角線元素之和為 amp。 sum1 = 上三角元素之和為 amp。 sum2 = 下三角元素之和為 amp。 sum3End SubPrivate Sub Command4_Click() ‘清屏 = = = = End Sub64Option Base 1Dim a() As Integer ‘定義動態(tài)數(shù)組，因為數(shù)組元素個數(shù)不確定Private Sub Form_Click()Dim i As Integer, j As Integer, p As BooleanDim n As IntegerFor i = 2 To 100 p = True ‘注意True的寫法，不能寫出Ture For j = 2 To CInt(Sqr(i)) ‘j不能從1開始，思考一下為什么？ If i Mod j = 0 Then p = False Exit For ‘i能被j整出，說明i已不是素數(shù)了，沒必要繼續(xù)執(zhí)行循環(huán)，跳出循環(huán)。 End If Next j If p Then ‘可寫成if p=True Then，當P為True時說明i不被j整除，是素數(shù)。 n = …… ‘用n變量累計素數(shù)的個數(shù) ReDim Preserve …… ‘重新聲明動態(tài)數(shù)組a（）的大小，…… ‘將素數(shù)i賦給數(shù)組元素a（n）?！? ‘輸出即素數(shù)。 End IfNext i‘也可單獨做循環(huán)輸出數(shù)族元素a（n），即素數(shù)For i = 1 To nPrint Mid(Str(a(i)) am
教學教案相關推薦
鄂ICP備17016276號-1