2. 计算机
  3. 运行下列程序时，输出的结果是( )。 Private Sub Form Click() Dim x x=Array(“Software”，“and”，“Hardware”，“System”) For i=LBound(x，1)To UBound(x，

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

admin2015-12-04  20
问题 运行下列程序时，输出的结果是(    )。
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 SubaSoftware   
Private Sub Command l Click()
Dim a(4，4)As Variant
For i=1 To 4
For j=1 To-4
a(i，j)=(i-1)*3+j
Next j
Next i
For i=3 To 4
For{=3 To 4
Print a(i，j)
Next i
Next i
End Sub
该稗序执行后，输出结果是(    )。
选项 A、9
1 0
1 2
1 3
B、7
10
12
13
C、9
12
10
13
D、8
11
9
12
答案B
解析 本题考查变体类型。变体类型变量可通过Array函数来存放多个元素，做为数组进行处理。要读取数组上界时，可使用UBound(x)来实现，要读取数组下界时，LBoundq[x)来实现。因为题中x存放了多个字符串，i表示第一个字符串的行下标的下界，UBound(x,1)表示第一个字符串的行下标的上界。利用Left函数取得每一行数组元素的最左边的字符，然后判断是否为“S”，如果是，则输出该元素。
转载请注明原文地址:https://jikaoti.com/ti/ZLJ0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)