編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入自然數(shù)n,單擊“生成隨機(jī)數(shù)”命令按鈕Command1，則生成n個(gè)[1，100]區(qū)間內(nèi)的整數(shù)，并顯示在列表框List1中，單擊“計(jì)算”按鈕Command2，標(biāo)簽Label4中輸出最大數(shù)及該數(shù)在數(shù)列中的位置，標(biāo)簽Label6中輸出最小數(shù)及該數(shù)在數(shù)列中的位置，運(yùn)行效果如下圖所示，程序代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正。

Dim d（1 To 100）As Integer
Dim n As Integer
Private Sub Command1_Click （　?。?br />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（　?。?br />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