access 题库答案

来源：用户分享时间：2025/10/9 3:55:45 本文由

loading 分享下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

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

搜索更多关于： access 题库答案的文档

access 题库答案.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

access 题库 答案