pro1 somma e prodotto numeri interi(esempio)

somma di due numeri interi con diversi linguaggi

VISUAL BASIC istruzioni assegnate al pulsante ATTIVA(+ 3 etichette)

creare PULSANTE e inserirvi le istruzioni,creare 3 etichette(label)

Option Explicit

Private Sub CommandButton1_Click()
'somma due numeri assegnati
Dim a, b, somma As Integer
a = 10
b = 20
Label5.Caption = a
Label6.Caption = b
somma = a + b

Label7.Caption = somma

End Sub

cliccare su PULSANTE per ottenere visualizzazione dati

moltiplica due numeri interi inseriti con READ

VISUAL BASIC istruzioni associate al PULSANTE ATTIVA(+ 2 Textbox e 1 label)

creare un PULSANTE,2 caselle Textbox e 1 casella Label:inserire numeri in Textbox

Option Explicit

Private Sub CommandButton1_Click()
'prodotto due interi da inserire
Dim a, b, prodotto As Integer
a = TextBox1
b = TextBox2
prodotto = a * b
Label4.Caption = prodotto

End Sub

inizio