aliben10
پنج شنبه 01 مرداد 1394, 15:48 عصر
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdRun_Click()
Dim a As Integer
a = InputBox("yek adade 2 raghami vared konid")
Dim b As Integer
b = (a \ 10)
Dim b1 As Integer
b1 = (a Mod 10)
Print Spc(14); b + b1
End Sub
فقط دو رقمی حساب می کنه من میخوام تا بی نهایت رقم رو جمع کنه ینی رقم های عدد 123 رو باهم جمع کنه که مساویه با شش
End
End Sub
Private Sub cmdRun_Click()
Dim a As Integer
a = InputBox("yek adade 2 raghami vared konid")
Dim b As Integer
b = (a \ 10)
Dim b1 As Integer
b1 = (a Mod 10)
Print Spc(14); b + b1
End Sub
فقط دو رقمی حساب می کنه من میخوام تا بی نهایت رقم رو جمع کنه ینی رقم های عدد 123 رو باهم جمع کنه که مساویه با شش