2.单击窗体，输入10个数，求10个数中的最大值。实现方法如下：首先输入第一个数并将第一个数设为当前最大值；从第二个数开始，输入的数与当前最大值比较，如果比最大值大，则用其值替换最大值，最大值用X表示。 Private Sub Form_Click() Dim x%, y%, k% x = InputBox("输入第一个数的值") For k = 2 【1】 10 y = InputBox("输入第" & k & "个数") If y > x Then x = 【2】 End If Next Print "10个数中的最大值为"; 【3】 End Sub

公告：维护QQ群：833371870，欢迎加入！
公告：维护QQ群：833371870，欢迎加入！
公告：维护QQ群：833371870，欢迎加入！

2021-04-14

2.单击窗体，输入10个数，求10个数中的最大值。实现方法如下：首先输入第一个数并将第一个数设为当前最大值；从第二个数开始，输入的数与当前最大值比较，如果比最大值大，则用其值替换最大值，最大值用X表示。 Private Sub Form_Click() Dim x%, y%, k% x = InputBox("输入第一个数的值") For k = 2 【1】 10 y = InputBox("输入第" & k & "个数") If y > x Then x = 【2】 End If Next Print "10个数中的最大值为"; 【3】 End Sub

答案：

查看

举一反三