Private Sub Command1_Click()
a=10
s=0
D．o
s=S+a*a*a
a=a-l
Loop until a<=0
Print S
E．nd sub
A．13+23+33+…lO3的值
B．10!+…+3!+2!+1!的值
C．(1+2+3+…+lO)3的值
D．10个103的和
[单选题]阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是A．3B．9C．14D．21
[单选题]下列程序的输出结果为( )。 Private Sub Command1_Click() Dim a(20) For j=1 To 20 Step2 a(j)=j Next i Print a(1)+a(2)+a(3) End SubA．4B．5C．6D．7
[单选题]下面程序：Private Sub Command1_Click（）m$="ABC"n$="abc"k$=Lcase$（m$）j$=Ucase$（n$）Print Asc（k$）End Sub运行后输出结果为（）A . 96B . 97C . 65D . 64
[单选题]给出下面程序： Private Sub Command1_Click() Dim x，y，z X=False For Each y In 2 If y．Text="Hello" Then x=True Exit For End If Next y End Sub 下面描述正确的是A．退出For Each…Next循环的条件是x=TrueB．退出For Each…Next循环的条件是x=FalseC．程序检查y对象的Text属性，等于“”时退出For Each…Next循环D．程序逐一查找在z
[单选题]运行下列程序：Private Sub Command1_Click( )a = Val(InputBox("a = "))Print fun1(a)E．nd SubPrivate Function fun1(b)If b > 0 Thenfun1 = 10E．lseIf b = 0 Thenfun1 = 9E．lsefun1 = 8E．nd IfE．nd Function单击按钮后从键盘为变量a输入数据3，输出的结果是( )。A．3B．8C．9D．10
[单选题]下列程序： Private Sub Command1_Click() a=InputBox("请输入") b=InputBox("请输入") Print=a+b End Sub 运行时输入3和4，输出的结果是A．7B．34C．3+4D．出错
[单选题]运行以下程序后，输出的图形是 Private Sub Command1_Click() Line(500，500)-(1000，500) Line(750，300)-(750，700) End SubA．一条折线B．两条分离的直线段C．一个伞形图形D．一个十字形图形
[单选题]运行以下程序后，输出的图形是 Private Sub Command1_Click() Line(500，500)-(1000，500) Line(750，300)-(750，700) End SubA．一条折线B．两条分离的直线段C．一个伞形图形D．一个十字形图形
[单选题]运行下列程序：Private Sub Command1_Click()a = 100b = 24a = a Mod bb = b / aa = b - aD．ebug.Print aE．nd Sub单击Command1命令按钮后，则在立即窗口上输出结果是()。A．2B．24C．50D．100
[单选题]下面程序的运行结果是 Private Sub Command1_Click() x＝1:y＝1 For i=1 To 3 x＝x+y:y＝y+x Next i:print x,y End SubA．6 6B．5 8C．13 21D．34 35