(26)在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Private Option Base 1 Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 IfX(i)c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后,单击命令按钮,则在窗体上输出的结果是 。A.10 B.12 C.16 D.20
(26)在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Private Option Base 1 Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 IfX(i)>c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后,单击命令按钮,则在窗体上输出的结果是 。A.10 B.12 C.16 D.20
相关考题:
在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Option Base 1 Private Sub Command1_Click() Dim c As Integer , d As Integer d = 0 c = 6 X = Araay(2,4,6,8,10,12) For i = 1 To 6 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. 10 B. 12 C. 16 D. 20
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是______。A.VVVB.VisC.sicD.11
在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:Option Base1Private Sub Command1_Click()Dim c As Integer,d As Integerd=0c=6X=Array(2,4,6,8,10,12)For i=1 To 6If X(i)>c Thend=d+X(i)c=X(i)Elsed=d-cEnd IfNext iPrint dEnd Sub程序运行后,单击命令按钮,则在窗体上输出的内容为( )。A.10B.12C.16D.20
在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:Option Base 1Pdvate Sub Command1_Click()Dim c As Integer,d As Integerd=0c=6X=Array(2,4,6,8,10,12)For i=1 To 6If X(i)c Thend=d+X(i)c=X(i)Elsed=d-cEnd IfNext iPrint dEnd Sub程序运行后,单击命令按钮,则在窗体上输山的结果是( )。A.10B.12C.16D.20
在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Option Base 1 Private Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 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.10B.12C.16D.20
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Privme Sub Command1_Click( ) a$="VisualBasic" Print String(3,a$) End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是A.VVVB.VisC.sicD.11
在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Option Base 1Private Sub Commandl_Click0Dim C As Integer, d As Integer d=0 c=6 X = Array(2, 4, 6, 8, 10, 12) For i= 1 To 6 If X(i) > c Then d = d + X(i) c = X(i) Else d=d-c End If Next i Print dEnd Sub程序运行后,单击命令按钮,则在窗体上输出的内容为( )。A.10B.12C.16D.20
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")End Sub程序运行后,单击命令按钮,窗体上显示的是( )。A.123.45B.12345.00C.12345D.00123.45