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

VB+DX游戏编程教程 第一话:初识DX

今天为大家要讲的是VB与DirectX相结合的游戏编程,说是教程也过于夸张了,也算是本人在学习过程中的一些学校笔记和心得吧。首先得知道我们游戏的画面都是一帧一帧的渲染出来的。而每一个画面都是由三角形(...
  • uoyo_blog
  • uoyo_blog
  • 2015年09月01日 23:18
  • 604

VB Socket编程 框架

VB Socket编程(Winsock控件创建TCP/IP客户机/服务器程序) 好东西,所以收藏      Winsock控件建立在TCP、UDP协议的基础上,完成与远程计算机的通信。即使...
  • snlei
  • snlei
  • 2013年09月03日 13:50
  • 7602

两个大数相乘JAVA版

翻出了之前在庞果网编程英雄会上用JAVA实现的一个两个大数相乘的程序,和大家分享一下: public class MyMultiply { /** * @param args */ p...
  • wangqiuyun
  • wangqiuyun
  • 2013年02月17日 20:38
  • 12972

VB 用CommonDialog选择打开多个文件实例

在Visual Basic中,通常用CommonDialog公共对话框来选择磁盘上的文件,在其Flags属性中加上cdlOFNAllowMultiselect风格后,就允许选择多个文件。当只选择一个文...
  • kartik
  • kartik
  • 2013年03月12日 11:50
  • 1494

两个大数相乘JAVA版

import java.util.Scanner;public class BigNumMul {public static void main(String[] args) { Scanne...
  • xiaoyiaoyou
  • xiaoyiaoyou
  • 2016年03月26日 19:42
  • 628

C++中两个大整数相乘

输入为用字符串表示的两个大的整数,输出为用字符串表示的相乘结果。 #include #include #include #include using namespace std; #def...
  • sjhuangx
  • sjhuangx
  • 2016年05月17日 15:16
  • 613

两个大数相乘-Java

两个字符串表示两个非常大的数,请设计算法计算这两个大数的乘积,结果用字符串表示。例如S1=”7832974972840919321747983209327”,S2=”19874320919043275...
  • tianyuxingxuan
  • tianyuxingxuan
  • 2017年08月02日 11:35
  • 671

两个大数相乘、精度很高的小数相乘(小数点后位数没有限制,请写一个高精度算法)

【转】http://www.cppblog.com/dotaqop/articles/148190.html 算法提示:           输入 string a, string b; 计算st...
  • tanqiuwei
  • tanqiuwei
  • 2013年11月05日 18:50
  • 2783

如何用VB编写自己的DLL文件,并调用其中的函数

如何用VB编写自己的DLL文件,并调用其中的函数?
  • sillyboy1104
  • sillyboy1104
  • 2015年03月09日 22:54
  • 2582

怎样用VB编写.DLL动态链接库文件

VB中创建的DLL只是COM组件,无法作为输出函数的DLL,其实这只是个错误的说法。其实MS非常狡猾,如果你是个VB疯狂发烧友的话,应该早就狂试出这种可以创建输出函数的DLL的方法。    VB...
  • JDDXM
  • JDDXM
  • 2015年12月08日 16:02
  • 1340
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB中几位数的相乘的编程
举报原因:
原因补充:

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