单项选择题
在窗体上画一个名称为Command1的命令按钮,然后编写如下代码:
Option 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)
c=x(i)
Else
d=d-c
End If
Next I
Print d
End Sub
程序运行后,如果单击命令按钮,则在窗体上输出的内容为 ______。
A.89
B.99
C.23
D.77
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
在窗体上画—个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a<=0 Print s;a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容,是 ______。
A.79
B.340
C.97
D.死循环
点击查看答案&解析
单项选择题
以下能判断是否到达文件尾的函数是 ______。
A.BOF
B.LOC
C.LOF
D.EOF
点击查看答案&解析
相关试题
在窗体上画—个名称为Command1的命令按钮...
在窗体上画两个滚动条,名称分别为Hscrolll...
在窗体上画—个名称为Command1的命令按钮...
在窗体上画—个名称为Text1的文本框,并编...
设有如下程序: Private Sub Command1...