未分类题假定有下面的程序段: For i=1 To 3 For j=1 To i For k=j To 3 Print'i=';i,'j=';j,'k=';k Next k Next j Next i 这是一个三重循环程序,在这个程序中,外层、中层和内层循环的循环次数是D.3、9和18
未分类题下列程序段的执行结果为 a='ABBACDDCBA' For I=6 To 2 Step-2 x=Mid(a,I,I) y=Leh(a,I) z=Right(a,I) z=x & y & z Next I Print zD.ABBABA
未分类题阅读下列程序: Private Sub Commad1_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 Print H(k) Next i End Sub Function H(j As Integer) a=0 Static b a=a+1 b=b+1 H=a*b+j End Function 程序运行后,单击命令按钮输出结果是D.356
未分类题The proposed 'alternative funding models'(Paragraph 2) might be more clearly based onA.cost-sharing between insurers and patients.B.moderate constraints on medical budgets.C.delivering consumers' costs to tax-payers.D.generous allocations of money to hospitals.
未分类题以下语句的输出结果是 ( ) Print Format $ (367234.'000,000,000')A.000,003.678B.003,678.23C.3678.23D.000,003.678
未分类题在窗体中添加一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a a=Array(2,4,6,8) j=1 For i=4 To 1 Step-2 s=s+a(i)*j j=j*10 Next i Print 3 End Sub 运行上面的程序,单击命令按钮,其输出结果是 ( )D.48
判断题胡萝卜种子为果实型种子。果皮革质,含有挥发油,不易吸水,有特殊香气。
未分类题单击命令按钮时,下列程序代码的运行结果为 Private Sub Command1_Click() Print MyFunc(20, 18) End Sub Public Function MyFunc(m As Integer, n As Integer)As Integer Do While m<>n Do While m>n:m=m-n:Loop Do Whle m<n:n=n-m:Loop Loop MyFunc=m End FunctionD.6
未分类题假定有以下两个过程: Sub S1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=K x=y y=t End Sub Sub S2(x As Integer, y As Integer) Dim t As Integer t=K x=y y=t End Sub 则以下说法中正确的是 ( )D.用过程S1和S2都不能实现交换两个变量值的操作
未分类题执行语句Open'C: stu.dat'For Input As #2之后,系统 ( )A.将C盘当前文件夹下名为stu. dat的文件的内容读人内存B.在C盘当前文件夹下建立名为stu的顺序文件C.将内存数据存放在C盘当前文件夹下名为stu. dat的文件中D.将某个磁盘文件的内容写入C盘当前文件夹下名为stu. dat的文件中