在窗体上画两个滚动条，名称分别为Hscroll1 、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4~ 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
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num > 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是( ) A）1 3.4 5.8B）1 3 5C）1 4 7D）无数据输出
