赞题库-背景图
问答题

【说明】
java.util库中提供了Vector模板类,可作为动态数组使用,并可容纳任意数据类型。该类的部分方法说明如下表所示:
方法名含 义
add(k)向vector对象的尾部添加一个元素k
removeElementAt(i)删除序号为i的元素(vector元素序号从0开始)
isEmpty()判断vector对象是否含有元素
size()返回vector对象中所包含的元素个数
【Java代码】
import (1) ;
public class JavaMain {
static private final int (2) = 6;
public static void main(String[] args){
Vector<Integer> theVector = new Vector< (3) >();
// 初始化 theVector, 将theVector的元素设置为0至5
for (int cEachItem = 0; cEachItem < ARRAY_SIZE; cEachItem++)
theVector.add( (4) );
showVector(theVector); // 依次输出theVector中的元素
theVector.removeElementAt(3);
showVector(theVector);
}
public static void showVector(Vector<Integer> theVector
if (theVector.isEmpty()) {
System.out.println("theVectcr is empty.");
return;
}
for (int loop = 0; loop < theVector.size(); loop++)
System.out.print(theVector.get(loop));
System.out.print(", ");
}
System.out.println();
}
}
该程序运行后的输出结果为:
0,1,2,3,4,5
(5)

【参考答案】

(1) java.util.Vector,或java.util.* (2) ARRAY_SIZE (3) Intege......

(↓↓↓ 点击‘点击查看答案’看完整答案、解析 ↓↓↓)
热门试题

问答题【应用说明】 本应用运行时,由用户输入一个正整数n后自动产生n个正整数,然后按照用户的指定要求对该组数进行处理。该应用的运行界面如下图所示: 1.窗体中有两个文本框。(txtSrc,txtObj)、两个标签(lblSrc,lblObj)、三个命令按钮(cmdGendat,cmdProc,cmdQuit)和一个弹出式菜单(procMenu,初始时不可见)。 2.文本框txtSrc(由标签lblSrc提示)用于显示产生的数据,文本框txtObj(由标签lblObj提示)用于显示处理结果,要求每行显示一个整数。 3.程序启动时,命令按钮cmdProc(运算要求)不可用。单击命令按钮cmdGendat(产生数据)后,提示用户输入一个n的值并生成n个正整数存入数组元素a(1)~a(n),然后将数据逐行显示在txtSrc中,并设置命令按钮cmdProc可用。 4.单击命令按钮cmdProc(运算要求)后弹出菜单。选择菜单项并单击后,进行相应处理并将结果显示在txtObj中,同时将lblObj的标题改为该菜单项表示的处理命令。 弹出式菜单“运算要求”的结构如下表所示: 一个整数序列的中位数是指对该序列进行非递减(增)排列后最中间位置上的元素。若序列长度为偶数,则取中间两个元素的平均值为其中位数。 【属性设置】 为实现单击命令按钮cmdProc后弹出“运算要求”菜单(procMenu),设计时需将 procMenu的 (1) 属性设置成false。 供(1)选择的属性:Default Enabled ScaleMode Style Visible 【Visual Basic程序代码】 Dim a() AS Integer, n As Integer Private Sub Form_Load() txtSrc.Text = : txtObj.Text = : (2) = False End Sub Private Sub cmdGendat_Click () ’生成正整数序列并存入数组a On Error GoTo Error handler n = InputBox$ ( 请输入数组元素个数: , 输入序列长度 ) If (n < 1) Then MsgBox 输入数据错误! , vbOKOnly, 提示: GoTo Error handler: End If ReDim a(n) As Integer s = For i = 1 To n ’将生成的正整数存入a(1)~a(n)中 a(i) = Int(Rnd * 10000) : s = s & Str$(a(i)) & vbCrLf Next txtSrc.Text = s (3) ’设置运算要求命令按钮可用 Error handler: End Sub Private Sub cmdProc_Click() PopupMenu procMenu End Sub Private Sub MidNum_Click() ’求中位数 lblObj.Caption = MidNum.Caption & : For i = 1 To round((n + 1) 2> ’用选择排序法对数组a进行部分排序 a(0) = a(i):k = i ’a(0)用作临时变量,暂存第i次选出的最小元素 For j = i + 1 To n If a(j) < a(0) Then a(0) = a(j): k = (4) End If Next If k <> i Then a(k) = a(i): a(i) = a(0) End If Next If n 2 - n 2 > 0 Then ’n为奇数时,取中间一个数 txtObj.Text - Str$(a( (5) ) Else ’n为偶数时,取中间两个数的平均值 txtobj.Text = Str$(Int((a(n 2) + a(n 2 + 1)) 2)) End If End Sub ’其他代码略