vb俩数相乘

最新推荐文章于 2023-09-12 06:52:55 发布

love_xi

最新推荐文章于 2023-09-12 06:52:55 发布

阅读量951

点赞数

文章标签： vb command

Private Sub Command1_Click()
Dim nb(2) As Integer
Dim pr(2) As Integer

For Index = 1 To 2
nb(Index - 1) = Mid(Text1.Text, Index, 1)
Next
For Index = 1 To 2
pr(Index - 1) = Mid(Text2.Text, Index, 1)
Next
Print pr(1) * (10 * nb(0) + nb(1)) + 10 * pr(0) * (10 * nb(0) + nb(1))

End Sub