vba編程綜合答案-資料下載頁(yè)
2025-01-14 21:57本頁(yè)面
【正文】 中的換行命令(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。 i amp。 vbCrLf amp。 奇數(shù)個(gè)數(shù)是： amp。 jEnd Sub題號(hào)：12012用Do……Loop判斷條件，求100以內(nèi)自然數(shù)和，主要使用Until為判斷條件(1)模塊名為M44，過(guò)程添加函數(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。 sEnd Sub題號(hào)：12013求自然數(shù)n的階乘(1)使用模塊插入過(guò)程子函數(shù)fact實(shí)現(xiàn)(2)模塊保存為M45Private Sub fact()Dim k As Double, i As Integer, n As Integern = Val(InputBox(請(qǐng)輸入n的值：))k = 1For i = 1 To nk = k * iNext iMsgBox n amp。 的階乘值為： amp。 kEnd Sub
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1