关闭

两位数的乘法程序设计

90人阅读 评论(0) 收藏 举报

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1643次
    • 积分:72
    • 等级:
    • 排名:千里之外
    • 原创:6篇
    • 转载:0篇
    • 译文:1篇
    • 评论:0条
    文章存档