更多"下面的程序随机产生10个小于100的整数，并找出其最大值、最小值和平均"的相关试题:
[填空题]下面的程序随机产生10个小于100的整数，并找出其最大值、最小值和平均值，请将程序补充完整。(此程序是VB语言编写)
Private Sub Form_Click( )
Dim a(1 To 10)As Integer
Dim m_max As Integer, m_min As Integer
Dim s As Single
Randomize
For i=1 To 10
a(i)=______
Print a(i)
Next i
m max=0: m min=100
For i=1 To 10
If a(i)＞m_max Then______
If a(i)＜m_min Then m min=a(i)
s=______
______
Print"最大值是:"; m_max
Print"最小值是:"; m_min
PIint"平均值是:"; ______
End Sub
[简答题]利用随机函数rand（ ）生成10个整型随机数，输出它们之中的最大值和最小值；如果把最大值和最小值之和的一半称为中间值，输出所有大于中间值的数。
[填空题]下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click（ ）
Dim an(10) As Integer
Dim max As Integer
Randomize
For i%=1 To 10
an(i%)=______
Next
max=an(1)
For i%=2 to 10
if an(i%) ＞max then
max=an(i%)
End IF
Next
Print max
End Sub
[填空题]下列程序功能是，产生10个0-100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click（ ）
Dim an(10)As Integer
Dim max As Integer
Randomize
For i%=1 To 10
an(i%)= 【10】
Next
max=an(1)
For i%=2 to 10
if an(i%)＞max then
max=an(i%)
End If
Next
Print max
End Sub
[简答题]试编写一个SHELL程序，该程序能接收用户从键盘输入的100个整数，然后求出其总和、最大值及最小值。
[简答题]本题程序的功能是随机产生一个1～10的随机数，根据提示，用户可以猜这个随机数。例如程序随机产生的随机数是7，如果输入8，则提示“Try smaller…”并继续提示输入；如果输出6，则提示“Try bigger…”并继续提示输入；如果输入7，则会输出“Great!”并退出程序。请将下述程序补充完整(注意：不得改动程序的结构，不得增行或删行)。
import java.io.*;
public class basic
public static void main(String[] args)
InputStreamReader it;
Bur feredReader in;
Ir = new InputStreamReader(System.in)
In = new BufferedReader(ir);
int ranNum = ______;
int guessNum = -1;
String str;
while (______)
System.out.print ("Please Input:");
try
______;
guessNum = Integer.parseInt(str);
catch (Exception e)
if(guessNum ＞ ranNum)
System.out.println("Try smaller...");
else
System.out.println("Try bigger...");
System.out.println ("Great ! ");
[简答题]在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.Value，如图11-14所示(程序中不能使用任何变量)。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。
[填空题]以下程序的功能是，产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。
Option Base 1
Private Sub Form_Click（ ）
Dim Arr(10)As Integer
Dim Max As Integer
Randomize
For i = 1 To 10
Arr(i)= Int(Rnd * 1000)
Next i
Max = (14)
For i = 2 To 10
If (15) Then
Max = Arr(i)
End If
Next i
Print Max
End Sub
