在平行四边形ABCD中，已知A（-1，-7），B（2，6），则CD的坐标是___

下列加点词语的意义和现代汉语相同的一项是（  ）

A．而刀刃若新发于硎

B．古者丈夫不耕

C．欲苟顺私情，则告诉不许

D．臣之辛苦，非独蜀之人士…

在同一块土地上连续追加投资，由于每次投入资本的生产率不同而产生的超额利润所转化的地租是( )。

A．级差地租Ⅰ

B．级差地租Ⅱ

C．垄断地租

D．绝对地租

建立重要空白凭证、有价单证查库制度，每月至少查库（）次。

A.一

B.二

C.三

D.四

食少伴消瘦，乏力，神疲，多属（）

A.伤食

B.脾胃虚弱

C.脾失健运

D.胃火

E.胃阴不足

[说明] 在一些应用场合中，需要对用户的输入数据进行检查监控。以下VisualBasic程序实现了对新添加到 List列表的内容进行监控，拒绝向List列表添加重复信息。例如，在List列表中存在元素“a01001；a01002”，如果用户输入数据为“aOl001”或“a01002”，系统则弹出提示信息，拒绝将新数据加入List列表；如果用户输入的数据不同与List列表中的任何一个元素，则作为新元素加入List中。VisualBasic界面显示如图11-5所示。根据程序功能说明，完成程序代码。

[代码1] Begin VB.Form Form1 Caption=“List列表拒绝添加重复信息”//...窗体描述(略) Begin VB.CommandButton Command2Caption=“退出”//...窗体描述(略) End Begin VB.CommandButton ommand1Caption=“添加”//...窗体描述(略) End Begin VB.TextBox Text1//...窗体描述(略) End Begin VB.ListBox List1Height=1860ItemData="Form1.frx": 0000Left=1020List="Form1.frx": 0002 TabIndex=0 Top=525 Width=2580 End Begin VB.Label Labell BackStyle=0’Transparent Caption="请输入编号" //...窗体描述(略) End End [代码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 ( ) Listl.AddItem"a01001" Listl.AddItem"a01002" End Sub Private Sub Command1 Click ( ) Dim Myval As Long For i=0 To (1) (2) If (3) Then MsgBox"系统不允许重复输入，请重新输入" Exit Sub End If (4) (5) End Sub