編程綜合答案

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

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題號(hào)：12006編寫程序，當(dāng)用戶在窗體的文本框中輸入一個(gè)0100的數(shù)字時(shí)，標(biāo)簽上立即能夠顯示對(duì)應(yīng)等級(jí)：不及格、及格、中、良、優(yōu)。(1)窗體構(gòu)建: 控件標(biāo)題屬性Label1請(qǐng)輸入你的成績(jī)：Label3你

3、的等級(jí)是：Text0無(wú)Command4判斷(2)使用Select case End Select分支結(jié)構(gòu)(3)整形變量Score存放分?jǐn)?shù)，StrX字符串用于顯示等級(jí)(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 = "你的等級(jí)是：" & StrXEnd Sub題號(hào)：12007計(jì)算的值。本題使用模塊過(guò)程函數(shù)實(shí)現(xiàn)(1)函數(shù)名為FC，私有類(2)選擇結(jié)構(gòu)采用IfElseEnd if結(jié)構(gòu)(3)x用于接受用戶輸入值，y用來(lái)存放輸出值Private Sub FC()Dim x As Double, y As Doublex = Val(InputBox("請(qǐng)輸入x的值：")If x

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

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

7、存放顯示1M間3的倍數(shù)(3)循環(huán)主體采用Do Whileloop結(jié)構(gòu)(4)其中每個(gè)能被3整除的數(shù)之間用","隔開(kāi)如圖所示。(5)模塊保存名字為M-23Private Sub trad()Dim M As Integer, N As Integer, S As IntegerDim K As StringN = 0M = 0M = InputBox("請(qǐng)輸入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("請(qǐng)輸入M的值：")Do While N <= MIf N Mod 3 = 0 ThenK = K & N & ","S = S + NEnd IfN = N + 1LoopMsgBox "1到M間3的倍數(shù)為：" & K & "它們的和為" & S題號(hào)：12009計(jì)算表達(dá)式的值。分

9、析可知表達(dá)式的通項(xiàng)公式為：操作提示：（1）界面設(shè)計(jì)。窗體放置2個(gè)標(biāo)簽，分別顯示表達(dá)式及結(jié)果；放置1個(gè)命令按鈕，用于啟動(dòng)計(jì)算過(guò)程。（2）屬性設(shè)置，如圖所示。屬性設(shè)置屬性對(duì)象名稱標(biāo)題標(biāo)簽控件lblProblemS=1/2!-3/4!+5/6!-7/8!+9/10!標(biāo)簽控件lblResult計(jì)算結(jié)果是命令按鈕cmdCompute計(jì)算（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)試運(yùn)行，最后命名并保存窗體名為：累加計(jì)算。題號(hào)：12008編寫程序，對(duì)用戶輸入的10個(gè)數(shù)分別統(tǒng)計(jì)有幾個(gè)奇數(shù)，有幾個(gè)偶數(shù)。注意：(1)子函數(shù)名為count，(2)整形變量i,j分別存放偶數(shù)和奇數(shù)的個(gè)數(shù)，(3)變量x存放輸入框接收的用戶輸入數(shù)字，(4)循環(huán)結(jié)構(gòu)采用fornext n結(jié)構(gòu)(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("請(qǐng)輸入一個(gè)數(shù)：")If x Mod 2 = 0 Theni = i + 1Elsej = j + 1End IfNext nMsgBox "偶數(shù)有個(gè)數(shù)是：" & i & vbCrLf & "奇數(shù)個(gè)數(shù)是：" & jEnd Sub題號(hào)：12012用DoLoop判斷條件，求100以內(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 Integers = 0n = 1Do Until n > 100s = s + nn = n + 1LoopMsgBox "100以內(nèi)自然數(shù)的和是：" & sEnd Sub題號(hào)：12013求自然數(shù)n的階乘(1)使用模塊插入過(guò)程子函數(shù)fact實(shí)現(xiàn)(2)