问题
材料分析题
2月6日楚天金报郭生练说，现在小学生的书包太重了，学业压力大，每天清早起床赶去上学，作业做到很晚；教师同样压力大，每天超负荷地工作着，情绪焦虑。郭生练向全省各级教育行政部门领导发问：能否让小学生的书包重量减轻一半？
（1）我们了解学习压力的目的是什么？
________________________________________________________________________________
（2）请简要说说对学习压力的认识。
________________________________________________________________________________
答案
（1）不是要消除学习生活中的压力，而是要学会正确对待压力，学会将压力化为动力。
（2）学习生活中总会有压力的存在，感受到压力是正常的，由于学习压力而出现一些生理、心理反应，是大家经常会遇到的。学习压力给我们带来的影响，既有积极的一面，也有消极的一面。明确学习的意义，培养学习的兴趣，是我们缓解学习压力的有效方法。
程序界面中，左右两个文本框分别用于存放随机产生的奖牌数以及生成的奖牌榜，名为Text1和Text2，上下两个按钮分别名为Command1和Command2。代码中使用的量主要有：一维数组 cntries，用于存储10个国家的名称，二维数组medals，其元素medals(i,0)和medals(i,1)分别用于存放第i个(i从0开始)国家的金、银牌数目。[Visual Basic代码]Dim cntries(10) As String, medals(10,2) As Integer’随机产生奖牌数Sub newMedals() …… ’为数组cntries和medals赋值End Sub’输出奖牌榜Sub printOut(txt As (1) ) Dim strResuh As String, i As Integer strResult=“国家”& Chr(9) &“金牌数”& Chr(9) &“银牌数”& vbCrLf For i=0 To 9 strResult = strResult & cntries(i) & Chr(9) & medals(i,0) & Chr(9) & medals(i,1) & vbCrLf Next txt.Text = strResultEnd Sub’交换两变量的值Sub exchange( (2) a As Variant, (2) b As Variant) Dim temp As Variant temp = a: a = b: b = tempEnd Sub’随机产生并输出奖牌数Private Sub Command1_Click() newMedals printOut Text1End Sub’生成并输出奖牌榜Private Sub Command2_Click() Dim i,j, k As Integer, temp As String For i = 0 To 9 ’按金牌数排序j = i ’找到自第i个位置起全部数据中金牌得数最多者，记其下标为jFor k = i + 1 To 9 If (3) Then j=kNextIf i ＜ ＞ j Then’若i，j不等，则交换对应位置的国家名、金银牌数目 exchange cntnes(i), entries(j) exchange medals(i, 0), medals(j, 0) exchange medals(i, 1), medals(j, 1)End If Next For i = 0 To 9’按银牌数进行二次排序j = iFor k = i + 1 To 9 If medals(k,0) ＜＞ medals(j, 0) Then (4) If (5) Then j = kNextIf i ＜ ＞ j Then exchange cntries(i), cntries(j) exchange medals(i, 1), medals(j, 1)End If Next printOut Text2End Sub