阅读下列程序： 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