محل تبلیغات شما





برنامه انجام توان باعملگر جمع

Dim m,p  As Long

m=Val(Text1.Text)

p =Val(Text2.Text)

c = m

For i = 1 Top - 1

For x = 1 Tom

z = z + c

Next x

c = z

z = 0

Next i

Label1.Caption= Str(c(


برنامه ای که تعداد ارغامی از یک عدد چند رقمی

را که بر 2 یا 3 بخش پذیر است را نشان می دهد

Dim a   As Long

a = Val(Text1.Text)

Do

b = a Mod 10

c = b \ 2

d = b \ 3

If b Mod 2 = 0 Or b Mod 3 = 0 Then t = t + 1

a = a \ 10

Loop While a > 0

Label1.Caption = Str(t)


برنامه محاسبه توان

Dim  m, p  As  Integer

m = (Text1.Text)

p = (Text2.Text)

t = 1

If  p > 0  Then

For  i = 1  To  p

t = t * m

Next  i

Text3.Text = Str(t)

Else

If  p < 0  Then

For  i = 1  To  -p

t = t * m

Next  i

Text3.Text = Str(1 / t)

End  If

End  If


عمل ضرب با جمع

Dim  a, b  As  Integer

a = (Text1.Text)

b = (Text2.Text)

For  i = 1  To  a

c = c + b

Next  i

Text3.Text = Str(c)


برنامه ای که منفی یا مثبت بودن عدد را نشان دهد

Dim a As Integer

a = Val(Text1.Text)

If a > 0 Then

Label1.Caption = "مثبت"

Else

If a < 0 Then

Label1.Caption = "منفی"

Else

Label1.Caption = "صفر"

End If

End If


نمایش اعداد مضرب 5 تا عدد مورد نظر

Dim a As Integer

a = Val(Text1.Text)

i = 5

While i <= a

List1.AddItem Str(i)

i = i + 5

Wend


نمایش تعدادارغام غیر از صفر یک عدد

ونمایش تک تک آن ارغام

Dim a, T As Long

a = Val(Text1.Text)

T = 0

While a > 0

If a Mod 10 <> 0 Then T = T + 1

If a Mod 10 <> 0 Then List1.AddItem Str(a Mod 10)

a = a \ 10

Wend

Text1.Text = Str(T)



Android_ارسال و دریافت سرور

آموزش ویندوز فرم به زبان سیشارپC#

نمونه سوالات امتحان برنامه نویسی خانم آذری برای پایان ترم اول

a ,t ,text ,if ,b ,c ,text1 text ,label1 caption ,0 then ,t t ,if a ,then label1 caption

مشخصات

برترین جستجو ها

آخرین جستجو ها

شعر درخواستی daisocaco وبسایت رسمی فرزاد زاهدی fefunslames zobelmarkbe درهم کالا دنیای نوزاد و کودک روستای خضرلو Flora's site بدنسازی