网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
土的液性指数IL会出现IL＞0或IL＜0的情况。
参考答案
更多 “土的液性指数IL会出现IL＞0或IL＜0的情况。” 相关考题
考题
执行下列的程序，消息框里显示的结果是______。Pfivate Sub Form_Click()Dim Str As StringStr＝""S="Access"For i＝Len(S) To 1 Step-1Str＝StrMid(S.i,1)Next IMsgBox StrEnd Sub
考题
布窗体上画一个名称为Command l的命令按钮，然后编写如下事件过程：Private Sub Command l-Click ()n=5f=ls=oFor I =l To nf=f【 】s= s +fNextPrint sEnd Sub该事件过程的功能是计算s=1+1／2!+l+3!+…+l/ n!的值。请填空。
考题
请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。Private Sub Command1_Click()Dim s (6,6)For i=1 To 6For i=1 To 6If i=j Then_________Else___________End IfPrint _________Next jPrintNext iEnd Sub
考题
下列程序的执行结果为Private Sub Command1_Click（）Dim s1 As String, s2 As Strings1= "abcd"Call Transfer（s1, s2）Print s2End SubPrivate Sub Transfer （ByVal xstr As String, ystr As String）Dim tempstr As Stringi=Len（xstr）Do While i =1tempstr=tempstr + Mid（xstr, i, 1）i=i - 1Loopystr=te mpstrEnd Sub（ ）。A．dcbaB．abdcC．abcdD．dabc
考题
单击窗体时，下列程序的执行结果是Private Sub Invert（ByVal xstr As String, ystr As String）Dim tempstr As StringDim I As IntegerI=Len（xstr）Do While I =1tempstr=tempstr + Mid（xstr, I, 1）I=I - 1Loopystr=tempstrEnd SubPrivate Sub Form_Click（）Dim s1 As String, s2 As Strings1= "abcdef"Invert s1, s2Print s2End Sub（ ）。A．abcdefB．afbecdC．fedcbaD．defabc
考题
（8）下列这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。Private Sub numCount() Dim num As Integer s$="software And hardware" Num=Len(s$) For i=1 unm b$=。 If b$="a"Then x=x+1 Next i Print"x="；xEnd Sub
考题
阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。
考题
在窗体中添加一个名称为Com1的命令按钮，然后编写如下程序：Private Sub s(ByVal p As Integer)p=p*2End SubPrivate Sub Com1_Click()Dim i As Integeri=3Call s(i)If i＞4 Then i=i^2End sub窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
考题
以下能够正确计算n!的程序是A．Private Sub Command1_Chck( ) n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubB．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜n Print x End SubC．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜=n Print x End SubD．Private Sub Command1_Click( ) n=5：x=1：i=l Dox=x*i i=i+1 Loop While i＞n Print x End Sub
考题
以下程序的运行结果是( ) #define MAX 10 int a[MAX]，i; main() { printf("\n");sub1()；sub3(A) ,sub2()，sub3(A) ； } sub2() { int a[MAX]，i，max； max=5； for(i=0；i＜max；i++)a[i]＝i； } sub1() {for(i=0;i＜MAX；i++)a[i]＝i+i; } sub3(int a[]) { int i; for(i=0;i＜MAX，i++)printf("%d"，a[i])； printf("\n")； }A．0 2 4 6 8 10 12 14 16 18 0 1 2 3 4B．0 1 2 3 4 0 2 4 6 8 10 12 14 16 18C．0 1 2 3 4 5 6 7 8 9 0 1 2 3 4D．0 2 4 6 8 10 12 14 16 18 0 2 4 6 8 10 12 14 16 18
考题
设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(A)If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是A．2B．6C．10D．12
考题
以下能够正确计算n! 的程序是( )。A．Private Sub Command1_Click( ) n=5:x=l Do x=x*i i=i+1 Loop While i ＜ n Print x End SubB．Private Sub Command1_Click( ) n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i ＜ n Print x End SubC．Private Sub Command1_Cliek( ) n:5:x=1:i=1 Do x=x* i i:i+1 Loop While i ＜ = n Print x End SubD．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
考题
下列程序的输出结果是【 】。Private Sub Command l Click()Dim a(1 TO 20)Dim iFor i＝1 TO 20a(i)＝iNext iFor Each i In a()a(i)＝20Next iPrint a(2) End Sub
考题
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub s(ByVal p As Integer)p=p*2End SubPrivate Sub Command1_click()Dim i As Integeri=3Call s(i)If i＞4 Then i=i^2MsgBox iEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为【 】。
考题
编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．rehcaetB．tahreeeC．themeeD．eerthea
考题
下列程序的输出结果是______。Private Sub Command1_Click()Dim arr(1 To 10)For i=l TO 10arr(i)=iNext iFor Each i In arr()art(i)=arr(i)*2+1Next iMsgBox arr(7)End Sub
考题
编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．6B．12C．24D．47
考题
单击窗体时，下列程序的执行结果是 Private Sub Invert(By Val xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I＞=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop ystr=tempStr End Sub Private Sub Form_Click( ) Dim s1 As String，s2 As String S1="abcdef" Invert S1，S2 Print S2 End SubA．abcdefB．afbecdC．fedcbaD．defabc
考题
设有如下程序： Private Sub Form. Click（ ） Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+l sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。A.15B.16C.20D.25
考题
以下能够正确计算1+2+3+…+10的程序是A．Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End SubB．Private sub Command1_Click( ) Sum=0,I=1 Do While l＜=10 Sum=Sum+1 I=I+1 Print Sum End SubC．Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I＜10 Print Sum End SubD．Private Sub command1_Click( ) Sum=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I＜10 Print Sum End Sub
考题
下列程序的执行结果为 Private Sub Command1_Click() Dim s1 As String，s2 As String S1；="abcdef" Call Invert(s1，s2) Print s2 End Sub Private Sub Invert (ByVal xstr As String，ystr As String) Dim tempstr As String i=Len(xstr) Do While i=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=tempstr End SubA．fedcbaB．abcdefC．afbecdD．defabc
考题
以下能够正确计算n!的程序是( )。A．Private Sub Commandl_C1ick()B．hiVate Sub Commandl_C1ick() n＝5:x＝1 n＝5:x=1:i＝1 DO DO X＝x*1 X＝X*1 i＝i＋1 i＝i＋1 Loop while i＜n Loop While＜n Print x Ptinte x End Sub End SubC．Private Sub Commandl_Click ()D．Pdvate Sub Commandl C1ick() n＝5:X＝1:i＝1 n＝5＝:x＝1:i＝1 DO DO X＝X*1 X＝X*1 i＝i＋1 i＝i＋1 Loop While i＞n Print x Print x End Sub End Sub
考题
下列程序运行后的输出结果是______。Private Sub f(k，s)s=1For j=1 To ks=s*jNextEnd SubPrivate Sub Command1_Click()Sum=0For i=1 To 3Call f(i，s)Sum=Sum+sNextPrint SumEnd Sub
考题
9.程序执行结果s的值是 [9] 。Private Sub Commandl_Click()i = 0Doi = i + ls = i + sLoop Until i = 4Print sEnd Sub
考题
class Super { public int i = 0； public Super（String text） { i = 1； } } public class Sub extends Super { public Sub（String text） { i = 2； } public static void main（String args[]） { Sub sub = new Sub（“Hello”）； System.out.println（sub.i）； } } What is the result？（） A、 0B、 1C、 2D、 Compilation fails.
考题
单选题class Super { public int i = 0； public Super（String text） { i = 1； } } public class Sub extends Super { public Sub（String text） { i = 2； } public static void main（String args[]） { Sub sub = new Sub（“Hello”）； System.out.println（sub.i）； } } What is the result？（）A
0B
1C
2D
Compilation fails.
考题
单选题class super （ public int I = 0； public super （string text） （ I = 1 ） ） public class sub extends super （ public sub （string text） （ i= 2 ） public static void main （straing args） （ sub sub = new sub （“Hello”）； system.out. PrintIn（sub.i）； ） ） What is the result？（）A
Compilation will fail.B
Compilation will succeed and the program will print “0”C
Compilation will succeed and the program will print “1”D
Compilation will succeed and the program will print “2”
热门标签
最新试卷
