运行如下所示的program过程后,消息框的输出结果是________。Private Sub program ()Dim d1 As DateDim d2 As Dated1 = #12/25/2009#d2 = #1/5/2010#MsgBox DateDiff("ww", d1, d2)End Sub
查看答案
下面程序的功能是对统计所输入的10个数据中奇数和偶数的个数,为了实现相应功能请将如下代码补充完整。Private Sub P9()Dim num As Integer,a As Integer,b As Integer,i As IntegerFor i=1 To 10num = InputBox("请输入数据:","输入")If ________ Then________Elseb = b + 1End IfNext iMsgBox("运行结果:偶数个数="& Str(a) & ",奇数个数=" & Str(b))End Sub
关于狂犬病的治疗,下列哪项是错误的?
A. 发病后严格隔离患者,防止唾液污染
B. 减少光、风、声等刺激
C. 狂躁时用镇静剂
D. 维护心血管和呼吸功能
E. 立即注射狂犬疫苗
下列含狂犬病毒最多的是( )
A. 唾液
B. 粪
C. 血液
D. 呕吐物
E. 伤口渗出液