运行下列程序时，输出的结果是( )。 Private Sub Form_Clic

问题单项选择题

运行下列程序时，输出的结果是( )。
Private Sub Form_Click()
Dim x
x=Array("Software","and","Hardware","System")
For i=LBound(x,1)To UBound(x,1)
If Left(x(i),1)="S" Then Print x(i);
Next i
End Sub

A．Software

B．SoftwareSystem

C．出错信息

D．SoftwareandHardwareSystem

答案

参考答案：B

解析：本题考查变体类型。变体类型变量可通过Array函数来存放多个元素，做为数组进行处理。要读取数组上界时，可使用UBound(x)来实现，要读取数组下界时，LBound(x)来实现。因为题中x存放了多个字符串，i表示第一个字符串的行下标的下界，UBound(x,1)表示第一个字符串的行下标的上界。利用Left函数取得每一行数组元素的最左边的字符，然后判断是否为“s”，如果是，则输出该元素。