题目内容
（请给出正确答案）
Private Sub Commandl_Click（）
Counter=0
For i=1 To 4
For j=6 To 1 Step -2
Counter=Counter+1
Next j
Next i
Label1.Caption=Str（Counter）
End Sub
程序运行后，单击命令按钮，标签中显示的内容是（）。 A．11
B．12
C．16
D．20
如果结果不匹配，请 联系老师 获取答案
更多“在窗体上面画一个命令按钮和一个标签，其名称分别为 Comma…”相关的问题
在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： private Sub Command1_Click() CommonDialog1.Flags=cdl0FNHideReadOnly CommonDialog1.Filter="All Files(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialog1.Filterlndex=2 CommonDialog1.ShowOPen MsgBox CommonDialog1.filename End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是______。
A．All Files(*.*)
B．Text Files(*.txt)
C．Batch Files(*.bat)
D．不确定
在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialogl.Flags=cdlOFNHideReadOnly commonDialogl.Filter="All Files(*.*)|*.*| Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialogl.Filterlndex=1 CommonDialogl.ShowOpen MsgBox CommonDialogl.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 ______。
A．AllFiles(*.*)
B．TextFiles(*.txt)
C．BatchFiles(*.bat)
D．不确定
A.AllFiles(*.*)
B.出错
C.BatchFiles(.bat)
D.不确定
在窗体上面画一个命令按钮，然后编写如下事件过程______ 。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4) j=1 For i=4 TO 1 Step -1 s=s+ a(i)*j j=j*10 Next i Print s End Sub运行上面的程序，单击命令按钮，其输出结果是______ 。
A．4321
B．12
C．34
D．1234
在窗体上面一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Commandl_Click()
t=0：m=1：Sum=0
Do
t=t+【8】
Sum=Sum+【9】
m=m+2
Loop While 【10】
Print Sum
End Sub
该程序的功能是，单击命令按钮，则计算并输出以下表达式的值：
1+(1+3)+(1+3+5)+…+(1+3+5+…+39) 请填空。
Private Sub Command1_Click（）
CommonDialog1.Filter= 【12】
CommonDialog1.ShowOpen
PCSTextBox.Text= 【13】
End Sub
在窗体中画一个命令按钮，然后编写以下时间过程： Private Sub Command1_Click() For i=1 To 4 x=1 For j=1 To 3 x=2 For k=1 To 2 x= x+6 Next k Next j Next i Print x End Sub程序运行后，单击命令按钮，输出结果是______。
A．2
B．7
C．14
D．37
注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
.jpg)
Private Sub Command1_Click（）
Dim k As Integer
Dim sum As Single, max As Single, min As Single
sum = Text1（0）
max = Text1（0）
min = ______
For k = ______ To 6
If max ＜ Text1（k） Then
max = Text1（k）
End If
If min ＞ Text1（k） Then
min = Text1（k）
End If
sum = sum + Text1（k）
Next k
Text2 = （______） / 5
