vba編程綜合答案(參考版)
2025-01-17 21:57本頁(yè)面
【正文】 的階乘值為： amp。 jEnd Sub題號(hào)：12012用Do……Loop判斷條件，求100以內(nèi)自然數(shù)和，主要使用Until為判斷條件(1)模塊名為M44，過程添加函數(shù)summary實(shí)現(xiàn)(2)定義整形變量s,n其中s用了存放和，n用來(lái)做計(jì)數(shù)器Private Sub summary()Dim s As Integer, n As Integers = 0n = 1Do Until n 100s = s + nn = n + 1LoopMsgBox 100以內(nèi)自然數(shù)的和是： amp。 vbCrLf amp。注意：(1)子函數(shù)名為count，(2)整形變量i,j分別存放偶數(shù)和奇數(shù)的個(gè)數(shù)，(3)變量x存放輸入框接收的用戶輸入數(shù)字，(4)循環(huán)結(jié)構(gòu)采用for……next n結(jié)構(gòu)(5)vbCRLf為消息框中的換行命令(6)模塊名保存為M23Private Sub count()Dim i As Integer, j As Integer, n As Integeri = 0j = 0For n = 1 To 10x = Val(InputBox(請(qǐng)輸入一個(gè)數(shù)：))If x Mod 2 = 0 Theni = i + 1Elsej = j + 1End IfNext nMsgBox 偶數(shù)有個(gè)數(shù)是： amp。屬性設(shè)置屬性 對(duì)象名稱標(biāo)題標(biāo)簽控件lblProblemS=1/2!3/4!+5/6!7/8!+9/10!標(biāo)簽控件lblResult計(jì)算結(jié)果是命令按鈕cmdCompute計(jì)算（3）程序代碼：Private Sub cmdCom
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1