求vb大神帮忙做一道题.要求;只需要要程序写出来,界面的截图;
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/27 09:19:53
求vb大神帮忙做一道题.要求;只需要要程序写出来,界面的截图;
超长正整数的加法,
请设计一个算法完成两个超长正整数的加法.
超长正整数的加法,
请设计一个算法完成两个超长正整数的加法.
基本思路,是把数字作为字符串处理,然后运算的时候,先把它截取成长度一定的(比如4位)若干段,分段转换成数字求和(要考虑进位),然后转换成字符,在连接起来输出:
界面如下:
代码如下:
Option Explicit
Private Sub Command1_Click()
Dim ssss As String
ssss = PPP(Text1.Text,Text2.Text)
Text3.Text = ssss
End Sub
'自定义函数求两个长整数之和
Private Function PPP(ByVal s1 As String,ByVal s2 As String) As String
Dim dd1() As String
Dim n1 As Integer
Dim dd2() As String
Dim n2 As Integer
Dim s As String
Dim i As Integer
Dim d1 As Integer
Dim d2 As Integer
Dim t As Integer
Dim j As Integer
Dim JinWei As Boolean
Dim K As Integer
Dim SS1 As String
Dim SS2 As String
If Len(s1) > Len(s2) Then
SS1 = s1
SS2 = s2
Else
SS1 = s2
SS2 = s1
End If
n1 = 0
s = SS1
Do While Len(s) > 4
n1 = n1 + 1
ReDim Preserve dd1(1 To n1) As String
dd1(n1) = Right(s,4)
s = Left(s,Len(s) - 4)
Loop
n1 = n1 + 1
ReDim Preserve dd1(1 To n1) As String
dd1(n1) = s
n2 = 0
s = SS2
Do While Len(s) > 4
n2 = n2 + 1
ReDim Preserve dd2(1 To n2) As String
dd2(n2) = Right(s,4)
s = Left(s,Len(s) - 4)
Loop
n2 = n2 + 1
ReDim Preserve dd2(1 To n2) As String
dd2(n2) = s
JinWei = False
K = 0
For i = 1 To n1
K = K + 1
If K > n2 Then Exit For
If Not JinWei Then
t = Val(dd1(i)) + Val(dd2(K))
Else
t = Val(dd1(i)) + Val(dd2(K)) + 1
End If
If Len(CStr(t)) > 4 Then
JinWei = True
Else
JinWei = False
End If
dd1(i) = Right(CStr(t),4)
Next i
If JinWei Then
For i = n2 + 1 To n1
If JinWei Then
t = Val(dd1(i)) + 1
Else
t = Val(dd1(i))
End If
If Len(CStr(t)) > 4 Then
JinWei = True
Else
JinWei = False
End If
dd1(i) = Right(CStr(t),4)
Next i
End If
PPP = ""
For i = n1 To 1 Step -1
PPP = PPP & dd1(i)
Next i
If JinWei Then PPP = "1" & PPP
End Function
界面如下:
代码如下:
Option Explicit
Private Sub Command1_Click()
Dim ssss As String
ssss = PPP(Text1.Text,Text2.Text)
Text3.Text = ssss
End Sub
'自定义函数求两个长整数之和
Private Function PPP(ByVal s1 As String,ByVal s2 As String) As String
Dim dd1() As String
Dim n1 As Integer
Dim dd2() As String
Dim n2 As Integer
Dim s As String
Dim i As Integer
Dim d1 As Integer
Dim d2 As Integer
Dim t As Integer
Dim j As Integer
Dim JinWei As Boolean
Dim K As Integer
Dim SS1 As String
Dim SS2 As String
If Len(s1) > Len(s2) Then
SS1 = s1
SS2 = s2
Else
SS1 = s2
SS2 = s1
End If
n1 = 0
s = SS1
Do While Len(s) > 4
n1 = n1 + 1
ReDim Preserve dd1(1 To n1) As String
dd1(n1) = Right(s,4)
s = Left(s,Len(s) - 4)
Loop
n1 = n1 + 1
ReDim Preserve dd1(1 To n1) As String
dd1(n1) = s
n2 = 0
s = SS2
Do While Len(s) > 4
n2 = n2 + 1
ReDim Preserve dd2(1 To n2) As String
dd2(n2) = Right(s,4)
s = Left(s,Len(s) - 4)
Loop
n2 = n2 + 1
ReDim Preserve dd2(1 To n2) As String
dd2(n2) = s
JinWei = False
K = 0
For i = 1 To n1
K = K + 1
If K > n2 Then Exit For
If Not JinWei Then
t = Val(dd1(i)) + Val(dd2(K))
Else
t = Val(dd1(i)) + Val(dd2(K)) + 1
End If
If Len(CStr(t)) > 4 Then
JinWei = True
Else
JinWei = False
End If
dd1(i) = Right(CStr(t),4)
Next i
If JinWei Then
For i = n2 + 1 To n1
If JinWei Then
t = Val(dd1(i)) + 1
Else
t = Val(dd1(i))
End If
If Len(CStr(t)) > 4 Then
JinWei = True
Else
JinWei = False
End If
dd1(i) = Right(CStr(t),4)
Next i
End If
PPP = ""
For i = n1 To 1 Step -1
PPP = PPP & dd1(i)
Next i
If JinWei Then PPP = "1" & PPP
End Function
求vb大神帮忙做一道题.要求;只需要要程序写出来,界面的截图;
求大神来帮忙做一道英语题
求大神帮做一个vb四则运算测试的程序,是计算机大作业
请问哪位VB大神可以解决这一题?就程序完整语句,最好有程序运行截图.
用VB做一个能进行加减乘除的运算器,界面如图所示,把代码写出来给我就好了,我计算机太烂了,
帮忙做个VB的奇偶性判断的程序,
求高手帮我做个简单的VB程序
求大神帮忙做一道线性代数题?急
求各位数学大神帮忙做一道题谢谢
求大神来给一道关于“求解三角形面积和周长”程序题目的详细步骤.
如何用VB来制作一个解一元一次方程的程序,界面已有(如下图),只求代码!如:4x+1=5 x=?
跪求大神帮忙做一道同余方程组的题!