2. 计算机
  3. 阅读以下说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。 【说明】 在一些应用场合中，需要对用户的输入数据进行检查监控。以下VisualBasic程序实现了对新添加到 List列表的内容进行监控，拒绝向List列表添加重复信息

阅读以下说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。 【说明】 在一些应用场合中，需要对用户的输入数据进行检查监控。以下VisualBasic程序实现了对新添加到 List列表的内容进行监控，拒绝向List列表添加重复信息

admin2009-02-15  84
问题 阅读以下说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。
【说明】
   在一些应用场合中，需要对用户的输入数据进行检查监控。以下VisualBasic程序实现了对新添加到 List列表的内容进行监控，拒绝向List列表添加重复信息。例如，在List列表中存在元素“a01001；a01002”，如果用户输入数据为“a01001”或“a01002”，系统则弹出提示信息，拒绝将新数据加入List列表；如果用户输入的数据不同于List列表中的任何一个元素，则作为新元素加入List中。VisualBasic界面显示如图所示。根据程序功能说明，完成程序代码。
                                            
   【代码5-1】
   Begin VB.Form Forml
       Caption       =  "List 列表拒绝添加重复信息"
        //...窗体描述(略)
       Begin VB.CommandButton Command2
           Caption        =  "退出"
        //...窗体描述(略)
       End
       Begin VB.CommandButton Commandl
           Caption        =   "添加"
        //...窗体描述(略)
       End
       Begin VB.TextBox Text1
   //...窗体描述(略)
       End
       Begin VB.ListBox List1
           Height          =  1860
           ItemData        =  "Form1.fix": 0000
           Left            =  1020
           List            =  "Form1.fix": 0002
           TabIndex        =  0
           Top             =  525
           Width           =  2580
       End
       Begin VB.Labe1 Labe11
           BackStyle       =  0  ’Transparent
            Caption       =  "请输入编号"
       //...窗体描述(略)
          End
   End
   【代码5-2】
   Attribute VB Name = "Form1"
   Attribute VB_GlobalNameSpace = False
   Attribute VB Creatable = False
   Attribute VB PredeclaredId = True
   Attribute VB_Exposed = False
   Private Sub Form Load ()
     List1.AddItem "a01001"
     List1.AddItem "a01002"
   End Sub
   Private Sub Cormnand1 Click ()
     Dim Myval As Long
     For  i=0  To  (1)  
             (2)  
         If  (3)  Then
             MsgBox "系统不允许重复输入，请重新输入"
             Exit Sub
         End If
     (4)  
     (5)  
   End Sub
选项
答案为所有的列表个数；(2)、(3)实现了List列表的内容进行监控，避免重复；(4)为循环控制变量i更新；(5)Lis列表的内容进行监控时数据合格，没有重复，接受。 (1)List1.ListCount-1 (2) List1.ListIndex = i (3) List1.Text = Text1.Text Then (4) Next i (5) List1.Addltem Text1.Text
解析
转载请注明原文地址:https://www.kaotiyun.com/show/esjZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

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