《VBA编程综合答案》由会员分享，可在线阅读，更多相关《VBA编程综合答案（9页珍藏版）》请在金锄头文库上搜索。
1、AccessAccess数据库数据库=题号：12003设计程序，对用户输入的任意两个整数，按升序输出。 将任意两个数按指定顺序排列是必须掌握的基本算法，基本要领就是借助第三个变量将x变 量和y变量进行交换。 代码为：temp=x:x=y:y=temp 操作提示：操作提示： 新建一个窗体swap如下图所示控件名称标题或功能Label1“请输入x的值“Label3“请输入y的值“Label5“x=“ Label6“y=“ Text0x：格式：常规数字Text2y：格式：常规数字Command4“交换“代码写在command4的单击事件过程中，执行效果如图所示。PrivatePrivate SubS
2、ub Command4_Click()Command4_Click() x x = = Text0.ValueText0.Value y y = = Text2.ValueText2.Value IfIf x x y y ThenThen temptemp = = x:x: x x = = y:y: y y = = temptemp EndEnd IfIf Label5.CaptionLabel5.Caption = = “x=“x=“ & & x x Label6.CaptionLabel6.Caption = = “y=“y=“ & & y y EndEnd SubSub题号：12006编
3、写程序，当用户在窗体的文本框中输入一个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
4、To 59StrX = “不及格“Case 60 To 69StrX = “及格“Case 70 To 79StrX = “中“Case 80 To 89StrX = “良“Case 90 To 100StrX = “优“End SelectLabel3.Caption = “你的等级是：“ & StrXEnd Sub题号：12007计算0240122xxxxxxy的值。本题使用模块过程函数实现 (1)函数名为FC，私有类 (2)选择结构采用IfElseEnd if结构 (3)x用于接受用户输入值，y用来存放输出值PrivatePrivate SubSub FC()FC() DimDim x
5、x AsAs Double,Double, y y AsAs DoubleDouble x x = = Val(InputBox(“Val(InputBox(“请输入请输入x x的值的值：“)“)IfIf x x = N Then MsgBox N & “是素数“Else MsgBox N & “不是素数“End If End Sub题号：12010编程实现输入一个正数M（M1），能输出1M间3的倍数，以及倍数和。注意： (1)通过模块子函数实现，子函数名为trad，私有类型 (2)定义M，N，S整型变量，M为用户输入的数，N为循环计数器，S存放倍数和定义K为字符串变量，用于存放显示1M间3的
6、倍数 (3)循环主体采用Do Whileloop结构 (4)其中每个能被3整除的数之间用“,“隔开如图所示。 (5)模块保存名字为M-23Private Sub trad() Dim M As Integer, N As Integer, S As Integer Dim K As String N = 0 M = 0 M = InputBox(“请输入M的值：“)Do While N 100 s = s + n n = n + 1 Loop MsgBox “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
