1 / 16

برنامج لحساب القيمة الأكبر بين رقمين

موقع رواد فلسطين – نابلس مشروع استخدام الحاسوب في التعليم تصميم أ.فادي حجاوي امثلة على برنامج VB للصف العاشر المادة التعليمية –منقول - معالي الحاج - ختام كحيل. برنامج لحساب القيمة الأكبر بين رقمين. Private Sub Command1_Click () m1 = Val(Text1.Text) m2 = Val(Text2.Text ( If m1 > m2 Then

deliz
Download Presentation

برنامج لحساب القيمة الأكبر بين رقمين

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. موقع رواد فلسطين – نابلسمشروع استخدام الحاسوب في التعليم تصميم أ.فادي حجاويامثلة على برنامج VB للصف العاشر المادة التعليمية –منقول - معالي الحاج - ختام كحيل

  2. برنامج لحساب القيمة الأكبر بين رقمين • Private Sub Command1_Click() • m1 = Val(Text1.Text) • m2 = Val(Text2.Text( • If m1 > m2 Then • Text3.Text = m1 • Else • Text3.Text = m2 • End If • End Sub

  3. طباعة الأعداد الصحيحة (0..10) Private Sub Command1_Click() For i = 0 To 10 Step 1 Print i Next i End Sub

  4. طباعة الأعداد الصحية (0-10) ومربعاتها ومكعباتها Private Sub Command1_Click() For i = 0 To 10 Step 1 Print i, i ^ 2, i ^ 3 Next i End Sub

  5. طباعة الأعداد عكسياً.. Private Sub Command1_Click() For i = 10 To 1 Step -1 Print i, i ^ 2, i ^ 3 Next i End Sub

  6. مجموع الأعداد الصحيحة بين 1..10 Private Sub Command1_Click() Sum = 0 For i = 1 To 10 Step 1 Sum = Sum + i Print Sum Next i End Sub

  7. مجموع الأعداد الزوجية (0-20) Private Sub Command1_Click() Sum = 0 For i = 0 To 20 Step 2 Sum = Sum + i Print Sum Next i End Sub

  8. برنامج لجمع خمس ارقام عشوائية (يدخلها المستخدم) For i = 1 To 5 m = InputBox(" ادخل الرقم الذي تريد جمعه..") Sum = Sum + Val(m) Print Sum Next i End Sub

  9. برنامج يطبع العدد ونوعه (فردي أو زوجي) Private Sub Command1_Click() Sum = 0 For i = 1 To 10 Step 1 If i Mod 2 = 0 Then Print i, "* * * *", "العدد زوجي" Else Print i, "* * * *", "العدد فردي" End If Next i End Sub

  10. برنامج يطبع جدول ضرب الخمسة Private Sub Command1_Click() For i = 1 To 10 Print i, "*", 5, "=", i * 5 Next i End Sub

  11. برنامج لطباعة جدول الضرب لعدد عشوائي.. Private Sub Command1_Click() Do While m <> 2 m = InputBox(" ادخل الرقم الذي تريد ان تطبع جدول الضرب له..") For i = 1 To 10 Print i, "*", m, "=", i * Val(m) Next i Loop End Sub

  12. برنامج يطبع مجموع الاعداد الفردية والزوجية.. • Private Sub Command1_Click() • sumodd = 0 • sumeven = 0 For i = 1 To 10 If i Mod 2 = 0 Then sumeven = sumeven + i Print i Else sumodd = sumodd + i Print i End If Next i Print "مجموع الاعداد الزوجية", sumeven Print "مجموع الاعداد الفردية", sumodd End Sub

  13. برنامج يحسب معدل خمس علامات باستخدام مربع الادخال Private Sub Command1_Click() Sum = 0 For i = 1 To 5 m = InputBox("ادخل العلامة..") Sum = Sum + m Next i av = Sum / 5 Print "معدل علاماتك هو", av End Sub

  14. برنامج خصومات.. • Private Sub Command1_Click() • m = Val(Text1.Text) • Select Case m • Case Is >= 5000 • total = m - (m * 5 / 100) Print "الرصيد المطلوب منك دفعه..", total Case Is >= 8000 total = m - (m * 8 / 100) Print "الرصيد اللازم دفعه..", total Case Else Print total, "انت لاتستحق اي خصم" End Select End Sub

  15. برنامج يطبع الجذر التربيعي للعدد • Private Sub Command1_Click() m = InputBox("") Do While m >= 0 Print "جذر العدد", Val(m), "هو", Sqr(m( m = InputBox("") Loop End Sub

  16. برنامج يجمع خانات رقم ثلاثي • Private Sub Command1_Click() m = Val(Text1.Text) m1 = m \ 100 Print m1 m2 = (m Mod 100) \ 10 Print m2 m3 = m Mod 10 Print m3 mm = m1 + m2 + m3 Label1.Caption = mm End Sub

More Related