rekentekens random neerzetten in VB 6

[Robbert1978]

Hoe zet ik rekentekens random neer in een label? een getal tussen bv 1 en 10 random neerzetten dat lukt wel, maar hoe doe ik dat met +. -, /?

 

[beheer25]

De volgende code moet het probleem oplossen:

    Dim strTekens As String
    Dim lngTeken As Long
    Dim strTeken As String
    
    Randomize
    strTekens = "+-/*"
    lngTeken = Int((4 * Rnd) + 1)
    strTeken = Mid(strTekens, lngTeken, 1)
    MsgBox ("Teken is:" & strTeken)

Afhankelijk van het aantal tekens in strTekens moet het getal 4 aangepast worden. Heb het niet getest, maar Len(strTekens) moet eigenlijk nog mooier werken.


Suc6,

Mark van Bree

 

[Paul-RT]

Office Exell Als volgt:

Maak in A1 een random getal van 1 t/m 4:
Bekijk A1 met een formule.
A1=1 dan B1= "+"
A1=2 dan B1="-"
A1=3 dan B1="*"
A1=4 dan B1="/"
A1 =" " of A1 <0 of A1 > 4 dan B1 is leeg. " "

Formule als volgt:

=ALS(A1=1;"+";ALS(A1=2;"-";ALS(A1=3;"*";ALS(A1=4;"/";" "))))

Let op het aantal haken !

 

[DENNIS90]

Of met "Select Case"

Het antwoord is hierboven weliswaar reeds gegeven, maar nu ff ietjes anders:

1) Plaats een knop en een label op het form.

2) code v.d. knop:

Private Sub Command1_Click()
    Dim intPositie_reken_teken As Integer
    Dim strReken_teken As String
    strReken_teken = "+-/*"
    Randomize
    intPositie_reken_teken = Int(4 * Rnd) + 1
    strReken_teken = Mid(strReken_teken, intPositie_reken_teken, 1)
    Select Case intPositie_reken_teken
        Case 1
            Label1 = "+"
        Case 2
            Label1 = "-"
        Case 3
            Label1 = "/"
        Case 4
            Label1 = "*"        
    End Select
End Sub

Groetjes.