窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程: Private Sub Text 1_Change(Index As Integer) Select Case Index Case 0

admin2018-10-15  19

问题 窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程:
    Private Sub Text 1_Change(Index As Integer)
      Select Case Index
        Case 0
            Textl(1).FontSize=Textl(0).FontSize*2 Text1(1).Text=Textl(0).Text
       Case 1
       Textl(0).FontSize:=:Textl(1).FontSize/2 Textl(0).Text:Textl(1).Text
       Case Else
           MsgBox”执行Else分支”
    End Select
End Sub
    关于上述程序,以下叙述中错误的是

选项 A、Index用于标识数组元素
B、本程序中Case Else分支的语句永远不会被执行
C、向任何一个文本框输入字符,都会在另一个文本框中显示该字符
D、下标为0的文本框中显示的字符尺寸将越来越小

答案D

解析 控件数组是一组具有共同名称和类型的控件,它们拥有共同的事件,数组中的每个控件都有唯一的索引号(Index),即下标,默认索引号从0开始。本题中的两个文本框的Index值分别为0和1,所以Case Else分支的语句永远不会被执行;根据程序向任何一个文本框输入字符,都会在另一个文本框中显示该字符;在0号文本框中输入时1号文本框的字号是0号文本框字号的2倍,在1号文本框中输入时0号文本框的字号是1号文本框字号的一半,相当于没有变化,不会越来越小。
转载请注明原文地址:https://kaotiyun.com/show/MGFp777K
0

最新回复(0)