1樓:匿名使用者
vba用迴圈讀入和值,解三元一次方程即可求得。如下圖:a、b、c列為任意多個和值,d、e、f列則為符合條件的a、b、c值。
**為:
sub macro1()
dim a as double, b as double, c as double
dim x as integer, y as integer, z as integer
dim h as integer, i as integer, j as integer, k as integer
x = cells(rows.count, "a").end(xlup).row
y = cells(rows.count, "b").end(xlup).row
z = cells(rows.count, "c").end(xlup).row
columns("d:f").select
selection.clearcontents
range("d1").select
activecell.formular1c1 = "a"
range("e1").select
activecell.formular1c1 = "b"
range("f1").select
activecell.formular1c1 = "c"
range("a1").select
h = 2
for i = 2 to x
for j = 2 to y
for k = 2 to z
a = (cells(i, 1) - cells(j, 2) + cells(k, 3)) / 2
b = cells(i, 1) - a
c = cells(i, 3) - a
if a = int(a) and b = int(b) and c = int(c) and a < 10 and b < 10 and c < 10 then
cells(h, 4) = a
cells(h, 5) = b
cells(h, 6) = c
h = h + 1
end if
next
next
next
end sub
2樓:匿名使用者
其實三位數,無非是從100到999 一共900個數字然後excel**的a1寫100,a2寫 102 ......下拉到900
然後b列就是你所說的b+c 取a1的第一位和第二位相加 =mid(a1,2,1)+mid(a1,3,1)下拉
然後c列就是 a+c 取a1的第一位和第三位 =mid(a1,1,1)+mid(a1,3,1)
三位數除以4的商是三位數,除以8的商是兩位數,這個數最大是多少?最小呢
這個數最大是799。解答過程如下 1 一個三位數除以4的商是三位數,表明這個三位數必須大於400。2 除以8的商是兩位數,兩位數的範圍 10 a 99。3 99 8 792,考慮到有餘數的情況,餘數最大為7。4 所以這個數最大為792 7 799。整數的除法法則 1 從被除數的高位起,先看除數有幾位...
三位數除以兩位數的題有餘數的題,三位數除以兩位數沒有餘數100道題
735 15 330 11 371 17 728 17 435 15 472 18 813 14 518 14 150 19 420 15 672 56 633 15 325 13 968 22 842 16 987 19 223 12 982 13 649 11 561 17 114 16 190...
三位數乘兩位數的豎式進位怎麼寫,三位數乘兩位數豎式計算,怎麼做
三位數乘兩位數,豎式計算舉例如下 135 45 6075 312 54 16848 408 25 10200 210 47 9870 從兩位數乘兩位數的計算方法遷移類推得到了三位數乘兩位數的計算方法。都是先用第二個因數個位上的數去乘第一個因數,積的末尾跟個位對齊,再用第二個因數十位上的數去乘第一個因...