Ir para o conteúdo
noyus

Multiplicar apostas num gerador tipo totoloto

Mensagens Recomendadas

noyus

Boas a todos e desde já um obrigado pela futura ajuda,

Estou a realizar um exercício em que consiste realizar um programa que envolve arrays onde tenho de gerar 5 números não repetitivos no género do totoloto. A minha dúvida é a seguinte:

Tenho que fazer um multiplicador do nº de apostas que me permita realizar mais que uma aposta para me apresentar mais conjuntos de 5 números aleatórios. Ou seja, se fazer uma aposta, aparece-me 5 números numa textbox e 1 número definido como o número da sorte numa textbox à parte. O que pretendo é que, por exemplo, caso meto o valor do nº de apostas como "2", que me apareça 2 conjuntos de 5 números e 2 números da sorte e assim respetivamente.

O projeto encontra-se aqui para transferir caso alguém me possa ajudar. Como os meus conhecimentos são básicos, ainda não consegui entender como o posso fazer.

Um obrigado desde já e cumprimentos,

NOYUS

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
acao

boas

cria um ciclo e colas lá dentro o cod que crias a chave.

escolhe o mais conveniente.

Ciclo DO e FOR

Dim x As Integer
For x = 1 To 100
Cells(x, "A").Value = x
Next

Do… While ... Loop - faz enquanto condição for verdadeira

Do While <condição>

[espressao]

Loop

Ex:……………………………………

Dim contador As Integer
Contador = 1

Do While contador < 4
	MsgBox(contador)
contador = contador + 1
Loop
………………………………………………………………………………………………………

Do... Until ... Loop - faz enquanto a condição for falsa

Do Until <condição>

[espressao]

Loop

EX:……………………………………..

Dim contador As Integer
Contador = 1

Do Until contador  < 4
  MsgBox(contador)	
Contador =  contador +1
Loop
 

…………………………………………………………………………………

Do ... Loop ... While - Faz se a condição é verdadeira (mas faz pelo menos uma vez porque é testado no final)

Do

 [espressao]

[Exit Do]

[espressao]

Loop While<condição>

Ex: ……………………………………………………..

Dim contador As Integer
  Contador = 1
Do
  contador  = contador + 1
Loop while contador > 4
………………………………………………………………………………………….

Do ... Loop ... Until – faz se a condição for falsa (mas faz pelo menos uma vez porque é testado no final)

Do

[espressao]

Exit Do

[espressao]

Loop Until «condição»

Exemplo:

Dim contador As Integer
Contador = 1
Do
  MsgBox(contador)
  contador = contador + 1
Loop Until contador > 4
…………………………………………………………………………

cumps

acao

  • Voto 1

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.