两位数的乘法程序设计

翻译 2012年03月28日 11:23:08

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

 

 

 

End Sub

相关文章推荐

两位数打字程序设计

  • 2013年03月16日 19:05
  • 26KB
  • 下载

两位数乘法的速算方法(一)

两位数乘法的速算方法一、范围讲的是两位自然数的相乘,即如何计算ABXCD的相乘结果,例如86X32。 二、ABXCD相乘的专业说法AB叫被乘数CD叫乘数三、原理设两位数分别是10A+B,10C+D,其...

5种很牛的两位数乘法速算方法

5种很牛的两位数乘法速算方法第一种:十几乘以任意两位数公式推导(10+b)(10c+d) = 100c+10(bc+d)+bd = 10(10c+bc+d)+bd= 10( (10c+d) +bc )...

链表对两位数操作

  • 2013年11月11日 08:39
  • 895KB
  • 下载

vb两位数相乘程序

一·实验目的      实现两位数相乘。实现两位数的逐一相乘,并实现加法和乘法的进位。例如:27乘以34,4乘以7等于28进2,各位保留下8,2乘以4等于8加上2等于10 ,进1。然后3乘以7等于2...

两位数加减法生成器

  • 2015年08月06日 12:20
  • 188KB
  • 下载

两位数主板诊断卡代码全解析

  • 2010年09月23日 09:42
  • 145KB
  • 下载

第三章数程序设计初步--循环结构项目3乘法口诀表

上机内容:输出乘法口诀表 上机目的:循环结构程序设计 我的程序: /* * 程序的版权和版本声明部分: * Copyright (c) 2013, 青岛农业大学理信学院 * A...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:两位数的乘法程序设计
举报原因:
原因补充:

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