درخواست چند خط کد به cpp

[132547698]

هرکاري کردم نتونستم اين کدهاي 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]