题目内容

请阅读程序： Sub subP(b（）As Integer) For i=1 To4 b(i)=2*i Next i End Sub Private Sub Commandl Click（） Dim a(1 To 4)As Integer a(1)=5:a(2)=6:a(3)=7:a(4)=8 subP a（） For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，则输出结果是（）。

A. 2 4 6 8
B. 5 6 7 8
C. 10 12 14 16
D. 出错

查看答案

搜索结果不匹配？点我反馈

更多问题

窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面的事件过程： Private Sub Command1_Click（） Timer1．Enabled=True End Sub Private Sub Form_Load（） Timer1．Interval=10 Timer1．Enabled=False End Sub Private Sub Timer1 Timer（） Command1．Left=Command1．Left+10 End Sub 程序运行时，单击命令按钮，则产生的结果是（）。

A. 命令按钮每10秒向左移动一次
B. 命令按钮每10秒向右移动一次
C. 命令按钮每10毫秒向左移动一次
D. 命令按钮每10毫秒向右移动一次

Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，21，34，55，89，…某人编写了下面的函数，判断大于1的整数X是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。 Function Isfab(x As Integer)As Boolean Dim ii As Integer，b As Integer，C As Integer，flag As Boolean flag=False a=1：b=1 Do While x＜b c=a+b a=b b=c If x=b Then flag=True Loop Isfab=flag End Function 测试时发现对于所有正整数X，函数都返回False，程序需要修改。下面的修改方案中正确的是（）。

A. 把a=b与b=C的位置互换
B. 把c=a+b移到b=C之后
C. 把Do While x＜b改为Do While x＞b
D. 把If x=b Then flag=True改为If x=a Then flag True

设有如下程序段： Dim a(10) … For Each X In a Print X； Next x 在上面的程序段中，变量X必须是（）。

A. 整型变量
B. 变体型变量
C. 动态数组
D. 静态数组

若要获得组合框中输入的数据，可使用的属性是（）。

A. ListIndex
B. Caption
C. Text
D. List