Exp در ماشین حساب

[mahdi.manian]

با سلام.

من قصد دارم در ماشین حسابم، دکمه Exp را اضافه کنم.

همه چیز درست کار می کنه فقط یک مشکل کوچیک هست. اینکه با استفاده از دستور Print "0"; که در یک حلقه for هست به مقداری که در text1.text مقدار وارد شده 0 چاپ می کنه مثلا اگه عدد 3 وارد شده باشه، 000 را چاپ می کنه با این دستور ولی من می خواهم 000 توی یک متغیر ریخته بشه. اگه دستور را اینطوری تغییر دهیم: a = "0" چون توی حلقه هست کار نمی کنه.

چکار کنم؟

کد ها این شکلی هست:

For i = 1 To Text1.Text
Print "0";
Next i


چکار کنم تا به تعداد دفعات تکرار حلقه، 0 در یک متغیر ریخته بشه؟ مثلا اگه متغیر 4 بار اجرا شد مقدار 0000 در متغیر a ریخته بشه؟


با تشکر.

[meys34]

Dim a As String, i As Integer
a = ""
For i = 1 To Text1.Text
a = a & "0"
Next i
Print a

کاراکتر کلیدی ; در ویژوال بیسیک استفاده نمیشه... مختص java , .NET و ...

[SlowCode]

کاراکتر کلیدی ; در ویژوال بیسیک استفاده نمیشه... مختص java , .NET و ...
علامت سمی کولن بعد از تابع print باعث میشه که اطلاعات به صورت افقی چاپ بشن، در حالت عادی به صورت عمودی چاپ میشه.
دستور ایشون از لحاظ سینتکس درسته.

[mahdi.manian]

ممنون. درست شد.