题目内容
（请给出正确答案）
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click（）
Dim c As Integer, d As Integer
d = 0
c = 6
x = Array（2, 4, 6, 8, 10, 12）
For i = 1 To 6
If x（i） ＞ c Then
d = d + x（i）
c = x（i）
Else
d = d - c
End If
Next
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为（）。
A．10
B．16
C．12
D．20
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：OptionBase1PrivateSubComma”相关的问题
A、A. 15
B、B. 18
C、C. 21
D、D. 24
A．1 2
B．1 2 3
C．3 4 5
D．4 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)
A、20 10 10 10
B、10 15 20 10
C、20 15 10 15
D、20 10 20 10
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、局部变量可以在窗体的所有过程前面定义
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
