【单选题】在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a s=0:j=1 a=Array(1,2,3,4) For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next Print s End Sub 运行上面的程序并单击命令按钮,其输出结果是
【单选题】在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*J j=j*10 Next i Print s End Sub 运行上面的程序,单击命令按钮,其输出结果是( )。
【单选题】窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Com.mand1),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Commandl_Click() Dim n%.k% n=Len(Te.Text) For k=0 To Listl.ListCount-1 If Left(Listl.List(k)...
【单选题】窗体上有一个命令按钮 Com1 ,并有如下程序: Private Sub Com1_Click() Dim x As Integer , y As Integer y=0 For k = 1 To 10 x = Int(Rnd * 90 + 10) y = y + x Mod 2 Next k Print y End Sub 程序运行后,单击命令按钮,输出的结果是
【简答题】(30)在窗体上画一个名为 Command1 的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(1, 2, 3, 4) j=1 For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序,其输出结果是( )。 A)1234...
【单选题】在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) s = 1234 j = 1000 For i = 1 To 4 s = s + a(i) * j j = j * 10 Next i Print S End Sub运行上面的程...