发布时间 : 星期日 文章access 题库-答案更新完毕开始阅读
Private Sub Proc3()
Dim x As Integer, Sum As Integer Sum = 0
For x = 10 To 1 Step -1 Sum = Sum + x Next x
MsgBox Sum End Sub ① 10 ② 55
6、阅读下列程序，并回答：① Fun函数的功能是什么？② 执行Proc4过程时，若分别输入3和5，消息框中显示的内容是什么？ Function Fun(x As Integer) As Integer Dim I As Integer, T As Integer T = 1
For I = 1 To x T = T * I Next I Fun = T End Function
Private Sub Proc4()
Dim A As Integer, B As Integer
A = Val(InputBox(\请输入一个数字：\ B = Val(InputBox(\请输入另一个数字：\ MsgBox Fun(B) - Fun(A) End Sub ① 阶乘（累乘）② 114
7、请编写一个过程，要求使用InputBox函数输入正整数X，计算1至X的奇数和（1+3+5+…X），并通过MsgBox函数输出结果。
Private Sub qssum() Dim x, i As Integer Dim sum As Integer sum = 0
x = InputBox(\请输入一个数\ If x > 0 Then
For i = 1 To x Step 2 sum = sum + i Next i
MsgBox \至\的奇数和为：\ Else
MsgBox \输入错误\ End If
End Sub
8、如图2所示，窗体中有四个文本框（名称依次为Text1、Text2、Text3和Text4），分别用于表示长方体的长、宽、高和体积；一个命令按钮（标题为“计算”，名称为Cmd1）。请编写命令按钮的单价事件过程，在文本框中分别输入长方体的长、宽、高，单击“计算”按钮，计算长方体的体积，并显示在Text4文本框中。
Private Sub Cmd1_Click()
Me.Text4 = Val(Text1) * Val(Text2) * Val(Text3) End Sub