[单选题]

有如下程序: Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为______。

A.25

B.26

C.27

D.28

参考答案与解析:

相关试题

有如下程序:Option Base 1Private Sub Form_Clic

[单选题]有如下程序: Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arE(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为______。A.25B.26C.27D.28

  • 查看答案
  • 阅读程序: Option Base 1Private Sub Form_Clic

    [单选题]阅读程序: Option Base 1 Private Sub Form_Click( ) Dim arr Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 TO 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+art(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为A.13B.14C.27D.15

  • 查看答案
  • 有如下程序:Option Base 1Pfivate Sub Form_Clic

    [单选题]有如下程序: Option Base 1 Pfivate Sub Form_Click() Dim arr,Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Nexti print Sum End Sub 程序运行后,单击窗体,输出结果为( )。A.25B.26C.27D.28

  • 查看答案
  • 有如下程序:Option Base 1Private Sub Form. Cli

    [单选题]有如下程序: Option Base 1 Private Sub Form. Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为______。A. 25B.26C.27D.28

  • 查看答案
  • 阅读程序:Option Base 1Private Sub Form. Clic

    [单选题]阅读程序: Option Base 1 Private Sub Form. Click() Dim arr,Sum Sum= 0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为A.13B.14C.27D.15

  • 查看答案
  • 有如下程序:Option base 1Private Sub Command1_

    [单选题]有如下程序:Option base 1Private Sub Command1_ClickD.im arr(10)A.rr=Array(10,35,28,90,54,68,72,90)F.or Each a In arrIf a>50 thenSum=sum+aE.nd IfNext aE.nd Sub运行上述程序时出现错误,错误之处是A.)数组定义语句不对,应改为Dim arrB.)没有指明For 循环的终值C.)应在For语句之前增加sum=0D.)Next a 应改为next

  • 查看答案
  • 设有如下程序:Option Base 1Private Sub Command1

    [单选题]设有如下程序: Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox("输入数据") If n<10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=Cl

  • 查看答案
  • 请阅读程序:Option Base 1Pfivate Sub Form_Clic

    [单选题]请阅读程序:Option Base 1Pfivate Sub Form_Click()D.im Arr(4,4)As IntegerF.or i=1 To 4F.or j=1 To 4A.rr(i,j)=(i-1)*2+jNext jNext iF.or i=3 To 4F.or j=3 To 4Print Arr(j,i);Next jPrintNext iE.nd Sub程序运行后,单击窗体,则输出结果是( )。A.5 7 6 8B.6 8 7 9C.7 9 8 10D.8 10 8 11

  • 查看答案
  • 有如下程序:Option Base 1 Private Sub Form_Cli

    [主观题]有如下程序:Option Base 1Private Sub Form_Click()D.im arr,SumSum=0F.or i=1 To 10If arr(i)/3=arr(i)/3 ThenE.nd IfNext iE.nd Sub程序运行后,单击窗体,消息框的输出结果为( )。

  • 查看答案
  • 有如下程序,运行后输出的是()。Option Base 1Private Sub

    [单选题]有如下程序,运行后输出的是( )。 Option Base 1 Private Sub Commandl_click() Dim aj(1 To 10) Forj=6 To 10 aj(j)=j*2 Nextj Printaj(1)+aj(j) End SubA.5B.20C.22D.显示出错信息

  • 查看答案
  • 有如下程序:Option Base 1Private Sub Form_Clic