耕地撂荒是指在耕地利用过程中，生产经营者由于主观原因放弃耕种而造成的耕地处于闲置或未充分利用的状态。伴随着我国经济和城镇化的快速发展，四川许多地方的大量耕地存在长期撂荒现象。据此回答下列各题。

根据短文内容，从短文后的选项中选出能填入空白处的最佳选项。选项中有两项为多余选项。

    Taking good notes is a time-saving skill that will help you to become a better student in several ways ____.Second, your notes are excellent materials to refer to when you are studying for a test. Third, note-taking offers variety to your study time and helps you to hold your interest.

    You will want to take notes during classroom discussions and while reading a textbook or doing research for a report. ____ Whenever or however you take notes, keep in mind that note-taking is a selective process. ____

    The following methods may work best for you.

●Read the text quickly to find the main facts and ideas in it.

●Carefully read the text and watch for words that can show main points and

supporting facts.

● Write your notes in your own words.

●____

● Note any questions or ideas you may have about what was said or written.

    As you take notes, you may want to use your own shorthand(速记). When you do, be sure that you understand your symbols(符号) and that you use them all the time. ____

A．Use words, not complete sentences.

B．There are three practical note-taking methods.

C．You must write your notes on separate paper.

D．Otherwise, you may not be able to read your notes late

E. you will also want to develop your own method for taking notes.

F. That means you must first decide what is important enough to include in your notes.

G. First, the simple act of writing something down makes it easier for you to understand and remember it.

杭州市民卡是一张集成电路卡，具有信息储存、身份识别、电子支付等功能。每位市民卡的卡号是唯一的，卡内会记录每位市民的姓名、住址、金额等信息。

假设共有100000个市民，市民的卡号、姓名和金额分别存放在数组a、b和数组c中，a(i)是存放第i个市民的卡号，则对应的第i个市民的姓名存放在b(i)中，金额存放在c(i)中。

通过卡号查询其姓名和余额的程序界面如图所示。在文本框Text1中输入卡号，单击“开始查询”按钮，如果找到，就在Label1中显示卡内市民姓名和金额；否则显示“查无此人”。已知卡号按照从小到大排序。请按要求将下列程序补充完整。

Dim a (1 To 100000) As long

Dim b (1 To 100000) As string

Dim c (1 To 100000) As long

Private Sub Command1_Click()

Dim x As Long, i As Long, j As Long, m As Long, f As Boolean

x = Val(Text1.Text)

i = 1: j = 100000: f = False           、

Do While  i<=j and f=false       

          ①        

If x= a(m) Then

        f = True

    ElseIf x< a(m) Then

        j = m - 1

    Else

             ②       

    End If

 Loop

 If f=false Then

        Label1.Caption =”查无此人”

    Else

         Label1.Caption = b(i)+ "卡内余额为"+ Str(c(i)) + "元"

    End If

 End Sub

 Private Sub Form_Load()

     ’ 此过程用于对数组a、b和c进行初始赋值，代码略

 End Sub