在窗体上画一个名称为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
程序运行后,如果单击命令按钮,则在窗体上输出的内容为( )。
发布于 2022-05-11 10:19:39
登录后免费查看答案
关注者
0
被浏览
11