搜题请搜索小程序“爱下问搜题”
问题 单项选择题

奋乃静的化学名

A．2-二苯甲氧基-N’N-二甲乙胺盐酸盐
B．10-(2-二甲氧基丙基)吩噻嗪盐酸盐
C．γ-(4-氯苯基)-N’N-二甲基-2-吡啶丙胺
D．4-(5H-二苯并(a，d)环庚烯-5-亚基)-1-甲基哌啶
E．4-[3-(2-氯-10H-吩噻嗪-10-基)丙基]-1-哌嗪乙醇

答案

参考答案：E

补全对话，情景问答
从方框中选择合适的选项完成对话
A. What are you doing there?
B. Why do you like using the cars?
C. Where are you going for your vacation?
D. How do you go out for an outing with your family?



 



A: What a nice day today!
B: Yes, you are right.
A:    1   
B: I am going to the nature park.
A: Sounds great.    2   
B: I am going fishing with my father.
A:    3   
B: We often have an outing in our own car.
A:    4   
B: Because it can save us a lot of time to do other things.
A: Thanks for telling me so much
B: That's all right.

1. _____ 2. _____ 3. _____ 4. _____
查看答案
填空题

这是一个解密程序。密码由若干数字组成,每三位为一个数字组,若数字组中所有数字均小于5,则该数字组有效,将有效的数字组按5进制转换成10进制数,再按ASCII代码转换为字符就可得到明文。 Option Explicit Private Sub Command1_Click()Dim st As String,p As Stringst=Text1Do P=___(22)___ If judge(p) Then Text2=Text2 & Chr(conv(p)) End If st=Right(st,Len(st)-3)Loop Until ___(23)___ End Sub Private Function judge(p As String) As Boolean ’判断有效数字组Dim q As String*1,i As IntegerFor i=1 To Len(p) q=Mid(p,i,1) If ___(24)___ Then Exit FunctionNext ijudge=True End Function Private Function conv(p As String)As Integer ’进制转换Dim k As Integer,q As String*1,i As IntegerFor i=Len(p) To 1 Step-1 q=Mid(p,i,1) conv=conv+Val(q)*5^k ___(25)___Next i End FUnction
查看答案