关闭

乘法

标签: command
71人阅读 评论(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

0
0

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