[填空题]下列程序的功能是：单击窗体时将随机生成10个0～99之间的随机数，并赋值给数组A，然后利用选择法排序；并把排序后的结果输出。
Private Sub Form_Click（　）
Dim A(9) As Integer,i As Integer
Dim j As Integer,k As Integer
Randomize
For i=0 To 9
A(i)=Int(100*Rnd)
Next i
For i=0 To 8
k= 【9】
For j=i To 9
If(A(k)＞A(j))Then
【10】
End If
Next j
If k＜＞i Then
t=A(k)：A(k)=A(i)：A(i)=t
End If
Next i
For i=0 To 9
Print A(i)，
Next i
Print
End Sub

[填空题]下列程序的功能是：单击窗体时将随机生成10个0～99之间的随机数，并赋值给数组A，然后利用选择法排序；并把排序后的结果输出。 Private Sub Form_Click（　） Dim A(9) As Integer,i As Integer Dim j As Integer,k As Integer Randomize For i=0 To 9 A(i)=Int(100*Rnd) Next i For i=0 To 8 k= 【9】 For j=i To 9 If(A(k)＞A(j))Then 【10】 End If Next j If k＜＞i Then t=A(k)：A(k)=A(i)：A(i)=t End If Next i For i=0 To 9 Print A(i)， Next i Print End Sub

[填空题]下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。
Option Base 1
Private Sub Form_Click（　）
Dim a(10)As Integer,i As Integer
Dim sum As Integer,aver As Single
【12】
For i=1 To 10
a(i)=Int(100*Rnd)+1
sum=sum+a(i)
Next i
【13】
Print sum,aver
End Sub

[填空题]下列程序的功能是：单击窗体时将随机生成20个两位数依次赋值给一个由20个元素组成的数组，然后把数组反序存放，再输出。
Option Base 1
Private Sub Form_Click（　）
Dim a(20) As Integer,i As Integer
Dim t As Integer,j As Integer
Randomize
For i=1 To 20
a(i)=10+Int(90*Rnd)
Print a(i)；
Next i
Print
i=1： 【9】
Do While i＜j
t=a(i)： 【10】 ：a(i)=t
i=i+1：j=j-1
Loop
For i=1 To 20
Print a(i)；
Next i
Print
End Sub

[简答题]本题程序的功能是随机产生一个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 ! ");

[填空题]下列程序功能是，产生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

[填空题]下列程序功能是，产生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