مرجع حل مشکلات پیرامون برنامه نویسی ویژوال بیسیک

[ravegoat]

میدونم سوالم مسخره هس ولی چکار کنم بد گیر کردم؟؟؟

دوست عزیز، جوابتون در پست 101 داده شد. با این حال بنده بازم متن سورس ها رو قرار میدم:

Dim counter As Integer
counter = 0
Dim sum As Double
sum = 0

If Text1.Text <> vbNullString Then
 counter = counter + 1
 sum = sum + Val(Text1.Text)
End If

If Text2.Text <> vbNullString Then
 counter = counter + 1
 sum = sum + Val(Text2.Text)
End If

If Text3.Text <> vbNullString Then
 counter = counter + 1
 sum = sum + Val(Text3.Text)
End If

If Text4.Text <> vbNullString Then
 counter = counter + 1
 sum = sum + Val(Text4.Text)
End If

If Text5.Text <> vbNullString Then
 counter = counter + 1
 sum = sum + Val(Text5.Text)
End If

If counter > 0 Then
 Dim midVal As Double
 midVal = sum / counter
 MsgBox midVal
End If

و اینم دومی:

Dim counter As Integer
counter = 0
Dim midVal As Double
midVal = 0

For Each ctr In Me.Controls
    If TypeOf ctr Is TextBox Then
        If ctr.Text <> vbNullString Then
            counter = counter + 1
            midVal = midVal + Val(ctr.Text)
        End If
    End If
Next ctr

midVal = midVal / counter
MsgBox midVal