因为Li6=L3+P,所以三方柱既可算作三方晶系,也可算作六方晶系
第1题:
程序执行结果s的值是【 】.
Private Sub Command l-Click ()
I =0
Do
S= I +S
I = I + l
Loop Until I >=4
End Sub
第2题:
A.pH上升
B.PaCO/sub2/supsubno上升
C.PaO/sub2/supsubno上升
D.HCO/sub3/supsubno/sup-/supsubno降低
E.HCO/sub3/supsubno/sup-/supsubno升高
第3题:
有以下程序:
Private Sub Form_Activate()
For j=1 to 3
x=3
For i=l to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,窗体上显示的结果为______。
第4题:
下列程序的输出结果是【 】。
Private Sub Command l Click()
Dim a(1 TO 20)
Dim i
For i=1 TO 20
a(i)=i
Next i
For Each i In a()
a(i)=20
Next i
Print a(2) End Sub
第5题:
以下能够正确计算n!的程序是
A.Private Sub Command1_Chck( ) n=5:x=1 Do x=x*i i=i+1 Loop While i<n Print x End Sub
B.Private Sub Command1_Click( ) n=5:x=1:i=l Do x=x*i i=i+1 Loop While i<n Print x End Sub
C.Private Sub Command1_Click( ) n=5:x=1:i=l Do x=x*i i=i+1 Loop While i<=n Print x End Sub
D.Private Sub Command1_Click( ) n=5:x=1:i=l Dox=x*i i=i+1 Loop While i>n Print x End Sub
第6题:
A.(4.0-~5.5)x10/sup12/supsubo/L
B.(4.0~5.0)x10/sup12/supsubo/L
D.(6.0~7.0)x10/sup12/supsubo/L
C.(3.5~5.0)x10/sup12/supsubo/L
E.(4.0-6.5)x10/sup12/supsubo/L
第7题:
A.pH上升
B.PaCO/sub2/supsubno上升
C.Pa0/sub2/supsubno上升
D.HCO/sub3/supsubno/sup-/supsubno降低
E.HCO/sub3/supsubno/sup-/supsubno升高
第8题:
请填写下列空白以实现运行后形成一个主对角线上元素值为l,其他元素为0的6×6阶矩阵。
Private Sub Command1_Click()
Dim s (6,6)
For i=1 To 6
For i=1 To 6
If i=j Then
_________
Else
___________
End If
Print _________
Next j
Next i
End Sub
第9题:
把‘今天天气不错!’变为‘今天天气不错’是( )。
A.<sup></sup>
B.<s></s>
C.<tt></tt>
D.<sub></sub>
E.<i></i>
第10题:
下列程序的输出结果是______。
Private Sub Command1_Click()
Dim arr(1 To 10)
For i=l TO 10
arr(i)=i
Next i
For Each i In arr()
art(i)=arr(i)*2+1
Next i
MsgBox arr(7)
End Sub