问题 单项选择题

在窗体上画一个命令按钮,名称为Command1。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。能够正确实现上述功能的代码是( )。

A.Private Sub Command1_Click()
x=InputBox("请输入整数")
a=F1(Val(x))
Print a
End Sub
Function F1(byRef b As Integer)
If b Mod 2=0 Then
Return 0
Else
Return 1
End If
End Funcfion

B.Privae Sub Command1_Click()
x=InputBox("请输入整数")
a=F1(Val(x))
print a
End Sub
Function F1(byRef b As Integer)
If b Mod 2=0 Then
F1=0
Else
F1=1
End If
End Function

C.Private Sub Command1_Click()
x=InputBox("请输入整数")
F1(Va(x))
Print a
End Sub
Function F1(byRef b As Integer)
If b Mod 2=0 Then
F1=1
Else
F1=0
End If
End Funcfion

D.Private Sub Command1_Click()
x=InputBox("请输入整数")
F1(Val(x))
Print a
End Sub
Function F1(ByrRef b As Integer)
If b Mod 2=0 Then
Return 0
Else
Return 1
End If
End Function

答案

参考答案:B

阅读理解

任务型阅读,将划线部分的句子翻译成汉语或英语。

     http://kidshealth.org/teen/school_jobs/school/testing_tips.html

     Do you get nervous as your teacher hands out the test papers? If so, you are not alone. (1). A lot of

people become very nervous when it's time to take a test. It's natural to feel some stress about taking

tests. Here are some tips for taking tests.

    Be sure you've studied well. That will help you feel sure about your answers in the test. (2). 考试之前睡眠要充足。 Your memory will be much better if you've had enough rest. In a scientific study, people

who got enough sleep before taking a math test did better than those who stayed up all night studying.

     Listen closely to any instructions. As the teacher hands out the test, be sure you know what you

should do during the test. Read the test through first. If something seems not clear before you start, just

ask your teacher. As you take the test, if you don't know an answer, don't be obsessed (被困扰) by it.

 (3). Instead, let the question alone and come back to it after you've answered other questions.

     Finished already? Maybe the teacher will let you hand in your paper early. (4). But it's usually a good

idea to spend any extra time checking over your work.

     These tips should help most people, but some can get serious test-taking fear. (5). 如果你是其中的一位,你或许需要和你的父母或老师谈一下,以寻求帮助

1. ___________________________________________________

2. ___________________________________________________

3. ___________________________________________________

4. ___________________________________________________

5. ___________________________________________________

选择题