02-12-17, 09:13 PM
(02-12-17, 06:39 PM)eiocm كتب : مع عدم استخدام الحل عن طريق for
تمرين الاول :- اكتب برنامج بلغة فيجوال لايجاد مجموع القيم المتسلسلة التالية:- N .......5+3+1=s
Private Sub Command1_Click()
Dim N As Integer, i As Integer, s As Integer
N = 5
s = 1
i = 1
10:
i = i + 2
s = s + i
If i < N Then GoTo 10
MsgBox s
End Sub
تمرين الثاني :- اكتب برنامج بلغة فيجوال بيسك لايجاد قيمة Y من معادلة التالي !Y=N
Private Sub Command2_Click()
Dim Y As Integer, N As Integer
N = 5
Y = 1
10:
Y = Y * N
N = N - 1
If N > 1 Then GoTo 10
MsgBox Y
End Sub
تمرين الثالث :- اكتب برنامج بلغة فيجوال بيسك لايجدا مجموع مساحات ( المستطيل . المربع . الدائرة ) اذا كانت اقل من 10
Private Sub Command3_Click()
Dim a As Integer, b As Integer
Dim d As Double
a = 2
b = 4
d = a * b
MsgBox "مساحة المستطيل " & a & "×" & b & "=" & d
a = 3
d = a * a
MsgBox "مساحة المربع " & a & "×" & a & "=" & d
Dim r As Integer
r = 3
d = 3.14 * ((r / 2) ^ 2)
MsgBox "مساحة الدائرة " & a & "×" & a & "=" & d
End Sub
تمرين الرابع :- اكتب برنامج بلغة فيجوال بيسك لادخال (5) قيم حقيقة ثم اوجد حاصل ضرب الاعداد الاقل من (1.5)
تركته لك أرجو أن تقوم بحله ووضع الإجابة هنا (.....................)
تمرين الخامس :- اكتب برنامج بلغة فيجوال بيسك لايجاد قيمة المعادلة التالية y=N+8+4 .......2
Private Sub Command5_Click()
Dim N As Integer, i As Integer, r As Integer
N = 6
r = 0
i = 0
10:
i = i + 2
r = r + i
If i < N Then GoTo 10
MsgBox r
End Sub
تمرين السادس :- اكتب برنامج بلفة فيجوال بيسك لايجاد اكبر عدد من بين 3 اعداد
Private Sub Command6_Click()
Dim a As Integer, b As Integer, c As Integer
a = 21
b = 35
c = 45
Dim m As Integer
m = a
If b > m Then m = b
If c > m Then m = c
MsgBox m
End Sub
تمرين السابع :- اكتب برنامج بلغة فيجوال بيسك لطباعة جدول الضرب للعد 6
Private Sub Command7_Click()
Dim a As Integer
a = 0
10:
a = a + 1
MsgBox a & "×" & 6 & " = " & (a * 6)
If a < 10 Then GoTo 10
End Sub
شكرا ربي يحفظك
