下列程序段的执行结果为.
 Dim A(10)，B(5)
 For i = 1 To 10
 A(i) = i
 Next i
 For j = 1 To 5
 B(j) = j * 20
 Next j
 A(5) = B(2)
 Print "A(5)=";A(5)


A．A(5)=5

B．A(5)=10

C．A(5)=20

D．A(5)=40

下列程序运行后的输出结果是[ ]
DIM   A（6）  AS   INTEGER
FOR   I= 1  TO  6
A（I）= I
NEXT  I
PRINT   A（I）

A．0

B．6

C．7

D．显示出错信息

语句A%=6.8执行后，变量A%的值是（ ）。

A．6

B．7

C．6.8

D．7.0

下列语句使用正确的是（   ）

A．DIM   A(6  TO   2)   AS  SINGLE

B．LIST2.REMOVEITEM   “北京”

C．LIST2.CLS

D．LIST2.LISTINDEX=0

组合框的类型由其（_________）属性决定。

要求编写一个“二进制加法”的VB程序，功能如下：在文本框Textl中输入一个二进制数，文本框Text2中输入另一个二进制数，单击“加法”按钮Command1后，在文本框Text3中显示二进制表示的和，程序运行界面如图a所示。

(1)在设计程序界面时，应使用图b所示“控件工具箱”中的____________(填写相应编号)添加按钮Commandl。
(2)实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Commandl_Click()

Dim s1 AsString，s2 As String，s3 As String，tmp As String

Dim i As Integer，t As Integer，k As Integer

s1=Text1.Text：s2=Text2.Text

If Len(s1)<Len(s2) Then tmp=sl：sl=s2：s2=tmp

For i=1 To Len(s1)-Len(s2)

s2="0"+s2

Next i

i=Len(s1)：k=0

Do While i>=1

t=Val(Mid(sl，i，1))+Val(Mid(s2，i，1))+k
If t>=2 Then
s3=___________：k=1
Else
s3=t&s3：k=0
End If
i=___________
Loop
If k=1 Then s3="1"+s3
Text3.Text=s3
End Sub
(3)运行该程序，输入数据如图a所示，程序执行完毕时，变量k的值为_________。

（加试题）编写一个VB程序实现数据左右交替上升排序。功能如下：随机产生n个不重复的整数存数组a，并在列表框listl中显示，单击“排序”按钮Commandl，在列表框list2中显示排序后的数据。某遍程序运行后，数组a中存储的左右交替上升排序的n个正整数，如下表所示：

a(1)	a(2)	a(3)	……	a(n-2)	a(n-1)	a(n)
1	4	7	……	8	6	2

 
实现该功能的VB程序如下，但加框处代码有错，请改正。
Constn=10
Dima(1 To n) As Integer
Private Sub Form_Load()
‘随机产生n个不重复的整数存数组a，并在列表框listl中显示。代码略。
End Sub
Private Sub Command1_Click()

Dim i As Integer，j As Integer，t As Integer

Dim i minl As Integer，imin2 As Integer

For i=1 To n\2

Imin l=i：imin2=i+1
If a(iminl)>a(imin2) Then t=iminl：iminl=imin2：imin2=t
For j=i+2 To n-i+1
If a(j)<a(imin1) Then
imin2=iminl；iminl=j
    ‘(1)  _______________________________ 
imin 2=j
End If
Next j
If i◇imin 1 Then t=a(i)：a(i)=a(imin1)：a(imin1)=t
If imin 2=i Then      ‘(2)  _______________________________ 
If n-i+1◇imin2 Then t=a(n-i+1)：a(n-i+1)=a(imin2)：a(imin2)=t

Next i

For i=1 To n

Text2.Text=Text2.Text+Str(a(i))

Next i

End Sub

编写矩阵乘法的VB程序。矩阵是由m×n个元素数排列而成，例如m*n矩阵是由m行n列数据排列而成。若A矩阵是m×s个元素，B矩阵是s×n个元素，将A矩阵乘以B矩阵得到C矩阵，C矩阵是m×n个元素。

计算方法：矩阵A的第i行s个元素(i,1)，(i,2)，…，(i,s)和矩阵B的第j列s个元素(1,j)，(2,j)，…，(s,j)对应相乘后相加，就得到乘积矩阵C的第i行第j列元素，即(i,j)值=(i,1)的值×(1,j)的值+(i,2)的值×(2,j)的值+…+(i,s)的值×(s,j)的值。

例如：A矩阵3×5个元素，B矩阵5×2个元素相乘后得到3×2的C矩阵，如图1所示。其中c(5)=a(11)×b(1)+a(12)×b(3)+a(13)×b(5)+a(14)×b(7)+a(15)×b(9)。

3×5矩阵A （由数组a存储） a(1) a(2)   a(3)   a(4)   a(5) a(6)   a(7) a(8)   a(9)   a(10) a(11)  a(12)  a(13) a(14) a(15)	×	5×2矩阵B （由数组b存储） b(1) b(2) b(3) b(4) b(5) b(6) b(7) b(8) b(9) b(10)	=	乘积矩阵C （由数组c存储） c(1) c(2) c(3)    c(4) c(5)    c(6)
图1

 

 

 

 

（1）如下图所示，矩阵A×矩阵B的乘积矩阵C的第2行第3列的值为_________。

矩阵A	矩阵B
1   0 2   1 4   0	2  4  1 5  1  3

 
（2）根据上述矩阵乘法规则，小明设计了一个求矩阵A、B的乘积矩阵C的程序，代码如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Const max = 10
Dim a(1 To max * max) As Integer ’ 存储m×s矩阵A的各元素
Dim b(1 To max * max) As Integer ’ 存储s×n矩阵B的各元素
Dim c(1 To max * max) As Integer ’ 存储乘积矩阵C的各元素
Dim m As Integer, s As Integer, n As Integer, i As Integer, strline As String
m=3:    n=2:   s=5
’从左向右、由上往下依次将矩阵A和矩阵B的各元素存储于数组a和数组b中，代码略
For i = 1 To_________
strline = “”
For j = 1 To n
c ((i - 1) * n + j) = 0
For k = 1 To _________
c((i - 1) * n + j)=c ((i - 1) * n + j)+a((i - 1) * s + k) * b__________)
Next k
strline = strline + Str(c((i - 1) * n + j))
Next j
List3. AddItem strline

Next i

End Sub

对数组a中的n个元素进行排序，生成升序的数据序列，结果如下表所示：

a(1)	a(2)	a(3)	……	a(n-2)	a(n-1)	a(n)
17	39	48	……	79	79	100

 
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Const n = 8
Dim a(1 To n) As Integer, left As Integer, right As Integer, m As Integer
Dim i As Integer, j As Integer, t As Integer

’读取一组数，存储在数组a中，代码略

 For i = 2 To n

    left = 1

    __________________

    Do While left <= right

m = (left + right) \ 2

If a(i) < a(m) Then right = m - 1 Else left = m + 1

    Loop

__________________

    t = a(i)

For j = i To m + 1 Step -1

a(j) = a(j - 1)

    Next j

    a(m) = t

Next i

’输出排序结果，代码略
End Sub

某算法的部分流程图如图所示。

执行这部分流程，s的初值为0，输入n为5，则输出s的值为

A．1

B．4

C．5

D．6