有如下语句： Option Base 1 Private Sub Command1_Click() Dim A(2, -1 To 1) As Integer …… End Sub 以上语句所定义的数组 A为（ ）维数组，共有（ ）个元素，第一维下标从（ ）到（ ），第二维下标从（ ）到（ ）。

相似题目

• 对窗体编写如下代码： Option Base1 Private Sub Form_Key Press（Key Ascii AsInteger） a=Array（237，126，87，48，498） m1=a（1） m2=1 IfKey Ascii=13Then ForI=2To5 Ifa（I）>mlThen m1=a（j） m2=I EndIf NextI EndIf Printm1 Printm2 EndSub 程序运行后，按回车键，输出结果为（）

  A . 499 B . 237 C . 498

  查看最佳答案

• 下列关于Option Base语句说法错误的是（）

  A . OptionBase语句只能出现在窗体层或模块层 B . OptionBase语句不能出现在过程中 C . OptionBase语句必须位于数组的定义之前 D . OptionBase语句只对一维数组有效

  查看最佳答案

• 设有如下程序： 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；2；1 B . 5；4；3；2 C . 6；5；4；3 D . 7；6；5；4

  查看最佳答案

• 你判断下面语句，有什么作用？（） GRANT update ONinventory TO joe WITH GRANT OPTION；

  A . A、一个系统权限被授予用户JOE B . B、一个对象权限被授予用户JOE C . C、用户JOE被授予在这个对象上的所有权限 D . D、一个系统权限和一个对象权限被授予用户JOE

  查看最佳答案

• 语句Option Base n定义数组下标下界时，n可以是（）

  A . 0 B . 1 C . 0或1 D . 任意整数

  查看最佳答案

• 下列程序的执行结果为________Option Base 0Private Sub Command1_Click()Dim aa = Array(a, b, c, d, e, f, g)Print a(1); a(3); a(5)End sub

  查看最佳答案

• 设有如下声明语句： Option Base 1 Dim arr(3,-1 To 4) As Integer 则数组arr中数组元素的个数是（ ）

  查看最佳答案

• 下列程序:Option Base 1Private Sub Form_Click()Dim a(5，5)For i ＝ 1 To 5For j ＝ 1 To 5k ＝ k ＋ 1a (i，j)＝ kNext jNext iFor i ＝ 1 To 5s ＝ s ＋ a (i，i)Next iPrint sEnd Sub运行时的输出结果是( )。

  查看最佳答案

• 如果有声明Option base 1， Dim arr(3,3)，则该数组共有（ ）个元素。

  查看最佳答案

• 在窗体上画一个命令按钮（其Name属性为Command1)，然后编写如下代码；Option Base 1Private Sub Com

  在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码； Option Base 1 Private Sub Command1_ Click() Dim a(4, 4), For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End Sub程序运行后，单击命令按钮，输出结果为______。 A．6 9 7 10 B．7 10 8 11 C．8 11 9 12 D．9 12 10 13

  查看最佳答案

• 设有数组声明语句，定义的数组a为_______维数组，数组元素个数为_______。 Option base 1 Dim a（）

  A．1 9 B．1 12 C．2 12 D．2 16

  查看最佳答案

• 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Comma

  在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是()。 A．4 B．5 C．6 D．7

  查看最佳答案

• 在窗体上面一个命令按钮（其Name属性为Command1)，然后编写如下代码：Option Base 1Private Sub Cor

  在窗体上面一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Coramandl_Click() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是______。 A．4221 B．1234 C．34 D．12

  查看最佳答案

• 页面中有一个<select>标签，代码如下： <select id="sel"> <option value="0">请选择</option> <option value="1">选项一</option> <option value="2">选项二</option> <option value="3">选项三</option> <option value="4">选项四</option> </select> 要使“选项四”选中的正确写法是

  查看最佳答案

• 有如下程序： include＜iostream＞ using namespace std； class Base { private： void funlconst{tout＜＜”funl”；} protected： void fun2const{tout＜＜”fun2”；} public： void fun3const{cout＜＜”fhll3”；} }； class Derived：protected Base { public： void fhn4const{cout＜＜”filn4”；} }； int main { Derived obj； obj．funl；//① obj．fun2；//② obj．furd；//③ obj．fun4；//④ return U： } 其中有语法错误的语句是（）。

  A.①②③④ B.①②③ C.②③④ D.①④

  查看最佳答案

• 有如下程序： include＜iostream＞ using namespace std; class Base { public: void fun() { cout＜＜"Base::fun"＜＜endl; } }; class Derived: public Base { public: void tim() } ____________ cout＜＜"Derived:: fun"＜＜endl; } }; int main() { Derived d; d.fun(); return O; } 已知其执行后的输出结果为： Base::fun Derived::fun 则程序中下划线处应填入的语句是

  A．Base.fun()； B．Base::fun()； C．Base-＞fun()； D．fun()；

  查看最佳答案

• 在“声明”段有语句Option Base 1，那么用如下语句声明的数组a包含的元素个数为（）。 Dim a（-1 To 3, 3, 4)

  A．60 B．100 C．150 D．180

  查看最佳答案

• 对窗体编写如下事件过程： Option Base 1 Private Sub Form_KeyPress （KeyAScii AS Integer) arr=Array（12，15，18，20，24) m1=arr（1) m2=1 If fKeyAscii=12 Then For i=2 To 5 If arr（i)＞m1 Then m1=arr（i) m2=i End If Next i End

  A． N=0 Do N=N+1 Loop Until N＞=100 B． N=0 Do N=N+1 Loop While n＜100 C． N=0 N=N+1 Do Loop Until N＜100 D． N=0 Do While n＜100 N=N+1 Loop

  查看最佳答案

• 在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_ Click（)Dim arrarr = Array（358, 32, 46, 73, 23, 59, 26, 91, 583, 12)For i = ______ For j = ______ If arr（i) ＞= arr（j) Then a = arr（j

  查看最佳答案

• 在窗体上画一个名称为Command1的命令按钮。编写如下程序： Option Base1 Private Sub Command1_Click（) Dim a（10) As Integer For i=1 To 10 a（i)=i Next Call swap（（11) ) For i=1 To 10 Print a（i)； Next End Sub Sub swap（b（)As Integer

  查看最佳答案

• 以下的输出结果是 Option Base 1 Private Sub Command1_Click（）Dim a（）,p（3）

  A．s Integer k=5 For I=1 To 10 A（I）=I Next I For I=1 To 3 p（I）=a（I＊I） Next I For I=1 To 3 k=k＋p（I）＊2 Next I Print k End sub A．33 B．28 C．35 D．37

  查看最佳答案

• 有如下程序：Option Base 1Private Sub Form Click（）Dim arr,SumSum=0 arr=Array（1,3,5,7,9,11,13,15,17,19）For i=1 To 10If arr（i）/3=arr（i）//3 ThenSum=Sum+arr（i） En

  A．A.25 B．B.26 C．C.27 D．D.28

  查看最佳答案

• 在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_ Click（) Dim arr arr = Array（358, 32, 46, 73, 23, 59, 26, 91, 583, 12) For i = ______ For j = ______ If arr（i) ＞= arr（j) Thena = arr

  查看最佳答案

• 阅读程序： Option Base 1 Private Sub Form_Click（) Dima（3)As Integer Print"输入的数据是:"； Fori=1 To 3 a（i)=InputBox（“输入数据”) Printa（i)； Next Print If a（1)＜a（2) Then t=a（1) a（1)=a（2) a（2)= [10] End If Ifa（2)＞a（3)T

  查看最佳答案