在窗体上画一个名称为Command1的命令按钮,一个名称为Text1的文本框数组(含4个文本框,下标从0开始),然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer, n As Intege

admin2015-06-30  62

问题 在窗体上画一个名称为Command1的命令按钮,一个名称为Text1的文本框数组(含4个文本框,下标从0开始),然后编写如下事件过程:
Private Sub Command1_Click()
  Dim i As Integer, n As Integer
  For Each TextBox In Text1
      Text1(i) = Text1(i).Index
      n = 10 * (n + Val(Text1(i).Text))
      i = i + 1
  Next
  Print n
End Sub
运行程序,单击命令按钮Command1,则在窗体上的输出结果是

选项 A、0123
B、123
C、1234
D、1230

答案D

解析 控件数组是指由一组相同类型的控件组成。数组中的每一个控件都有唯一的索引号(Index)。分析该程序,在For Each……Next结构中,语句"Text1(i)=Text(i).Index",实际上是将每个索引(Index)的值赋予每个控件元素的Text值。第一次执行时,n=0,Text1(0) = Text(0).Index,n=10*(0+Val(Text1(0).Text))=10*(0+0)=0,i=2。第二次执行时,Text1(1) = Text(1).Index,n=10*(0+Val(Text1(1).Text))=10*(0+1)=10,i=3。第三次执行时,Text1(2) = Text(2).Index,n=10*(10+Val(Text1(2).Text))=10*(10+2)=120,i=4。第四次执行时,Text1(3) = Text(3).Index,n=10*(120+Val(Text1(3).Text))=10*(120+3)=1230,i=5。循环结束。故最后输出结果为1230。本题正确答案为D。
转载请注明原文地址:https://kaotiyun.com/show/CtQp777K
0

最新回复(0)