更多"下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框T"的相关试题:
[填空题]下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text1输入。例如数组各元素的值依次为0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 移动三次后，各元素的值依次为 8, 9, 10, 0, 1,2 3,4,5,6,7。
Private Sub MoveRight (x（ ） As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = UBound (x)
j = x(i)
For k = i To 【7】 Step -1
【8】
Next k
x(LBeund(x)) = j
End Sub
Private Sub Command1_click（ ）
Dim a(10) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 0 To 10
a(i) = i
Next i
j = Val(Text1. Text)
k=0
Do
k=k+1
Call MoveRight(a)
Loop Until k = j
For i = 0 To 10
Print a(i);
Next i
End Sub
[填空题]
下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。
Private Sub Moveright(x（ ）As Integer)
Dim i As
Integer
Dim j As Integer
Dim k As
Integer
i=UBound(x)
j=x(i)
For
k=i To (6) Step-1
(7)
Next k
x(LBound(x))=j
End Sub
Private Sub Command1_Click（ ）
Dim
a(10)As Integer
Dim i As Integer
Dim j As
Integer
Dim k As Integer
For i=0 To 10
a(i)=i
Next i
j=Val(Text1.Text)
k=0
Do
k=k+1
Call MoveRight(a)
Loop Until
k=j
For i=0 To 10
Print a(i)；
Next i
End Sub
[填空题]下面的程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Text1输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。
Private Sub MoveRight(x（ ）As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
i＝UBound(x)
j＝x(i)
For k＝i To 【9】 Step—1
【10】
Next k
x(LBound(x))＝j
End Sub
Private Sub Command1_Click（ ）
Dim a(10) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i＝0 To 10
a(i)＝i
Next i
j＝Val(Text1.Text)
k=0
Do
k＝k+1
Call MoveRight(a)
Loop Until k＝j
For i=0 To 10
Print a(i);
Next i
End Sub
[填空题]下面小应用程序实现在一个文本框中输入整数后回车，另一个文本框中显示这个整数的平方。
import javax. swing.*；
import java. applet.*；
import java. awt. event.*；
public class C2802 extends Applet
static JTextField text1，text2；
CC c=new CC（ ）；
public void init（ ）
text1=new JTextField(10)；
text2=new JTextField(20)；
add(text1)；add(text2)；
______
class CC implements ActionListener
public void actionPerformed(ActionEvente)
if(e.getSource（ ）==C2802. text1)
long n=______；
C2802. text2. setText(n*n+" ")；
[填空题]通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1)，代码如下。请填入适当的内容，将程序补充完整。
Private Sub Combo1_Cliek（ ）
Text1. FontName=Combo1. List(Combo1. Listlndex)
End Sub
Private Sub Form_Load（ ）
With Combol
Addltem"宋体"
Addltem"隶书"
Addltem"黑体"
·Addltem"楷体_GB2312""
·Listlndex＝0
End With
Text1. 【8】 30
Textl. 【9】 =Combol.List(0)
End Sub
[填空题]某表单上有一个文本框控件，若要该文本框的初值设置为当前系统日期，则可以在该文本框的Init事件代码中设置语句 ( ) 。
[填空题]
某小应用程序窗口中有一个文本框，一个8行10列的文本区以及一个按钮，点击这个按钮时，在文本框中输入的内容会追加到文本区中。
import java.applet.*; import javax.swing.*; import java,awt.event.*;
public class TextAPP extends Applet implements ActionListener {
JTextField input;
JTextArea display;
JButton append;
public void init（ ） {
input = new JTextField(10);
display = new__________;
append = new JButton("追加");
add(input); add(display); add(append);
input.requestFocus（ ）;
display.setLineWrap(true);
append.addActionListener(this);
}
public void actionPerformed(ActionEvent e),{
display. __________ (input.getText（ ） +" ");
}
}
