题目内容
（请给出正确答案）
设有如下程序： 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
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“设有如下程序： Private Sub sV（ByVal m As Integer, n As Integer) m = m * 2 n = n - 5 Print m”相关的问题
Public Sub fun (a As Integer, b As Integer, c As Integer)
Do
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
A、20
B、11
C、5
D、3
A、调用过程语句有错，参数不匹配
B、程序有错，数组下标越界
C、y数组中保存的是x数组每行数据之和
D、x数组中数据的取值范围是 1 ～ 10
由高中数学可知，对于连续函数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
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)
为计算
的值，某人编写了函数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
A、0
B、1
C、3
D、4
A、全局变量只能在标准模块中定义
B、全局变量可以在窗体模块中定义
C、窗体级变量可以在窗体的过程中定义
D、局部变量可以在窗体的所有过程前面定义
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)
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
