在窗体上画一个文本框,其名称为Text1,然后编写如下程序: Option Base 1 Private Sub Form_Click() Dim Arr(10) As Integer For i = 6 To 10 Arr

admin2020-07-22  23

问题 在窗体上画一个文本框,其名称为Text1,然后编写如下程序:
Option Base 1
Private Sub Form_Click()
    Dim Arr(10) As Integer
    For i = 6 To 10
        Arr(i) = i - 3
    Next i
    Text1.Text = Str(Arr(6) + Arr(Arr(6) + Arr(10)))
End Sub
程序运行后,单击窗体,在文本框中显示的内容是

选项 A、7
B、8
C、9
D、10

答案D

解析 For循环对数组Arr的第6个到第10个元素赋值。Arr(6)=3;Arr(10)=7;因此,输出结果是10。选D)。
转载请注明原文地址:https://jikaoti.com/ti/TKS0FFFM
0

最新回复(0)