输入x,计算y的值。 Private Sub Form_Click() x = Val(InputBox("X=")) If x > = 0 Then y = 1 +3 * x Else y = Sin(2 * x -3)/5 End If Print yEnd Sub
输入任意一个三位数,判断是否是“水仙花数”,即三位数的立方和等于自身,如13+53+33=153,如果用户输入的不是一个三位数,给出错误提示。界面自定。Private Sub form_Click()n = Val(Text1.Text)If n999 Then Msgbox“输入的不是三位数,请重新输入!” Exit subElse a=n\100 b=(n mod 100)\10 ‘或