单项选择题

下列程序运行时输出的结果是( )。
Option Base 1
Const a=10
Private Sub Form_Click0
Dim x(a)As Integer
k=-1
For i=1 To a
x(i)=ik
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

<上一题目录下一题>

热门试题

单项选择题

窗体上有一个列表框和一个文本框，编写下列两个事件过程： Private Sub Form. Load() List1.AddItem 北京 List1. AddItem 天津 List1. AddItem 上海 Text1. Text= End Sub Private Sub List1. Click() Print Text1. Text+List1. Text End Sub 程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。

A．中国北京
B．中国天津
C．中国上海
D．北京中国

单项选择题

下列程序代码实现生成20个0～100之问的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段( )，完成程序。 Private Sub Command1 Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=______ Text1. Text=Text1. Text＆arr(i)＆Chr(13)＆Chr(10) Next i Surn=0 For Each X______ If X＞50 Then Print Tab(20)；X Sum=Sum+X End If NextX Print Tab(20)； Sum= ；Sum End Sub

A．Int(Rnd*99+1)In arr
B．Int(Rnd)In arr
C．Int(Rnd*99+1)In arr()
D．Int(Rnd)In arr()

相关试题