VBA编程综合答案.doc

Access数据库=题号：12003设计程序，对用户输入的任意两个整数，按升序输出。将任意两个数按指定顺序排列是必须掌握的基本算法，基本要领就是借助第三个变量将x变量和y变量进行交换。代码为：temp=x:x=y:y=temp操作提示：新建一个窗体swap如下图所示控件名称标题或功能Label1请输入x的值Label3请输入y的值Label5x=Label6y=Text0x：格式：常规数字Text2y：格式：常规数字Command4交换代码写在command4的单击事件过程中，执行效果如图所示。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你的等级是：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 = 中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 = N ThenMsgBox N & 是素数ElseMsgBox N & 不是素数End IfEnd Sub题号：12010编程实现输入一个正数M（M1），能输出1M间3的倍数，以及倍数和。注意：(1)通过模块子函数实现，子函数名为trad，私有类型(2)定义M，N，S整型变量，M为用户输入的数，N为循环计数器，S存放倍数和 定义K为字符串变量，用于存放显示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 + 1LoopMsgBox 1到M间3的倍数为： & K & 它们的和为 & SEnd SubM = Val(InputBox(请输入M的值：)Do While 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 Intege