vba編程綜合答案(編輯修改稿)
2025-02-10 21:57 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 請(qǐng)輸入N：)For I = 2 To N 1If N Mod I = 0 Then Exit ForNext IIf I = N ThenMsgBox N amp。 是素?cái)?shù)ElseMsgBox N amp。 不是素?cái)?shù)End IfEnd Sub題號(hào)：12010編程實(shí)現(xiàn)輸入一個(gè)正數(shù)M（M≥1），能輸出1～M間3的倍數(shù)，以及倍數(shù)和。注意：(1)通過(guò)模塊子函數(shù)實(shí)現(xiàn)，子函數(shù)名為trad，私有類型(2)定義M，N，S整型變量，M為用戶輸入的數(shù)，N為循環(huán)計(jì)數(shù)器，S存放倍數(shù)和 定義K為字符串變量，用于存放顯示1～M間3的倍數(shù)(3)循環(huán)主體采用Do While……loop結(jié)構(gòu)(4)其中每個(gè)能被3整除的數(shù)之間用,隔開(kāi)如圖所示。(5)模塊保存名字為M23Private Sub trad()Dim M As Integer, N As Integer, S As IntegerDim K As StringN = 0M = 0M = InputBox(請(qǐng)輸入M的值：)Do While N MIf N Mod 3 = 0 ThenK = K + Str(N) amp。 ,S = S + NEnd IfN = N + 1LoopMsgBox 1到M間3的倍數(shù)為： amp。 K amp。 它們的和為 amp。 SEnd SubM = Val(InputBox(請(qǐng)輸入M的值：))Do While N = MIf N Mod 3 = 0 ThenK = K amp。 N amp。 ,S = S + NEnd IfN = N + 1LoopMsgBox 1到M間3的倍數(shù)為：
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1