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

admin2020-01-02  32

问题 窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程:
Private Sub Text1_Change(Index.As Integer)
Select Case Index
Case 0
text1(1).FontSize=Text1(0).FontSize*2Text1(1).Text=Text1(0).Text
Case1
Text1(0).FontSize=Text1(1).FontSize/2Text1(0).Text=Text1(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://jikaoti.com/ti/Nqx0FFFM
0

最新回复(0)