VB中几位数的相乘的编程

原创 2012年03月28日 11:44:56

      今天上的事计算机课程,所以少不了要制作VB工程,今天的课程是制作两个几位数的相乘,过程中遇到了很多的问题,但是也是经过不懈努力,额,当然有上网问一下百度大婶啦,不过今天有一点不给力,我们都不知道怎么做,后来还是我们老师教我们做的一个大概,不过,海华丝留给我们一些个小细节,让我们去补充,让我们呢去完美它,最后还是做出来了。嘿嘿,挺好的……

 

 

Option Base 1

 

Private Sub Command1_Click()

 

 

    Dim M As String

    Dim N As String

 

    M = Trim(Text1.Text)

    N = Trim(Text2.Text)

 

    Dim Number1() As Byte

    Dim Number2() As Byte

 

    ReDim Number1(Len(M))

    ReDim Number2(Len(N))

 

    Dim index As Byte

 

    For index = 1 To Len(M) Step 1

        Number1(index) = Mid(M, index, 1)

    Next index

       

    For index = 1 To Len(N) Step 1

        Number2(index) = Mid(N, index, 1)

    Next index

     

  Dim Result() As Byte

  ReDim Result(Len(M) + Len(N))

 

  Dim MCarry As Byte

  Dim ACarry As Byte

  Dim Remainder As Integer

 

  Dim i As Integer, j As Integer

  Dim Mtemp As Integer, Atemp As Integer

 

  For i = Len(N) To 1 Step -1

    For j = Len(M) To 1 Step -1

        Mtemp = Number1(j) * Number2(i) + MCarry

        MCarry = Mtemp \ 10

        Remainder = Mtemp Mod 10

        Atemp = Remainder + Result(i + j) + ACarry

        ACarry = Atemp \ 10

        Result(i + j) = Atemp Mod 10

    Next j

    Result(i) = MCarry + ACarry

    MCarry = 0

    ACarry = 0

  Next i

 

  Dim Mstr  As String

 

  For index = 1 To Len(N) + Len(M)

    Mstr = Mstr & Str(Result(index))

  Next

 

  Label3.Caption = Mstr

 

 

 

 

 

 

 

     

 

 

End Sub

 

    

    

End Sub

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

保留小数点后几位数

1、setprecision  #include #include #include using namespace std; int main() { double n = 1.23456 ;...

JAVA算法题目:给一个不多于5位的正整数,要求:一、求它是几位数,二、逆序打印出各位数字。

题目:给一个不多于5位的正整数,要求:一、求它是几位数,二、逆序打印出各位数字。   看到网上给出的程序,个人觉得还可以再优化一下。 网上程序为: import java.util.Scanne...

Java判断数字为几位数的两种方法

java计算是几位数

关于保留小数点后几位数(C++/C)

转载自:http://www.cnblogs.com/krisdy/archive/2009/04/17/1438402.html       原作者刚刚做了一个杭电的题目,上面有个要求是输出时...

检测输入的是几位数

检测输入的是几位数,并求每一位数字的和和积。 # -*- coding: utf-8 -*- # 作者:涓涓细流 # 日期:20151125 # 环境:pycharm5-community ...

关于保留小数点后几位数(C++/C)

转载自:http://www.cnblogs.com/krisdy/archive/2009/04/17/1438402.html       刚刚做了一个杭电的题目,上面有个要求是输出时要求保...

JAVA--第2周实验--用户从键盘输入一个1~9999之间的数,程序将判断这个数是几位数,并判断这个数是否是回文数

/* (程序头部注释开始) * 程序的版权和版本声明部分 * Copyright (c) 2011, 烟台大学计算机学院学生 * All rights reserved. * 文件名称:用户...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)