计算机学习心得

已经学习了好几节课了，课上老师讲的很有意思，也很爱听。上机时化界面时也很好玩。但是还是不想输入那头疼的程序啊。全是英语单词啊，有事就看错了，然后整个程序写完了，却错了，还必须的从头开始找哪里错了，哎！

Public Sub marge(leftlist() As Integer, rightlist() As Integer, resultlist() As Integer)

Dim leftindex As Integer

rightindex As Integer

resultindex As Integer

 

leftindex = LBound(leftlist)

rightindex = LBound(rightlist)

resultindex = 0

 

While leftindex <= UBound(leftlist) And rightindex <= UBound(rightlist)

If leftlist(leftindex) <= rightlist(rightindex) Then

resultlist(resultindex) = leftlist(leftindex)

leftindex = Left(Index + 1)

End If

 

Else

resultlist(resultindex) = righlist(rightindex)

rightindex = rightindex + 1

End If

 

resultindex = resultindex + 1

Wend

While rightindex <= UBound(rightlist)

resultlist9result (resultindex = rightlist9rightindex)

rightindex = rightindex + 1

resultindex = resultindex + 1

Wend

 

End Sub