Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub btClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClose.Click
- Me.Close()
- End Sub
- Private Sub btCalcFat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCalcFat.Click
- Dim fats(100) As Integer
- Dim avgfats As Integer
- Dim numberoffats As Integer
- Dim totalfats As Integer
- If Not IsNumeric(tbEntery.Text) Then
- MsgBox("enter how fat you think that guy is")
- For Each fat As Integer In fats
- Next
- End If
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement