单项选择题
在窗体上画—个名称为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
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
在窗体上画一个名称为Text1的文本框,并编写如下程序: Private Sub Form Load() Show Text1.Text= Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,x As Single,Y As Single) Print 程序设计 End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Visual Basic ; End Sub 程序运行后,如果按A键,然后单击窗体,则在窗体上显示的内容_________。
A.Visual Basic
B.程序设计
C.A程序设计
D.Visual Basic程序设计
点击查看答案&解析
单项选择题
设有如下程序: Private Sub Command1_Click() Dim sum As Double,x As Double sum=0 n=0 For i=1 To 5 x=n i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算—个表达式的值,这个表达式是_________。
A.1+1/2+2/3+3/4+4/5
B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5
D.1+1/2+1/3+1/4+1/5
点击查看答案&解析
相关试题
在窗体上画—个名称为Command1的命令按钮...