Visual Basic 6 - Programmazione -

Ragazzi ho un problema da risolvere, sto creando un programma che deve generare n vettori (da input) i quali devono essere solo numeri non primi, una volta fatto ciò, stamparli e estrarre solo quelli pari ed ordinarli in maniera crescente !

mi date una mano cortesemente ?

Riporto qui sotto il codice che sono riuscito a compilare:

Private Sub Command1_Click()
Cls
'dichiarazione variabili
Dim x() As Integer
Dim i As Integer
Dim n As Integer
Dim r As Integer
Dim iflag As Integer
Dim j As Integer
n = InputBox("inserire numero elementi", "numero elementi")
Do While n

 

Ma hai ricopiato o hai modificato ciò che ho scritto io come codice ?

A riconoscere i numeri primi me li riconosce, il problema è che a me interessa che mi stampi SOLO i numeri NON Primi ...

P.s. Se hai installato Excel allora ce l'hai il compilatore VB6 /emoticons/wink@2x.png 2x" width="20" height="20">

 

Private Sub Command1_Click()

Cls

'dichiarazione variabili

Dim x() As Integer

Dim i As Integer

Dim n As Integer

Dim r As Integer

Dim iflag As Integer

Dim j As Integer

n = InputBox("inserire numero elementi", "numero elementi")

Do While n

MsgBox "n deve essere >0"

n = InputBox("inserire numero elementi", "numero elementi")

Loop

ReDim x(n)

'genera vettore casuale

For i = 1 To n

Randomize

x(i) = Int(Rnd * n) + 1

Next i

'numero primo

For i = 1 To n

iflag = 0

For j = 2 To x(i) - 1

r = x(i) Mod j

If r = 0 Then iflag = 1

Next j

If iflag = 1 Then

Print i, x(i), "non primo"

Else


Print i, x(i)

End If

Next i

End Sub

Avevo già provato ad eliminare quello in rosso ma nulla!

 

Ti ringrazio per il link, ma son sicuro che il riconoscimento dei numeri primi è OK, il problema ripeto è dire al programma, tramite comando DO WHILE di continuare a cercare (casualmente...solo numeri NON PRIMI) e stamparmeli finchè non si raggiunge n vettori (scelti da input in precedenza)....senza stamparmi anche i numeri primi !...

 

Il problema sostanzialmente e scrivere la parte di codice al posto del ciclo For i = 1 to n (prima del codice del generatore di numeri casuali) con un ciclo DO UNTIL !

 

Riaggiorno questo 3d dato che sono riuscito a risolvere dopo vari grattacapi... il mio "problema" , se può essere utile a qualcuno..ben venga..! /emoticons/wink@2x.png 2x" width="20" height="20">

Cadevo nel seguente errore: Non dichiaravo una variabile come "contatore" e quindi il programma mi riportava tutti i numeri senza far selezioni di ciò che mi interessava a me..

Riporto solo la parte "corretta" /emoticons/wink@2x.png 2x" width="20" height="20">

Quindi come dichiarazione variabili c'è da aggiungere

Dim conta as integer

conta=0

Bisognava cambiare il ciclo for con un ciclo do while

quindi:

Do while conta

ISTRUZIONE

conta=conta+1

Print conta

a(conta)= vettore istruzione

Loop

Tutto qui!