vba 对于一组数,列名为 1 2 3.如下1 2 3 5 3 85 9 68 6 9 2 1 9 9 5 3每一行取一

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/07/17 23:57:32

vba
对于一组数,列名为 1 2 3.如下
1 2 3
5 3 8
5 9 6
8 6 9
2 1 9
9 5 3
每一行取一个数相乘.如 5x5x8x2x9=3600.一共有3的5次方种方法.得到243个得数.把每
个得数作为x代进公式
y=x/2+2000中.若y>3000,则输出x,y以及相乘出x的数的行号.如例子中的到的x=3600,
y=3800,相乘出x的数的列号为 11111.求在VBA中的实现

程序要做到完美!
----------------------
Public Sub aa()
Dim i%, j%, k%, l%, m%, x#, y#, r&
With ActiveSheet
Dim Rg As Range: Set Rg = .Range("E1") '放置结果的开始位置
.Range(Rg, .Cells(65535, Rg.Column + 2)).Clear
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
For l = 1 To 3
For m = 1 To 3
x = .Cells(1, i) * .Cells(2, j) * _
.Cells(3, k) * .Cells(4, l) * .Cells(5, m)
y = x / 2 + 2000
If y > 3000 Then
Rg.Offset(r, 0).Value = x
Rg.Offset(r, 1).Value = y
Rg.Offset(r, 2).Value = i & j & k & l & m & n
r = r + 1
End If
Next m, l, k, j, i
End With
With Rg.Resize(r, 3)
.EntireColumn.AutoFit
.Interior.ColorIndex = 36
.Font.ColorIndex = 3
.Borders.LineStyle = xlContinuous
End With
MsgBox "完成!" & vbCrLf & "共有 " & r & " 个组合符合条件."
End Su

一组数字如图排列：第一列第二列第三列第四列第五列第一行 1 2 3 4 5第二行 9 8 7 6第三行 10 把1,-2,3,-4,5,-6,7,-8,9这九个数分别填入图中方框内,使每一行、每一列和每条对角线上的三个数的和…… 把1,2,3,4,5,6,7,8,9这九个数分别填入方框内,使每一行`每一列和每条对角线上三个数的和都相等. 第一列第二列第三列第四列第五列第一行 1 4 5 16 17 第二行 2 3 6 15 18 第三行 9 8 在右面的9个方格中分别填入－2,－1,0,1,2,3,4,5,6,使得每一行的三个数、每一列的三个数、斜对角把自然数排列成下列数阵： 1 2 5 . 4 3 6 . 9 8 7 ... ... . 求第一行第七列的数是多少有一些数:第一行第一列是1第二列是4第三列是9第四列是16第五列25;第二行第一列是2第二列是3 第一列第二列第三列 .第一行 1 2 9 10 第二行 4 3 8 11 第三行 5 6 7 12 ...2008所一列二列三列四列一行 1 2 5 10 二行 4 3 6 11 三行 9 8 7 12 四行 16 15 14 数独游戏：第一行第一列是5,第五列是2,第二行第八列是1,第三行第九列是3,第四行第二列是6,第三列是1,第四列是7,第把数1、2、3、4、5、6、7、8、9、10……排成六列,具体如下,2003排在多少列? 若一组数：1,+2,-3,-4,+5,+6,-7,-8,+9,+10,.是从1开始的,连续整数中依次两个取正,两个取负,