編程綜合答案

1、Access數(shù)據(jù)庫=題號：12003設計程序，對用戶輸入的任意兩個整數(shù)，按升序輸出。將任意兩個數(shù)按指定順序排列是必須掌握的基本算法，基本要領就是借助第三個變量將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的單擊事件過程中

2、，執(zhí)行效果如圖所示。Private Sub Command4_Click()x = Text0.Valuey = Text2.ValueIf x > y Thentemp = x: x = y: y = tempEnd IfLabel5.Caption = "x=" & xLabel6.Caption = "y=" & yEnd Sub題號：12006編寫程序，當用戶在窗體的文本框中輸入一個0100的數(shù)字時，標簽上立即能夠顯示對應等級：不及格、及格、中、良、優(yōu)。(1)窗體構建: 控件標題屬性Label1請輸入你的成績：Label3你

3、的等級是：Text0無Command4判斷(2)使用Select case End Select分支結構(3)整形變量Score存放分數(shù)，StrX字符串用于顯示等級(4)窗體保存名為：M21Private Sub Command4_Click()Dim Score As Integer, StrX As StringScore = Text0.ValueSelect Case ScoreCase 0 To 59 StrX = "不及格"Case 60 To 69 StrX = "及格"Case 70 To 79 StrX = "中"C

4、ase 80 To 89 StrX = "良"Case 90 To 100 StrX = "優(yōu)"End SelectLabel3.Caption = "你的等級是：" & StrXEnd Sub題號：12007計算的值。本題使用模塊過程函數(shù)實現(xiàn)(1)函數(shù)名為FC，私有類(2)選擇結構采用IfElseEnd if結構(3)x用于接受用戶輸入值，y用來存放輸出值Private Sub FC()Dim x As Double, y As Doublex = Val(InputBox("請輸入x的值：")If x

5、<= 0 Theny = x 2 + x + 1Elsey = x 2 + 4 * x - 2End IfMsgBox "y的值是：" & yEnd Sub題號：12011編程實現(xiàn)輸入一個整數(shù)X，能判別其是否為素數(shù)。素數(shù)又稱質(zhì)數(shù)。指只能被1和自身整除的自然數(shù)。注意：(1)使用模塊過程函數(shù)實現(xiàn)，函數(shù)名為prime，為私有函數(shù)。(2)使用I，N整形變量，其中N為用戶輸入的數(shù)，I為循環(huán)計數(shù)器(3)循環(huán)結構采用Fornext 形式(4)效果如圖所示，模塊最后保存為：M-24Private Sub prime()Dim I As Integer, N As Intege

6、rN = InputBox("請輸入N：")For I = 2 To N - 1If N Mod I = 0 Then Exit ForNext IIf I >= N ThenMsgBox N & "是素數(shù)"ElseMsgBox N & "不是素數(shù)"End IfEnd Sub題號：12010編程實現(xiàn)輸入一個正數(shù)M（M1），能輸出1M間3的倍數(shù)，以及倍數(shù)和。注意：(1)通過模塊子函數(shù)實現(xiàn)，子函數(shù)名為trad，私有類型(2)定義M，N，S整型變量，M為用戶輸入的數(shù)，N為循環(huán)計數(shù)器，S存放倍數(shù)和定義K為字符串變量，用于

7、存放顯示1M間3的倍數(shù)(3)循環(huán)主體采用Do Whileloop結構(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 + 1L

8、oopMsgBox "1到M間3的倍數(shù)為：" & K & "它們的和為" & SEnd SubM = Val(InputBox("請輸入M的值：")Do While N <= MIf N Mod 3 = 0 ThenK = K & N & ","S = S + NEnd IfN = N + 1LoopMsgBox "1到M間3的倍數(shù)為：" & K & "它們的和為" & S題號：12009計算表達式的值。分

9、析可知表達式的通項公式為：操作提示：（1）界面設計。窗體放置2個標簽，分別顯示表達式及結果；放置1個命令按鈕，用于啟動計算過程。（2）屬性設置，如圖所示。屬性設置屬性對象名稱標題標簽控件lblProblemS=1/2!-3/4!+5/6!-7/8!+9/10!標簽控件lblResult計算結果是命令按鈕cmdCompute計算（3）程序代碼：Private Sub cmdCompute_Click() Dim S As Single Dim i As Integer, k As Single Dim f As Long S = 0 For i = 1 To 5 f = 1 For k = 1

10、To 2 * i f = f * k Next k S = S + (-1) (i - 1) * (2 * i - 1) / f Next i lblResult.Caption = lblResult.Caption + Format(S, "0.0000")End Sub（3）調(diào)試運行，最后命名并保存窗體名為：累加計算。題號：12008編寫程序，對用戶輸入的10個數(shù)分別統(tǒng)計有幾個奇數(shù)，有幾個偶數(shù)。注意：(1)子函數(shù)名為count，(2)整形變量i,j分別存放偶數(shù)和奇數(shù)的個數(shù)，(3)變量x存放輸入框接收的用戶輸入數(shù)字，(4)循環(huán)結構采用fornext n結構(5)vbCR

11、Lf為消息框中的換行命令(6)模塊名保存為M-23Private 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ù)是：" & i & vbCrLf & "奇數(shù)個數(shù)是：" & jEnd Sub題號：12012用DoLoop判斷條件，求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ù)的和是：" & sEnd Sub題號：12013求自然數(shù)n的階乘(1)使用模塊插入過程子函數(shù)fact實現(xiàn)(2)