RESPOSTAS DO TRABALHO DE LINGUAGEM PROCEDURAL
1-
Public Class Form1
Private Sub CmdCalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcula.Click
Dim x, y, z As Integer
x = 3
y = 5
z = 1
Do While z < y
If y = z And x > y Then
x = x + 1
Else
y = y - 1
End If
z = z + 1
Loop
MsgBox(x)
MsgBox(y)
MsgBox(z)
End Sub
End Class
Resultado: x = 3, y = 3, z = 3.
2-
Public Class Form1
Private Sub CmdCalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcula.Click
Dim x, y As Integer
x = 2
For y = 1 To 5
x = x * y - 1
Next
MsgBox(x)
End Sub
End Class
Resultado: x = 34
3-
Public Class Form1
Private Sub CmdCalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcula.Click
Dim x, y As Integer
y = 0
For x = 1 To 10
If x > 2 And x < 5 Then
y = y + x
End If
Next
MsgBox(y)
End Sub
End Class
Resultado: y = 7
Public Class Form1
4-
Private Sub CmdCalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcula.Click
Dim x, y As Integer
x = 5
For y = 1 To 3
x = x + y - 2
Next
MsgBox(x)
End Sub
End Class
Resposta: x = 5
5-
Public Class Form1
Private Sub CmdCalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcula.Click
Dim x, y, r As Integer
x = 0
For y = 0 To 10
r = y Mod 2
If r > 0 Then
x = x + y
End If
Next
MsgBox(x)
End Sub
End Class
Resposta : x = 25
6-
Public Class Form1
Private Sub CmdCalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcula.Click
Dim x, y, z As Integer
x = 2
z = x + 4 / 2
y = x * 2 ^ z
x = (y + z) / 2
z = y - x + z - 2
y = y - 3 - z / 2
x = y - z
If z > 16 Then
x = x + z - y
Else
x = y - z + y
End If
MsgBox(x)
MsgBox(y)
MsgBox(z)
End Sub
End Class
Resposta: x=26, y= 21, z=16
7-
Public Class Form1
Private Sub CmdCalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcula.Click
Dim x, y, z As Integer
x = 4
y = 10
z = x - y / 5
Do While y > x
y = y - z
z = z + 1
Loop
MsgBox(y)
MsgBox(z)
End Sub
End Class
Resposta: y = 1, z = 5
8-
Public Class Form1
Private Sub CmdCalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcula.Click
Dim x, y, z As Integer
x = 15
z = (x - 3) / 3
y = z * 2 ^ 2
x = y + z / 2
x = x - y + z
y = y - 3 - x / 2
x = x + z - y
MsgBox(x)
MsgBox(y)
MsgBox(z)
End Sub
End Class
Resultado: x = 0, y = 10, z = 4
9-
Public Class Form1
Private Sub CmdCalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcula.Click
Dim x, y, z, a, b, C, r As Integer
x = 2
y = 3
z = 4
If x < y Or z > x And y < z Then
a = y + z / x
End If
If z > y And z > x Or y = x Then
b = z + x * y
End If
If x <> y And x > z And y > x Then
C = y / 3 + z / 2 - 1
End If
r = a + b / C
MsgBox(r)
End Sub
End Class
Sem resposta.
10-
Public Class Form1
Private Sub CmdCalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcula.Click
Dim x, y, z, w As Integer
x = 7
y = 3
z = 9
For w = 1 To 3
x = x - w
y = y + 1
If x > y Or y > z Then
z = z - 1
Else
z = z - 2
End If
Next
MsgBox(x)
MsgBox(y)
MsgBox(z)
End Sub
End Class
Resposta: x = 1, y = 6, z = 4
Nenhum comentário:
Postar um comentário
Surpreenda com o seu conhecimento...