在VB中实现一维数组的循环左移，可以通过以下步骤进行：
保存第一个元素 ：将数组的第一个元素保存到一个临时变量中。移动元素：
将数组中剩余的元素依次向左移动一个位置。
将保存的元素放到最后：
将之前保存的第一个元素放到数组的最后一个位置。
```vb
Module Module1
Sub Main（）
Dim arr（9） As Integer
' 初始化数组并赋值
For i = 0 To 9
arr（i） = Int（Rnd（） * 100）
Next i
' 输出原始数组
Console.WriteLine（"原始数组："）
For i = 0 To 9
Console.Write（arr（i） & " "）
Next i
Console.WriteLine（）
' 输入循环左移的位数
Dim n As Integer
Console.Write（"请输入循环左移的位数： "）
n = InputBox（"请输入N的值："）
' 循环左移数组
Call CircularLeftShift（arr, n）
' 输出移动后的数组
Console.WriteLine（"循环左移后的数组："）
For i = 0 To 9
Console.Write（arr（i） & " "）
Next i
Console.WriteLine（）
Console.ReadLine（）
End Sub
Sub CircularLeftShift（ByVal arr（） As Integer, ByVal n As Integer）
' 保存第一个元素
Dim temp As Integer = arr（0）
' 将数组中剩余的元素依次向左移动一个位置
For i = 0 To n - 1
arr（i） = arr（i + 1）
Next i
' 将保存的第一个元素放到数组的最后一个位置
arr（9） = temp
End Sub
End Module
```
代码解释：
初始化数组：
使用`For`循环为数组赋值。
输出原始数组：
使用`For`循环打印数组元素。
输入循环左移的位数：
通过`InputBox`获取用户输入的左移位数。
循环左移数组
保存数组的第一个元素到临时变量`temp`。
使用`For`循环将数组中剩余的元素依次向左移动一个位置。
将保存的第一个元素放到数组的最后一个位置。
输出移动后的数组：
使用`For`循环打印移动后的数组元素。
这个算法的时间复杂度是O（n），空间复杂度是O（1），非常高效。