کمک ! کی می تونه این برنامه ها رو بنویسه

[f_n251]

سلام من در حال یادگیری وی بی 6 هستم کی میتونه سورس این برنامه ها رو برام بذاره ممنون میشم
1- نام 5 دانش آموز و نمره 3 درس او را دریافت کنید سپس نام او به همراه معدل سه درس را نمایش دهید و در پایان نام دانش آموزی که بیشترین و کمترین معدل دارد را نمایش دهید
2-برنامه ای که نام و نمره ریاضی 7 نفر را گرفته و اعلام کند رتبه دوم کیست

 

[the_king]

سلام من در حال یادگیری وی بی 6 هستم کی میتونه سورس این برنامه ها رو برام بذاره ممنون میشم
1- نام 5 دانش آموز و نمره 3 درس او را دریافت کنید سپس نام او به همراه معدل سه درس را نمایش دهید و در پایان نام دانش آموزی که بیشترین و کمترین معدل دارد را نمایش دهید
2-برنامه ای که نام و نمره ریاضی 7 نفر را گرفته و اعلام کند رتبه دوم کیست

سوالات رو یکجا ننویسید. لطفا برای هر سوال یک تاپیک جداگانه ایجاد کنید. مثلا اگه درخواست چهار مثال برنامه دارید،
چهار تاپیک جداگانه ایجاد کنید.

نام 5 دانش آموز و نمره 3 درس او را دریافت کنید سپس نام او به همراه معدل سه درس را نمایش دهید و در پایان نام دانش آموزی که بیشترین و کمترین معدل دارد را نمایش دهید.

Option Explicit

Private Sub Form_Load()
    Dim N As Long, I As Long
    Dim Names(1 To 5) As String
    Dim Average(1 To 5) As Double
    Dim Value As Double
    Dim MinN As Long, MaxN As Long
    For N = 1 To 5
        Names(N) = InputBox("Please enter Name of Student #" & CStr(N))
        Average(N) = 0
        For I = 1 To 3
            Value = Val(InputBox("Student " & Names(N) & vbNewLine & "Please enter value on course #" & CStr(I)))
            Average(N) = Average(N) + Value
        Next
        Average(N) = Average(N) / 3
        MsgBox "Student : " & Names(N) & vbNewLine & " Average = " & Format(Average(N), "0.00")
    Next
    MinN = 1
    MaxN = 1
    For N = 2 To 5
        If Average(MinN) > Average(N) Then
            MinN = N
        ElseIf Average(MaxN) < Average(N) Then
            MaxN = N
        End If
    Next
    MsgBox "Best Student : " & Names(MaxN) & vbNewLine & " Average = " & Format(Average(MaxN), "0.00") _
    & vbNewLine & "Worst Student : " & Names(MinN) & vbNewLine & " Average = " & Format(Average(MinN), "0.00")
End Sub

 

[the_king]

برنامه ای که نام و نمره ریاضی 7 نفر را گرفته و اعلام کند رتبه دوم کیست

Private Sub Form_Load()
    Dim N As Long
    Dim Names(1 To 7) As String
    Dim Score(1 To 7) As Double
    Dim TopN As Long, PrevTopN As Long
    For N = 1 To 7
        Names(N) = InputBox("Please enter Name of Student #" & CStr(N))
        Score(N) = Val(InputBox("Student " & Names(N) & vbNewLine & "Please enter score"))
    Next
    TopN = 1
    For N = 2 To 7
        If Score(TopN) > Score(N) Then TopN = N
    Next
    PrevTopN = TopN
    For N = 1 To 7
        If Score(TopN) < Score(N) Then
            PrevTopN = TopN
            TopN = N
        End If
    Next
    MsgBox "Second Student : " & Names(PrevTopN) & vbNewLine & " Score = " & Format(Score(PrevTopN), "0.00")
End Sub

 

[f_n251]

ممنون دوست عزیز