[單項(xiàng)選擇題] 運(yùn)行下列程序時(shí)，輸出的結(jié)果是( )。

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．出錯(cuò)信息

D．SoftwareandHardwareSystem

B

本題考查變體類型。變體類型變量可通過Array函數(shù)來存放多個(gè)元素，做為數(shù)組進(jìn)行處理。要讀取數(shù)組上界時(shí)，可使用UBound(x)來實(shí)現(xiàn)，要讀取數(shù)組下界時(shí)，LBound(x)來實(shí)現(xiàn)。因?yàn)轭}中x存放了多個(gè)字符串，i表示第一個(gè)字符串的行下標(biāo)的下界，UBound(x,1)表示第一個(gè)字符串的行下標(biāo)的上界。利用Left函數(shù)取得每一行數(shù)組元素的最左邊的字符，然后判斷是否為“s”，如果是，則輸出該元素。