这样不重复的算式共有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等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)