单项选择题

下列程序运行时输出的结果是( )。 Option Base 1 Const a=10 Private Sub Form_Click() Dim x(a)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub

A．1 3 5 7 9 10
B．-1-3-5-7-9
C．-1 2-3 4-5 6-7 8-9 10
D．1-2 3-4 5-6 7-8 9-10
<上一题 目录 下一题>
热门 试题

单项选择题
下列( )事件过程可以将打开文件对话框的标题改变为“new Caption”。
A．Private Sub Command1_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowFont End Sub
B．Private Sub Command1_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowOpen End Sub
C．Private Sub Command1_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowHelp End Sub
D．Private Sub Command1_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowColor End Sub
单项选择题
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End Sub
A．10
B．14
C．15
D．120
相关试题