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 发布
这个VB程序实现了大数的次方运算和求余数功能。通过点击按钮,用户可以输入两个大数,程序会计算第一个数的第二个数次方,并显示计算所用的时间。此外,用户还可以输入一个整数,程序会计算次方结果对这个整数取余的结果。整个计算过程使用自定义的函数进行处理。
摘要由CSDN通过智能技术生成