某比赛项目由多位评委打分，然后根据项目难度系数计算最终得分。规则为：
最终得分=（所有评委打分总和-1个最高分-1个最低分）×项目难度系数
编写VB程序，实现计算最终得分的功能。在文本框Text1中输入项目难度系数和多位评委的打分，中间用“，”隔开并以“，”结尾，然后点击计算按钮，在文本框Text2中显示最终得分。程序运行界面如图所示。
（1）程序中计算按钮的对象名是 BB（单选，填字母：A.Command1/B.Cmd1/C.Cmd1_Click）。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Private Sub Cmd1_Click （ ）（ ）
Dim a（1 To 100）As Single
Dim i As Integer,j As Integer,k As Integer,m As Integer,n As Integer
Dim Tot As Single,tmp As Single
Dim s As String,v As String,ch As String
s=Text1.Text
n=1：v=““
m=1m=1
Do While n＜=Len（s）
ch=Mid（s,n,1）
If ch＜＞“，“Then
v=v & ch
Else
a（m）=Val（v）
v=“”v=“”
m=m+1
End If
n=n+1
Loop
For i=2 To m-2
For j=m-1 To i+1 Step-1
If a（i）＜a（j） Then
tmp=a（i）：a（i）=a（j）：a（j）=tmp
End If
Next j
Next i
Tot=0
For i=1 Tom 3 To m-23 To m-2
Tot=Tot+a（i）
Next i
Text2.Text=str（a（1）*Tot）str（a（1）*Tot）
End Sub
【考点】冒泡排序算法及其实现．
【答案】B；（ ）；m=1；v=“”；3 To m-2；str（a（1）*Tot）
【解答】
【点评】
声明：本试题解析著作权属菁优网所有，未经书面同意，不得复制发布。
发布：2024/6/27 10:35:59组卷：3引用：2难度：0.2
相似题
-
1．有如下 Python 程序段：
运行后列表中的值可能是（ ）发布：2024/12/18 21:0:2组卷：5引用：3难度：0.3 -
2．用VB编写的函数bubble_sort是一个用冒泡方法实现排序的函数，其调用时需要三个参数：布尔类型参数sx来确定是升序还是降序，sx为True时为升序，否则为降序；整数型数组a
是待排序的数据，数据从a（1）开始存放；整数型参数n表示传入的数组长度，该函数的返回值也是一个整数型数组．所以调用此函数实现排序非常方便：
比如有一个整数型数组a（1 to 10）需要降序排序，可以直接这样调用：
a=bubble_sort（False,a，10）
该函数VB代码如下：
Function bubble_sort（sx As Boolean,aAs Integer,n As Integer） As Integer
Dim i,j,t As Integer
For i=1 To n-1
For j=Step-1
IfThen
If a（j）＜a（j-1）Then t=a（j）：a（j）=a（j-1）：a（j-1）=t
Else
If a（j）＞a（j-1）Then t=a（j）：a（j）=a（j-1）：a（j-1）=t
End If
Next j
Next i
bubble_sort=a
End Function
请将代码补充完整：
①．
②．发布：2024/12/20 20:30:1组卷：23引用：2难度：0.3 -
3．用选择排序法对一组数据进行升序排序，第一趟排序结束后的顺序为2、6、9、3、7，则原始数据顺序不可能的是（ ）
发布：2024/12/18 23:0:1组卷：10引用：1难度：0.5
