用VB设计一个模拟选手得分程序，在文本框Text1中输入裁判人数（人数大于2），然后点击Command1按钮，在List1中产生70到100的随机数为裁判的打分，去除一个最高分，去除一个最低分，取其他裁判打分的平均分作为最终得分显示在文本框Text2中，运行效果如图所示。
（1）若要在程序运行时，修改窗体显示的标题为“得分计算”，则下面语句可行的是

D

D

。
（单选，填字母：A．Command1．Caption=“得分计算”/B．Form1．Name=“得分计算”/C．Form1．Text=“得分计算”/D．Form1．Caption=“得分计算”）
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Command1_Click （　　）
Dim n As Integer'裁判人数
Dim max As Integer,min As Integer,sum As Integer
Dim AveScore As Single'存储最终得分
n=Val（Text1．Text）：sum=0
If n＜=2Then MsgBox （“输入数据要大于2，请重新输入！“）
If n＞2Then
List1．Clear
Randomize
score=Int（Rnd

（　　）

（　　）

*31）+70
List1．AddItem Str（score）
'①
max=score
min=score
For i=2To n
score=Int（Rnd （　　）*31）+70
List1．AddItem Str（score）
If score＞max Then max=score
If score＜min Then min=score
sum=sum+score
Next i
AveScore='②
Text2．Text=Str（AveScore）
End If
End Sub
（3）若要将最终得分保留一位小数（四舍五入），下列代码可行的是。
A．AveScore=int（AveScore+0.5）
B．AveScore=int（AveScore*10+0.5）/10
C．AveScore=int（AveScore*100+0.5）/100