Hej!
Jag har ett problem i vb 6.0 jag ska dimma en tom dynamisk array som inte innehåller något sen ska man ange element i en inputbox sen ska det tilldelas värden till så varje element sen ska detta skrivas ut. Sen ska man utöka med ReDim och ReDim Preserve. Men jag löser inte hela uppgiften vet inte hur jag ska göra. Någon som har något tips?

Här är min kod:
<code>
Option Explicit
Dim i
Public Sub arrayer_Click()
Dim intArrayer() As Integer
'använd redim och redim preserve

i = InputBox("Ange antalet element")
ReDim intArrayer(i)

MsgBox "" & i & "", , "Utmatning av arrayer"

End Sub

Private Sub avsluta_Click()
End
End Sub

Private Sub Command1_Click()
Randomize
Rnd (i * 2)
'Fyll över värden med Redim
MsgBox "" & i & "", , "Utmatning av arrayer med Redim"
End Sub
Private Sub Command2_Click()
'Fyll på värden med Redim Preserve eftersom de nuvarande värdena inte ändras utan bara läggs på
End Sub
</code>


Mvh

Nicklas

För det första har det här absolut inget att göra med Win API, utan det är en ren VB-fråga, den ligger i fel kategori.
För det andra:
Det är väl uppenbarligen en skoluppgift?
Ingen vill lösa någon annans skoluppgifter, så du måste göra något själv.
1. Har du tagit reda på vad ReDim och ReDim Preserve gör?
2. Har du försökt använda dem?
3. Vad gick i så fall fel?