搜题
题目
[填空题]在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：OptionBase1PrivateSubCommand1Click()Dima(10)AsIntegerFori=1To10a(i)=iNextCallswap(______)Fori=1To10Printa(i)；NextEndSubSubswap(b()AsInteger)n=______Fori=1Ton/2t=b(i)b(i)=b(n)b(n)=t______NextEndSub上述程序的功能是：通过调用过程swap，调换数组中数值的存放位置，即a(”与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
提示：未搜索到的试题可在搜索页快速提交，您可在会员中心"提交的题"快速查看答案。
答案
查看答案
搜题
相关试题
[填空题]JavaApplet不能直接运行，必须编写______文件，将Applet嵌入其中。
[问答题]下面是一个Applet程序，其功能是接收用户输入的两个整数，比较它们的大小，并在用户按下“比较大小”按钮后，将Applet中显示的“请先输入两个待比较的整数”，改为“两个整数中最大值是：x”，x是两个数中的最大值。请改正程序中的错误(有下划线的语句)，使程序能输出正确的结果。
注意：不改动程序的结构，不得增行或删行。
importjava.applet.*;
importjava.awt.*
importjava.awt.event.*;
/*
＜appletcode=LookForMaxwidth=800height=400＞
＜/applet＞
*/
publicclassLookForMaxextendsAppletimplementsActionListener
Labelresult;
TextFieldin1,in2
Buttonbtn;
inta=0,b=0,max=0;
publicvoidinit()
result=newLabel("请先输入两个待比较的整数");
in1=newTextField(5);
in2=newTextField(5)
btn=newButton("比较大小");
add(in1);
add(in2)
add(btn)
add(result)
btn.addActionListener(super)
publicvoidactionPerformed(ActionEvente)
a=Integer.
注意：不改动程序的结构，不得增行或删行。
importjava.applet.*;
importjava.awt.*
importjava.awt.event.*;
/*
＜appletcode=LookForMaxwidth=800height=400＞
＜/applet＞
*/
publicclassLookForMaxextendsAppletimplementsActionListener
Labelresult;
TextFieldin1,in2
Buttonbtn;
inta=0,b=0,max=0;
publicvoidinit()
result=newLabel("请先输入两个待比较的整数");
in1=newTextField(5);
in2=newTextField(5)
btn=newButton("比较大小");
add(in1);
add(in2)
add(btn)
add(result)
btn.addActionListener(super)
publicvoidactionPerformed(ActionEvente)
a=Integer.
[填空题]在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。下面是实现上述功能的程序，请填空。
PrivateSubForm_Load()
List1.AddItem"AAAAA"
List1.AddItem"BBBBB"
List1.AddItem"CCCCC"
List1.AddItem"DDDDD"
EndSub
PrivateSubCommand1_Click()
DimL1AsInteger
L1=
IfL1＞=0Then
List1.RemoveItem
Labe11.Caption=
Else
MsgBox"请选择要删除的项目”
EndIf
EndSub
PrivateSubForm_Load()
List1.AddItem"AAAAA"
List1.AddItem"BBBBB"
List1.AddItem"CCCCC"
List1.AddItem"DDDDD"
EndSub
PrivateSubCommand1_Click()
DimL1AsInteger
L1=
IfL1＞=0Then
List1.RemoveItem
Labe11.Caption=
Else
MsgBox"请选择要删除的项目”
EndIf
EndSub
[多项选择题]考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个文本框，名称分别为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中，并在Text1中显示出来；“排序”按钮的功能是对这50个数按升序排序，并显示在Text2中；“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中，如图所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的改为正确的内容，并编写“排序”按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。
[填空题]窗体下面有一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click()
x=0
DoUntilx=-1
a=InputBox("请输入第一个数字a的值")
a=Val(a)
b=InputBox("请输入第二个数字b的值")
b=Val(b)
x=InputBox("请输入第三个数字x的值")
x=Val(x)
a=a+b+x
Loop
Printa
EndSub
在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为______。
PrivateSubCommand1_Click()
x=0
DoUntilx=-1
a=InputBox("请输入第一个数字a的值")
a=Val(a)
b=InputBox("请输入第二个数字b的值")
b=Val(b)
x=InputBox("请输入第三个数字x的值")
x=Val(x)
a=a+b+x
Loop
Printa
EndSub
在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为______。