设计一个简单的表单(如下图所示)。其中3个控件分别是：标签Label1、命令按钮Com mand1、复选框Check1。为Command 1编写Click事件，当单击该命令按钮时释放该表单；为 Check 1编写Interactive Change事件，当选中该复选框时在Label1上显示“身体健康!”字样，否则在Label1上不显示任何信息，其中，Command1. Caption＝“关闭”，Check1. Caption=“合格”。

[单选题]在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Labe

[单选题]（ 27 ）在窗体上画两个标签和一个命令按钮，其名称分别为 Label1 、 Label2 和 Command1 ，然后编写如下程序：Private Sub func(L As Label)L.Caption= ” 1234 ”E．nd subPrivate Sub Form_Load()Label2.Caption=10E．nd subPrivate Sub Command1_Click()A．=Val(Label2.Caption)C．all func(Label1)Label2.Capti

[单选题]在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1，然后编写如下两个事件过程： Private Sub Command1_Click() a=InputBox("请输入一个字符串") Text1．Text=a End Sub Private Sub Textl_Change() Label1．Caption=UCase(Mid(Text1．Text，8)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual

[单选题]在窗体中添加一个名称为Command1的命令按钮、一个名称为Label1的标签，编写如下代码： Option Base 1 Private Sub Command1_Click( ) a=Array(23，34，25，46，35) ┊ End Sub 过程的功能是求数组a中是奇数的元素的个数，并把结果显示在标签中。为实现此功能，省略号处的程序段应该是A．For i=0 T0 4 If a(i)Mod 2＜>0 Then b=b+1 End lf Next i Label1.Caption=

[单选题]在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写如下事件过程； Private Sub Command1_Click() a=0 For i=1 To 10 a=a+1 b=0 For j＝1 To 10 a=a+1 b=b+2 Next j Next i Label1.Caption=Str(A) Label2.Caption=Str(B)End Sub 程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是______

[单选题]在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 T0 10 a=a+1 b=0 For j=1 To 10 a=a+1 b=b+2 Next j Next i Label1.Caption=Str(a) Label2.Caption=Str(b) End Sub 程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是( )。A

[单选题]在窗体上添加一个标签控件Label1，则执行Label1.Caption="VisualBasic"语句后，标签控件的Name和Caption属性为（）A . "Label"、"Label1"B . "Label1"、"VisualBasic"C . "Label1"、"Caption"D . "VisuaBasic"、"Label1"

[单选题]窗体上有一个名称为Picturel的图片框控件，一个名称为Label1的标签控件，如下图所示。现有如下程序： Public Sub display (x As Control) If TypeOf x Is Label Then x.Caption="计算机等级考试" Else x.Picture=LoadPicture("piC.jpg") End If End Sub Private Sub Labell_Click() Call display(Labell) End Sub Pr

[问答题]（1）在考生文件夹下建立一个文件名和表单名均为oneform的表单，该表单中包括两个标签（Label1和Label2）、一个选项按钮组（OptionG

[单选题]在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click( ) S=0 For i=1 To 15 x=2*i-1 1fx Mod 3=0 Then s=s+1 Next i Label1.Caption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是A．1B．5C．27D．45