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
Posting Komentar