Cenas que podem ser úteis quiça

Factorial


Dim n As Integer
Dim factorial As Long
factorial = 1
n = Val(txtnumero.Text)
While n <> 0
factorial = factorial * n
n = n - 1
End While
txtresultado.Text = factorial



Area circulo

Dim vraio As Decimal
Dim vresultado As Double
vraio = Val(txtraio.Text)
vresultado = Math.PI * (vraio ^ 2)
txtresultado.Text = vresultado



Area triangulo

Dim vbase, valtura As Integer
Dim vresultado As Double
vbase = Val(txtbase.Text)
valtura = Val(txtaltura.Text)
vresultado = (vbase * valtura) / 2
txtresultado.Text = vresultado



Soma

Dim vnum1, vnum2 as integer
Dim vresultado As Double
vnum1 = Val(txtnum1.Text)
vnum2 = Val(txtnum2.Text)
vresultado = vnum1 + vnum2
txtresultado.Text = vresultado



Calculo minutos e segundos

Dim vmin As Integer
Dim vhoras, vminutos As Integer
vmin = Val(txtmin.Text)
vhoras = (vmin / 60)
vminutos = (vmin Mod 60)
txthoras.Text = vhoras
txtminutos.Text = vminutos



Area rectangulo

Dim vcomprimento, vlargura As Integer
Dim vresultado As Double
vcomprimento = Val(txtcomprimento.Text)
vlargura = Val(txtlargura.Text)
vresultado = vcomprimento * vlargura
txtresultado.Text = vresultado



Perimetro rectangulo

Dim vcomprimento, vlargura As Integer
Dim vresultado As Double
vcomprimento = Val(txtcomprimento.Text)
vlargura = Val(txtlargura.Text)
vresultado = (2 * vcomprimento) + (2 * vlargura)
txtresultado.Text = vresultado



Calcular impares

Dim x, i As Integer

txtni.Text = ""
x = Val(txti.Text)
For i = 1 To x Step 2
txtni.Text &= i & vbNewLine
Next



Tabuda

Dim n, contador, i As Integer

n = txtn.Text
For i = 1 To 10
contador = n * i
txtt.Text &= n & "x" & i & "=" & contador & vbNewLine
Next i



Jogo dos dados

Dim jogadas, x, dado1, dado2, dado3, dado4, resultado1, resultado2, resultadoj1, resultadoj2, resultadot1, resultadot2 As Integer

For x = 1 To jogadas
Randomize()
dado1 = Math.Floor((6 - 1 + 1) * Rnd() + 1)
dado2 = Math.Floor((6 - 1 + 1) * Rnd() + 1)
td1.Text &= dado1 & vbNewLine
td2.Text &= dado2 & vbNewLine
resultadoj1 = dado1 + dado2
If dado1 = dado2 Then
resultado1 = 10
ElseIf resultadoj1 > 9 Then
resultado1 = 5
ElseIf resultadoj1 < 5 Then
resultado1 = 4
Else
resultado1 = 2
End If
lblpt1.Text = resultado1
tdp1.Text &= resultado1 & vbNewLine
resultadot1 = resultadot1 + resultado1
lblpt1.Text = resultadot1
Next
For x = 1 To jogadas
dado3 = Math.Floor((6 - 1 + 1) * Rnd() + 1)
dado4 = Math.Floor((6 - 1 + 1) * Rnd() + 1)
resultadoj2 = dado3 + dado4
td3.Text &= dado3 & vbNewLine
td4.Text &= dado4 & vbNewLine
If dado3 = dado4 Then
resultado2 = 10
ElseIf resultadoj2 > 9 Then
resultado2 = 5
ElseIf resultadoj2 < 5 Then
resultado2 = 4
Else
resultado2 = 2
End If
lblpt2.Text = resultado2
tdp2.Text &= resultado2 & vbNewLine
resultadot2 = resultadot2 + resultado2
lblpt2.Text = resultadot2
Next
If lblpt1.Text = lblpt2.Text Then
MsgBox("Os Jogadores " & jogador & " e " & jogadore & " empataram com " & resultadot1 & " pontos!")
ElseIf lblpt1.Text < lblpt2.Text Then
MsgBox("O jogador " & jogadore & " Ganhou com " & resultadot2 & " pontos!")
Else
MsgBox("O jogador " & jogador & " Ganhou com " & resultadot1 & " pontos!")
End If
btd1.Enabled = False