ايران ويج

هرکاري کردم نتونستم اين کدهاي vb رو به cpp بنويسم و اجرا کنم
لطفا برام به cpp تبديل کنيد (cpp,vcpp,...)و کامپايل کنيدو
طريقه کامپالشو يه کوچولو توضيح بدين
فايل کامپايل شده رو لازم دارم

کد: 
Private Sub Command1_Click()

Dim x, y, p, i As Long

Dim t As Single

x = 1

y = 0

p = Val(Text1.Text)

t = Timer

For i = 1 To p

y = y + x

Next

t = Timer - t

Print t

End Sub

[/php][/quote]

132547698