so chia het cho 3

Private Sub Command1_Click()
Dim n As Long
n = Text1.Text
If n Mod 3 = 0 Then
MsgBox n & " chia het cho 3"
ElseIf n Mod 3 = 1 Then
MsgBox n & " chia cho 3 du 1"
ElseIf n Mod 3 = 2 Then
MsgBox n & " chia cho 3 du 2"
End If
End Sub

Private Sub Command2_Click()
Form5.Hide
Form2.Show
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

code usename va password

Private Sub Command1_Click()
If Text1.Text = "cuong" And Text2.Text = "123" Then
MsgBox "ban da dang nhap thanh cong"
Form2.Show
Else
Text1.Text = " "
Text2.Text = " "
MsgBox " vui long nhap lai "
End If

End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Form1.Hide


End Sub

Code pha mau

Private Sub VScroll1_Change(Index As Integer)
Dim A As String
With Picture1
.BackColor = RGB(VScroll1(0), VScroll1(1), VScroll1(2))
End With
A = "picture1.backcolor = RGB(" & VScroll1(0).Value & "," & VScroll1(1).Value & "," & VScroll1(2).Value & ","
Label1.Caption = A
End Sub

code Chạy chữ liên tục

Dim c As String, i, j As Integer

Private Sub Form_Load()
Label1.Caption = " CHUC MUNG NAM MOI "
Label1.FontSize = 40
Label1.Font = vntimeH
c = Label1.Caption
i = 1
HScroll1.Min = 15
HScroll1.Max = 72
j = HScroll1.Min

End Sub

Private Sub HScroll1_Change()
Label1.FontSize = HScroll1

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2, Len(c)) & Left(Label1.Caption, 1)
If i = 1 Then Label1.ForeColor = vbRed
If i = 2 Then Label1.ForeColor = vbYellow

If i = 3 Then Label1.ForeColor = vbGreen

If i = 4 Then Label1.ForeColor = vbBlue

If i = 5 Then Label1.ForeColor = vborange

If i = 6 Then Label1.ForeColor = &H80000013

If i = 7 Then Label1.ForeColor = &H80000010

If i = 8 Then Label1.ForeColor = &H80000001

If i = 9 Then Label1.ForeColor = vbpink

If i = 10 Then Label1.ForeColor = vbpurple

i = 1

If j < HScroll1.Max Then Label1.FontSize = HScroll1
HScroll1 = j
j = j + 1


End Sub

code đoạn ký tự chạy

Dim c As String, i As Integer

Private Sub Command1_Click()
Form1.Hide
Form2.Show
End Sub

Private Sub Form_Load()
Label1.Caption = "chao mung ban den lop tmdt 6a "
Label1.FontSize = 30
c = Label1.Caption
i = 1
End Sub

Private Sub Timer1_Timer()
If i < Len(c) Then Label1.Caption = Left(c, i)
i = i + 1
End Sub

code listbox cộng trừ nhân chia

Private Sub Command1_Click()
If list1llistindex = 0 Then Text3.Text = Val(Text1.Text) + Val(Text2.Text)
If list1llistindex = 1 Then Text3.Text = Val(Text1.Text) - Val(Text2.Text)
If list1llistindex = 2 Then Text3.Text = Val(Text1.Text) * Val(Text2.Text)
If list1llistindex = 3 Then Text3.Text = Val(Text1.Text) / Val(Text2.Text)
If list1llistindex = 4 Then Text3.Text = Val(Text1.Text) Mod Val(Text2.Text)


End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
End Sub

Private Sub Form_Load()
List1.AddItem "+", 0
List1.AddItem "-", 1
List1.AddItem "*", 2
List1.AddItem "/", 3
List1.AddItem "Mod", 4
End Sub

Code Tính Tổng N Số Nguyên Dương Đầu Tiên

Private Sub Command1_Click()
Dim i, n As Integer
Dim S As Long
'nhap so nguyen duong n
n = Text1.Text
S = 0
For i = 1 To n
S = S + i
Next
'tong cua n so nguyen duong dau tien
Text2.Text = S
End Sub