皮皮学，免费搜题
登录
搜题
【单选题】
设有如下程序Option Base 1Dim a As VariantPrivate Sub Cmd1_Click() Dim n As Integer a = Array(12, 9, 13, 5, 8, 16, 7, 3, 18, 3) Call geta(n) Print nEnd SubPrivate Sub geta(j As Integer) Dim n As Integer, c() As Integer n = UBound(a) j = 0 For i = 1 To n If a(i) / 2 = a(i) \ 2 Then j = j + 1 ReDim Preserve c(j) c(j) = a(i) End If NextEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是 。A.
3
B.
4
C.
5
D.
6
拍照语音搜题，微信中搜索"皮皮学"使用
参考答案：
参考解析：
知识点：
皮皮学刷刷变学霸
举一反三
【简答题】¿No crees que ___ (tener, tú) que hacer todo lo posible para obtener un mejor resultado que ella?
【单选题】¿Cuál es el precio que tuvo que pagar Chang E por la inmortalidad?
A.
La riqueza que había guardado en casa.
B.
Vivir en una soledad interminable.
C.
La muerte de su marido.
D.
【简答题】¿_____cuál _____ ellos tenemos que hablar?