Suma dzielników liczby
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer = CInt(TextBox1.Text)
Dim s As Integer = 0
Dim i As Integer = 1
Do While i <= x
If x Mod i = 0 Then
s = s + i
End If
i = i + 1
Loop
MsgBox(s)
End Sub
End Class
Rozdzielanie znaków
MsgBox(q & Chr(10) & r & Chr(10) & s)
Napisz, skompiluj i uruchom program w VB, który pozwoli uzytkownikowi na wprowadzenie 3 roznych liczb całkowitych, a nastepnie wyswietli liczbe, dla ktorej suma wszystkich jej dzielnikow jest najwieksza
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer = CInt(TextBox1.Text)
Dim y As Integer = CInt(TextBox2.Text)
Dim z As Integer = CInt(TextBox3.Text)
Dim s As Integer = 0
Dim q As Integer = 0
Dim r As Integer = 0
Dim i As Integer = 1
Dim m As Integer
Do While i <= x
If x Mod i = 0 Then
s = s + i
End If
i = i + 1
Loop
i = 1
Do While i <= y
If y Mod i = 0 Then
r = r + i
End If
i = i + 1
Loop
i = 1
Do While i <= z
If z Mod i = 0 Then
q = q + i
End If
i = i + 1
Loop
m = s
If q > m Then
m = q
End If
If r > m Then
m = r
End If
MsgBox(m)
End Sub
End Class
Liczby doskonałe
Dim a As Integer = 1
Dim SD As Integer = 0
Dim W As Integer = " "
Do While a <= 1000
Dim n As Integer = 1
SD = 0
Do While n <= (a / 2)
If a Mod n = 0 Then
SD = SD + n
End If
n = n + 1
Loop
If a = SD Then
W = W & a.ToString & " "
End If
a = a + 1
Loop
End Sub
End Class
CZY W ZDANIU WYSTĘPUJE WYRAZ
Dim ciag As String = TextBox1.Text
Dim x As Integer = 0
Dim n As Integer = 0
Dim a As String = "kot"
Do While x < ciag.Length - 2
If ciag.Substring(x, 3) = "kot" Then
n = n + 1
End If
x = x + 1
Loop
If n > 0 Then
MsgBox("tak")
Else
MsgBox("nie")
INACZEJ
Dim ciag As String = TextBox1.Text
Dim x As Integer = 0
Dim n As Integer = 0
Dim a As String = "kot"
Do While x < ciag.Length - 2
If ciag(x) = "k" And ciag(x + 1) = "o" And ciag(x + 2) = "t" Then
n = n + 1
End If
x = x + 1
Loop
If n > 0 Then
MsgBox("tak")
Else
MsgBox("nie")
End If
WYSZUKUJE CZY PODANY CIAG JEST W ZDANIU (WPROWADZANE PRZEZ UŻYTKOWNIKA)
Dim ciag As String = TextBox1.Text
Dim x As Integer = 0
Dim n As Integer = 0
Dim a As String = TextBox2.Text
Dim ciag1 As String = a
Do While x < ciag.Length - 2
If ciag.Substring(x, 3) = a Then
n = n + 1
End If
x = x + 1
Loop
If n > 0 Then
MsgBox("tak")
Else
MsgBox("nie")
End If
End Sub
End Class
Od Jurka
Dim a, b, c, da, db, dc, sa, sb, sc As Integer
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
da = a
db = b
dc = c
sa = 0
sb = 0
sc = 0
Do Until da = 0
If a Mod da = 0 Then
sa = sa + da
End If
da = da - 1
Loop
Do Until db = 0
If b Mod db = 0 Then
sb = sb + db
End If
db = db - 1
Loop
Do Until dc = 0
If c Mod dc = 0 Then
sc = sc + dc
End If
dc = dc - 1
Loop
If sa >= sb Then
If sa >= sc Then
Label2.Text = a
Else : Label2.Text = c
End If
ElseIf sb >= sc Then
Label2.Text = b
Else : Label2.Text = c
End If
Label3.Text = sa
Label4.Text = sb
Label5.Text = sc
Postać binarna
Try
Dim liczba As Integer
liczba = CInt(TextBox1.Text)
Dim postac_binarna As String = ""
If liczba < 0 Then
MsgBox("Podaj liczbę większą od zera")
Else
Do While liczba <> 0
postac_binarna = (liczba Mod 2) & postac_binarna
liczba = liczba \ 2
Loop
MsgBox(postac_binarna)
End If
Catch ex As Exception
MsgBox("ERROR" & vbCrLf & ex.Message)
End Try
9
Dim kwota As Integer
Dim i200, i100, i50, i20, i10, i5, i2, i1 As Integer
kwota = CInt(TextBox1.Text)
i200 = kwota \ 200
kwota = kwota Mod 200
i100 = kwota \ 100
kwota = kwota Mod 100
i50 = kwota \ 50
kwota = kwota Mod 50
i20 = kwota \ 20
kwota = kwota Mod 20
i10 = kwota \ 10
kwota = kwota Mod 10
i5 = kwota \ 5
kwota = kwota Mod 5
i2 = kwota \ 2
i1 = kwota Mod 2
MsgBox("200zł: " & i200 & vbCrLf & "100zł: " & i100 & vbCrLf & "50zł: " & i50 & vbCrLf & "20zł: " & i20 & vbCrLf & "10zł: " & i10 & vbCrLf & "5zł: " & i5 & vbCrLf & "2zł: " & i2 & vbCrLf & "1zł: " & i1)
Catch ex As Exception
MsgBox("ERROR" & vbCrLf & ex.Message)
End Try
Liczba pierwsza
Try
Dim liczba, i As Integer
Dim tablica() As Integer
Dim licznik As Integer
liczba = CInt(TextBox1.Text)
ReDim tablica(liczba)
For i = 1 To liczba
If liczba Mod i = 0 Then
tablica(i) = i
licznik = licznik + 1
Else
tablica(i) = 0
End If
Next i
If licznik = 2 Then
MsgBox("Podana liczba jest pierwsza")
Else
MsgBox("Podana liczba nie jest pierwsza")
End If
Catch ex As Exception
MsgBox("ERROR" & vbCrLf & ex.Message)
End Try
Dzielniki doskonała pierwsza
Try
Dim liczba, i As Integer
Dim tablica() As Integer
Dim suma, licznik As Integer
Dim wynik As String
liczba = CInt(TextBox1.Text)
ReDim tablica(liczba)
For i = 1 To liczba
If liczba Mod i = 0 Then
tablica(i) = i
suma = suma + i
licznik = licznik + 1
wynik = (wynik & " , " & i)
Else
tablica(i) = 0
End If
Next i
suma = suma - liczba
If RadioButton1.Checked = True Then
MsgBox("Dzielniki podanej liczby są: " & wynik)
Else
If RadioButton2.Checked = True Then
If suma = liczba Then
MsgBox("Podana liczba jest doskonała")
Else
MsgBox("Podana liczba nie jest doskonała")
End If
Else
If RadioButton3.Checked = True Then
If licznik = 2 Then
MsgBox("Podana liczba jest pierwsza")
Else
MsgBox("Podana liczba nie jest pierwsza")
End If
Else
MsgBox("Wybierz co chcesz zrobić!")
End If
End If
End If
Catch ex As Exception
MsgBox("ERROR" & vbCrLf & ex.Message)
End Try