【推荐1】代数式对应的VB表达式是（ ）。

A．a + b / c - d	B．(a + b) / c - d
C．a + b / (c - d)	D．(a + b) / (c - d)

【推荐2】某方程实数根x=，则用来计算x的VisuAl BAsiC表达式是( )

A．B ^ 2 / (2 * A)	B．SqrB. / 2 * A
C．Sqr(B / 2 * A)	D．B ^ 0.5 / (2 * A)

【推荐3】某算法用流程图描述如右图，下列说法正确的是（   ）
          

A．“s←s+a/b”执行的次数为5次

B．输出的a值为5

C．只能用VB实现该算法

D．a、b、s的数据类型应该为Integer型

【推荐1】有如下VB程序段：
s = ""
For i = 1 To 3
       If i <= 1 Then
             k=1
       Elself i <= 2 Then
             k=2
       End If
       If i <=3 Then k= 3
            s=s+ Str(k)
Next i
Label1 caption = s
该程序段运行后，标签Label1上显示的内容是（       ）

A．123

B．321

C．223

D．333

【推荐2】【加试题】有如下VB程序段：
a(1)=1
For i=2 To 6
   Randomize
   a(i)=a(i-1)+Int(Rnd*5+1)
   If a(i) Mod 2=1 Then

   a(i)=a(i)\2+1

   Else

   a(i)=a(i)/2

   End If
Next i
执行程序后，a数组各元素可能是

A．1 3 4 6 7 9

B．1 2 0 3 5 6

C．1 2 3 4 5 4

D．1 3 4 5 1 1

【推荐3】下列选项中，与语句“”功能相同的是（       ）

A．

B．

C．

D．

【推荐1】有如下VB程序段：
For i = 1 To 6

a(i) = Int(Rnd * 10) + 1

Next i
For i = 1 To 5

If i Mod 2 = 1 And a(i) < a(i + 1) Then

t = a(i): a(i) = a(i + 1): a(i + 1) = t

Else

a(i) = a(i) - 1

End If

Next i
执行程序后，a数组各元素可能是（       ）

A．9，9，8，7，5，3	B．2，6，10，8，9，5
C．9，6，7，3，11，8	D．9，3，8，-1，7，2

【推荐2】小新同学今天刚刚学习了循环结构，老师讲的例题是求5！，课后小新想求10！，结果他在老师的程序基础上修改后，却出现了如下图的错误（代码见下图），以下说法正确的是（       ）

Dim i As Integer——1 Dim s As Integer——2 s=1——3 For i=1 To 10        s=s*i——4 Next i Print s

A．1处改为Dim i As long	B．2处改为Dim s As long
C．3处改为s=0	D．4处改为s=s+i

【推荐3】设有如下通用过程：
Public Sub Fun(a( ), x As Integer)

For i = 1 To 5

x = x + a(i)

Next i

End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()

Dim arr(5) As Variant

For i = 1 To 5

arr(i) = i

Next i

n = 10

Call Fun(arr( ), n)

Text1.Text = n

End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是（          ）

A．10

B．15

C．25

D．24

【推荐1】某数列前三项分别为：a(1) = 2、a(2 )= 3、a(3) = 4，以后每项都满足: a(i) = a(i-3 )+ a(i-1) （i>3，i,i-3,i-1为a的小标）。如果用数组a存储该数列的前20项，下面程序段划线处应填入
       a(1)=2 : a(2)=3 : a(3)=4
       For i=______ To 20
             a(i) = a(i - 3) + a(i - 1)
       Next i

A．6

B．9

C．13

D．4

【推荐2】某冒泡排序算法的VB程序段如下：
i = n
Do While i>=2
       For j=_________________________________
             If a（j）>a（j-1） Then
                 t = a（j）：a（j）= a（j-1）：a（j-1）=t
             End If
       Next j
       i=i-1
Loop
执行完上述程序段后，实现a数组元素有序排列，则划线处的代码可以是（       ）
①n To n + 2- i Step –i            ②n To i + 1 Step -1            ③2 To i            ④2 To n-i

A．②③

B．②④

C．①④

D．①③

【推荐3】在Visual Basic中，语句Text1.Text=“red”执行后，文本框Text1 (       )

A．名称变为“red”	B．文字内容变为“red”
C．背景色变为红色	D．文字颜色变为红色