从键盘上输入10个数,求出其中的最大值与最小值。
举一反三
- 从键盘上输入10个数，求其中的最大值及最小值并输出。
- 从键盘上输入 10 个整数, 求其中的最大值和最小值。
- 定义一个二维数组 a[4][5],要求从键盘上输入元素值，并求出其中的最大值和最小值，并输出。
- 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
- 从键盘任意输入n个实数，用while循环语句求最大值、最小值与平均值