امروز دوشنبه 01 بهمن 1397
supercomputers.cloob24.com
0

برنامه ای بنویسید که اعداد زوج تا 200 را نمایش بدهد

به یک Command و یک Text box نیاز داریم


Private Sub Command1_Click()

Dim a As Integer
For i = 1 To 100
a = a + 2
Text1.Text = Text1.Text + Str(a)
Next i

End Sub

در این برنامه حلقه 100 بار اجرا می شود چون تعداد اعداد زوج تا 200 صدتاست متغیر هم برای پرش با 2 جمع میشود


تبلیغات متنی
فروشگاه ساز رایگان فایل - سیستم همکاری در فروش فایل
بدون هیچ گونه سرمایه ای از اینترنت کسب درآمد کنید.
بهترین فرصت برای مدیران وبلاگ و وب سایتها برای کسب درآمد از اینترنت
WwW.PnuBlog.Com
ارسال نظر