编写VB程序，实现计算器的简单计算功能：通过0~9的数字和小数点符号输入计算数据，单击选择“+、-、*、/”等运算，最后点击“=”按钮在文本框Text1中显示运算结果。界面如第14题-1图所示，回答下列问题：

（1）要修改窗体的显示名称为“计算器”，应选择第14题-2图所示的  属性。
（2）为实现上述功能，输入数据是非常重要的部分，以下是数字按钮“1”中的代码，用于在Text1中输入数字“1”，请在划线处输入合适的代码。
Private Sub Command11_Click()
Dim fuhao As ①     '用于存储+、-、*、/等运算符号
Dim x As Single  '用于存储第一个运算数
Dim y As Single  '用于存储第二个运算数
Text1.Text = ②
If  fuhao = "" Then
x = Val(Text1.Text)
   ③    
y = Val(Text1.Text)
End If
End Sub
（3）运行测试通过之后，如果想让其他人能够直接运行使用，应该生成 格式文件。

有如下VB程序：
Dim i As Integer，j As Integer，k As String，n As Integer
n＝3
List1.Clear
For i＝1 To n
k＝“”
For j＝1 To i
k＝k＋“*”
Next j
List1.AddItem k
Next i
该程序运行中，在列表框List1中显示的是(  )

A．	B．
C．	D．

下面程序执行的结果是（  ）。
private sub form_click()
A=”123”：B=”456”
C=val(a)+val(b)
print C\100
end sub

A．123

B．3

C．5

D．579

编写VB程序，实现如下功能：在文本框Text1中输入一串字符，单击“统计”按钮Command1，统计每个英文字母（不区分大小写）出现的次数，找出出现次数最多的字母，在标签Label1中显示结果。运行效果如图所示。

实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, max As Integer
Dim a(1 To 26) As Integer   '数组a存放26个大小写字母出现的次数Dim st As String, ch As String
st = Text1.Text
For i = 1 To Len(st)
    ①_____
If ch >= "A" And ch <= "Z" Then n = Asc(ch) - Asc("A") + 1  a(n) = a(n) + 1
ElseIf ch >= "a" And ch <= "z" Then n =    ②_____
a(n) = a(n) + 1
End If
Next i
max = a(1)
For i = 1 To 26
If      ③_____Then max = a(i)
End If Next i st = ""
For i = 1 To 26
If max = a(i) Then
st = st + " " + Chr(Asc("A") + i - 1) End If
Next i
Label1.Caption = "出现次数最多的字母是：" & st & " " & "出现次数为：" & Str(max)
End Sub
（2）在文本框 Text1 中输入字符串“ABCEEEEffee333333”，运行程序时，标签 Label1 中输出结果为：出现次数最多的字母是：_____出现次数为：_____。

编写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显示的内容为 。