randy_roes 28 april 2005 gestart Share 28 april 2005 gestart Hoi Iedereen, ik zit momenteel bezig met een projectje voor informatica ( zeer simpel ), en het het werkt perfect, maar ik wil nog fine-tunen. Dit is het progrmmatje Option ExplicitSub Demo() Dim A As Double, B As Double, C As Double, D As Double Dim E As Double, F As Double, G As Double, H As Double Dim S As String A = InputBox("Geef het eerste getal") B = InputBox("Geef het tweede getal") C = InputBox("Geef het derde getal") D = InputBox("Geef het vierde getal") E = InputBox("Geef Het vijfde getal") F = 1 / 5 * (A + B + C + D + E) G = 1 / 4 * ((A - F) ^ 2 + (B - F) ^ 2 + (C - F) ^ 2 + (D - F) ^ 2 + (E - F) ^ 2) H = Sqr(G) S = "Het gemiddelde is gelijk aan" & Str$(F) S = S & Chr$(13) S = S & "De steekproefvariantie is gelijk aan" S = S & Str$(H) MsgBox S End Sub Nu heb ik twee vraagjes voor iedereen die goedmet Visual Basic kan werken 1 - Hoe krijg ik m'n 5 inputboxes A->E in 1 grote inputbox 2- Steeds als die inputbox of msgbox opkomt bij het uitvoeren staat vanboven "Microsoft Excel", en ik zou dat willen veranderen in "Gemiddelde en Steekproefvariantie", hoe moet ik dat doen Dank bij voorbaat iedereen Link naar bericht Delen op andere sites
Cold45 28 april 2005 gepost Share 28 april 2005 gepost succes... het erge aan VB is dat iedereen die ermee kan werken er niets meer mee te maken wil hebben Heb er zelf nooit zoveel meegedaan en is alweer paar jaar geleden, dus kan je verder niet helpen... Link naar bericht Delen op andere sites
djkoelkast 28 april 2005 gepost Share 28 april 2005 gepost kickje naar tweakers.net? Link naar bericht Delen op andere sites
randy_roes 28 april 2005 gepost Auteur Share 28 april 2005 gepost Ik heb de hulp ondertussen al gekregen, het moest met een ander subroutine Bedankt iedereen die wou helpen, en dus nu een slotje Link naar bericht Delen op andere sites
Aanbevolen berichten