下列程序段的执行结果为.
 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程序。矩阵是由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

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

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

A．1

B．4

C．5

D．6

（加试题）试场编排方法：每试场人数30，尾数试场可能不足30，按6行5列的布局编排试场，每个试场的座位号如下图所示。编写一个VB程序实现上述功能：在文本框Textl中输入学生数n，在文本框Text2中输入试场号m，单击“确定”按钮Commandl，在列表框中Listl中输出第m试场的编排表，程序运行界面如图b所示。
(1)999个学生的考号依次是001，002，...，998，999。根据上述试场编排方法，可知第3试场第2行第3列的学生考号是_______________。
(2)小王根据上述算法，设计了一个加密程序，其VB代码如下，请在划线处填入合适的代码。
Const k=30
Function adj(s As String)As String
‘功能：在字符串s前添加若干个空格，代码略。
End Function
Function convert(n As Integer) As String
‘功能：把n转字符串，不足3位则在前面补0，代码略。
End Function
Private Sub Commandl_Click()
Dim kh(1 To 999)As String
Dim n As Integer，m As Integer，kcs As Integer
Dim i As Integer，j As Integer，line As String
Dim start As Integer，ofsetl As Integer，offset2 As Integer
n=Val(Text1.Text)
m.Val(Text2.Text)
For i=1 To n.

kh(i)=convert(i)

Next i
If n Mod k=0 Then kcs=n\k Else___________
If m>kcs or m<l Then

Label3.Caption="无该试场!"

Else

___________

For i=l To 6

line=""
offsetl=i
line=line+adj(kh(start+ofst))
For j=2 To 5
If j Mod 2=1 Then
Offset l=offset1+12
line=line+adj(kh(start+ffset!))
Else
___________
line=line+adj(kh(start+offset2))
End If
Next j
List1.AddItem line

Next i

End If
End Sub

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

（1）要使窗体标题上显示的文本改为“人民币大小写”，可在其属性窗口中将_______属性的属性值改为“人民币大小写”。
（2）为了实现以上程序功能，使程序正常运行，请完善以下两处代码。
Private Sub Command1_Click()
Dim dx As String, dw As String
Dim s As String, c As String
Dim ch As String
Dim i As Integer
dx = "零壹贰叁肆伍陆柒捌玖拾"
dw = "亿仟佰拾萬仟佰拾元"
s = Text1.Text   
If ____ then 
Text2.Text = "输入的数据超出所能转换的范围"
Else
For i = 1 To Len(s)  
ch = ___ 
c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)
Next i
Text2.Text = c + "整"
End If
End Sub
（3）由上述算法可知，若在文本框Text1中输入“20”，则文本框Text3显示的结果为________。