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

[主观题]

设有如下程序： Private Sub sV（ByVal m As Integer, n As Integer) m = m * 2 n = n - 5 Print m

设有如下程序： 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

提问人：网友xuanfeng216 发布时间：2022-01-07

参考答案

查看官方参考答案

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

您可能会需要：

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

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

更多“设有如下程序： Private Sub sV（ByVal m…”相关的问题

第1题

单击命令按钮后，下列程序代码的执行结果是______。

Public Sub fun (a As Integer, b As Integer, c As Integer)

a=b+ c

n=n+1

Loop While n ＞ 3

End Sub

Private Sub command1_ click()

Dim m As Integer, n As Integer, i As Integer

For i = 0 To 2: m = n + 1: Next i

For i = 1 To 2: Call fun (m, n, i): Next i

For i = 0 To 3

Print m;

Next i

End Sub

点击查看答案

第2题

执行下列事件过程，y的值为（）。 Private Sub Command1_Click() x = 3 If x > 10 Then y = x ^ 2 + 3 * x + 2 Else If x > 5 Then y = 3 * x + 2 Else y = 5 End If End If End Sub

A、20

B、11

C、5

D、3

点击查看答案

第3题

现有程序如下： 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

点击查看答案

第4题

由高中数学可知，对于连续函数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

点击查看答案

第5题

设有名称为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)

点击查看答案

第6题

为计算[图] 的值，某人编写了函数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

点击查看答案

第7题

设有以下程序代码： 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

点击查看答案

第8题

下面叙述中正确的是_______________。

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

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

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

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

点击查看答案

第9题

下面程序片段中有错误： Sub pric() Public x As Integer x = Array(1, 2, 3, 4, 5) …… End Sub 为了避免出错，正确的修改方案是_______________。

A、把Public x As Integer 改为Public x As Variant

B、把Public x As Integer 改为Dim x(5)

C、把Public x As Integer 改为Static x

D、把x = Array(1, 2, 3, 4, 5)改为x = Array(0, 1, 2, 3, 4)

点击查看答案

第10题

最大公约数：若整数X既能被整数a整除，又能被整数b整除，则称X是a和b的公约数，整数a和b公约数集合中最大的整数，称为最大公约数。例如：6和12的最大公约数6，8和12的最大公约数4，5和12的最大公约数1，等等。问题：编写一个求最大公约数的函数。要求：（1）编写命令按钮Command1的单击事件过程，输入两个正整数，求出并输出最大公约数。（2）编写一个函数使用辗转相除法来求两个正整数的最大公约数。（3）以上函数被Command1的单击事件过程调用。

点击查看答案