GERAR SEQUENCIA NUMERICA EM PARES DE IMPAR E PAR
Olá pessoal,
Gostaria de pedir a ajuda da galera expert em VB por aqui. é o seguinte: Preciso gerar uma sequencia numéria na seguinte ordem: [1;3;2;4;5;7;6;8;9;11;10;12....], como percebem, a sequencia seria sempre em pares de impares e pares exatamente como mostrei, já tentei usando for, usando matriz e tal... mas não saiu como eu preciso.
Quem puder me ajudar, ficarei muito grato.
Gostaria de pedir a ajuda da galera expert em VB por aqui. é o seguinte: Preciso gerar uma sequencia numéria na seguinte ordem: [1;3;2;4;5;7;6;8;9;11;10;12....], como percebem, a sequencia seria sempre em pares de impares e pares exatamente como mostrei, já tentei usando for, usando matriz e tal... mas não saiu como eu preciso.
Quem puder me ajudar, ficarei muito grato.
veja
Private Sub Command1_Click()
Dim Impar As String, Par As String
Dim seq As String
For f = 1 To 12
If (f Mod 2) <> 0 Then
Impar = Impar & f & [Ô],[Ô]
If InStr(1, Impar, [Ô],[Ô]) < Len(Impar) Then
seq = seq & Mid(Impar, 1, Len(Impar) - 1) & [Ô];[Ô]
Impar = [Ô][Ô]
End If
Else
Par = Par & f & [Ô],[Ô]
If InStr(1, Par, [Ô],[Ô]) < Len(Par) Then
seq = seq & Mid(Par, 1, Len(Par) - 1) & [Ô];[Ô]
Par = [Ô][Ô]
End If
End If
Next f
MsgBox Mid(seq, 1, Len(seq) - 1)
End Sub
Talvez isso possa te ajudar.
Private Sub Command1_Click()
Dim seq(1 To 4) As Integer
Dim p As Integer
Dim x As Integer, y As Integer
Dim resultado As String
resultado = [Ô][Ô]
seq(1) = 1
seq(2) = 3
seq(3) = 2
seq(4) = 4
x = 1
y = 0
Do
If x > 4 Then
y = y + 1
x = 1
End If
p = seq(x) + (y * 4)
resultado = resultado & p & [Ô], [Ô]
x = x + 1
Loop While p <= 50
MsgBox resultado
End Sub
Ae galera!! Valeu! Muito obrigado pela ajuda. Testei os dois exemplos e ambos funcionaram perfeitamente!
Tópico encerrado , respostas não são mais permitidas