乘法

原创 2012年03月28日 11:42:03

 

Private Sub Command1_Click()

Dim numberlengh As Integer

   Dim Firstnumbers() As Integer

   Dim Secondnumbers() As Integer

 

   numberlengh = Len(Text1.Text)

 

   ReDim Firstnumbers(numberlengh)

 

   For Index = 1 To numberlengh

        Firstnumbers(Index - 1) = Mid(Text1.Text, Index, 1)

   Next

 

 

   Print Val(Text1.Text) * Val(Text2.Text)

 

 

   For Index = 0 To numberlengh - 1

       Print Firstnumbers(Index)

   Next

 

   numberlengh = Len(Text2.Text)

 

   ReDim Secondnumbers(numberlengh)

 

   For Index = 1 To numberlengh

       Secondnumbers(Index - 1) = Mid(Text2.Text, Index, 1)

   Next

 

   For Index = 0 To numberlengh - 1

       Print Secondnumbers(Index)

   Next

相关文章推荐

最小二乘法计算器

  • 2017年10月28日 21:47
  • 466KB
  • 下载

【线性代数公开课MIT Linear Algebra】 第十六课 Ax=b的解、最小二乘法与矩阵

本系列笔记为方便日后自己查阅而写,更多的是个人见解,也算一种学习的复习与总结,望善始善终吧~ 基本子空间与投影矩阵 上一节课我们已经了解了投影矩阵 projection matrix, P=...
  • a352611
  • a352611
  • 2015年11月04日 22:14
  • 602

基于c语言实现的矩阵乘法

  • 2016年03月30日 10:21
  • 2.43MB
  • 下载

最小二乘法部分算法代码

  • 2015年06月15日 23:03
  • 10KB
  • 下载

大数加法 减法 乘法 除法 高精度四则运算

1. 加法 输入采用字符数组保存,然后将输入存在整形数组里,然后逐位相加即可,同时注意进位处理。 [cpp] view plaincopy #include    #inc...

最小二乘法

  • 2015年04月12日 15:42
  • 215B
  • 下载

大整数乘法

  • 2015年07月15日 17:03
  • 4KB
  • 下载

基于hadoop的矩阵乘法(学习笔记)

1.准备数据 下面时两个简单的矩阵:  , 不难看出相乘结果为: 2.在HDFS上的存储方式         因为大矩阵一般为稀疏矩阵,因此,我们可以采用稀疏矩阵的存储方式,只存储那些非零的数值...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:乘法
举报原因:
原因补充:

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