单项选择题

有如下程序: 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.25
B.26
C.27
D.28
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序: Private Sub Command1 Click() Dim x, y, z As Integer x = 5 y = 7 z = 0 Text1.Text = Call P1(x, y, z) Text1.Text=Str(z) End Sub Sub Pl(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub 程序运行后,如果单击命令按钮,则在文本框中显示的内容是
A.0
B.12
C.Str(
D.没有显示
填空题
算法的复杂度主要包括______复杂度和空间复杂度。
相关试题
  • 在名称为Form1的窗体上绘制一个文本框,其...
  • 下面的程序用于根据文本框Text中输入的内容...
  • 设有程序:Option Base 1Private Sub ...
  • 建立随机文件TEST.DAT,存放学生的姓名和...
  • 在窗体上画一个名称为Command1、标题为“...