uso di Select case k

Rem uso di Select case k con k prefissato e con k da inserire

vedi formato9.xls

Private Sub CommandButton1_Click()
Rem formato9
Rem uso di Select case k
a = 10
b = 20
For k = 1 To 8
Select Case k
Case 1
Cells(1, 1) = "scelta 1"
Cells(1, 2) = a ^ 3
Case 2
Cells(2, 1) = "scelta 2"
Cells(2, 2) = a * b
Case 3, 4, 5
Cells(3, 1) = "scelta 3,4,5"
Cells(3, 2) = a ^ 2
Case 6 To 8
Cells(4, 1) = "scelta 6 to 8"
Cells(4, 2) = b / a
End Select
Next k
End Sub

Private Sub CommandButton2_Click()
Rem uso di Select case k
a = 10
b = 20
k = TextBox1
Select Case k
Case 1
Cells(1, 8) = "scelta 1"
Cells(1, 9) = a ^ 3
Case 2
Cells(2, 8) = "scelta 2"
Cells(2, 9) = a * b
Case 3, 4, 5
Cells(3, 8) = "scelta 3,4,5"
Cells(3, 9) = a ^ 2
Case 6 To 8
Cells(4, 8) = "scelta 6 to 8"
Cells(4, 9) = b / a
End Select
End Sub

Private Sub CommandButton3_Click()
Rem cancella
Cells(1, 1) = ""
Cells(1, 2) = ""
Cells(2, 1) = ""
Cells(2, 2) = ""
Cells(3, 1) = ""
Cells(3, 2) = ""
Cells(4, 1) = ""
Cells(4, 2) = ""
TextBox1 = ""
Cells(1, 8) = ""
Cells(1, 9) = ""
Cells(2, 8) = ""
Cells(2, 9) = ""
Cells(3, 8) = ""
Cells(3, 9) = ""
Cells(4, 8) = ""
Cells(4, 9) = ""
End Sub

indice