|

楼主 |
发表于 2022-11-29 20:43
|
显示全部楼层
再次改进一下,仅仅显示差G-LG为负值的时候,代码如下:
Private Sub Command1_Click()
Dim a, b, c
a = Val(Text1)
b = Val(Text2)
If Right(a, 1) Mod 2 = 0 Then
a = a
Else
a = Val(a + 1)
End If
a1 = a
Do While a1 <= b
c = fenjieyinzi1(Val(a1))
c2 = fenjieyinzi2(Val(a1))
g = Mid(c, InStr(c, "=") + 1)
lg = Mid(c2, InStr(c2, "=") + 1)
c3 = Mid(c2, 1, InStr(c2, "=") - 1)
If Val(g - lg) < 0 Then
c1 = c1 & a1 & " /差为" & Val(g - lg) & c3 & vbCrLf
Else
c1 = c1
End If
a1 = a1 + 2
Loop
Text3 = c1
Combo1 = "偶数/ 方根/ GM/ G/差 G-LG/ 偶数/ P/ m/ <LG/(m-1)区间平均值>/ LG" & vbCrLf & c1
End Sub |
|