两位数的乘法程序设计

翻译 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

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

两位数乘法的速算方法(二)一、被乘数首尾相同1. 乘数首尾互补公式推导:(10 a+a)(10b+10-b) = 100ab + 10(a x (10-b) + ab) + a(10-b)= 100a...
  • littletigerat
  • littletigerat
  • 2013年12月18日 23:34
  • 3400

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

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

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

两位数乘法的速算方法(三)一、速算方法总结序号类别子类别例如应用举例1首位相同尾数互补71X79|(7+1)x7||1x9|=56092尾数不互补72X73(72+3)x70+2x3=52563尾数和...
  • littletigerat
  • littletigerat
  • 2013年12月19日 21:24
  • 5372

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

5种很牛的两位数乘法速算方法第一种:十几乘以任意两位数公式推导(10+b)(10c+d) = 100c+10(bc+d)+bd = 10(10c+bc+d)+bd= 10( (10c+d) +bc )...
  • littletigerat
  • littletigerat
  • 2013年12月20日 20:41
  • 8755

10秒钟脱口而出十位数相同两位数的乘法

10秒钟脱口而出十位数相同两位数的乘法一、范围十位数相同的两位数。二、目标计算两位数的相乘。10秒钟脱口而出。三、基本公式以尾数之和展开讨论:假设两个数分别是10a+b以及10a+c,那么尾数之和就是...
  • littletigerat
  • littletigerat
  • 2013年12月21日 17:43
  • 6021

两位数乘法拆分

Private Sub Command1_Click() Dim numberlengh As Integer    Dim Firstnumbers() As Integer    Dim...
  • lijinying1015
  • lijinying1015
  • 2012年05月25日 08:10
  • 128

两位数乘法

Option Base 1 Private Sub Command1_Click()      Dim M As String     Dim N As String       M = ...
  • liuxiaowu615
  • liuxiaowu615
  • 2012年05月18日 08:28
  • 89

两位数的乘法拆分

Private Sub Command1_Click() Dim numberlengh As Integer    Dim Firstnumbers() As Integer    Dim S...
  • chuaqngdan
  • chuaqngdan
  • 2012年05月30日 19:45
  • 1481

两位数的乘法

Option Base 1 Private Sub Command1_Click()     Dim M As String     Dim N As String       M =...
  • Bulesky993
  • Bulesky993
  • 2012年03月28日 11:30
  • 148

vb两位数的乘法

vb两位数的乘法      今天我们再次领略到了vb的神奇,我们这次和上次做的vb标题一样,但是内容却大相径庭。   Option Base 1   Private Sub Command1...
  • gaibian0823
  • gaibian0823
  • 2012年03月28日 11:41
  • 784
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:两位数的乘法程序设计
举报原因:
原因补充:

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