ACCESS问题谁来帮我。我要考试的

五。模块对象

1 写出下列过程的运行结果：

Private Sub Command1_Click()
Dim A(10) As Integer, B&(9)
Dim I As Integer
For I= 1 To 10
A(I)=11-I
Next I
For I=1 To 9
B(I)=A(I)+A(I+1)
Next I
For I=1 To 9
Debug.Print B(I),
If I Mod 3=0 Then Debug.Print
Next I
End Sub

2. 过程TEST2计算10个人的平均年龄，并根据该平均年龄值判断这组人处于人生的哪个阶段：40岁以下为青年，40~59为中年，60岁或以上为老年。请找出程序中的语法错误和逻辑错误并改正（程序的结构不能破坏）。

Sub Test2()
Dim N As Single, I As Byte, Stage As Double
Dim Avg As Single
N=10'共10人
Dim Age(N) As Integer
For I=1 To 10
Age(I)=ImputBox(“输入年龄值：”）
Avg=Avg+Age(I)
Next I
Avg=Avg/I
If Avg>40 Or Avg<60 Then Stage=“中年”
If Avg<=40 Then Stage=“青年”Else Stage=“老年”
MsgBox Avg & “ “ & Stage
End Sub

3. 过程TEST3用于寻找两个自然数的最大公约数。请填空。

Sub Test3() Dim X As Integer, Y As Integer, I%
X=InputBox(

ACCESS问题谁来帮我。我要考试的 ACCESS的问题，谁来帮我解决？ 菜鸟我关于access使用的问题 Access让我哭笑不得 关于ACCESS数据库的问题，我要每天那个字段都自动减去1 我做asp与access链接时出现的问题 遇到问题！快帮帮我！Access方面的 Access 问题。我的管理员密码忘了？？急！！ 谁能帮我解决一下Access的一些问题?在线等 ACCESS数据库调用问题谁帮我解决下呢？