有如下程序： Private Sub Form Click() Dim i As Integer，sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为

A．12

B．30

C．24

D．18

[单选题]设有如下程序： Option Base 0 Private Sub Form Click() Dim a Dim i As Integer a = Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i = 0 To 3 Print a(5 - i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是A．4 3 21B．543 2C．6 54 3D．7 6 54

[单选题]阅读如下程序： Option Base 1 Private Sub Form Click() Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i-1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单击窗体，输出的结果为A．5 7 6 8B．6 8 7 9C．7 9 8 10D．8 10

[单选题]有如下程序：A． 24B． 30C． 12D． 18

[单选题]有如下程序：A．BAA～A～B～AB．ABA～B～A～AC．BAA～B～A～AD．ABA～A～B～A

[单选题]阅读下列程序： Private Sub Form Click() Dim i As Integer， sum As Integer For i = 2 To 10 If i Mod 2 ＜＞ 0 Then Print i； Else sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，在窗体上的输出结果是A．3 5 7 9 30B．1 3 5 7 9C．2 4 6 8 20D．11 15 17 19 20

[单选题]若有如下程序：A．2B．5C．7D．3

[单选题]执行以下程序段D．im i As Integer, x As Integerx = 0F．or i = 20 To 1 Step -2x = x + i / 5NextPrint x后，x的值为（ ）。A．16B．17C．18D．19

[单选题]有如下程序#includeusing namespace std;class Obj{static int i;public:Obj（）{i++;}~Obj（）{i--;}static int getVal（）{teturn i;}};int Obj::i=0;void f （）{Obj ob2;coutObj obl;F．（）;Obj*ob3=new Obj;coutD．elete ob3;cout}程序的输出结果是______。A．232B．231C．222D．221

[单选题]有如下程序#includeusing namespace std;class Base{protected;B．ase（）{cout<<’A’;}B．ase（char c）{cout<};class Derived; public Base{public:D．erived（char c ）{cout <};int main（）{D．erived d1（‘B’）;return 0;}执行这个程序屏幕上将显示输出______。A．BB．BAC．ABD．BB

[单选题]有如下程序:includeusingnamespacestd;classXX{protected: intk;public: XX(intn=5):有如下程序： #include ＜iostream＞ using namespace std； class XX { protected： int k； public： XX(int n=5)：k(n){} ～XX() { cout＜＜"XX"； } virtual void f() const=0； }； inline void XX：：f()