Private Sub Command1_Click()x = InputBox("键入第一个数")y = InputBox("键入第二个数")z = InputBox("键入第三个数")Max = xIf Max < y Then Max = yIf Max < z Then Max = zPrint "最大值"; MaxEnd Sub