2. 计算机
  3. 在窗体上有一个List1列表框，并有如图所示的5个项目，还有一个Text1文本框和一个Command1命令按钮，并编写了如下程序代码： Private Sub Command1_Click() Dim ch As String ch =

在窗体上有一个List1列表框，并有如图所示的5个项目，还有一个Text1文本框和一个Command1命令按钮，并编写了如下程序代码： Private Sub Command1_Click() Dim ch As String ch =

admin2020-06-30  29
问题 在窗体上有一个List1列表框，并有如图所示的5个项目，还有一个Text1文本框和一个Command1命令按钮，并编写了如下程序代码：

Private Sub Command1_Click()
    Dim ch As String
    ch = ""
    For k = 0 To List1.ListCount - 1
        If Left(List1.List(k), Len("数据")) = "数据" Then
            List1.RemoveItem k
        End If
    Next k
    For k = List1.ListCount - 1 To 0 Step -1
        ch = ch & List1.List(k)
    Next k
    Text1 = ch
End Sub
程序运行时单击命令按钮后，在文本框中显示的是
选项 A、程序设计计算机原理网络程序设计
B、网络程序设计计算机原理程序设计
C、程序设计数据结构计算机原理数据库原理网络程序设计
D、网络程序设计数据库原理计算机原理数据结构程序设计
答案B
解析 程序主要是将列表框项目中，前两个字是"数据"字符的字符串删除，并将剩余项按从下往上的顺序，连接成一个新字符串，并显示在文本框中。 Left（List1.List(k),Len("数据"））="数据"，这一语句是判断列表框中的项前两个字是否是"数据"，如果是，从列表框移除。然后，利用For循环，按照从下往上的顺序，将列表项的字符串连接起来。由题可知，项目中数据结构和数据库原理两个项的前两个字是"数据"，故将其删除。列表框项从下往上的顺序依次为网络程序设计、计算机原理和程序设计。将这三个字符串连接起来，并显示在文本框中，选项B正确。
转载请注明原文地址:https://kaotiyun.com/show/E1Hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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