现有三次方程y=5x^3-55x^2+170x-130，其函数图象如图所示：

观察该函数图象发现函数有一实根在区域(1.2)之间，因此我们取两者的中点m=(1+2)/2代入方程进行检测发现f(1.5)=18.125。因为f(1.5)>0，因此区间应该往左移动，得下一个区间(1,1.5)然后继续进行检测。如果区间差值≤误差率，则认为该中点是方程的根。根据上述方法描述设计一个VB求解程序的根，要求单击求解按钮Command1，在文本框Text1中显示方程的根，部分程序如下。

Dim a(1 To 15) As Integer

Private Sub Form_Load()

  Dim i As Integer, t As Integer

  Dim s1 As String, s2 As String

  Randomize

  s1 = ""

  For i = 1 To 15

    a(i) =  ①    

    s1 = s1 + Str(a(i))

  Next i

  Text1.Text = s1

End Sub

Private Sub Com1_Click()

  s2 = ""

  For i = 1 To 15

    s2 =  ②    

  Next i

  Text2.Text = s2

End Sub

当窗体Form1加载时，自动产生a、b数组的数据，并分别显示在列表框List1与List2中，单击合并按钮Command1后，在c数组中保存按规则合并后的a、b数组的数据，并显示在列表框List3中。程序截图如下所示：

实现该功能的VB程序如下：

Const m = 5

Const n = 6

Dim a(1 To m) As Integer

Dim b(1 To n) As Integer

Dim c(1 To m + n) As Integer

‘窗体加载时，生成数组a、b中的数据，并按要求排序后显示在列表框中，代码略

Private Sub Command1_Click()

Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean

pa = m: pb = 1: pc = 1

flag = True

Do While      ①     

  If a(pa) < b(pb) Then

    s = a(pa)

    pa = pa - 1

  Else

    s = b(pb)

    pb = pb + 1

  End If

  c(pc) = s

  If flag Then

    pc = m + n - pc + 1

  Else

    pc =

  End If

       ②     

Loop

‘处理a、b数组中剩余数据，并在列表框List3中输出数组c，代码略

End Sub