VBA编程综合答案.doc

Access数据库

==================================================

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

Private Sub Command4_Click()
x = Text0.Value
y = Text2.Value
If x > y Then
temp = x: x = y: y = temp
End If
Label5.Caption = "x=" & x
Label6.Caption = "y=" & y
End Sub

题号：12006
编写程序，当用户在窗体的文本框中输入一个0～100的数字时，
标签上立即能够显示对应等级：不及格、及格、中、良、优。

(1) 窗体构建:
控件
标题属性
Label1
请输入你的成绩：
Label3
你的等级是：
Text0
无
Command4
判断

(2) 使用Select case ……End Select分支结构
(3) 整形变量Score存放分数，StrX字符串用于显示等级
(4) 窗体保存名为：M21

Private Sub Command4_Click()
Dim Score As Integer, StrX As String
Score = Text0.Value
Select Case Score
Case 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 Select
Label3.Caption = "你的等级是：" & StrX

End Sub

题号：12007
计算的值。
本题使用模块过程函数实现
(1)函数名为FC，私有类
(2)选择结构采用If……Else……End if结构
(3)x用于接受用户输入值，y用来存放输出值

Private Sub FC()
Dim x As Double, y As Double
x = Val(InputBox("请输入x的值："))
If x <= 0 Then
y = x ^ 2 + x + 1
Else
y = x ^ 2 + 4 * x - 2
End If
MsgBox "y的值是：" & y
End Sub

题号：12011
编程实现输入一个整数X，能判别其是否为素数。素数又称质数。指只能被1和自身整除的自然数。
注意：
(1)使用模块过程函数实现，函数名为prime，为私有函数。
(2)使用I，N整形变量，其中N为用户输入的数，I为循环计数器
(3)循环结构采用For……next 形式
(4)效果如图所示，模块最后保存为：M-24

Private Sub prime()
Dim I As Integer, N As Integer
N = InputBox("请输入N：")
For I = 2 To N - 1
If N Mod I = 0 Then Exit For
Next I
If I >= N Then
MsgBox N & "是素数"
Else
MsgBox N & "不是素数"
End If
End Sub

题号：12010
编程实现输入一个正数M（M≥1），能输出1～M间3的倍数，以及倍数和。

注意：
(1)通过模块子函数实现，子函数名为trad，私有类型
(2)定义M，N，S整型变量，M为用户输入的数，N为循环计数器，S存放倍数和
定义K为字符串变量，用于存放显示1～M间3的倍数
(3)循环主体采用Do While……loop结构
(4)其中每个能被3整除的数之间用","隔开如图所示。
(5)模块保存名字为M-23

Private 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 < M
If N Mod 3 = 0 Then
K = K + Str(N) & ","
S = S + N
End If
N = N + 1
Loop
MsgBox "1到M间3的倍数为：" & K & "它们的和为" & S
End Sub
M = Val(InputBox("请输入M的值："))
Do While N <= M
If N Mod 3 = 0 Then
K = K & N & ","
S = S + N
End If
N = N + 1
Loop
MsgBox "1到M间3的倍数为：" & K & "它们的和为" & S

题号：12009
计算表达式的值。
分析可知表达式的通项公式为：

操作提示：
（1）界面设计。
窗体放置2个标签，分别显示表达式及结果；放置1个命令按钮，用于启动计算过程。
（2）属性设置，如图所示。
属性设置
属性 对象
名称
标题
标签控件
lblProblem
S=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 = 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)循环结构采用for……next n结构
(5)vbCRLf为消息框中的换行命令
(6)模块名保存为M-23

Private Sub count()
Dim i As Integer, j As Integer, n As Integer
i = 0
j = 0
For n = 1 To 10
x = Val(InputBox("请输入一个数："))
If x Mod 2 = 0 Then
i = i + 1
Else
j = j + 1
End If
Next n
MsgBox "偶数有个数是：" & i & vbCrLf & "奇数个数是：" & j
End Sub

题号：12012
用Do……Loop判断条件，求100以内自然数和，主要使用Until为判断条件
(1)模块名为M44，过程添加函数summary实现
(2)定义整形变量s,n其中s用了存放和，n用来做计数器

Private Sub summary()
Dim s As Integer, n As Integer
s = 0
n = 1
Do Until n > 100
s = s + n
n = n + 1
Loop
MsgBox "100以内自然数的和是：" & s
End Sub

题号：12013
求自然数n的阶乘
(1)使用模块插入过程子函数fact实现
(2)模块保存为M45
Private Sub fact()
Dim k As Double, i As Integer, n As Integer
n = Val(InputBox("请输入n的值："))
k = 1
For i = 1 To n
k = k * i
Next i
MsgBox n & "的阶乘值为：" & k
End Sub