سول واحد فقط وأرجو الاجابه عليه في الفيجول بيسك 6

السلام عليكم

كيف حالكم إن شاء الله تكون بخير

أنا أدرس في البرمجه في high school في كندا

والان أدرس في لغت الفيجول بيسك 6

وأخدنه الكتيير الحمدالله الان وصلنه loop

الاشياء الي أخدناها هيا

 1. Variables: Strings, numbers.Input Boxes 2. Fancier Controls: scroll bars , 3. Control flow structures: if and 4 Control flow structures: loop

الان في لووب أكيد كلكم تعرفو معناها

والاشياء الي أخدناها هيا

example

 Do or For

ومزال الكتيييييييييييير الي راح ناخدو في الجافا

المهم عندي واجب أنا في لووب

المهم الكل عرفت كيف أحله معاده هده السول ماعرفت هو في الاول قلت سهل بس ما عرفت كيف

هده هو الواجب

Create a program that allows the user to input a bunch of numbers. After each number inputted, the program must ask the user if he/she would want to continue inputting numbers. Once the user replies that he/she no longer wants to input numbers, the program will display both the total and the average of all the numbers inputted. Use the input "Input Box" for this program.

هده هو السول الي أبي فيه مساعده المهم أنا حاولت فيه وهده هو الي عملته

 'Mansour91b'
Dim dNum As Double
Dim dAverage As Double
Dim dTotal As Double
Dim sQuestion As String
Private Sub btnConvert_Click()
        dNum = InputBox(" please enter bunch of numbers ")
    Do

    sQuestion = InputBox(" do you wanna continue inputting numbers ")

                If sQuestion = "yes" Then

                dNum = InputBox(" please enter bunch of numbers ")


                ElseIf sQuestion = "no" Then

                dTotal = dNum + dNum

                dAverage = dNum / dNum * 100

                MsgBox ("The total is " + dTotal + " the average is " + dAverage)

                Else

                sDO = "exit"

    Loop Until sQuestion = "exit"

                End If
End Sub

هده الي عملته أنا بس مزال في أشياء تانيه لزم أكيد أعملها وفي أشياء أكيد تبي تصليح

المهم تقريبا لزم أعمل حته for

عشان أعرف كم مره المستخدم عملها عشان نطلع المجموع

المهم أرجوووكم حد يساعدني في هده السول

تحياتي

mansour91b