Keskustelu: Koodit: VB6: Kertolasku laskin

Public Class Form1




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kertoja As Integer
        Dim Kerrottava As Integer
        Dim Summa As Integer
        Dim Summa5 As Integer
        kertoja = InputBox("Aseta kertoja/jakaja")
        Kerrottava = InputBox("Aseta kerrottava/jaettava")
        Summa = kertoja * Kerrottava
        Summa5 = kertoja / Kerrottava
        Label2.Text = Summa
        Label5.Text = Summa5
    End Sub


End Class