一張骨牌由上下兩行共四個格子構(gòu)成，每個格子有一個1到6之間的數(shù)字?，F(xiàn)在一共有5張骨牌，從左到右排成一排，定義每張骨牌的差值為：骨牌第一行的數(shù)字和減去第二行的數(shù)字和；5張骨牌的差值為：每張骨牌的差值和的絕對值。

如圖a中，5張骨牌的差值為：
|（3+3-4-4）+（6+3-2-5）+（2+3-4-5）+（1+5-3-3）+（1+1-1-1）|=4。
每張骨牌都可以順時針旋轉(zhuǎn)90度，效果如圖b所示?，F(xiàn)在最多可以選擇其中一張骨牌進(jìn)行旋轉(zhuǎn)，使得旋轉(zhuǎn)后的骨牌差值變小。求一種旋轉(zhuǎn)方案，并輸出骨牌差值的最小值。

編寫VB程序，實現(xiàn)上述功能。運行程序，在文本框Text1中依次輸入5張骨牌上的數(shù)字，單擊“計算”按鈕Command1，在文本框Text2、Text3、Text4中輸出結(jié)果。程序運行界面如圖b所示。
（1）若圖a中第1張骨牌的數(shù)字修改為，1、2、6、6，則骨牌差值的最小值為

1

1

。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
Dim a（1 To 20）As Integer‘依次存儲5張骨牌上的數(shù)字
Dim d（1 To 5）As Integer’依次存儲5張骨牌，上下兩行的差值
Const n=5
Private Sub Form_Load （　　）
'從文本框Text1讀取5張骨牌上的數(shù)字，依次存入數(shù)組a
'a（1）～a（4）依次存儲第一張骨牌從左到右從上到下四個數(shù)字
'a（5）到a（20）依次類推
'代碼略
End Sub
Private Sub Command1_Click （　　）
Dim i As Integer,up As Integer,down As Integer,t As Integer,k As Integer
Dim id As Integer,times As Integer,x As Integer,ans As Integer
For i=1 To n
up=a（4*i-3）+a（4*i-2）
down=a（4*i-1）+a（4*i）
d（i）=up-down
t=t+d（i）
Next i
id=0：times=0
ans=①

Abs（t）

Abs（t）

If ans＜＞0 Then
k=1
Do While k＜=n
For x=1 To 3
temp=②

Abs（t+turn（k,x）-d（k））

Abs（t+turn（k,x）-d（k））

If temp＜ans Then
ans=temp
id=k
 ③

times=x

times=x

End If
If temp=0 Then Exit Do
Next x
k=k+1
Loop
End If
Text2.Text=CStr（id）
Text3.Text=CStr（times）
Text4.Text=CStr（ans）
End Sub
Function turn（ByVal k As Integer,ByVal x As Integer）As Integer
‘求將第k張骨牌，順時針旋轉(zhuǎn)x次后，上下兩行的差值，代碼略
End Function