随机产生10个任意的二位正整数存放在一维数组中，求数组的最大值、平均值，能实现将数组按升序排列，并

Question

随机产生10个任意的二位正整数存放在一维数组中，求数组的最大值、平均值，能实现将数组按升序排列，并使用InputBox函数插入一个新数据，使数组仍然按升序排列，结果显示在图片框里 如图
用 vb编写

Answer 1

/*
* To change this template, choose Tools | Templates
* and open the template in the editor.
*/

package testGUI;
import javax.swing.*;
import java.awt.event.*;
import java.awt.GridLayout;
import java.awt.BorderLayout;
import java.util.ArrayList;
import java.util.Arrays;
public class test extends JFrame implements ActionListener{
private JButton b1,b2,b3,b4,b5;
private JTextArea text;
private JPanel pane;
private JScrollPane jsp;
private int temp;
private ArrayList list;
public test() {
list=new ArrayList();
list.add(1);
list.add(2);
list.add(3);
list.add(4);
list.add(5);
list.add(6);
list.add(7);
list.add(8);
list.add(9);
list.add(10);
this.setLayout(new BorderLayout());
this.setSize(800,600);
this.setResizable(false);
b1=new JButton("产生随机数");
b2=new JButton("求最大值");
b3=new JButton("求平均值");
b4=new JButton("升序排列");
b5=new JButton("插入新数据");
text=new JTextArea();
int i=0;
while(i<10)
text.append(list.get(i++)+"\n");
jsp=new JScrollPane(text);
pane=new JPanel();
pane.setLayout(new GridLayout(5,1));
pane.add(b1);
pane.add(b2);
pane.add(b3);
pane.add(b4);
pane.add(b5);
this.add(jsp,BorderLayout.CENTER);
this.add(pane,BorderLayout.EAST);
b1.addActionListener(this);
b2.addActionListener(this);
b3.addActionListener(this);
b4.addActionListener(this);
b5.addActionListener(this);
}
public void actionPerformed(ActionEvent e){
JButton b=(JButton)e.getSource();
if(b==b1){
text.setText("");
list.clear();
for(int i=0;i<10;i++){
list.add((int)(Math.random()*100+1));
text.append(String.valueOf(list.get(i))+"\n");
}
}
else if(b==b2){
int max=(Integer)list.get(0);
for(int i=1;i<list.size();i++){
if(max<(Integer)list.get(i)){
max=(Integer)list.get(i);
}
}
text.append("\n"+"最大值为:"+max);
}
else if(b==b3){
double var=0.0;
int sum=0;
for(int i=0;i<list.size();i++){
sum+=(Integer)list.get(i);
}
var=sum/10.0;
text.append("\n"+"平均值"+String.valueOf(var));
}
else if(b==b4){
int[] a=new int[list.size()];
Object[] o=list.toArray();
for(int i=0;i<o.length;i++){
a[i]=(Integer)o[i];
}
for(int i=0;i<a.length;i++){
for(int j=i+1;j<a.length;j++){
if(a[i]>a[j]){
temp=a[j];
a[j]=a[i];
a[i]=temp;
}
}
}
for(int i=0;i<list.size();i++){
text.append("\n"+a[i]);
}
}
else if(b==b5){
list.add((int)(Math.random()*100));
text.append(String.valueOf("\n"+list.get(list.size()-1)));
}
}
public static void main(String[] args) {
test t=new test();
t.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
t.setVisible(true);
}
}

Answer 2

Option Base 1
Option Explicit
Dim a(11) As Integer

Private Sub Command1_Click()
Dim i As Integer
picture1.Cls
picture1.Print "产生的一维数组为:"
Randomize
For i = 1 To 10
a(i) = ine(Rnd * 20 + 10)
picture1.Print a(i);
Next i
picture1.Print
End Sub

Private Sub Command2_Click()
Dim max As Integer, p As Integer, i As Integer
max = a(1)

End Sub

Private Sub Command5_Click()
Dim x%, p%, i%
x = Val(InputBox("输入要插入的数据:"))
p = 1
Do While x > a(p) And p <= 10
p = p + 1
Loop
For i = 10 To p Step -1
a(i + 1) = a(i)
Next i
a(p) = x
picture1.Print
picture1.Print "插入后的一维数组为:"
For i = 1 To 11
picture1.Print a(i);
Next i
End Sub