更多"在窗口中有一个标签Labe10和一个命令按钮Command1，Comm"的相关试题:
[单项选择]在窗口中有一个标签Label0和一个命令按钮Command1，Command1的事件代码如下：
Private Sub Command1_Crick（ ）
Label0.Top=Label0.Top+20
End Sub
打开窗口后，单击命令按钮，结果是______。
A. 标签向上加高
B. 标签向下加高
C. 标签向上移动
D. 标签向下移动
[单项选择]在窗本上放置一个命令按钮Command1, 并编写下列单击事件的程序：
Option Base 1
Private Sub Command1_Click（ ）
Dim c As Integer, d As Integer
d=0
c=6
X=Array(2, 4, 6, 8, 10, 12)
For i=1 To 6
If X(i)＞c Then
d=d+X(i)
c=X(i)
Else
d=d-c
End If
Next i
Print d
End Sub
A. 10
B. 12
C. 16
D. 20
[单项选择]在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2=0 Then
f=m
Else
f=1
End If
End Function
Private Sub Command1 Click（ ）
Dim i As Integer
s=0
For i=1 To 5
s=s+f(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是 ______。
A. 11
B. 10
C. 9
D. 8
[单项选择]在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下： Private Sub run_click( ) result ="" For i=1 TO Me! n For j=1 TO Me! n result = result+"*" Next j Result=result+Chr(13)+Chr(10) Next i MsgBox result End Sub 打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是( )。
A. * * * * * * * * * * * * * * * *
B. * * * * * * * * * * * * * * * *
C. * * * * * * * * * * * * * * * * * * * * * * * * * * * *
D. * * * * * * * * * * * * * * * *
[填空题]在窗体中使用一个文本框(名为numl)接受输入值，有一个命令按钮run13，事件代码如下：
Private Sub run13_Click（ ）
If Me!ntlm1＞=60 Then
result="及格"
Elself Me!numt＞=70 Then
result="通过"
Elself Me! num1＞=80 Then
result="合格"
End If
MsgBox result
End Sub
打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是______。
[填空题]
在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。
下面是实现上述功能的程序，请填空。
Private Sub Form_Load（ ）
List1.AddItem "AAAAA"
List1.AddItem "BBBBB"
List1.AddItem "CCCCC"
List1.AddItem "DDDDD"
End Sub
Private Sub Command1_Click（ ）
Dim L1 As Integer
L1= 【1】
If L1 ＞=0 Then
List1.RemoveItem 【2】
Labell.Caption= 【3】
Else
MsgBox("请选择要删除的项目")
End If
End Sub
