题目

有如下 VB 程序段: For i = 1 To 6 a(i) = Int(Rnd * 20) + 1: b(i) = iNext i For i = 1 To 5 For j = i+1 To 6If a(b(i))>a(b(j)) Thent = b(j):b(j) = b(i):b(i) = t End If Next jNext i i = 1 : j = 6: s= : Key = Val(Text1.Text)Do While i <= j m = (i + j) \ 2 If Key = a(b(m)) Then Exit Do If Key < a(b(m)) Then j = m - 1 Else i = m + 1 s = s + Str(m)Loop Text2.Text = s 在文本框Text1中输入10，运行以上程序段后，文本框Text2中显示的内容为 3 5 4，则 a 数组中 a(1)到 a(6)各元素的值可能的是（ ） A . 11，6，4，13，18，15 B . 4，5，8，用一个弹簧秤来做如图所示的实验，在弹簧秤下面挂一个质量为100g的砝码．第一次手提着弹簧秤静止不动(图甲)；第二次手提着弹簧秤竖直向上匀速运动(图乙)；第三次手提着弹簧秤竖直向下匀速运动(图丙)；第四次同第三次方法一样，只是速度小些． 你做一下这个实验，四次实验结果弹簧秤的读数大小关系如何？从这个实验得到什么结论？