Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.41K
|
Dim FrenchMark As Integer = 0 Dim GermanMark As Integer = 0 Dim SpanishMark As Integer = 0 Dim PercentageMark As Integer Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click EnterMarks() End Sub Private Sub EnterMarks() Try FrenchMark = InputBox("Please enter a whole number between 1 … 
|