برنامه انجام توان باعملگر جمع
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)
آموزش ویندوز فرم به زبان سیشارپC#
نمونه سوالات امتحان برنامه نویسی خانم آذری برای پایان ترم اول
a ,t ,text ,if ,b ,c ,text1 text ,label1 caption ,0 then ,t t ,if a ,then label1 caption
درباره این سایت