UC知道求教vba作业
来源：百度知道 编辑：UC知道 时间：2024/06/08 16:51:59
题目：
1、写一个过程，实现(1×2+1×4+...+1×20)+(2×3+2×5+...+2×19)+...+(19×20)，即从1到19，求当前数与从当前数+1的数到20的相应奇偶数序列之和。
2、 ，共有20个元素，保存1到10中的奇数，25到35中的偶数，41到50中的数，并求出数组各元素的和、积。'
这是是在Access中用的,vba是vb语言的子集,access中的宏实质就是vba程序.这个是编写vba代码过程
1、写一个过程，实现(1×2+1×4+...+1×20)+(2×3+2×5+...+2×19)+...+(19×20)，即从1到19，求当前数与从当前数+1的数到20的相应奇偶数序列之和。
2、 ，共有20个元素，保存1到10中的奇数，25到35中的偶数，41到50中的数，并求出数组各元素的和、积。'
这是是在Access中用的,vba是vb语言的子集,access中的宏实质就是vba程序.这个是编写vba代码过程
不知道你发现规律没有，无论奇数偶数都是以步长2递增的，其实考点就在于循环和步长的应用。
第一题，最直接的解答应如此：
Sub cal()
Dim i As Integer
Dim y As Integer
Dim my_result As Integer
For i = 1 To 19
For y = i + 1 To 20 Step 2
my_result = my_result + i * y
Next
Next
MsgBox "最终结果是" & my_result
End Sub
----第二题------
考点为数组的应用、循环及变量类型的正确使用
Sub cal2()
Dim i(19) As Integer
Dim y As Integer
Dim z As Double
For y = 1 To 10 Step 2
'你可以用MOD 2的方法来求奇偶，这里我直接用步长
i(z) = y
z = z + 1
Next
For y = 25 To 35
If (y Mod 2) = 0 Then
i(z) = y
z = z + 1
End If
Next
For y = 41 To 50
i(z) = y
z = z + 1
Next
'以上完成数组输入
'----------------------
'以下计算数组元素的和
z = 0
For y