代码是这样的:
Private Sub Command1_Click()
Dim n As Integer, rd As Integer
n = Val(Text1.Text)
Do While n <> 0
rd = n Mod 10
Text1.Text = Text2.Text & rd
n = n \ 10
Loop
End Sub
可以运行,但是我输入超过5位数一运行就出现:“运行时错误'6':益出”。
Private Sub Command1_Click()
Dim n As Integer, rd As Integer
n = Val(Text1.Text)
Do While n <> 0
rd = n Mod 10
Text1.Text = Text2.Text & rd
n = n \ 10
Loop
End Sub
可以运行,但是我输入超过5位数一运行就出现:“运行时错误'6':益出”。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货