Contoh Program Mencari Rata - Rata Visual Basic NET
A.Tampilan awal Program B. Tampilan Pada Saat diklik Proses C. Kode Programnya Public Class Form1 Private Function fstat( ByVal ParamArray args() As Object ) As Single () Dim hasil(3) As Single Dim i As Integer For i = 0 To UBound(args) hasil(0) = hasil(0) + args(i) If i = 0 Then hasil(1) = args(i) hasil(2) = args(i) hasil(3) = args(i) End If If hasil(1) < args(i) Then hasil(1) = args(i) If hasil(2) > args(i) Then hasil(2) = args(i) hasil(3) = hasil(0) / 10 Next i Return hasil End Function Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button1.Click Dim statistik As Single () = fstat(1, 6, 2, 10, 4, 7, 9, 8, 5, 3) TextBox1.Text = stati