《VBA编程综合答案.docx》由会员分享，可在线阅读，更多相关《VBA编程综合答案.docx（9页珍藏版）》请在三一文库上搜索。
1、.Access数据库=题号：12003设计程序，对用户输入的任意两个整数，按升序输出。将任意两个数按指定顺序排列是必须掌握的基本算法，基本要领就是借助第三个变量将x变量和y变量进行交换。代码为：temp=x:x=y:y=temp操作提示：新建一个窗体swap如下图所示控件名称标题或功能Label1"请输入x的值"Label3"请输入y的值"Label5"x="Label6"y="Text0x：格式：常规数字Text2y：格式：常规数字Command4"交换"代码写在command4的单击事件过程
2、中，执行效果如图所示。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的数字时，标签上立即能够显示对应等级：不及格、及格、中、良、优。(1)窗体构建: 控件标题属性Label1请输入你的成绩：Label3
3、你的等级是：Text0无Command4判断(2)使用Select case End Select分支结构(3)整形变量Score存放分数，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 = "中"
4、Case 80 To 89 StrX = "良"Case 90 To 100 StrX = "优"End SelectLabel3.Caption = "你的等级是：" & StrXEnd Sub题号：12007计算的值。本题使用模块过程函数实现(1)函数名为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编程实现输入一个整数X，能判别其是否为素数。素数又称质数。指只能被1和自身整除的自然数。注意：(1)使用模块过程函数实现，函数名为prime，为私有函数。(2)使用I，N整形变量，其中N为用户输入的数，I为循环计数器(3)循环结构采用Fornext 形式(4)效果如图所示，模块最后保存为：M-24Private Sub prime()Dim I As Integer, N As Integ
6、erN = InputBox("请输入N：")For I = 2 To N - 1If N Mod I = 0 Then Exit ForNext IIf I >= N ThenMsgBox N & "是素数"ElseMsgBox N & "不是素数"End IfEnd Sub题号：12010编程实现输入一个正数M（M1），能输出1M间3的倍数，以及倍数和。注意：(1)通过模块子函数实现，子函数名为trad，私有类型(2)定义M，N，S整型变量，M为用户输入的数，N为循环计数器，S存放倍数和 定义K为字符串变量，
7、用于存放显示1M间3的倍数(3)循环主体采用Do Whileloop结构(4)其中每个能被3整除的数之间用","隔开如图所示。(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 +
8、1LoopMsgBox "1到M间3的倍数为：" & 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的倍数为：" & 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 =
10、 1 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）调试运行，最后命名并保存窗体名为：累加计算。题号：12008编写程序，对用户输入的10个数分别统计有几个奇数，有几个偶数。注意：(1)子函数名为count，(2)整形变量i,j分别存放偶数和奇数的个数，(3)变量x存放输入框接收的用户输入数字，(4)循环结构采用fornext n结构(5)v
11、bCRLf为消息框中的换行命令(6)模块名保存为M-23Private Sub count()Dim i As Integer, j As Integer, n As Integeri = 0j = 0For n = 1 To 10x = Val(InputBox("请输入一个数：")If x Mod 2 = 0 Theni = i + 1Elsej = j + 1End IfNext nMsgBox "偶数有个数是：" & i & vbCrLf & "奇数个数是：" & jEnd Sub题号：1201
12、2用DoLoop判断条件，求100以内自然数和，主要使用Until为判断条件(1)模块名为M44，过程添加函数summary实现(2)定义整形变量s,n其中s用了存放和，n用来做计数器Private Sub summary()Dim s As Integer, n As Integers = 0n = 1Do Until n > 100s = s + nn = n + 1LoopMsgBox "100以内自然数的和是：" & sEnd Sub题号：12013求自然数n的阶乘(1)使用模块插入过程子函数fact实现(2)模块保存为M45Private Sub fact()Dim k As Double, i As Integer, n As Integern = Val(InputBox("请输入n的值：")k = 1For i = 1 To nk = k * iNext iMsgBox n & "的阶乘值为：" & kEnd Sub;