未知题型 在窗体中添加一个命令按钮(其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