单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Opinion Base 1 Private Sub Command1_ Click() d = 0 c = 10 x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) ＞ c Then d = d + x(i) Else d = d - c End if Next i Print d End Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为______ 。

A．89
B．99
C．23
D．77
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个命令按钮，其名称为command1，然后编写如下代码：Option Base 1Private Sub Command1_ Click()Dim ArrArr = Array(43, 68f -25, 65, -78, 12, -79, 43, -94, 72)pos = 0neg = 0For k = 1 To 10If Art(k) ＞ 0 ThenElseEnd IfNext kPrint pos, negEnd Sub以上程序的功能是，计算并输出数组Arr中10个数的整数之和pos与负数之和neg，请填空。
填空题
以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。Option Base 1Private Sub Form Click()Dim Arr(10) As IntegerDim Max As IntegerRandomizeFor I = 1 To 10Arr(i) = Int (Rnd * 1000)Next iMax= ______ For i = 2 To 10If______ ThenMax = Arr(i)End IfNext iPrint MaxEnd Sub
相关试题