用VB编写程序计算1*9+2= 12*9+3= 123*9+4= 1234*9+5= ... 123456789*9+1

Private Sub Form_click()
For i = 1 To 9
s = s & i
Print s & "*9+" & i + 1 & "=" & Val(s) * 9 + i + 1
Next
End Sub
再问： 报错溢出
再答： Private Sub Form_click()
dim I as long,S as string
For i = 1 To 9
s = s & i
Print s & "*9+" & i + 1 & "=" & Val(s) * 9 + i + 1
Next
End Sub