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

admin2020-02-27  53

问题 在窗体上有一个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://jikaoti.com/ti/mmx0FFFM
0

最新回复(0)