Scribd
Upload
51 views1 page

Public Class Private Sub Byval As Byval As Handles Mybase: Form1 Object Eventargs

This document contains the code for a Windows form application that calculates statistics for a set of numbers. The form contains labels and text boxes to display input, output, and statistics. It checks for empty input and calculates the sum, average, maximum, and minimum of numbers from 1 to the input value. The numbers and results are displayed in list and text boxes.

Uploaded by

Prayudha Nata Permana
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
51 views1 page

Public Class Private Sub Byval As Byval As Handles Mybase: Form1 Object Eventargs

This document contains the code for a Windows form application that calculates statistics for a set of numbers. The form contains labels and text boxes to display input, output, and statistics. It checks for empty input and calculates the sum, average, maximum, and minimum of numbers from 1 to the input value. The numbers and results are displayed in list and text boxes.

Uploaded by

Prayudha Nata Permana
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Public Class Form1

Private Sub Form1_Load(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
[Link] = "Jumlah Bilangan"
[Link] = "Proses"
[Link] = "Daftar Bilangan"
[Link] = "Jumlah"
[Link] = "Rata-rata"
[Link] = "Terbesar"
[Link] = "Terkecil"
End Sub

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
If [Link] = "" Then
[Link]("Tidak boleh kosong", "Peringatan", [Link],
[Link])
End If

Dim rerata As Integer


Dim sum As Integer
Dim i As Integer
Dim x As Integer

[Link]()
x = Val([Link])
sum = 0
For i = 1 To x
[Link](i)
sum = sum + i
Next

rerata = sum / x

[Link] = x
[Link] = 1
[Link] = sum
[Link] = rerata

End Sub
End Class

You might also like