更多"[说明] 设计一个计时程序。该程序用户界面由一个文本框(text 1)"的相关试题:
[填空题][说明] 设计一个计时程序。该程序用户界面由一个文本框(text 1)，两个按钮——命令按钮1 (Command 1)按钮、命令按钮(Command 2)组成。程序运行后，用户按开始按钮，则开始计时，文本框中显示秒数，按停止按钮，则计时停止。单击窗口则退出。
Option Explicit
Dim I
Private Sub Command1 _ Click( )
i=0
Timer1. Interval = 1000
(1)
End Sub
Private Sub Command2_ Click( )
Timer1. Enabled = False
End sub
Private Sub Form Click(
(2)
End Sub
Private Sub Form _Load( )
Timer1. Enabled = False
(3)
End Sub
Private Sub Timer1 _ Timer( )
i=i+1
(4)
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 Command2_Click（ ）
If Me!Text1="" Or Me!Text2="" Or Me!Text3="" Then
MsgBox "成绩输入不全"
Else
Me!Text4=(______+Val(Me!Text2)+Val(Me!Text3))/3
End If
End Sub
Private Sub Command3_Click（ ）
Docmd Quit
End Sub
[单项选择]
在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timerl，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Commandl_Click（ ）
Timerl.______
End Sub
Private Sub
Timerl_Timer（ ）
Text1.Text=Time
End Sub
在下划线处应填入的内容是（）。
A. Enabled=True
B. Enabled=False
C. Visible=True
D. Visible=False
[单项选择]在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Command1_Click（ ）
Timer1. ______
End Sub
Private Sub Timer1_Timer（ ）
Text1. Text=Time
End Sub
在填空处应填入的内容是______。
A. Enabled=True
B. Enabled=False
C. Visible=True
D. Visible=False
[单项选择]在窗体上绘制一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enadled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Commandl Click（ ） Timer1.______ End Sub Private Sub Timer_Timer（ ） Text1.Text=Time End Sub 在横线处应填入的内容是( )。
A. Enabled=Tree
B. Enabled=False
C. Visible=Tree
D. Visible=False
[单项选择]在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口 中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单 击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程 序：
Private Sub Command1_Click（ ） Timer1.______
End Sub
Private Sub Timer1_Timer（ ） Text1.Text = Time
End Sub
在下划线处应填入的内容是______。
A. Enabled = True
B. Enabled = False
C. Visible = True
D. Visible = False
[单项选择]在窗本上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1_Click( ) Timer1．______ End Sub Privale Sub Timer1_Timer( ) Text1.Text=Time End Sub 在______处应填入的内容是
A. Enabled=True
B. Enabled=False
C. Visible=True
D. Visible=False
[填空题]
某小应用程序窗口中有一个文本框，一个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（ ） +" ");
}
}
[单项选择]在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码：
Private Sub Command1_Click（ ）
k=0
Do While k ＜ 70
k=k+2
k=k*k+k
a=a+k
Loop
Text1．Text=a
End Sub
程序运行后，文本框中显示的是
A. 20
B. 32
C. 44
D. 78
[单项选择]在窗体上画一个文本框，然后编写如下程序：
Option Base 1
Private Sub Form_Click（ ）
Dim Arr(10)As Integer
For i=6 To 10
Arr(i)=i-3
Next i
Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10)))
End Sub
程序运行后，单击窗体，在文本框中显示的内容是
A. 1
B. 3
C. 6
D. 10
[简答题]已知某程序的界面包含一个文本区text1、一个文本框text2和一个按钮button。下面是该程序的相关方法。阅读下面方法，写出该方法功能。
public void actionPerformed(ActionEvent e)
int sum；
if(e. getSource（ ）==button)
String s=text1. getText（ ）；
StringTokenizer fenxi=new StringTokenizer(s，"，/t/n")；
int n=fenxi. countTokens（ ）；
double a[]=new double[n]；
for(int i=0；i＜n；i++)
String temp=fenxi. nextToken（ ）；
a[i]=Double. valueof(temp). doubleValue（ ）；
sum=0；
for(int i=0；i＜n；i++)
sum+=[i]；
text2. setText(" "+sum)；
[填空题]以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。
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
[单项选择]在窗体上画一个名称为Text1的文本框，并编写如下程序：
Private Sub Form Load( )
Show
Text1.Text=""
Text1.SetFocus
End Sub
Pfivate Sub Form_MouseUp(BuHon As Integer，Shift As Integer，X As Single，Y As Single)
Print“程序设计”
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer，shift As Integer)
Print"Visua1 Basic"；
End Sub
程序运行后，如果按“A”键，然后单击窗体，则在窗体上显示的内容是
A. VisualBasic
B. 程序设计
C. A程序设计
D. Visual Basic程序设计
