当执行以下过程时,在名为lblResult的标签框内将显示______。Private Sub Command1_ Click()Dim I,

当执行以下过程时，在窗体上将显示( )。

Private Sub Command1_Click( )

Print "VB";

Print "Hello! ";

Print "VB"

End Sub

A、 VBHello!VB

B、 VB

Hello!VB

C、 VB

D、 VB

Hello! VB Hello!

VB

在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Labell、Label2、 Label3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签 Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是______。

A．Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub

B．Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End Sub

C．Private Sub Command1_Click() Label3.Caption=HScroll1*HScroll2 End Sub

D．Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub

在窗体上画两个滚动条，名称分别为Hscrolll、Hscroll2;六个标签，名称分别为Label1、Label2、 Label3、Label4、Label5、Label6，其中标签Label4-Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是 ______。

A．Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub

B．Private Sub Command1_Click() Label3.Caption=HScrolll.Value*HScroll2.Value End Sub

C．Private Sub Commandl_click() Label3.Caption=HScrolll*HScroll2 End Sub

D．Private Sub Command1_Click() Label3.Caption=HScrolll.Text*HScroll2.Text End Sub

当执行以下过程时，在名为1blResult的标签框内将显示______。 Private Sub cmdlt_ click() Dim I，R R=0 For I=1 To 5 Step 1 R=R+I Next i 1blResult．Caption=Str＄(R) End Sub

A． 字符串15

B．整数15

C．字符串5

D．整数5

在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是______。

A．Private Sub Command1_Click() Label3. Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub

B．Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End Sub

C．Private Sub Command1_Click() Label3.Caption=HScroll1*HScroll2 End Sub

D．Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub

在窗体中添加一个标签LblResult和一个命令按钮Command1，然后编写程序。程序的功能是单击命令按钮，计算1+2+3+4+5的值，并把结果转化为字符串显示在标签内，能够实现上述功能的程序段是， ( )

A．Private Sub Command1_Click() Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Name=Str$ (R) End Sub

B．Private Sub Command1_ClickO Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Caption= Str$ (R) End Sub

C．Private Sub Command1_Click() Dim I,R As Integer Do While I＜5 R=R+I I=I+1 Loop LblResult. Caption=Str$ (R) End Sub

D．Private Sub Command1_Click() Dim I,R As Integer Do R=R+I I=I+1 Loop While I＜5 LblResult. Caption=Str$ (R) End Sub

在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2：六个标签，名称分别为Label1、Label2、 Latel3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是 ______。

A．Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub

B．Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End Sub

C．Private Sub Command1_Click() Label3.Caption=HScrolll*HScroll2 End Sub

D．Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub

在窗体上画一个名为List1的列表框、一个名为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。

A．Private Sub List1_Click() Label1. Caption=List1. ListIndex End Sub

B．Private Sub List1_Click() Label1. Name=List1. ListIndex End Sub

C．Private Sub List1_Click() Label1. Name=List1. Text End Sub

D．Private Sub List1_Click() Label1. Caption=List1. Text End Sub