运行下列程序时,输出的结果是( )。 Private Sub Form_Click() Dim x x=Array("Software","and","Hardware","System") For i=LBound(x,1)To UBound(x,

admin2016-09-18  72

问题 运行下列程序时,输出的结果是(    )。
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”,如果是,则输出该元素。
转载请注明原文地址:https://kaotiyun.com/show/TpLp777K
0

最新回复(0)