vba編程綜合答案-資料下載頁
2025-01-14 21:57本頁面
【正文】 中的換行命令(6)模塊名保存為M23Private Sub count()Dim i As Integer, j As Integer, n As Integeri = 0j = 0For n = 1 To 10x = Val(InputBox(請輸入一個數(shù)：))If x Mod 2 = 0 Theni = i + 1Elsej = j + 1End IfNext nMsgBox 偶數(shù)有個數(shù)是： amp。 i amp。 vbCrLf amp。 奇數(shù)個數(shù)是： amp。 jEnd Sub題號：12012用Do……Loop判斷條件，求100以內(nèi)自然數(shù)和，主要使用Until為判斷條件(1)模塊名為M44，過程添加函數(shù)summary實現(xiàn)(2)定義整形變量s,n其中s用了存放和，n用來做計數(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題號：12013求自然數(shù)n的階乘(1)使用模塊插入過程子函數(shù)fact實現(xiàn)(2)模塊保存為M45Private Sub fact()Dim k As Double, i As Integer, n As Integern = Val(InputBox(請輸入n的值：))k = 1For i = 1 To nk = k * iNext iMsgBox n amp。 的階乘值為： amp。 kEnd Sub
試題試卷相關(guān)推薦
鄂ICP備17016276號-1