MsgBox "Wellcome to Robotics Lab"
Function opening()
opening = InputBox("Please enter a number")
MsgBox "You have selected cube number:" & opening
End Function
Function action()
action = = InputBox("Which action would you like to perform" & vbCrLf & "1: something" & vbCrLf & "2: something else" & vbCrLf & "3: another thing")
MsgBox "You have selected action number:" & action
End Function
Function wantMore()
wantMore = InputBox("Do you want more fun? 1-Yes 2-No")
if wantMore=1 Then 'everything that comes after the apostrophe is a comment
MsgBox "Starting over"
Elseif wantMore=0 Then
MsgBox "Why?!"
Else
MsgBox "Wrong input!!! Exiting"
End if
End Function
Comments
0 B
|0 👍
/0 👎
0 B
|👍
/👎