1、首先開始編寫代碼，定義變量，如下圖所示。
創(chuàng)新互聯(lián)公司服務(wù)項目包括巴州網(wǎng)站建設(shè)、巴州網(wǎng)站制作、巴州網(wǎng)頁制作以及巴州網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，巴州網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到巴州省份的部分城市，未來相信會繼續(xù)擴大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！
2、這是一個累加程序，所以會用到相關(guān)的累加語句,此題使用For-Next循環(huán)語句。具體編寫如下圖所示。
3、不僅僅需要一個For-Next循環(huán)語句，還需要在里面嵌套一個For-Next循環(huán)語句。
4、最后將剩下的代碼補齊，編寫完整的代碼如下圖所示。
5、然后運行程序，輸入一個值檢驗一下。如果n為8，則1！+2!+3!+4!.......+8!=46233，就完成了。
按如下代碼可實現(xiàn)：
Option?Explicit
Dim?a?As?Single
Dim?b?As?Single
Private?Sub?Command1_Click()
Text1?=?Val(Text1)?+?a?+?b
End?Sub
Private?Sub?Form_Load()
a?=?1.2569
b?=?1.2431
End?Sub
1）求一個數(shù)列的累加和，如求 sum = 1 + 2 + 3 + ... + 100
Dim?i?As?Integer
Dim?sum?As?Integer
'?賦初值
sum?=?0?
'?循環(huán)，求數(shù)列的累積和
For?i?=?1?To?100
sum?=?sum?+?i
Next
'?顯示結(jié)果
MsgBox?"1?+?2?+?3?+...+?100?=?"?+?CStr(sum)
2）求一個數(shù)組所有元素的累加和
Dim?a(1?To?5)?As?Integer
Dim?sum?As?Integer
Dim?i?As?Integer
'?給數(shù)組賦值
a(1)?=?1
a(2)?=?23
a(3)?=?8
a(4)?=?50
a(5)?=?99
'?賦初值
sum?=?0
'?循環(huán)，求數(shù)組的累積和
For?i?=?1?To?5
sum?=?sum?+?a(i)
Next
MsgBox?"數(shù)組的累加和為："?+?CStr(sum)
1、啟動軟件，新建一個變準(zhǔn)EXE工程。
2、我們在窗體上繪制好要使用到的控件。
3、雙擊計算按鈕進入代碼窗口，我們可以在這里編寫代碼。
4、接下來我們打入累加的賦值語句。
5、接下來我們點擊運行測試的小三角。
6、這時候我們就可以開始計算了。
方法如下：
Option Explicit
Private Sub Form_Load()
Dim n1 As Integer
'這個n1變量來作為求平均值的除數(shù),記錄輸入數(shù)據(jù)的次數(shù)
Dim tot1 As Double
'這個tot1來做為被除數(shù),作為累加總和
Dim aver1 As Double
'aver1變量來作為平均數(shù),用來輸出
Dim newinput1 As Double
'這個newinput1用來存放用戶輸入的數(shù)值
Do
newinput1 = Val(InputBox("請輸入新的值"))
If newinput1 = 31944027 Then
Exit Do
Exit Sub
End If
'輸入特定的數(shù)字,我的QQ號,則退出.否則是不能退出的.
tot1 = tot1 + newinput1
n1 = n1 + 1
aver1 = tot1 / n1
Debug.Print "輸入值之和=" tot1
Debug.Print "平均值=" aver1
Loop
End Sub
樓上的代碼里面num應(yīng)該在click事件外定義，否則每次單擊時num的值都會重新定義
重慶分公司
重慶分公司
