2. 计算机
  3. 在窗体上有一个名称为Checkl的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(如图所示)。下面能实现此功能的事件过程是( )。

在窗体上有一个名称为Checkl的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(如图所示)。下面能实现此功能的事件过程是( )。

admin2018-09-29  61
问题 在窗体上有一个名称为Checkl的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(如图所示)。下面能实现此功能的事件过程是(    )。
选项 A、Private Sub Check1_Click(Index As Integer)
    Text1．Text＝""
    For k＝0 To 3
    If Check1(k)．Value＝1 Then
    Text1．Text＝Text1．Text ＆
    Checkl(k).Caption＆" " ’双引号中是空格
    End If
    Nextk
    End Sub
B、Private Sub Check1_Click(Index AS Integer)
    For k＝0 To 3
    If Checkl(k)．Value＝1 Then
    Text1．Text＝Text1．Text＆
    Check1(k)．Caption＆" " ’双别号中是空格
    End If
    Next k
    End Sub
C、Private Sub Check1_Click(Index As Integer)
    Text1．Text＝""
    For k＝0 TO 3
    If Checkl(Index)．Value＝1 Then
    Text1．Text＝Text1．Text＆Check1
    (Index)．Caption&" " ’双引号中是空格
    End If
    Nextk
    End Sub
D、Private Sub Check1_Click(Index As Integer)
    Text1．Text＝""
    For k＝0 To 3
    If Check1(k)．Value＝1 Then
    Text1．Text＝Text1．Text＆Check1
    (k)．Caption＆" "’双引号中是空格
    Exit For
    End If
    Next k
    End Sub
答案A
解析 本题考查复选框控件数组。复选框的Value属性，决定了当前复选框的状态，当Value为1时表示选中复选框。按照题目中的要求，首先清空文本框，接下来对复选框控件数组中的所有元素的Value属性一一筛查，判断是否选中，把选中的复选框控件的Caption属性值连接到文本框的字符串中。
转载请注明原文地址:https://kaotiyun.com/show/whFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)