y = 1 / x Try Debug.Print(CInt(y)) MessageBox.Show(y) Catch ex As Exception MessageBox.Show(ex.Message) End Try
Dim x As Integer Dim y As Double Dim result As New List(Of Double) For x = 0 To 10 Try y = CInt(1 / x) result.Add(y) Catch ex As Exception MessageBox.Show(ex.Message) End Try Next
If y.ToString <> "1.#INF" Then result.Add(y) End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question