【单选题】在窗体上画一个名称为Command1的命令按钮,然后编写如下代码: Option Base 1 Prirate 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 程...
【单选题】在窗体上画一个名称为Command1的命令按钮,然后编写如下代码: OPtion Base l Private Sub Commandl_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 lf 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的命令按钮,然后编写如下程序: Opinion 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) Else d = d - c End if Next i Prin...
【单选题】在窗体上画一个名称为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 程序运行后...
【单选题】( 32 )在窗体上画一个名称为 Command1 的命令按钮,并编写以下程序: Private Sub Command1_Click() Dim n%,b,t t = 1:b = 1:n = 2 Do b = b*n t = t + b n = n +1 Loop Until n>9 Print t 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...