编写VB程序，实现如下功能：在文本框Text1中输入自然数n,单击“生成随机数”命令按钮Command1，则生成n个[1，100]区间内的整数，并显示在列表框List1中，单击“计算”按钮Command2，标签Label4中输出最大数及该数在数列中的位置，标签Label6中输出最小数及该数在数列中的位置，运行效果如下图所示，程序代码如下，但加框处代码有错，请改正。

Dim d（1 To 100）As Integer
Dim n As Integer
Private Sub Command1_Click （　　）
Dim i As Integer
Randomize
n=Val（Text1．Text）
For i=1 To n

List1．AddItem Str（d（i））
Next i
End Sub
Private Sub Command2_Click（　　）
Dim i As Integer,min As Integer,max As Integer
Dim maxpos As Integer,minpos As Integer
max=d（1）

For i=2 To n
If max＜d（i） Then max=d（i）：maxpos=i
If min＞d（i） Then min=d（i）：minpos=i
Next i
Label4．Caption=Str（max）+“位置：“+Str（maxpos）
Label6．Caption=Str（min）+“位置：“+Str（minpos）
End Sub