编写VB程序，界面设计如图所示，使其具有下列功能：在文本框Text1中输入一个小于20的正整数ｎ，单击“计算”按钮Command1，计算斐波那契数列中第ｎ项的值，并在标签Label2中输出结果；若输入错误，则在标签Label2中显示相应的提示信息。（斐波那契数列是指这样的数列：1，1，2，3，5，8，13…。即：第1项和第2项的值均为1，从第3项开始，每一项的值是它前面两项之和）

（1）代码“Private Sub Command1_Click()”中的Command1 是 。（单选，填字母：

A．对象名／

B．属性名／

C．属性值／

D．事件名）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n As Long, k As Integer
Dim f1 As Long, f2 As Long, f As Long
_______①_________ =Val(Text1.Text)
If n >=" 20" Or n <=" 0" Then
Label2.Caption = "输入的数据有误"
Else[:Z+xx+k.Com]
If n <=" 2" Then ' 第1，2个元素的值都为1
f = 1
Else
f1 = 1
f2 = 1
For k =" 3" To m
f =" f1" + f2
f1 = f2
f2 = f
Nextk
End If
Label2.Caption = "斐波那契数列第" + Str(n) + "项的值为" +    ②
End If
End Sub
（3）若在文本框Text1.Text输入21，则标签Label2显示的内容为 。

编写VB程序，实现如下功能：在文本框Text1中输入整数n（1≤n≤10），单击“生成矩阵”按钮Command1，生成n²个10到99之间（包含10和99）的随机整数，并以n行、n列矩阵的形式显示在列表框List1中，再单击“对角线”按钮Command2，则在标签Label1中输出该矩阵对角线（左上角到右下角）上的数值，运行界面如图所示，程序代码如下。
（1）要使文本框Text1上显示的默认文本由“8”改为“10”，可在其属性窗口中将________属性的属性值改为“10”。

（2）为了实现上述功能，请在划线处填入合适的代码。
Const MAXNUM = 100
Dim i As Integer, n As Integer
Dim a(1 To MAXNUM ^ 2) As Integer
Private Sub Command1_Click()
Dim line As String
n = Val(Text1.Text)
line = ""
List1.Clear
Randomize
For i = 1  To  n ^ 2
a(i) =   ①
If i > 1 And i Mod n =" 1" Then
List1.AddItem line
line = Str(a(i))
Else
line = ②   
End If
Next i
List1.AddItem line
End Sub
Private Sub Command2_Click()
Label1.Caption = ""
For i = 1  to    ③   
Label1.Caption =" Label1.Caption" & Str(a(i + (i - 1) * n))
Next i
End Sub

某班级学生为毕业晚会的一个节目设计一个仿“V”字造型，先筛选出班级里所有男生，然后将参演的n名男生按照身高，摆出中间低两边高（先右后左）的造型，如图1 所示。王林同学用VB编写模拟“节目造型”程序，功能如下：从数据库中导出所有学生编号、性别和身高数据；单击“筛选排序”按钮Command2，根据身高仿“V”字和造型进行有序排列，并将结果显示在文本框Text2 中。程序运行界面如图2
所示。举例说明如下：

原1-7号男生身高	171 172 180 174 176 179 178
筛选排序后序列	171 172 174 176 178 179 180
“造型设计”后序列	180 178 174 171 172 176 179

 

图1
身高顺序：男3号〉男6号〉男7号〉男5号〉男4号〉男2号〉男1号

图2
Const n = 7
Dim h2(1 To n) As Integer
Dim height1(1 To n) As Integer
Dim height2(1 To n) As Integer
Dim i As Integer, j As Integer, temp As Integer
Dim sex(1 To n) As Boolean '男生sex=true
Private Sub Form_Load()
'n名学生的身高和性别由数据库导出，分别存储在数组height1 和sex中，代码略！
End Sub
Private Sub Command1_Click()
For i =" 1" To n - 1
For j =" n" To i + 1 Step -1
If ①  Then
temp =" height1(j):" height1(j) =" height1(j" - 1): height1(j - 1) = temp[:学#科#网]
End If
Next j
Next i
For i =" 1" To n
Text1.Text =" Text1.Text" + " " + Str(height1(i))
Next i
End Sub
Private Sub Command2_Click()
Dim left, right As Integer, i As Integer, mid As Integer
mid =" Int((1" + n) / 2)
left =" 0:" right = 0
②
For i =" 2" To n Step 2
right =" right" + 1
height2(mid + right) = height1(i)
left =" left" + 1
③
Next i[ZXXK]
For i =" 1" To n
Text2.Text =" Text2.Text" + " " + Str(height2(i))
Next i
End Sub

设有n盏灯，放在一排。从1到n依次顺序编号。有n个人也从1 到n依次编号。第1 个人（1号）将灯全部关闭，第2 个人（2号）将2 的倍数的灯打开，第3个人（3号）将编号为3 的倍数的灯做相反处理（该灯如果已打开，则将它关闭；如为关闭则将它打开），以后的人和3号一样，将编号为自己号数倍数的灯做相反处理。问当n个人操作后，哪几盏灯是亮的（亮灯为0，关闭为1）。程序代码如下：
Private Sub Command1_Click()
Const n = 20
Dim i As Integer, j As Integer
Dim a(1 To n) As Integer[:学&科&网]
For j =" 1" To n
a(j) = 0
Next j
For i =" 1" To n
For j =" 1" To n
If①  then
②
End If
Next j
Next i
For j =" 1" To n
If a(j) =" 0" Then list1.AddItem Str(j)
Next j
End Sub
为了实现程序该功能，在画线处填写正确代码。
①   ②

编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击“计算累加和”按钮（Command1），在标签Label3中显示起始值和结束值之间所有奇数的累加和，界面如1图所示：
 
1图    2图
（1）在设计程序界面时，使用“控件工具箱”中（第11题-2图）的 （填编号）添加命令按钮，要使命令按钮Command1上显示“计算累加和”，应修改命令按钮的
属性值。
（2）为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim x1 As Integer,x2 As Integer,n As Integer
Dim sum As Long
x1=Val(Text1.Text)
x2=Val(Text2.Text)
sum=0
If  x1<x2  Then n="1" Else ①
For i=" x1" To x2 Step n
If   ②  Then
sum=sum+i
    ③
Next i
Label3.Caption=“从”& x1 & “到”& x2& “之间所有奇数的累加和=”&Str(sum)
End Sub

Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "TaizhouShusheng"
c =" Mid(a," Len (a) \ 2 + 1, 8)
Text1.Text = c
End Sub
该程序段运行后，在文本框Text1上显示的是( )

A．“Shusheng ”

B．“Taizhou”

C．Taizhou

D．Shusheng

编写VB程序，实现如下功能：在文本框Text1中按“YYYY-MM-DD”（年4位，月2位，日2位）格式输入某一日期，单击“推算”按钮Command1，在文本框Text2中输出该日期对应的星期，运行界面如下图所示。

（1）要使标签对象Label1中显示的文本“date”修改为“日期”,可在其属性窗口中将___________属性的属性值改“日期”。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String '变量s存储输入的日期
Dim s1 As String, s2 As String, s3 As String
Dim y As Integer, y2 As Integer, m As Integer, d As Integer, n As Integer
s1 = "622503514624"
s2 = "512503514624"
s3 = "日一二三四五六"
s =  （2）    
y =" Val(Mid(s," 1, 4))
m =" Val(Mid(s," 6, 2))
d =" Val(Mid(s," 9, 2))
y2 =" y" Mod 100
n =" Int(y2" / 4) + y2 + d
If y Mod 4 =" 0" And y Mod 100 <> 0 Or y Mod 400 =" 0" Then '判断是否为闰年
n =" n" + Val(Mid(s2, m, 1))
Else
n =" n" + Val(Mid(s1, m, 1))
End If
n =" n" Mod 7 + 1
'（3）
End Sub
（3）加框处程序代码有错误，请改正 。
（4）如果输入日期“2017-02-01”，则输出结果是星期 。

某Visual Basic程序代码如下：
Private Sub Command1_Click()
Dim x, m, n As Integer
Const m = 10
n = 5
x =" m" Mod n
Print x
End Sub
则该程序运行后的出错信息为（    ）

A．	B．
C．	D．

下列描述中，不适合使用编程来实现的是

A．编辑一份《调查报告》

B．灭火机器人软件驱动系统

C．“神舟七号”发射管理系统

D．学生成绩管理系统

与人类自然语言最为接近的计算机程序设计语言是

A．低级语言

B．高级语言

C．汇编语言

D．机器语言