编写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中，x=10，则执行下列语句的结果是print  "a=";a

A．a=10

B．a=a

C．10

D．10=10

在VB中，x=16，执行语句x=sqr(x)后，变量x的值是

A．1

B．4

C．8

D．16

在 VB 中，下列程序段执行后，变量 s 的值是
s=1
For k="1" To 3
s=s+1
Next k

A．1

B．3

C．4

D．6

有如下 VB 程序，它的输出结果是
S=0
For i="1" To 10
If i mod 2="0" Then S="S+i"
Next i
Print “S=”;S

A．S=0

B．S=25

C．S=30

D．S=55

现要求编写VB程序，实现下列功能：计算一个大写字母在26个字母中的位次。程序运行时，在文本框Text1中输入一个大写英文字母，单击“计算”按钮Command1，在标签Label1上输出其在26个字母中的位次。

1图
(1)在进行应用程序界面设计时，需要添加“计算”按钮，可使用如第2图所示的“控件工具箱”中的 (填写相应编号)，并在如第12题－3图所示的“属性窗口”中，将 属性值设置为“计算”。

(2)该程序的源代码如下，请根据题意将代码补充完整，使程序能正常运行。
Private Sub Command1_Click()
Dim ch As String, pos As Integer
 （3） ＝Text1.Text
pos＝Asc(ch) – 64
Label2.   （4）  ＝”第”＋Str(pos)＋”个字母”
End Sub

编写VB程序，实现如下功能：在文本框Text1中输入某一年份，单击“天干地支与生肖”按钮Command1，在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”，运行界面如图所示，程序代码如下。

（1）代码“Private Sub Command1_Click（）”中的Click是 （单选，填字母：A、对象名   B、属性名   C、事件名）
（2）为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim i As Integer, n As Integer
Dim c1 As String, s1 As String
Dim c2 As String, s2 As String
Dim c3 As String, s3 As String
List1.Clear
s1 = "甲乙丙丁戊己庚辛任癸"
s2 = "子丑寅卯辰巳午未申酉戌亥"
s3 = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
n = Val(Text1.Text)
For i =" n" To
a =" (i" + 6) Mod 10
b =" (i" + 8) Mod 10
c1 =" Mid(s1," a + 1, 1)
c2 =" Mid(s2," b + 1, 1)
c3 =" Mid(s3," b + 1, 1)
List1.AddItem  + "年    " + c1 + c2 + " " + c3
Next i
End Sub
（3）由上述算法可知，2024年对应的“天干地支”为 ，“生肖”是 。

某VB程序在调试中弹出如图所示的错误窗口，此时程序正执行的语句是（）

Private Sub Command1_Click ()
Dim a (1 To 5) As Integer
Dim i As Integer
For i =" 1" To 5
a(i) =" i" * i
Next i
List1.AddItem Str (a (i))
End Sub

A．For i =" 1" To 5	B．a (i) =" i" * i
C．Next I	D．List1.AddItem Str (a (i))

以下可以作为Visual Basic变量名的是（  ）

A．7seven

B．F1_1

C．Do

D．Abs

在计算平均重量x时，结果中产生了8位小数，若要对x保留一位小数，并对第二位小数四舍五入，则下列表达式中正确的是（ ）。

A．Int（x + 0.5）

B．Int（x * 100 + 0.5）/ 100

C．Int（x * 10）/___1___

D．Int（x * 10 + 0.5）/ 10