单项选择题

阅读程序： Option Base 1 Private Sub Form_Click() 　　Dim art,Sum 　　Sum=0 　　art=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 　　Pdnt Sum End Sub 程序运行后，单击窗体，输出结果为( )。

A．13
B．14
C．27
D．15
<上一题 目录 下一题>
热门 试题

单项选择题
假定在窗体(名称为Form1)的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 a Color As String*10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Crick() Dim rec As animal Open c: vbTest.dat For Random As #1 Len=Len(rec) rec.animalName= Cat rec.aColor= White Put #1,,rec Close #1 End Sub 则以下叙述中正确的是( )。
A．记录类型animal不能在Form1中定义，必须在标准模块中定义
B．如果文件c:\vbTest.dat不存在，则Open命令执行失败
C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D．语句“Put#l,,rec”将animal类型的两个数据元素写到文件中
单项选择题
在窗体上添加一命令按钮，名为Command，事件过程如下： option base 1 Private Sub Command1_Click() Dim a(4,4)As Variant For i=1 To 4 For j=1 To 4 a(i,j)=(i-1)*3+j Next i For i=3 To 4 For j=3 To 4 Print a(i,j)； Next j Print Next i End Sub 该程序执行后，结果是( )。
A．9 10 12 13
B．7 10 12 13
C．9 12 10 13
D．8 11 9 12
相关试题