单项选择题

在窗本上放置一个命令按钮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 i
Print d
End Sub

A.10
B.12
C.16
D.20
<上一题 目录 下一题>
热门 试题

单项选择题
下列程序段的输出结果为( )。 Dim M(5, 5), S(5) For i=1 To 5 S(i)=0 For j=1 To 5 M(i, j)=i+j S(i)=S(i)+M(i, j) Next j Next i For Each x In S Print x; Next x
A.20 23 24 35 40
B.20 25 30 35 40
C.20 23 25 35 40
D.20 25 35 40 45
单项选择题
有下列程序段,单击命令按钮执行程序后,输出结果为( )。 Option Base 1 Private Sub Command1_Cliek() Dim x x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1=0 s2=0 Fork=1 To 10 If (x(k)>0) Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1 Abs(s2) Print Y End Sub
A.148
B.40
C.-40
D.3.7
相关试题
  • 窗体上有两个文本框Text1、Text2以及一个...
  • 下列程序的功能是:调用字体对话框来设置文...
  • 在窗体上画4个文本框,并用这4个文本框建...
  • 下列程序执行后,变量x的值为( )。 Dim...
  • 在窗体上有一个文本框Text1,Text属性值为...