خواطر 2013 "عالم الكمبيوتر" أ/ علي محمد علي

[Mr.Ali Mohamed Ali]

طلبت من طلابي أفكاراً جديدة لبرامج بمناسبة إنتهاء الفصل الثاني ... فإذا بطالب ...اسمه حسن منصور ... يقول لي ... أنا حاولت أعمل برنامج يختبر هل العدد أولي أم لا ؟ فإذا كان أولي يخرج رسالة بذلك ... وإن كان غير أولي يرسل رسالة بذلك .... ... ..

في الحقيقة أنا عملت الفكرة دي بس باستخدام جملة تكرار موجودة بالفصل الثالث ... كما يلي :

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim I, N As Integer
N = TextBox1.Text
For I = 2 To N - 1
If N Mod I = 0 Then
("MsgBox("THE NUMBER IS NOT A PRIME NUMBER
Exit Sub
End If
Next
("MsgBox("THE NUMBER IS A PRIME NUMBER
End Sub
End Class

...... فهل فكر معي أحدكم لتخليص هذا الكود من جملة for next اللعينة حيث لم أشرحها بعد ... وبقائنا بالفصل الثاني فقط مع جملة if أو حتى select case ....