Private Sub Command1_Click()
Command1.Caption = "请耐心等待计算结果"
stimer = Timer
Text3.Text = pow(Text1.Text, Text2.Text)
Text4.Text = Timer - stimer & "秒"
If Text6.Text = "" Then
Text6.Text = InputBox("请输入您所要除的数字", "一个大数除一个整数的余数")
End If
Text7.Text = modmax(Text3.Text, Val(Text6.Text))
Text5.Text = Len(Trim(Text3.Text))
Command1.Caption = "计算完成"
End Sub
Function pow(ByVal x As String, ByVal y As String) As String
Dim le1 As Long, le As Long, ch1 As String, ch2 As String, ch3 As String
Dim w As Long, fistshu As Integer, secondshu As Integer, n As Integer, t As Integer, m As Integer
ch1 = x
le1 = Len(x)
ch2 = ""
For i = 2 To Val(y)
For j = le1 To 1 Step -1
n = le1 - j
m = Val(Mid(x, j, 1))
secondshu =
VB大数处理程序-----能算任何大的数的次方
最新推荐文章于 2019-08-01 13:32:28 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)