小杜对某班技术成绩情况进行分析，先排序再分析，排序后女生在前，男生在后(该班级男女生都有，其中0表示女，1表示男) ，且男女生均按成绩降序排序，最后比对男生女生平均分情况。数组a中存储了n位学生的性别和成绩数据，其中奇数位置存储性别信息，偶数位置存储成绩信息。编写VB程序实现上述功能，运行程序在列表框List1中显示排序前学生数据。单击“统计”按钮，在列表框List2中显示排序后的结果，并且在Label1中显示男生女生平均分比对结果。程序运行界面如15题图所示。

0 返回首页

1. 小杜对某班技术成绩情况进行分析，先排序再分析，排序后女生在前，男生在后(该班级男女生都有，其中0表示女，1表示男) ，且男女生均按成绩降序排序，最后比对男生女生平均分情况。数组a中存储了n位学生的性别和成绩数据，其中奇数位置存储性别信息，偶数位置存储成绩信息。

编写VB程序实现上述功能，运行程序在列表框List1中显示排序前学生数据。单击“统计”按钮，在列表框List2中显示排序后的结果，并且在Label1中显示男生女生平均分比对结果。程序运行界面如15题图所示。

(1) 由程序代码可知，共需类对象。(填数字)

(2) 实现上述功能的部分VB程序如下，请在划线处填入合适的代码。

Dim a(1 To 100) As Integer

Const n = 50 ‘共50位同学

Private Sub Comand1 Click)

Dim sum As Integer， sum As Integer， m As Integer

summ=0：sumw=0：m=0

For i=

k=i

For j=i+1 To n

If or a(k*2-1)=a(2*j-1) And a(j*2)>a(k*2) Then k=j

Next j

If k<>i Then

t1=a(i *2- 1)： a(i *2- 1)=a(k*2- 1)： a(k*2-1)=t

t2 = a(i * 2)： a(i*2)=a(k*2)：a(k*2)=t2

End If

summ = summ + a(2*i-1)*a(2*i)

sumw = sumw +

Next i

List2. AddItem “性别”“+”“成绩"

For i=1 To n

List2. AddItem Str(a(i *2- 1)) +“”+ Str(a(i * 2))

Next i

If summ/m>sumw/(n-m)Then

Label1. Caption = "男生平均分高”

Elself summ/m<sumw/(n-m)Then

Label1. Caption =“女生平均分高”

Else

Label1. Caption =“男生女生平均分相同”

End If

End Sub

Private Sub Form Load()

‘从数据库中读取数据，存在数组a中，数组元素a(1)和a(2)分别存储第一个学生的性别和成绩：数组元素a(3)和a(4)分别存储第二个学生的性别和成绩：以次类推存储其他学生的相关数据：将原始数据显示在List1中，代码略。

End Sub

(3) 程序中加框处代码有错，请改正。

【考点】

排序算法及程序实现; 分支结构语句及程序实现;

【答案】

您现在未登录，无法查看试题答案与解析。登录

综合题困难

1. 双向选择排序算法。在经典的选择排序基础上，如果在选择出最小数的同时，也能选择预见最大数并将两数放置合适位置，这样就使排序效率提高一倍。依照上述双向选择排序的算法，小张编写了一个VB程序，功能如下：在列表框List中显示排序前数据，单击“排序”按钮Command1，在列表框List中显示这些数据按升序排序后的结果。运行效果如下图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n＝10

Dim b(1 To n)As Integer

Private Sub command1_Click( )

Dim i As Integer

Dim t As Integer

For i＝1 To

For j＝i To

If b(j)<b(i) Then

t＝b(i)：b(i)＝b(j)：b(j)＝t

End If

If b(j)>b(n－i＋1) Then

t＝b(j)：b(j)＝b(n－i＋1)：b(n－i＋1)＝t

End If

Next j

Next i

For i＝1 To n

List2.AddItem Str(b(i))

Next i

End Sub

Private Sub Form_Load( )

For i＝1 To 10

b(i)＝1＋Int(Rnd*100)

List1.AddItem Str(b(i))

Next i

End Sub

综合题普通

2. 下图所示的算法流程图：

执行情况如下：当输入a，b的值为3，8时，输出结果为5；当输入a，b的值为11，7时，输出结果为4。

(1) 下列流程图填入虚线框中，符合条件的是________。 A.

(2) 依据（1）中所选流程图，当输入a、b的值分别为9、6时，输出结果为。

综合题普通

3. 小李编写VB程序，实现如下功能：在文本框Text1中输入年份，点击开始命令，在Label2标签中显示判断平年闰年的结果。（闰年判断条件：①普通闰年：能被4整除但不能被100整除的年份；②世纪闰年：能直接被400整除的年份）程序运行界面如下图所示。

(1) 在文本框中输入1860，输出结果是。

(2) 实现上述功能的VB程序如下，请在花线处填入合适代码。

Private Sub Command1_Click()

Dim year As Integer

year =

If Or (year Mod 400 = 0) Then

Label2.Caption = Str(year) & "是闰年"

Else

Label2.Caption = Str(year) & "是平年"

End If

End Sub

综合题普通