VB高手帮帮忙！！！！！！！急~~~~~~~~~~~

Question

已知某椭圆长轴为3000，短轴为2400，轨道中心为（4000,3000），现要求在窗体上绘制一背景框颜色为黑色，显示一个半径为400的球体，球体颜色为红色，要求在已知椭圆轨道上运行的动态画面，要求用定时器进行编程，用FormLoad对图片框进行初始化，动画频率为0.15

Answer 1

选B
Dim S(9)
For i=0 To 9
S(i)=3*I
Next i
Print S(S(3))
(A) 12 (B) 27 (C) 0 (D) 出错
32、下列数组声明正确的是（ b ）。
(A) n=5
Dim a(1 to n) As Integer (B) Dim a(10) As Integer
ReDim a(1 to 12)
(C) Dim a() As Single
ReDim a(3 ,4) As Integer (D) Dim a() As Integer
n=5
ReDim a(1 to n) As Integer
33、下列控件中，没有Caption属性的是（b ）。
(A) 框架 (B) 列表框 (C) 复选框 (D) 单选按钮
34、下面关于计时器控件（Timer）的叙述中，错误的是（ b ）。
(A) 计时器控件运行时不可见
(B) 通过Color属性可设置计时器控件的颜色
(C) 计时器控件只有一个事件即Timer事件
(D) 计时器的Interval属性值设为0时，计时器无效
35.要在文本框Text1中显示列表框List1中最后一个项目的正确语句是（ c ）。
(A)Text1.Text=List1.List(ListCount-1)
(B)Text1.Text=List1.List(0)
(C)Text1.Text=List1.List(List1.ListCount-1)
(D)Text1.Text=List1.ListIndex
36．在组合框Combo1中选定某一项，单击命令按钮Command1即可删除该项，代码如下。
Private Sub Command1_Click()
If Combo1.ListIndex <> -1 Then
Combo1.RemoveItem _b___
End If
End Sub
(A) Combo1.ListCount (B) Combo1.ListIndex
(C) Combo1.Text (D) Combo1.MultiSelect
37. 设有如下程序：
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0: n = 0
For i = 1 To 5
x = n / i: n = n + 1: sum = sum + x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是（ c ）。
(A) 1+1/2+ 2/3+3/4+4/5 (B) 1+1/2+2/3+3/4
(C) 1/2+2/3+3/4+4/5 (D) 1+1/2+1/3+1/4+1/5
38. 在窗体上画一个名称为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 x1 As Integer, y1 As Integer)
x1 = x1 + 2
y1 = y1 + 2
End Sub
程序运行时，单击命令按钮，在窗体上显示的内容是( d )。
(A) 10 5 (B) 12 5 (C) 10 7 (D) 12 7
39. 下列程序段的执行结果为（ d）
a=75
If a > 70 Then I=2
If a < 90 Then I=4
Print "I="; I
（A）I＝1 （B） I＝2 （C） I＝3 （D） I＝4
40. 从磁盘上读入一个名为“c:\filel.txt”的顺序文件，下面程序段正确的是（ d ）。
(A) Open "c:\filel.txt" For Output As # 2 (B) Open c:\filel.txt For Input As # 1
(C) F="c:\filel.txt"
Open "F" For Input As # 2 (D) F="c:\filel.txt"
Open F For Input As # 1