【单选题】在窗体上画一个名称为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 程...
【单选题】在窗体上画一个名称为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 程...
【单选题】在窗体上画一个名称为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 程序运行后...
【单选题】在窗体上画两个名称为Text1、Text2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim x As Integer, n As Integer x=1 n=0 Do while x < 20 x=x*2 n=n+2 Loop TextText =str(x) Textd. Text = Str(n) End...