用1到9中任意两个相邻的数字组成两个两位数,再用较大数减去较小数。如21一12+

这样不重复的算式共有128个，差值的和是4360：

我是通过EXCEL的VBA程序计算的：

Sub 宏1()

  s = 0

  n = 1

  For i = 9 To 2 Step -1

  For j = i - 1 To 1 Step -1

      Cells(n, 1) = i & i - 1 & "-" & j & j + 1 & "=" & i 10 + i - 1 - (j 10 + j + 1)

      s = s + i 10 + i - 1 - (j 10 + j + 1)

      n = n + 1

      Cells(n, 1) = i & i - 1 & "-" & j & j - 1 & "=" & i 10 + i - 1 - (j 10 + j - 1)

      s = s + i 10 + i - 1 - (j 10 + j - 1)

      n = n + 1

  Next j, i

  For i = 8 To 1 Step -1

  For j = i - 1 To 1 Step -1

      Cells(n, 1) = i & i + 1 & "-" & j & j + 1 & "=" & i 10 + i - 1 - (j 10 + j + 1)

      s = s + i 10 + i - 1 - (j 10 + j + 1)

      n = n + 1

      Cells(n, 1) = i & i + 1 & "-" & j & j - 1 & "=" & i 10 + i - 1 - (j 10 + j - 1)

      s = s + i 10 + i - 1 - (j 10 + j - 1)

      n = n + 1

  Next j, i

  Cells(n, 1) = s

End Sub

Sub sum1ton()

    Dim i%, n%, r&

    n = InputBox("请输入一个自然数")

    For i = 1 To n

        r = r + i

    Next i

    MsgBox ("1+2++" & n & "的结果是：" & r)

End Sub

有什么不懂得欢迎继续追问

sum

=

0

n

=

0

For

i

=

1

to

5

x

=

n/i

n

=

n

+

1

sum

=

sum

+

x

Next

i

功能

是计算

0/1+1/2+2/3+3/4+4/5

结果保存在sum中

x

=

n/i

里面的n是指什么？

是到这一步时n的值

n

=

n

+

1

左右两个n

分别指什么？？

左边的n是新n

右边的是上一次的n,两个n的值是不同。

好比一个放钱的抽屉，名字叫n,

n=n+1的意义好比是你先把抽屉里原有的钱拿出来，然后你加1元进去，合在一起再放回抽屉。

n=0 ; n初始化为0

For i=1 to 3 ; for 循环 1-3 共3次

For j=-4 to -1 ;for循环 -4至-1 共4次

n=n+1 ;在循环中 n自加1

next j ; 下一个j 也就是 j=j+1 进入For j=-4 to -1 的For循环判断

next i ;下一个i

这里 i从1-3 每取一个值 j就从-4 至 -1 循环4次， n自加1

所以n=3x4=12

Sub xx()

For i = 1 To 10

m = 0

n = 1

Do Until n = 5

a = ApplicationWorksheetFunctionrandbetween(1, 30)

b = ApplicationWorksheetFunctionrandbetween(1, 100)

If a > b Then

n = n + 1

Else

n = ApplicationWorksheetFunctionMax(1, n - 1)

End If

m = m + 1

Loop

avm = (avm (i - 1) + m) / i

Next i

MsgBox avm

End Sub

Function Proc(m As Integer)

 Dim t As Double

   If IsNumeric(m) Then

     For j = 1 To m

       t = t + ApplicationWorksheetFunctionFact(j)

     Next

     Proc = t

   Else

     Proc = -1

   End If

End Function

这是实现计算过程的函数，在需要的地方调用即可。

如果你是在 Excel VBA 中写代码，那可以充分利用 Excel 内置的函数 (SUM 和  ROW)，所以这里可以不用循环，一行关键代码即可搞定！

MsgBox ApplicationEvaluate("=SUM(ROW(1:100))")

对应到你的代码中，只需将 100 替换成 n 即可，也就是：

MsgBox ApplicationEvaluate("=SUM(ROW(1:" & n & "))")

希望能够帮到你。

以上就是关于用1到9中任意两个相邻的数字组成两个两位数,再用较大数减去较小数。如21一12+全部的内容，包括:用1到9中任意两个相邻的数字组成两个两位数,再用较大数减去较小数。如21一12+、求excel中计算1+2+。。+n的VBA代码！、一个VBA程序段 sum = 0 n = 0 For i = 1 to 5 x = n/i n = n + 1 sum = sum + x Next i等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！