热心网友

对于这样的问题建议不要回答,可能是学校老师布置的题目,自己不动脑子是不行的

热心网友

代码如下:Option ExplicitDim a As SingleDim b As SingleDim c As SinglePrivate Sub Command1_Click() If a b And a c Then Print "a "; a ElseIf b a And b c Then Print "b "; b ElseIf c a And c b Then Print "c "; c End IfEnd SubPrivate Sub Form_Load()a = 216.8: b = 556.52: c = 34.9End Sub