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