单项选择题

阅读程序： 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．13
B．14
C．27
D．15

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程： Private Sub Command1_Click( ) CommonDialog1.FileName= CommonDialog1.Hker= All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt CommonDialog1.Filtefindex=2 CommonDialog1.DialoSTitle= VBTest CommonDialog1.Action=1 End Sub 对于这个程序，以下叙述中错误的是

A．该对话框被设置为“打开”对话框
B．在该对话框中指定默认文件名为空
C．该对话框的标题为VBTest
D．在该对话框中指定的默认文件类型为文本文件(*.Tx

单项选择题

在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Sub Command1_Click( ) Dim x As integer Static y As integer x=10 y=5 Call f1(x，y) Print x，y End Sub Private Sub f1(ByRef xl As Integer，y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是

A．10 5
B．12 5
C．10 7
D．12 7

相关试题