VBA編程綜合答案

1、Access 數(shù)據(jù)庫=題號： 12003設(shè)計程序，對用戶輸入的任意兩個整數(shù)，按升序輸出。將任意兩個數(shù)按指定順序排列是必須掌握的基本算法，基本要領(lǐng)就是借助第三個變量將 x變量和 y變量進行交換。代碼為： temp=x:x=y:y=temp操作提示：新建一個窗體 swap如下圖所示控件名稱標題或功能Label1 請輸入 x的值 Label3 請輸入 y的值 Label5 x=Label6 y=Text0x： 格式：常規(guī)數(shù)字Text2y：格式：常規(guī)數(shù)字Command4交換代碼寫在 command4的單擊事件過程中，執(zhí)行效果如圖所示。Private Sub Command4_Click()x = Te

2、xt0.Valuey = Text2.ValueIf x y Thentemp = x: x = y: y = tempEnd IfLabel5.Caption = x= & xLabel6.Caption = y= & yEnd Sub題號： 12006編寫程序，當用戶在窗體的文本框中輸入一個 0 100的數(shù)字時，標簽上立即能夠顯示對應(yīng)等級：不及格、及格、中、良、優(yōu)。(1) 窗體構(gòu)建 :控件標題屬性Label1Label3Text0請輸入你的成績：你的等級是：無Command4判斷(2) 使用 Select case End Select分支結(jié)構(gòu)(3) 整形變量 Score存放分數(shù)， Str

3、X 字符串用于顯示等級(4) 窗體保存名為： M21Private Sub Command4_Click()Dim Score As Integer, StrX As StringScore = Text0.ValueSelect Case ScoreCase 0 To 59StrX = 不及格 Case 60 To 69StrX = 及格 Case 70 To 79StrX = 中Case 80 To 89StrX = 良Case 90 To 100StrX = 優(yōu)End SelectLabel3.Caption = 你的等級是： & StrXEnd Sub題號： 12007x2x1x0y2

4、4x2x0計算x的值。本題使用模塊過程函數(shù)實現(xiàn)(1) 函數(shù)名為 FC，私有類(2) 選擇結(jié)構(gòu)采用 If Else End if 結(jié)構(gòu)(3)x 用于接受用戶輸入值，y用來存放輸出值Private Sub FC()Dim x As Double, y As Doublex = Val(InputBox(請輸入If x = N ThenMsgBox N & 是素數(shù) ElseMsgBox N & 不是素數(shù) End IfEnd Sub題號： 12010編程實現(xiàn)輸入一個正數(shù)M（ M1），能輸出 1 M間 3的倍數(shù)，以及倍數(shù)和。注意：(1) 通過模塊子函數(shù)實現(xiàn)，子函數(shù)名為trad ，私有類型(2) 定義 M

5、，N， S整型變量， M為用戶輸入的數(shù)， N為循環(huán)計數(shù)器， S存放倍數(shù)和定義 K為字符串變量，用于存放顯示1M間 3的倍數(shù)(3) 循環(huán)主體采用 Do While loop 結(jié)構(gòu)(4) 其中每個能被 3整除的數(shù)之間用 , 隔開如圖所示。(5) 模塊保存名字為 M-23Private Sub trad()Dim M As Integer, N As Integer, S As IntegerDim K As StringN = 0M = 0M = InputBox(請輸入 M的值： )Do While N MIf N Mod 3 = 0 ThenK = K + Str(N) & ,S=S+NEnd IfN=N+1LoopMsgBox 1 到 M間 3的倍數(shù)為： & K & 它們的和為 & SEnd SubM = Val(InputBox(請輸入 M的值： )Do While N 100s = s + nn = n + 1LoopMsgBox 100 以內(nèi)自然數(shù)的和是： & sEnd Sub題號： 12013求自然數(shù) n的階乘(1) 使用模塊插入過程子函數(shù) fact 實現(xiàn)(2) 模塊保存為 M45Private Sub fact()Dim k As Double, i As Integer, n As Inte