更多"下面程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找"的相关试题:
[填空题]下面程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并在文本框Text1中输出该数组中各元素的最小值。请依据上述功能将程序补充完整。
Option Base 1
Private Sub Command1_Click( )
Dim arr1( )
Dim Min As Integer,i As Integer
arr1=Array(12,435,76,-24,78,54,866,43)
Min=______
For i=2 To 8
If arr l(i)<Min Then______
Next i
Text1=Min
End Sub
[填空题]程序的功能是在第一个文本框中输入整数,输入结束回车后,在第二个文本框中输出该整数和平方。
import java. applet.*;
import javax. swing.*;
import java. awt. event.*;
public class Class04 extends Applet implements ActionListener
JTextField text1,text2;
public void init( )
text1=new JTextField(10);
text2=new JTextField(10);
setSize(200,100);
add(text1);
add(text2);
text1. ______;
public void actionPerformed(Action Evnet e)
long n;
if(e. get Source( )==text1)
n=Long. parseLong(text1. getText( ));
text2.______(String. valueOf(n*n));
[填空题]下列程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并在文本框Text l中输出该数组中各元素的最小值。请填空。
Option Base 1
Private Sub Command1_Click( )
Dim arr1( )
Dim Min As Integer,i As Integer
Arr1=Array(12,435,76,-24,78,54,866,43)
Min=______
For i=2 To 8
If arr1(i)<Min Then______
Next i
Text1=Min
End Sub
[填空题]以下所列程序的功能是:在窗体上有一个文本框控件,程序运行后,用户可以利用鼠标左键来拖动该文本框控件(注意:拖动时,文本框移动的距离和方向由鼠标指针移动的距离和方向来确定),按下鼠标右键则可以在文本框中显示出当前文本控件的位置。
Public yx As Integer
Public yy As Integer
Private Sub Form_ MouseMove(Button AS Integer,Shift As Integer,_
X As Single,Y As Single)
If Button=1 Then
Text1.Left= 【11】
Text1.Top= 【12】
End If
End Sub
Private Sub Form_ MouseDown (Button As Integer,Shift As Integer,_
X As Single,Y As Single)
If 【13】 Then
yx=Text1.Left-X
yy=Text1.Top-Y
End If
If Button=2 Then
Text1.Text=“X坐标:”+Str(Text1.Left)+“Y坐标:”+Str(Text1.Top)
End If
End Sub
[填空题]在窗体上画两个文本框,然后编写程序。程序运行后,如果在第一个文本框中输入A、B、 C、D或a、b、c、d,则在第二个文本框中显示EFDH。请完善下列程序。
Private Sub Form_Load( )
Show
Text1.Text=" "
Text2.Text=" "
Text1.SetFocus
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Text2.Text= 【11】
End Sub
[填空题]有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组成。4个 文本框的名称分别为:Text1、Text2、Text3和Text4。3个按钮分别为:清除(名为 Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后, 单击清除按钮,则清除所有文本框中显示的内容;单击计算按钮,则计算在Text1、Text2 和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中;单击 退出按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click( ) Me!Text1=""
Me!Text2=""
Me!Text3="" Me!Text4=""
End Sub
Private Sub Command2_Click( )
If Me!Text1="" Or Me!Text2="" Or Me!Text3="" then
MsgBox "成绩输入不全"
Else
Me!Text4=(__________ +Val(Me!Text2)+Val(Me!Text3))/3__________
End Sub
Private Sub Command3_Click( ) Docmd. __________
End Sub
[填空题]有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后,单击“清除”按钮,则清除所有文本框中显示的内容;单击“计算”按钮,则计算在Text1、Text2和Text3 3个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中;单击“退出”按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click( )
Me!Text1=" "
Me!Text2=" "
Me!Text3=" "
Me!Text4=" "
End Sub
Private Sub Coramand2_Click( )
If Me!Text1=" " Or Me!Text2=" " Or Me!Text3=" " Then
NsgBox "成绩输入不全"
Else
Me!Text4=( (13) +Val(Me!Text2)+Val(Me!Text3))/3
(14)
End Sub
Private Sub Command3_Click( )
Docmd. (15)
End Sub