Ôn tập vb

Bài 1: Tính khoảng cách d hai điểm A(x1,y1) B(x2,y2) Private Sub CmdPLoai_Click() Private Sub cmdd_Click() d = Val(txtd.Text) Dim d As Double If (d >= 0) And (d 3) And (d 5) And (d 7) And (d 9) And (d y Then MsgBox "Ban nhap so lon" ElseIf x < y Then MsgBox "Ban nhap so nho" End If Loop Until (x = y) Or (solan > 6) If (x = y) And (solan x = InputBox("Nhap x > 0") If x > Then If s "" Then s = s & " + " Next T=T+x s = s & Chr(13) For i = To s = s & " " Next s = s & Chr(13) s=s&x End If Loop MsgBox s & " = " & T For j = To s = s & j & "| " For i = To If i * j < 10 Then s=s&i*j&" "&" " Else s=s&i*j&" " End If Next s = s & Chr(13) Next MsgBox s End Sub Bài 24: Tính tổng chữ số số nguyên dương Private Sub cmdTong_Click() Dim a As Integer, T As Integer T=0 n = InputBox("Nhap n") Do a = n Mod 10 If s "" Then s = s & " + " s=s&a T=T+a n = n \ 10 Loop Until n = MsgBox s & " = " & T End Sub Bài 25: Tính tổng chữ số chẵn số nguyên dương Bài 27: Tính tổng ước số số nguyên dương Private Sub cmdTong_Click() Private Sub cmdTong_Click() Dim T As Integer, a As Integer Dim n As Double, T As Integer n = InputBox("Nhap n") n = InputBox("Nhap n") T=0 T=0 Do For i = To n \ a = n Mod 10 If n Mod i = Then If a Mod = Then If s "" Then s = s & " + " If s "" Then s = s & " + " s=s&i&"" T=T+a T=T+i s=s&a End If n = n \ 10 Loop Until n = End If Next MsgBox s & " = " & T End Sub MsgBox s & " = " & T End Sub Bài 26: In ước số số nguyên dương Bài 28: In từ phạm vi 1-1000 số tròn (Tổng ước số nó) Private Sub cmdIn_Click() Private Sub cmdIn_Click() Dim T As Integer Dim n As Double For i = To 1000 n = InputBox("Nhap n") T=0 For i = To n \ For j = To i \ If i Mod j = Then T = T + j If n Mod i = Then s = s & i & " " Next Next MsgBox s If T = i Then s = s & i & " " End Sub Next MsgBox "Cac so tron la " & s End Sub Bài 29: Kiểm tra xem số có phải số nguyên tố hay không Private Function isPerfect(ByVal n As Integer) As Boolean Private Sub cmdKtra_Click() Dim t As Integer Dim n As Double t =0 n = InputBox("Nhap n") For i = To n \ For i = To sqr(n) If n Mod i = Then Exit For Next If i And v < 180 Then HScroll.Value = v End Sub (Dời trục vào giữa) Bài 61: Vẽ đa giác DoiTruc R = hsR.Value n = hsN.Value a = hsA.Value DrawPoly R, n, a txtcanh.Text = n txtgoc.Text = a Private Sub DrawPoly(ByVal R As Long, ByVal n As Byte, ByVal a As Double) txtR.Text = R End Sub Const pi = 3.141593 Private Sub txtcanh_Change() alpha = * pi / n c = Val(txtcanh.Text) a = a * pi / 180 Pic1.Cls If c >= And c = And g = 500 And R