执行以下程序后，在窗体上输出的是( )。 Private Sub Commandl_Click() Dim a(20) For j=1 To 20 Step 2 a(j)=j Nextj Print a(1)+a(2)+a(3)

admin2020-07-22 58

问题执行以下程序后，在窗体上输出的是( )。
Private Sub Commandl_Click()
Dim a(20)
For j=1 To 20 Step 2
a(j)=j
Nextj
Print a(1)+a(2)+a(3)
End Sub

选项 A、4
B、5
C、6
D、7

答案A

解析本题考查数组元素的赋值。利用循环对数组a中所有的元素赋值，循环变量的初值为1，步长为2。因此数组a中所有的奇数下标项的值为相应的下标，偶数下标项的值为0。因此a(1)+a(2)+a(3)=1+0+3。

转载请注明原文地址:https://kaotiyun.com/show/GVHp777K

二级VB

相关试题推荐

随机试题

最新回复(0)