[單項選擇題] 運行下列程序時，輸出的結果是( )。

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函數(shù)來存放多個元素，做為數(shù)組進行處理。要讀取數(shù)組上界時，可使用UBound(x)來實現(xiàn)，要讀取數(shù)組下界時，LBound(x)來實現(xiàn)。因為題中x存放了多個字符串，i表示第一個字符串的行下標的下界，UBound(x,1)表示第一個字符串的行下標的上界。利用Left函數(shù)取得每一行數(shù)組元素的最左邊的字符，然后判斷是否為“s”，如果是，則輸出該元素。