Bài tập tìm xâu con chung dài nhất

Dim xau1(20) As Integer

Dim xau2(20) As Integer

Dim xaucon(20, 1) As Integer

Private Sub Command1_Click()

Dim i, j, k, l, m As Integer

Dim s As String

j = 0

k = -1

l = 0

m = 0

'xaucon(0, 0) = 0

'xaucon(0, 1) = 0

For i = 0 To 20

If xau1(i) = xau2(i) Then

If j = 0 Then

k = k + 1

xaucon(k, 0) = i

End If

j = j + 1

xaucon(k, 1) = j

Else

j = 0

k = k + 1

xaucon(k, 0) = i

xaucon(k, 1) = 0

End If

Next

m = xaucon(0, 0)

l = xaucon(0, 1)

For i = 1 To 20

If xaucon(i, 1) > l Then

m = xaucon(i, 0)

l = xaucon(i, 1)

End If

Next

Command1.Caption = "Bat dau tai vi tri: " & m & " - " & "Chieu dai xau con: " & l

s = ""

For i = m To m - 1 + l

s = s & xau1(i) & " - "

Next

Text3.Text = s

s = ""

Text5.Text = ""

For i = 0 To 20

s = s & xaucon(i, 1) & "-"

Text5.Text = Text5.Text & xaucon(i, 0) & " - "

Next

Text4.Text = s

End Sub

Private Sub Command2_Click()

Dim i As Integer

Dim s As String

For i = 0 To 20

xau1(i) = Int(1 + 3 * Rnd)

s = s & xau1(i) & " - "

Next

Text1.Text = s

s = ""

For i = 0 To 20

xau2(i) = Int(1 + 3 * Rnd)

s = s & xau2(i) & " - "

Next

Text2.Text = s

End Sub

Private Sub Form_Load()

Dim i As Integer

Dim s As String

Randomize

For i = 0 To 20

xau1(i) = Int(1 + 3 * Rnd)

s = s & xau1(i) & " - "

Next

Text1.Text = s

s = ""

For i = 0 To 20

xau2(i) = Int(1 + 3 * Rnd)

s = s & xau2(i) & " - "

Next

Text2.Text = s

End Sub

-------------------------------------------------------------------------

tìm xâu dài nhất

#

# Option Explicit

# Dim s As String

# Dim a() As String

# Dim max As Integer, i As Integer, vitri As Integer

# Private Sub Command1_Click()

# s = Trim$(Text1.Text)

# a = Strings.Split(s, " ")

# 'O day ban co the kiem tra chuoi dau vao co rong khong de tranh loi

# max = 0

# For i = LBound(a) To UBound(a)

# If Len(Trim$(a(i))) > max Then max = Len(Trim$(a(i))): vitri = i

# Next i

# MsgBox "chuoi dai nhat la: '" & a(vitri) & "' voi " & max & " ki tu!"

# End Sub

------------------------------

code de nhap n so phan tu cua mang

1. Dim i, a(1 To 10) As Integer

2. For i = 1 To 10

3. a(i) = InputBox("Nhap Phan Tu Thu " & i)

4. Next i

5. For i = 1 To 10

6. Print a(i);

7. Next i

--------------------------------

thuật toán sắp xếp theo thứ tự tăng dần

#

# Dim iArr(10) As Integer

# Private Sub Command1_Click()

# Dim i, j, k As Integer

# Dim iMin As Integer

#

# Randomize

# For i = 0 To 10

# iArr(i) = Rnd * 10

# Label1.Caption = Label1.Caption & iArr(i) & " - "

# Next

#

# For i = 0 To 10

# iMin = iArr(i)

# k = i

# For j = i + 1 To 10

# If iArr(j) < iMin Then

# iMin = iArr(j)

# k = j

# End If

# Next

# If k <> i Then HoanVi i, k

# Next

# For i = 0 To 10

# Label2.Caption = Label2.Caption & iArr(i) & " - "

# Next

# End Sub

#

# Private Sub HoanVi(ByVal i As Integer, ByVal j As Integer)

# Dim tmp As Integer

#

# tmp = iArr(i)

# iArr(i) = iArr(j)

# iArr(j) = tmp

# End Sub

--------------------

# For i = 0 To n - 1 Step 1

# For j = i + 1 To n Step 1

# If arrList(i) > arrList(j) Then

# k = arrList(i) 'Dùng biến trung gian K để thực hiện việc hoán đổi vị trí

# arrList(i) = arrList(j)

# arrList(j) = k

# End If

# Next j

# Next i

---------------------------------

Tổng ước : vd 6 = 1 + 2 + 3

Function tonguoc(ByVal n As Integer) As Integer

Dim S As Integer = 0

For i As Integer = 1 To n \ 2

If (n Mod i) = 0 Then

S = S + i

End If

Next

tonguoc = S

End Function

-------------------------------

số mũ

Function mu(ByVal a As Integer, ByVal n As Integer) As Integer

Dim T As Integer = 1

For i As Integer = 1 To n

T = T * a

Next

mu = T

End Function

------------------------

số nguyên tố

Function nguyento(ByVal n As Integer) As Boolean

nguyento= true

For i As Integer = 2 To n \ 2

If n Mod i = 0 Then

nguyento=false

Exit For

End If

Next

End Function

------------------------

ước chung lớn nhất

Gọi x là USCLN của a và b. x= { a chia hết x và b chia hết x} và { tồn tại y : a chia hết y và b chia hết y => y <= x }

Function UCLN(ByVal m As Integer, ByVal n As Integer) As Integer

Dim r As Integer

r = m Mod n

While (r <> 0)

m = n

n = r

r = m Mod n

End While

UCLN = n

End Function

--------------------

bội chung nhỏ nhất

Function BCNN(ByVal m As Integer, ByVal n As Integer) As Integer

BCNN = (m * n) \ UCLN(m, n)

End Function

---------------------

7. Phân tích số ra thừa số nguyên tố

Ví dụ : 6 = 2 * 3

Function phantichthuaso_ngto(ByVal n As Integer) As String

Dim i As Integer = 2

Dim S As String = " "

While (i <= n)

If (nguyento(i) And (n Mod i = 0)) Then

n = n \ i

If (n = 1) Then

S = S + i.ToString + " "

Else

S = S + i.ToString + " " + "*" + " "

End If

Else

i = i + 1

End If

End While

phantichthuaso_ngto = S

End Function

-----------------------------

8. Tính giai thừa :

n! = n.(n-1).(n-2)....4.3.2.1

Function giaithua(ByVal n As Integer) As Integer

Dim T As Integer = 1

For i As Integer = 1 To n

T = T * i

Next

giaithua = T

End Function

------------------------------

9. Kiếm tra tính đối xứng

ví dụ : 1221 ---> đối xứng

Function doixung(ByVal chuoi As String) As Boolean

doixung = False

For i As Integer = 1 To Len(chuoi) \ 2

If Mid(chuoi, i, 1) = Mid(chuoi, Len(chuoi) + 1 - i, 1) Then

doixung = True

Exit For

End If

Next

End Function

-------------------------------

11. Hệ phương trình 2 ẩn:

a1x+b2y=c1

a2x+b2y=c2

'a1x+b2y=c1

'a2x+b2y=c2

Sub hephuongtrinh2an(ByVal a1 As Integer, ByVal b1 As Integer, ByVal c1 As Integer, ByVal a2 As Integer, ByVal b2 As Integer, ByVal c2 As Integer)

Dim d As Integer, dx As Integer, dy As Integer

d = a1 * b2 - a2 * b1

dx = c1 * b2 - c2 * b2

dy = a1 * c2 - a2 * c1

If d <> 0 Then

MsgBox("Phuong trinh co nghiem duy nhat")

MsgBox(" x = " & dx / d & vbCrLf & " y = " & dy / d)

ElseIf (d = 0 And dx <> 0) Or (d = 0 And dy <> 0) Then

MsgBox("Phuong trinh vo nghiem ")

ElseIf d = 0 And dx = 0 And dy = 0 Then

MsgBox("Phuong trinh vo so nghiem")

End If

End Sub

-----------------------------------------

1. Đổi Cơ Số

1.1. Đổi thập phân --> cơ số 2,8,16

Function doicoso10(ByVal n As Integer, ByVal he As Integer) As String

Dim r As Integer

Dim S As String = ""

While n <> 0

r = n Mod he

If r = 0 Then

S = r.ToString + S

Else

S = r.ToString + S

End If

n = n \ he

End While

doicoso10 = S

End Function

------------------------

1.2. Đổi cơ số 2,8,16 ---> Cơ số 10

Function doisanghe10(ByVal chuoi As String, ByVal he As Byte) As Integer

Dim S As Integer = 0

For i As Integer = 1 To Len(chuoi)

S = S + Val(Mid(chuoi, i, 1)) * he ^ (Len(chuoi) - i)

Next

doisanghe10 = S

End Function

-----------------------

2. Ma trận :

2.1. Ma trận 1 chiều :

Khởi tạo 1 ma trận :

Dim r As New Random

'--- Khoi tao

For Me.j = 1 To n

a(i) = r.Next(10) ' Lay tri ngau nhien 0-9

Next

--------------------

a. Nhập 1 giá trị X, xem thử X có thuộc Mảng A không ? thuộc mấy lần

Sub kiemtra(ByVal x As String)

Dim S As Integer

For i As Integer = 1 To n

If a(i) = x Then

S = S + 1

End If

Next

If S > 0 Then

MsgBox(x & " thuộc với " & S & " lần ")

Else

MsgBox(x & " không thuộc ")

End If

End Sub

---------------------------------

b. Tính tổng các phần tử có : giá trị chẵn hoặc cột chẵn

Sub tongcacphantuchan()

Dim S As Integer

For i As Integer = 1 To n

If i Mod 2 = 0 Then

S = S + a(i)

End If

Next

MsgBox("Tổng các phần tử chẵn : " & S)

End Sub

'-------------------------------------------------------

Sub tongcotchan()

Dim S As Integer

For i As Integer = 2 To n Step 2

S = S + a(i)

Next

MsgBox("Tổng các phần tử cột chẵn : " & S)

End Sub

----------------------------

2.2. Ma trận 2 chiều :

Đầu tiên phải tạo trước 2 ma trận A,B đã . Khởi tạo ngẫu nhiên cho nhanh thấy

Dim r As New Random

'--- Khoi tao mang A, B

For Me.i = 1 To m

For Me.j = 1 To n

a(i, j) = r.Next(10) ' Lay tri ngau nhien 0-9

b(i, j) = (r.Next(10)) ' Lay tri ngau nhien 0-9

Next

Next

--------------------------

2.2.1. Cộng, trừ, nhân, chia 2 ma trận :

Const max = 100

Dim a(max, max) As Integer, b(max, max) As Integer, c(max, max) As Integer

Dim m As Integer, n As Integer, i As Integer, j As Integer

Sub congmatran()

Dim i As Integer, j As Integer

For i = 0 To m ' duyet theo hang

For j = 0 To n 'duyet theo cot

c(i, j) = a(i, j) + b(i, j)

Next j

Next i

End Sub

Sub nhanmatran()

Dim i As Integer, j As Integer, k As Integer

For i = 0 To m ' duyet theo hang

For j = 0 To n 'duyet theo cot

c(i, j) = 0

For k = 1 To m

c(i, j) += a(i, k) * b(k, j)

Next

Next j

Next i

End Sub

-------------------

Sắp xếp dãy tăng/giảm.

Private Sub cmdKetqua_Click()

Dim dayso() As String

dayso = Split(txtNhap, ",")

Dim i As Integer, j As Integer, k As Integer

'code tuongphu

For i = 0 To UBound(dayso) - 1 Step 1

For j = i + 1 To UBound(dayso) Step 1

If CInt(dayso(i)) > CInt(dayso(j)) Then

k = CInt(dayso(i))

dayso(i) = dayso(j)

dayso(j) = k

End If

Next j

Next i

txtKetqua.Text = ""

txtKetqua1.Text = ""

For i = 0 To UBound(dayso) Step 1

txtKetqua = txtKetqua & dayso(i) & ", "

txtKetqua1 = txtKetqua1 & dayso(UBound(dayso) - i) & ", "

End Sub

-----------------

pt bac 2

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, delta As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

delta = b * b - 4 * a * c

If delta < 0 Then

MsgBox "Vo nghiem"

Else

If delta = 0 Then

MsgBox "Nghiem kep: x1 = x2 = " & -b / (2 * a)

Else

MsgBox "2 nghiem phan biet" & vbCrLf & "x1 = " & (-b - Sqr(delta)) / (2 * a) & vbCrLf & "x2 = " & (-b + Sqr(delta)) / (2 * a)

End If

End If

End Sub

----------------------------------

1)Viết chương trình tính tổng các số lẻ từ 1 đến n,với n nhập từ bàn phím.

Dim S,n,i As Integer

Private Sub Form_Load()

n=InputBox("Nhap vao n:","Thong bao")

For i=1 to n step 2

S=S+i

Next

MsgBox "Tong la: " & S

chẵn : i =0