|
|
楼主 |
发表于 2023-1-14 10:46
|
显示全部楼层
Private Sub Command1_Click()
Dim a, b, ak(), bk()
a = Text1
b = Text2
s103 = Text4
s104 = Text5
s105 = Split(s103, "/")
s205 = Split(s104, "/")
j1 = UBound(s105)
j2 = UBound(s205)
Print j1
For k = 1 To j1
n1 = n1 + 1
ReDim Preserve ak(1 To n1)
ak(n1) = s105(n1)
Next
Print ak(1)
For k = 1 To j2
n2 = n2 + 1
ReDim Preserve bk(1 To n2)
bk(n2) = s205(n2)
Next
Print ak(1)
n = 0
For k = 1 To j1
For i = 1 To j2
n = n + 1
m = Val(ak(k)) + Val(bk(i))
If Val(m) = 18591 Then
Text3 = Text3 & "18591=" & ak(k) & "+" & bk(i) & vbCrLf
Else
Text3 = Text3
End If
Next
Next
a2 = 2
Do While InStr(Log(a) / Log(a2), ".") > 0 And a2 < b
a2 = a2 + 1
Loop
r = Log(a) / Log(a2)
If InStr(r, ".") = 0 Then
Text3 = Text3 & a & "=" & a2 & "^" & r & vbCrLf
Else
Text3 = Text3
End If
Combo1 = a & "的指数不超过" & b & "的幂为:" & Text3
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Text4 = ""
Text5 = ""
End Sub
|
|
IP卡
狗仔卡
显身卡