PROGRAM MENCARI NILAI TERBESAR

Nama : SRIWAHYUNI
NIM : 19010020


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim angkaTerbesar As Single

        If (CSng(TextBox1.Text) > CSng(TextBox2.Text)) Then
            angkaTerbesar = CSng(TextBox1.Text)
        Else
            angkaTerbesar = CSng(TextBox2.Text)
        End If

        TextBox3.Text = "Angka terbesar adalah: " & angkaTerbesar
    End Sub
End Class


Komentar