Log In
Home
October 29, 2001
Offline
Övning Vektorer.
Skapa ett formulär med en knapp, ”cmdLaggIn”, en lista ”lstTal” , samt ytterligare tre knappar, ”cmdListaTal”, ”cmdMedel”, ”cmdStorst”. Lägg även till en textbox, ”txtResultat”. PUUH!
När cmdLaggIn klickas ska användaren tvingas lägga in 5 tal som ska lagras i en vektor, ”intarTal()” som deklareras globalt. Använd en loop med InputBox() som i exemplet på sidan 152 i boken(do while??), men istället för att kolla att användaren skrivit ett relevant värde, loopa bara 5 gånger.
När knappen cmdListaTal klickas ska talen som användaren lagt in listas i lstTal. Använd en loop för detta.
När knappen cmdMedel klickas ska medelvärdet av de tre talen räknas ut och presenteras i txtResultat. (Använd loop.)
När knappen cmdStorst klickas ska det största talet i vektorn väljas ut presenteras i txtResultat. (Använd loop.)
kan någon fixa detta ??? (en övnings uppgift inför en tenta)
[ Detta Inlägg ändrades av: Skalman den 2001-11-28 09:49 ]
[ Detta Inlägg ändrades av: Skalman den 2001-11-28 10:06 ]
August 5, 2001
Offline
Fråga på pellesoft.nu säkert någon som kan hjälpa där om ingen vet här¿?
October 29, 2001
Offline
/tack
reggade mig - ska försöka senare
May 24, 2001
Offline
GAH! :burn:
Hade skrivit en hel A4, sen började den här skiten bugga och mitt meddelande försvann!!
Nu orkar jag inte skriva om den just nu, så du får vänta.
May 24, 2001
Offline
Jag vet inte om det är exakt såhär du ska göra, men det här funkar. Är det nåt du undrar är det bara att fråga.
Option Explicit
Dim intarTal(4) As Double
Private Sub cmdLaggIn_Click()
Dim x As Integer
Dim tmpTal As String
For x = 0 To UBound(intarTal)
tmpTal = InputBox("Skriv nuffra!")
'här kontrollerar du att tmpTal verkligen innehåller ett giltigt värde (kolla boken)
intarTal(x) = tmpTal
Next x
End Sub
Private Sub cmdListaTal_Click()
Dim x As Integer
lstTal.Clear
For x = 0 To UBound(intarTal)
lstTal.AddItem intarTal(x)
Next x
End Sub
Private Sub cmdMedel_Click()
Dim x As Integer
Dim tmpMedel As Double
For x = 0 To UBound(intarTal)
tmpMedel = tmpMedel + intarTal(x)
Next x
txtResultat.Text = tmpMedel / (UBound(intarTal) + 1)
End Sub
Private Sub cmdStorst_Click()
Dim x As Integer
Dim tmpStorst As Double
For x = 0 To UBound(intarTal)
If tmpStorst < intarTal(x) Then tmpStorst = intarTal(x)
Next x
txtResultat.Text = tmpStorst
End Sub
1 Guest(s)
