液性指数IL：说明土的软硬程度。用于（）。
第1题：
判别粘性土软硬状态的指标是()
A、塑性指数
B、液限
C、液性指数
D、塑性
第2题：
以下能够正确计算n! 的程序是( )。
A．Private Sub Command1_Click( ) n=5:x=l 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=1 Do x=x*i i=i+1 Loop While i ＜ n Print x End Sub
C．Private Sub Command1_Cliek( ) n:5:x=1:i=1 Do x=x* i i:i+1 Loop While i ＜ = n Print x End Sub
D．Private Sub Command1_Cliek( ) n=5:x:1:i=1 Do x=x*i i=j+1 Loop While i ＞ n Print x End Sub
第3题：
A.Sub fib(ByRef i%())
B.Sub fib(j%) As Integer
C.Functionf%(f%)
D.Function f1!(ByValn%)
第4题：
第5题：
下列程序的输出结果是______。
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
第6题：
以下能够正确计算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
第7题：
下列程序的输出结果是【 】。
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
第8题：
程序执行结果s的值是【 】.
Private Sub Command l-Click ()
I =0
Do
S= I +S
I = I + l
Loop Until I ＞=4
End Sub
第9题：
以下能够正确计算1+2+3+…+10的程序是
A．Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End Sub
B．Private sub Command1_Click( ) Sum=0,I=1 Do While l＜=10 Sum=Sum+1 I=I+1 Print Sum End Sub
C．Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I＜10 Print Sum End Sub
D．Private Sub command1_Click( ) Sum=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I＜10 Print Sum End Sub
第10题：