Werken met getallen: code

Private Sub cmdOK_Click()
Dim buffer As String
Dim getal As Double
Dim bericht As String
Do
buffer = InputBox("Geef een getal")
Loop Until IsNumeric(buffer)
getal = CDbl(buffer)
bericht = "Het getal is " & getal & vbCrLf
If Not getal < 0 Then bericht = bericht & "De vierkantswortel is " & Sqr(getal) & vbCrLf
bericht = bericht & "Het geheel gedeelte is " & Int(getal) & vbCrLf
bericht = bericht & "Een toevalsgetal: " & Rnd
MsgBox bericht
End Sub

Private Sub cmdRand_Click()
lblRnd.Caption = ""
Dim teller As Integer
For teller = 1 To 10
lblRnd.Caption = lblRnd.Caption & Rnd & vbCrLf
Next teller
End Sub

[VB Web] - [hlrnet] - [copyright]