Circuito

1
Public Class Form1
Private Sub Button1_Click
Dim s, i, n As Integer
n = Val(TextBox1.Text)
For i = 1 To n
If i Mod 2 = 1 Then
s = 0
Else
s = 1
End If
ListBox1.Items.Add(s)
Next i
End Sub
End Class
2
Public Class Form1
Private Sub Button1_Click
Dim k,t, i, n, b As Integer
n = Val(TextBox1.Text)
k = 1
t = 1
For i = 1 To n
If i Mod 2 = 1 Then
If i = t Then
DataGridView1.Rows.Add("0")
t = t + 4
Else
DataGridView1.Rows.Add("1")
End If
Else
k = k + 1DataGridView1.Rows.Add(CStr(k))
End If
Next i
End Sub
End Class

Public Class Form1
Private Sub Button1_Click
Dim a, t, k, i, n As Integer
n = Val(TextBox1.Text)
t = 1 : k = 1
For i = 1 To n
If i = k Then
TextBox2.Text = TextBox2.Text & "0" & Chr(13) & Chr(10)k = k + 5 : t = 1
Else
If t <= 4 Then
TextBox2.Text = TextBox2.Text & CStr(t) & Chr(13) & Chr(10)
t = t + 1
End If
End If
Next i
End Sub
End Class
4
Public Class Form1
Private Sub Button1_Click
Dim s, i, n As Integer
n = Val(TextBox1.Text)s = 0
For i = 1 To n
If i Mod 2 = 1 Then
ListBox1.Items.Add(s)
s = s + 1
Else
s = -s
ListBox1.Items.Add(s)
s = -s
End If
Next i
End Sub
End Class
3

5

Public Class Form1
Private Sub Button1_Click
Dim f, s, i, n, b As Integern = Val(TextBox1.Text)
s = -1
b = 1
For i = 1 To n
f = s + b
s = b
b = f
DataGridView1.Rows.Add(i, CStr(f))
Next i
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With DataGridView1
.Columns.Add("n", "n").Columns.Add("termino", "termino")
End With
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With DataGridView1
.Columns.Add("n", "n")
.Columns.Add("termino", "termino")
End With
End Sub

7
Public Class Form1
Private Sub Button1_ClickDim a, t, k, i, n As Integer
n = Val(TextBox1.Text)
t = 5 : k = 6
For i = 1 To n
If i = k Then
TextBox2.Text = TextBox2.Text & "0" & ","
k = k + 6 : t = 5
Else
TextBox2.Text = TextBox2.Text & CStr(t) & ","
t = t - 1
End If
Next i
End SubEnd Class
6

Public Class Form1
Private Sub Button1_Click
Dim a, b, r, i, n As Integer
n = Val(TextBox1.Text)
a = 0
b = 0
r = 0
For i = 1 To n
TextBox2.Text = TextBox2.Text & CStr(r) & Chr(13) & Chr(10)
r = a + b + 1
b = a
a = r
Next i
End Sub
End Class

8Public Class Form1
Private Sub Button1_Click
Dim f, t, k, i, n, x As Double
n = Val(TextBox1.Text)
x = Val(TextBox2.Text)
t = 0 : k = 1 : f = 0
For i = 0 To n - 1
f = 1
For j = 1 To i
f = f * j
Next j
k = (x ^ i) / f
t = t + k
f = 1
Next i...