VBA编程综合答案

1、Access数据库题号：12003设计程序，对用户输入的任意两个整数，按升序输岀。将任意两个数按指定顺序排列是必须掌握的基本算法，基本要领就是借助第三个变量将 和y变量进行交换。代码为： temp=x: x=y: y=temp操作提示：新建一个窗体swap如下图所示控件名称标题或功能Label 1”请输入X的值”Label3”请输入y的值”Label5 x=Label6 y=TextOX:格式：常规数字Text2y :格式：常规数字Comma nd4"交换“代码写在command4的单击事件过程中，执行效果如图所示。请输入痼值:I交换x=6y=8Private Sub Comma n

2、d4_Click()x = TextO. Valuey = Text2. ValueIf x > y The ntemp = x: x = y: y = tempEnd IfLabel5. Capti on = "xLabe16. Capti on = "y=End Sub二"& x& y题号：12006编写程序，当用户在窗体的文本框中输入一个0? 100的数字时，标签上立即能够显示对应等级：不及格、及格、中、良、优。(1)窗体构建控件标题属性Label 1请输入你的成绩：Label3你的等级是：TextO无Comma nd4判断(2) 使用

3、 Select case . End Select分支结构(3) 整形变量Score存放分数，StrX字符串用于显示等级窗体保存名为：M21请输入你的成绩判断共有记录数：i记录：回I r叵1国,请输入你的成绩：56你的等缀是：不及格判断记录：回 I r叵1 共有记录数：1Private Sub Command4_C1ick()Dim Score As Integer, StrX As StringScore = TextO. ValueSelect Case ScoreCase 0 To 59StrX =不及格"Case 60 To 69StrX =及格Case 70 To 79St

4、rX =中Case 80 To 89StrX =良Case 90 To 100StrX =优End SelectLabe 13. Caption ="你的等级是：& StrXEnd Sub题号：12007x<0x + 4x2本题使用模块过程函数实现(1) 函数名为FC,私有类选择结构采用If ElseEnd if 结构Private Sub FC()话输入x确取Dim x As Double, y As Doublex = Vai (InputBox C请输入 x 的值：")If x <= 0 Theny = x"2 + x+ lElse y

5、= x"2 + 4*x-2End IfMsgBox "y 的值是："& y End Sub题号：120111和自身整除的自编程实现输入一个整数X,能判别其是否为素数。素数又称质数。指只能被然数。(1) 使用模块过程函数实现，函数名为prime,为私有函数。(2) 使用I, N整形变量，其中 N为用户输入的数，I为循环计数器y循环结构采用 For . next形式 效果如图所示，确定最后保存为：M-24|73Private Sub prime()Dim I As Integer, N As IntegerN = InputBox （ 请输入 N：”）For

6、I = 2 To N - 1If N Mod 1=0 Then Exit ForNext IIf I >= N ThenMsgBox N & 是素数ElseMsgBox N & 不是素数End IfEnd Sub题号： 12010编程实现输入一个正数M (MN1),能输岀1? M间3的倍数，以及倍数和(1) 通过模块子函数实现，子函数名为 trad, 私有类型定义M, N, S整型变量，M为用户输入的数，N为循环计数器，S存放倍数和 定义K为字符串 变量，用于存放显示1? M间3的倍数(3) 循环主体采用 Do While . loop 结构(4) 其中每个能被 3 整除

7、的数之间用，隔开如图所示。(5) 模块保存名字为 M-23话输入M的值:|381 到 M间 3 的倍数为：0, 3, 6, 9, 12, 15, 18,21, 24, 27, 30, 33, 36, 它们的和为 234 确定 |Private Sub trad()Dim M As In teger, N As In teger, S As In tegerDim K As Stri ngN = 0M = 0M = InputBox (z/请输入 M的值：")Do While N < MIf N Mod 3 = 0 The nK = K + Str (N) &，S 二 S

8、 + NEnd IfN = N + 1LoopMsgBox 1到M间3的倍数为：& K &它们的和为& SEnd SubM = Vai (InputBox (，z请输入 M 的值：)Do While N <= MIf N Mod 3 = 0 ThenK = K & N & ,S = S + NEnd IfN = N + 1LoopMsgBox到M间3的倍数为： & K& 它们的和为 & S题号：12009-J 计算表达式 2! 4! 6! 8! 10! 的值。分析可知表达式的通项公式为S = (-1)1 2xz i = 12

9、3,4,5 (2xz)!操作提示：(1) 界面设计。窗体放置2个标签，分别显示表达式及结果；放置 1个命令按钮，用于启动计算过程。(2) 属性设置，如图所示。属性设置属性对象名称标题标签控件IblProbleS=l/2 !-3/4!+5/6!-7/81+9/10!标签控件IblResult计算结果是命令按钮cmdComput计算(3)一程序代码:Private Sub cmdCompute_Click()Dim S As SingleDim i As Integer, k As SingleDim f As LongS = 0Fori = 1 To 5f 二 1For k 二 1 To 2 *

10、 if 二 f * kNext kS 二 S + (-1) " (i - 1) * (2 * i - 1) / fNext iIblResult. Caption 二 IblResult. Caption + Format(S, 0. 0000 )End Sub(3) 调试运行，最后命名并保存窗体名为：累加计算。题号：12008编写程序，对用户输入的10个数分别统计有几个奇数，有几个偶数。子函数名为cou nt,(2) 整形变量i, j分别存放偶数和奇数的个数,(3) 变量x存放输入框接收的用户输入数字，循环结构采用for . next n结构(5) vbCRLf为消息框中的换行命令

11、(6) 模块名保存为M-23话输入一个数:隅斟稈个进是：T葡数TSS4： 3Private Sub cou nt()Dim i As Integer, j As Integer, n As Integeri = 0j 二 0For n = 1 To 10x 二 Vai (InputBox(z，请输入一个数：")If x Mod 2=0 Theni = i + 1Elsej = j + 1End IfNext nMsgBox 偶数有个数是：& i & vbCrLf &奇数个数是："& jEnd Sub题号：12012用Do. . Loop判断条件，求100以内自然数和，主要使用 Until为判断条件(1) 模块名为M44,过程添加函数summary实现(2) 定义整形变量s,n其中s用了存放和，n用来做计数器Private Sub summary()Dim s As In teger, n As In teger s = 0 n = 1Do Un til n > 100 s = s + n n = n + 1LoopMsgBox 100以内自然数的和是：& sEnd Sub题号： 12013求自然数 n 的阶乘(1) 使用模