患者，男，71岁，反复咳嗽咳痰30年，气喘15年，加重伴下肢水肿6天入院，高血压病史

肺结核的主要传播途径是()

A.健康人吸入带菌的尘埃

B.结核菌通过皮肤侵入

C.通过泌尿生殖系统侵入

D.注射或应用血液制品而引起

E.误食病人剩下的食物

Confidence is very important in daily life. It can help you to develop a healthy attitude (态度). A study shows that the people who are more confident are much happier. They can have more chance to make themselves successful. Here are some suggestions about how to be more confident.

Speak loud  When you are not confident, you can't do well what you want to do. You speak in a voice so low that other people can hardly hear you. Try to speak _______(1) enough so that people can hear you clearly. The high voice can _______(1) you become more confident.

Play sports .Physical exercise makes you tired but completely relaxed. A strong body helps you be full of confidence.(2)

Encourage yourself  Write down a list of things you did during the day to see how many things you have done well. Did you finish your homework? Did you tell a joke that made everybody laugh? Give yourself praise for the good things you've done.

Pick up a hobby.If you like singing, sing as much as you can. In some ways, a hobby can make you outstanding. And it will make you happy and confident.

Get rid of (消除) fear  Fear comes along with failure (失败). But it's easy to overcome (克服) if you know that failure is part of your life. Don't hide your head just because you said something stupid last time. Try to start again and believe you can do better.

小题1:在(1)处横线上填入适当的词。___________　___________

小题2:将（2）处划线部分翻译成中文。______________________________________________

小题3:回答问题How many suggestions can help you to be more confident?   

______________                                              

小题4:找出并写出所给句子的同义句。

If singing is your favourite, you can sing as often as possible.

小题5:找出并写出最能表达该短文主题的句子。

时针走2圈是一天______．（判断对错）

在窗体上画一个命令按钮，然后编写如下程序： Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num\10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(“请输入一个数”) n=CLng(n) r=fun(n) MsgBox r End Sub 程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为 【14】 。

岩体按成因可划分为（）；（）和变质岩。不同成因类型的岩石的物理力学性质差别很大，工程性质极为多样。