问题
完形填空
| 完形填空。 | |||
| Maybe you know a lot about the city you live in. You may even know some interesting facts about Earth, but 1 do you know about Mars? Will there be 2 there just like people on Earth? Mars is the fourth planet from the sun and it's the most like Earth, but it's much 3 than Earth because it's farther from the sun. It's also the only planet whose surface can be 4 from Earth. Mars is often called "the red planet" because the rocks on it have a dark 5 color. There are strong winds on Mars that can 6 dust into the hills. For many years, people have 7 Mars, They have sent instruments and robots there. Some of the robots got there, 8 most failed. NASA(美国国家宇航局) sent two robots to Mars two years ago. They wanted to 9 signs of water and life on Mars. Some day, humans will travel to Mars and have an even 10 look at our red neighbor. | |||
| ( )1. A. when ( )2. A. sound ( )3. A. hotter ( )4. A. seen ( )5. A. red ( )6. A. blow ( )7. A. lived on ( )8. A. but ( )9. A. leave ( )10. A. faster | B. what B. life B. colder B. wrote B. black B. look B. landed on B. and B. use B. farther | C. which C. air C. bigger C. heard C. white C. mix C. studied C. however C. find C. closer | D. how D. water D. smaller D. visited D. yellow D. fly D. written D. or D. give D. lower |
答案
1-5 BBBAA 6-10 ACACC
（1）数据控件(data1)与“通讯录”数据库表相连接，用户可通过“”和“”按钮指定表中的当前记录。（2）文本框Txt_name、Txt_phone 和Txt_email 分别与数据库表中的“姓名”、“电话”和“email”字段绑定，用于显示当前记录的内容。（3）应用程序启动时，“确定”按钮(Cmd_ok)和“取消”按钮（Cmd_cancel）不可操作,文本框中显示表中的第一条记录，这时文本框处于不可操作状态。（4）单击“增加”按钮（Cmd_add）或“修改”按钮（Cmd_modify）后，方可以编辑记录内容，同时“增加”、“删除”、“修改”和“退出”按钮变为不可操作状态。“增加”和“修改”操作需通过“确定”和“取消”按钮确认。（5）单击“删除”按钮（Cmd_del）后，弹出对话框，再单击“确定”按钮，当前记录被删除。[程序代码]Private Sub enableop(isEnabled As Boolean)Txt_name.Enabled = isEnabled: Txt_phone.Enabled = isEnabledTxt_email.Enabled = isEnabledCmd_ok.Enabled = isEnabled: Cmd_cancel.Enabled = isEnabledCmd_add.Enabled = Not isEnabled: Cmd_del.Enabled = Not isEnabledCmd_end.Enabled = Not isEnabled: Cmd_modify.Enabled = Not isEnabledEnd SubPrivate Sub Form_Load()Call enableop(False)Data1.RefreshIf Data1.Recordset.RecordCount = 0 ThenCmd_del.Enabled = False: Cmd_modify.Enabled = (1)End IfEnd SubPrivate Sub Cmd_add_Click() ’单击“增加”按钮的代码Call enableop( (2) )Data1.Recordset.AddNew ’在数据库表中添加一个新记录Txt_name. (3)End SubPrivate Sub Cmd_del_Click() ’单击“删除”按钮的代码On Error GoTo error3ans = MsgBox("确定删除吗？", vbYesNo + vbInformation, "操作提示!")If (ans = vbYes) ThenData1.Recordset. (4)Data1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.RefreshEnd IfExit Suberror3:MsgBox Err.Description, vbOKOnly, "错误提示!"End SubPrivate Sub Cmd_ok_Click() ’单击“确定”按钮的代码On Error GoTo error1Data1.Recordset. (5)Call enableop(False)Exit Suberror1:MsgBox Err.Description, vbOKOnly, "错误提示!"Data1.UpdateControlsCall enableop(False)End Sub’ “修改”和“取消”按钮的程序代码(略)