pro19

selezione con SELECT K CASE visualbasic

VISUAL BASIC creare PULSANTE e inserire istruzioni

Private Sub CommandButton_click()
Dim a, b, c, d, k As Integer
label1.caption=10
label2.caption=20
label3.caption=30
label4.caption=40
a=label1.caption
b=label2.caption
c=label3.caption
d=label4.caption
k = 1
Select Case k
Case 1
 label5.caption = a * b
 label6.caption= a * a * a
Case 2,3,4
 label7.caption = a + b
Case 5
 label8.caption = a - b
End Select

End Sub

inizio