【正文】
的階乘值為: amp。 j End Sub 題號(hào) : 12022 用 Do…… Loop判斷條件,求 100以?xún)?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 Integer s = 0 n = 1 Do Until n 100 s = s + n n = n + 1 Loop MsgBox 100以?xún)?nèi)自然數(shù)的和是: amp。 vbCrLf amp。 注意: (1)子函數(shù)名為 count, (2)整形變量 i,j分別存放偶數(shù)和奇數(shù)的個(gè)數(shù), (3)變量 x存放輸入框接收的用戶(hù)輸入數(shù)字, (4)循環(huán)結(jié)構(gòu)采用 for…… next n結(jié)構(gòu) (5)vbCRLf為消息框中的換行命令 (6)模塊名保存為 M23 Private Sub count() Dim i As Integer, j As Integer, n As Integer i = 0 j = 0 For n = 1 To 10 x = Val(InputBox(請(qǐng)輸入一個(gè)數(shù): )) If x Mod 2 = 0 Then i = i + 1 Else j = j + 1 End If Next n MsgBox 偶數(shù)有個(gè)數(shù)是: amp。 屬 性設(shè)置 屬性 對(duì)象 名稱(chēng) 標(biāo)題 標(biāo)簽控件 lblProblem S=1/2!3/4!+5/6!7/8!+9/10! 標(biāo)簽控件 lblResult 計(jì)算結(jié)果是 命令按鈕 cmdCompute 計(jì)算 ( 3)程序代碼: Private Sub cmdCompute_Click() Dim S