更多"假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，"的相关试题:
[填空题]若窗体中已有一个名为Commandl的命令按钮、一个名为Label1的标签和一个名为Textl的文本框，且文本框的内容为空，然后编写如下事件代码：
Private Function f(X As Long)As Boolean
lf x Mod 2=0 Then
f=True
EIse
f=False
End If End Function
Private Sub Commandl click（ ）
Dim n As Long
n=Val(Me!bextl)
p=IIf(f(n)，”Even number”，”Odd number”)
Me!Labell．Caption=n&”is”&P
End Sub
窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为______。
[填空题]若窗体中已有一个名为Command1的命令按钮、一个名为Label 1的标签和一个名为Text 1的文本框，且文本框的内容为空，然后编写如下事件代码：
Private Function f(x As Long) As Boolean
If x Mod 2＝0 Then
f＝True
Else
f＝False
End If
End Function
Private Sub Command1_Click( )
Dim n As Long
n＝Val(Me!text1)
p＝IIf(f(n) ，“Even number”，“Odd number”)
Me!Label 1.Caption＝n&“is”&p
End Sub
窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为______。
[单项选择]设窗体上有一个标签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()
[填空题]若窗体中已有一个名为Command1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码：
Private Function f(x As Long) As Boolean
If x Mod 2=0 Then
f=True
Else
f=False
EndIf
End Function
Private Sub Commandl_Click（ ）
Dim n As Long
n=Val(Me!text1)
p=If(f(n)，"Even number"，"Odd number")
Me!Label1．Caption=n& "is"&p
EndSub
窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为【 】。
[填空题]若窗体中已有一个名为COMMAND1的命令按钮、一个名为LABEL1的标签和一个名为 TEXT1的文本框，且文本框的内容为空，然后编写如下事件代码：
PRIVATE FUNCTION F(X AS LONG) AS BOOLEAN
IF X MOD 2 = 0 THEN
F = TRUE
ELSE
F=FALSE
END IF
END FUNCTION
PRIVATE SUB COMMAND1_CLICK( )
DIM N AS LONG
N=VAL(ME! TEXT1)
P = IIF( F(N) , "EVEN NUMBER" ,"ODD NUMBER" )
ME ! LABEL1: CAPTION = N&"IS" &P
END SUB
窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示的内容为 【13】 。
[单项选择]设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interva1属性被设置为1000，Eeabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（）。
A. Private Sub Timer1_Timer( ) Label1.CaDtion=True End Sub
B. Private Sub Timer1_Timer( ) Label1.Caption=Time$ End Sub
C. Private Sub Timetd_Timer( ) Label1.Interval=1 End Sub
D. Private Sub Timer1 Timer( ) For k=1 To Timer1.Interval Label1.Caption=Timer Next k End Sub
[单项选择]设窗体上有一个标签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()
[填空题]程序是一个窗体双击事件代码，窗体的名称是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
[单项选择]
窗体上有一个名为Command1的命令按钮和一个名为Timed的计时器，并有下面的事件过程：
Private Sub Command1_Click（ ）
Timer1. Enabled=True
EndSub
Private Sub Form_Load（ ）
Timer1. Interval=10
Timed. Enabled=False
End Sub
Private Sub Timer1_Timer（ ）
Command1. Left=Command1. Left+10
End Sub
程序运行时，单击命令按钮，则产生的结果是（）。
A. 命令按钮每10秒向左移动一次
B. 命令按钮每10秒向右移动一次
C. 命令按钮每10毫秒向左移动一次
D. 命令按钮每10毫秒向右移动一次
[单项选择]窗体上有一个名为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的文本框和一个名为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. 中国日本韩国新加坡香港
[单项选择]窗体上有一个名为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个数中奇数的累加和
[单项选择]窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Command1_Click（ ）
Dim arr(5) As Integer
For k = 1 To 5
arr(k) = k
Next k
prog arr（ ）
For k = 1 To 5
Print arr(k);
Next k
End Sub
Sub prog(a（ ） As Integer)
n = UBound(a)
For i = n To 2 step-1
For j = 1 To n-1
if a(j) ＜ a(j+1) Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时，单击命令按钮后显示的是( )。
A. 1 2 3 4 5
B. 5 4 3 2 1
C. 0 1 2 3 4 D) 4 3 2 1 0
