题目内容（请给出正确答案）

[主观题]

阅读程序： Option Base 1Private Sub Form_Click（) Dim arr Sum Sum=0 arr=Array（1，3，5，7，9，11，1

阅读程序： Option Base 1 Private Sub Form_Click() Dim arr Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 TO 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+art(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为

A．13

B．14

C．27

D．15

提问人：网友zte1234 发布时间：2022-01-06

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“阅读程序： Option Base 1Private Sub…”相关的问题

第1题

编写如下程序： Private Sub Command1_Click() Dim a(3, 3) As Integer Dim b(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = i + j b(i, j) = a(i, j) + i * (j - 1) Next j Next i For i = 1 To 3 For j = 1 To 3 Print b(i, j); Next j Print Next i End Sub 程序运行后，单击命令按钮Command1，输出结果为_______________。

A、2 3 4 3 4 5 4 5 6

B、2 4 6 3 6 9 4 8 12

C、3 5 7 5 8 11 7 11 15

D、4 6 8 7 10 13 10 14 18

点击查看答案

第2题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim A(3, 3) As Integer For j = 1 To 3 For k = 1 To 3 A(j, k) = (j - 1) * 3 + k Next k Next j For j = 2 To 3 For k = 1 To 2 Print A(k, j); Next k Print Next j End Sub 运行程序，单击命令按钮，输出结果是_______________。

A、2 5 3 6

B、2 3 5 6

C、4 7 5 8

D、4 5 7 8

点击查看答案

第3题

在下列数组定义语句中，数组元素个数与其他三个数组不同的是_______________。 A) Option Base 1 Dim A(4, 5) B) Dim B(4, 5) C) Static C(3, 4) D) Dim D(-1 To 2, 1 To 5)

A、Option Base 1 Dim A(4, 5)

B、Dim B(4, 5)

C、Static C(3, 4)

D、Dim D(-1 To 2, 1 To 5)

点击查看答案

第4题

设有如下程序： Private Sub sV(ByVal m As Integer, n As Integer) m = m * 2 n = n - 5 Print m; n End Sub Private Sub Form_Click() Dim x As Integer, y As Integer x = 10 y = 15 sV x, y Print x; y End Sub 运行程序，单击窗体，输出结果为_______________。

A、20 10 10 10

B、10 15 20 10

C、20 15 10 15

D、20 10 20 10

点击查看答案

第5题

现有程序如下： Option Base 1 Private Sub Form_Click() Dim x(5, 6) As Integer, y(5) As Integer For i = 1 To 5 For j = 1 To 6 x(i, j) = Int(Rnd * 9 + 1) Next j Next i Call f(5, 6, x, y) For i = 1 To 5 Print y(i); Next i End Sub Sub f(m As Integer, n As Integer, a() As Integer, b() As Integer) For i = 1 To m b(i) = 0 For j = 1 To n b(i) = b(i) + a(i, j) Next j Next i End Sub 关于上述程序，以下叙述中正确的是_______________。

A、调用过程语句有错，参数不匹配

B、程序有错，数组下标越界

C、y数组中保存的是x数组每行数据之和

D、x数组中数据的取值范围是 1 ～ 10

点击查看答案

第6题

由高中数学可知，对于连续函数f(x)，若f(x1)与f(x2)值的符号相反，则在x1和x2之间必存在x0，使得： f(x0)=0（该点称为"零点"）。设有VB函数：Private Function f(x As Single) As Single 可以返回f(x)的值（函数体没有给出）。下面程序的功能是从键盘输入2个实数x1、x2，判断在x1、x2之间是否存在零点。 Private Sub Command1_Click() Dim x1 As Single, x2 As Single x1 = InputBox("请输入一个实数x1") x2 = InputBox("请再输入一个实数x2") If ( _______________ ) Then Print "在"; x1; "与"; x2; "之间存在零点" Else Print "不能确定在"; x1; "与"; x2; "之间是否存在零点" End If End Sub Private Function f(x As Single) As Single …… End Function 为使上面程序可以实现该功能，程序代码中横线处应填写的代码是_______________。

A、f(x1) >0 Or f(x2) < 0

B、f(x1) < 0 And f(x2) < 0

C、f(x1) * f(x2) < 0

D、f(x1) * f(x2) > 0

点击查看答案

第7题

设有名称为p的Sub过程首行，其形式参数是一维整型数组，以下定义语句中正确的是_______________。

A、Private Sub p(A() As Integer)

B、Private Sub p(A(10) As Integer)

C、Private Sub p(ByVal A() As Integer)

D、Private Sub p(A As Integer)

点击查看答案

第8题

为计算[图] 的值，某人编写了函数power如下： Private F...

为计算的值，某人编写了函数power如下： Private Function power(a As Integer, n As Integer) As Long Dim s As Long p = a For k = 1 To n p = p * a Next k power = p End Function 在调试时发现是错误的，例如 Print power(5, 4) 的输出应该是625，但实际输出是3125。程序需要修改。下面的修改方案中有3个是正确的，错误的一个是_______________。

A、把 For k = 1 To n 改为 For k = 2 To n

B、把 p = p * a 改为 p = p ^ n

C、把 For k = 1 To n 改为 For k = 1 To n - 1

D、把 p = a 改为 p = 1

点击查看答案

第9题

设有以下程序代码： Private Sub Command1_Click() Static a As Integer proc a Print a End Sub Sub proc(x As Integer) x = x + 1 End Sub 运行程序，3次单击命令按钮，第3次单击后显示的是_______________。

A、0

B、1

C、3

D、4

点击查看答案

第10题

下面叙述中正确的是_______________。

A、全局变量只能在标准模块中定义

B、全局变量可以在窗体模块中定义

C、窗体级变量可以在窗体的过程中定义

D、局部变量可以在窗体的所有过程前面定义

点击查看答案