单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Dption 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，然后编写如下事件过程； Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array( 北京 , 上海 , 天津 , 重庆 ) Print city(1) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。
A．空白
B．错误提示
C．北京
D．上海
单项选择题
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText=InputBox( 请输入 ) Text1. Text=strText End Sub Private Sub Text1_Change() Label1. Caption=Right(Trim(Text1. Text), 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是______。
A．空
B．abcdef
C．abc
D．def
相关试题