更多"窗体上有一个名为Command1的命令按钮和一个名为Timed的计时器"的相关试题:
[单项选择]窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面事件过程：
Private Sub Command1_Click（ ）
Timer1.Enabled=True
End Sub
Private Sub Form_Load（ ）
Timer1.Interval=5
Timer1.Enabled=False
End Sub
Private Sub Timer1_Timer（ ）
Command1.Left=Command1.Left+5
End Sub
程序运行时，单击命令按钮，则产生的结果是______。
A. 命令按钮每5毫秒向左移动一次
B. 命令按钮每5毫秒向右移动一次
C. 命令按钮每5秒向左移动一次
D. 命令按钮每5秒向右移动一次
[单项选择]
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click（ ）
x!=Val(Text1. Text)
Select Case x
Case Is＜-10, Is＞=20
Print "输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜=20
Print x+10
End Select
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（）。
A. 5
B. 20
C. 25
D. 输入错误
[填空题]在窗体上有一个文本框控件，名称为Text1。同时，窗体加载时设置其计时器间隔为1 秒、计时器触发事件过程则实现在Text1 文本框中动态显示当前日期和时间。请补充完整。
Private Sub From_Load（）
Me.Timerinterval＝1000
End Sub
Private Sub __________
Me.text1＝Now（）
End Sub
[填空题]在窗体上有一个文本框控件，名称为Text1。同时，窗体加载时设置其计时器间隔为1秒、计时器触发事件过程则实现在Text1文本框中动态显示当前日期和时间。请补充完整。
Private Sub Form_Load（ ）
Me.TimerInterval=1000
End Sub
Private Sub [12]
Me!text1=Now（ ）
End Sub
[填空题]程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为text1的文本框，用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除；重复上述过程5次。
Option Explicit
Private ______
Dim k As Integer
For k=1 To 100
If k Mod 20 Then
_______
Else
Text1.Text=" "
End If
Print“程序运行完毕，可再双击窗体”
End Sub
[填空题]程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为Text1的文本框，用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除；重复上述过程5次。
Option Explicit
Private 【12】
Dim k As Integer
For k=1 to 100
If k Mod 20 Then
【13】
Else
Text1.Text=""
End lf
Print“程序运行完毕，可再双击窗体”
End Sub
[填空题]设窗体上有一个名为CD1的通用对话框、一个名为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示“打开”文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click（ ）
CD1.Filter="文本文件|*.txt|Word文档|*.doc"
CD1.FilterIndex=1
CD1.ShowOpen
If CD1.FileName＜＞""Then
Open______For Input As #1
Line Input #1,ch$
Close #1
Text1.Text=______
End If
End Sub
[单项选择]设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click（ ）
x!=Val(Text1.Text)
Select Case x
Case Is＜-10.Is＞=20
Print"输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜=20
Print x+10
End Select
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是______。
A. 5
B. 20
C. 25
D. 输入错误
[单项选择]窗体上有一个名为List1的列表框，程序执行时在窗体上单击，输出的结果是( )。
Priate Sub Form_Click（ ）
For i=0 To List1．ListCount-1
If i Mod 2=0 Then
Print List1．List(i)；
End If
Next i
End Sub
Private Sub Form_Load（ ）
List1．AddItem"中国"
List1．AddItem"日本"
List1．AddItem"韩国"
List1．AddItem"新加坡"
List1．AddItem"香港"
End Sub
A. 中国韩国
B. 日本新加坡
C. 中国韩国香港
D. 中国日本韩国新加坡香港
[单项选择]在窗体上有一个计时器控件Timer1和一个标签控件Label1，在程序运行时可通过每隔30毫秒让Lable1左移100缇，从而产生文字移动动画效果。文字从右向左移动，当移动到接近窗体左边界时停止移动。空格处应填 ______。 Private Sub Form1_Load（ ） Label1. Left=Form1. Width Timer1. Interval=30 ______ End Sub Private Sub Timer1_Timer（ ） Lable1.Left=Lable1. Left -100 If Lablel. Left＜100 Then Timer1. Enable=False End If End Sub
A. Timer1. Enable=True
B. Label1.Enable=True
C. Timer1. Enable=False
D. Label1. Enable=False
[单项选择]窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click（ ）
Dim a(10) ,x%
For k=1 To 10
a(K)=Int(Rnd*90+10)
x=x+a(k) Mod 2
Next k
Print x
End Sub
程序运行后，单击命令按钮，输出结果是______。
A. 10个数中偶数的个数
B. 10个数中奇数的个数
C. 10个数中偶数的累加和
D. 10个数中奇数的累加和
[单项选择]设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是______。
A. Private Sub Timer1_Timer()
B. Private Sub Timer1_Timer()
C. Private Sub Timer1_Timer()
D. Private Sub Timer1_Timer()
[单项选择]窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写
如下程序：
Dim n As Integer
Private Sub Timer1_Timer（ ）
ch = Chr( n + Asc( "A" ) )
Label1. Caption = ch
n=n+1
n = n Mod 4
End Sub
运行程序，将在标签中( )。
A. 不停地依次显示字符“A”、“B”、“C”、“D”，直至窗体被关闭
B. 依次显示字符“A”、“B”、“C”、“D”各一次
C. 每隔1秒显示字符“A”一次
D. 每隔1秒依次显示26个英文字母中的一个
[单项选择]
窗体上有一个名称为Picture1的图片控件，一个名称为Timer的计时器控件，其Interval属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下：
Private Sub Timer1_Timer( )
Static n As Integer
n=n+1
If (n/5)=Int(n/5) And Picture1.Left Picture1.Left=Picture1.Left+100
End If
End Sub
分析以上程序，以下叙述中正确的是（）。
A. 程序中没有设置5秒钟的时间，所以不能每隔5秒移动图片框一次
B. 此程序运行时图片框位置保持不动
C. 此程序运行时图片框移动方向与题目要求相反
D. If语句条件中“Picture1.Left
