TinVIP
Chúc mừng bạn đã đến diễn đàn Tin Vip. Bạn hãy đăng nhập ngay để viết bài chia sẽ-giao lưu-hoc tập...

TinVIP

(¯¯»»» Tin VIP(2k9-2k12) --- Trường CĐSP Nha Trang «««¯¯)
 
IndexĐăng kýĐăng Nhập
Diễn Đàn TinVIp Nha Trang
Latest topics
» Trường Đại học Khánh Hòa: Hướng đến đào tạo nguồn nhân lực chất lượng cao
Wed Jun 03, 2015 8:47 pm by vohuuhau

» Tổng hợp mảng 1 chiều C++
Wed May 06, 2015 5:22 pm by vohuuhau

» giai gap dum bai tap c++
Wed May 06, 2015 5:12 pm by vohuuhau

» Bị đâm thủng tim tại tiệm internet
Tue Oct 29, 2013 5:09 pm by vohuuhau

» Tìm thấy xác chị huyền
Tue Oct 29, 2013 5:01 pm by vohuuhau

» lam on lam dum bai tap nay
Thu Dec 20, 2012 7:48 pm by Ly' Van Toan

» Tìm người iu...
Sun Nov 04, 2012 5:07 pm by Admin

» Sinh viên ... một thời để nhớ!
Sun Nov 04, 2012 5:06 pm by Admin

» Game vua trò chơi toàn tập
Sun Oct 21, 2012 12:10 am by Admin

» giới thiệu một website của lớp tinK36
Sun Oct 21, 2012 12:05 am by Admin

Events


Share | 
 

 Một số giải thuật VB6

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
vohuuhau
----unlimited----
----unlimited----


Tổng số bài gửi : 785
Bình chọn : 1367
Join date : 07/01/2010
Age : 31
Đến từ : Thiên đường cỏ xanh ^_^

Bài gửiTiêu đề: Một số giải thuật VB6   Fri Dec 17, 2010 10:36 am

XÓA KHOẢNG TRẮNG VÔ NGHĨA TRONG CHUỖI



GIẢI THUẬT:
bước 1: Trước tiên xóa các khoảng trắng vô nghĩa ở đầu và cuối.
Bước 2: Sau đó các khoảng trắng ở giữa.
cat Nguyên liệu gồm 1 textbox và một commandbutton
cat code tham khảo:

Code:
 
  'CODE BY HAU BO
  option explicit
  function xoakhoangtrang (cau as string) as string
    cau = trim(cau)
    do while instr(cau,chr(32)&chr(32))>0
      cau=replace(cau,chr(32)&chr(32),chr(32))
    loop
  xoakhoangtrang= cau
  end function
 private sub command1_click()
  text1 = xoakhoangtrang(text1)
 end sub


Được sửa bởi vohuuhau ngày Thu Dec 23, 2010 3:14 pm; sửa lần 1.
Về Đầu Trang Go down
vohuuhau
----unlimited----
----unlimited----


Tổng số bài gửi : 785
Bình chọn : 1367
Join date : 07/01/2010
Age : 31
Đến từ : Thiên đường cỏ xanh ^_^

Bài gửiTiêu đề: Re: Một số giải thuật VB6   Thu Dec 23, 2010 1:51 pm

IN SỐ NGUYÊN TỐ NHỎ HƠN SỐ N RA MÀN HÌNH



NGUYÊN LIỆU GỒM CÓ HAI LABEL,2 TEXTBOX, VÀ MỘT COMMANDBUTTON

GIẢI THUẬT:

B1: KIỂM TRA SỐ NGUYÊN TỐ
B2: NẾU LÀ SỐ NGUYÊN TỐ VÀ NHỎ HƠN N THI IN RA .

CODE THAM KHẢO:


Code:

 'CODE BY HAU BO
 
  Option Explicit
 
Private Sub Command1_Click()
 Dim i As Integer
 Dim j As Integer
 Dim m As Integer
 Dim so As Integer
 Dim ch As String
 ch = " "
 Text2 = ""
 so = Val(Text1)
 If so < 2 Then
 Text2.Text = " khong co so nguyen to nao thoa man nho hon" & so
 Else
 For i = 2 To so
    j = 2
    m = Sqr(i)
    Do While (i Mod j <> 0 And j <= m)
      j = j + 1
    Loop
  If (j > m) Then ch = ch & Str$(i)
 Next
 End If
 Text2 = Right$(ch, Len(ch) - 1)
End Sub





Được sửa bởi vohuuhau ngày Thu Dec 23, 2010 3:13 pm; sửa lần 1.
Về Đầu Trang Go down
vohuuhau
----unlimited----
----unlimited----


Tổng số bài gửi : 785
Bình chọn : 1367
Join date : 07/01/2010
Age : 31
Đến từ : Thiên đường cỏ xanh ^_^

Bài gửiTiêu đề: Re: Một số giải thuật VB6   Thu Dec 23, 2010 2:19 pm

NHẬP MỘT SỐ N KIẾM TRA SỐ N CÓ PHẢI SỐ NGUYÊN TỐ HAY KHÔNG



NGUYÊN LIỆU: gồm 1 textbox và một command button
GIẢI THUẬT:
khởi tạo một biến điều khiển i=2 và gán một số m=sqr(n) (m bằng căn bậc hai của n)

bước 1: chạy vòng lặp trong khi n mod i<>0 và i<=m thi tăng i lên 1 đơn vị, ngược lại thì thoát khỏi vòng lặp.
bước 2: nếu i>m và n>=2 thì hiện thông báo n là số nguyên tố ngược lại thì hiện không phải

Code:

Option Explicit
 'CODE BY HAU BO
Private Sub Command1_Click()
 Dim i As Integer
 Dim m As Integer
 Dim so As Integer
  so = Val(Text1)
    i = 2
    m = Sqr(Abs(so))
    Do While (so Mod i <> 0 And i <= m)
      i = i + 1
    Loop
  If (i > m And so >= 2) Then
  MsgBox so & " la so nguyen to ", , "Thong bao"
  Else
  MsgBox so & " khong phai la so nguyen to ", , "Thong bao"
 End If
 Text1 = ""
 Text1.SetFocus
End Sub




Được sửa bởi vohuuhau ngày Thu Dec 23, 2010 3:15 pm; sửa lần 1.
Về Đầu Trang Go down
vohuuhau
----unlimited----
----unlimited----


Tổng số bài gửi : 785
Bình chọn : 1367
Join date : 07/01/2010
Age : 31
Đến từ : Thiên đường cỏ xanh ^_^

Bài gửiTiêu đề: Re: Một số giải thuật VB6   Thu Dec 23, 2010 3:12 pm

NHẬP SỐ N VÀ PHÂN TÍCH RA THÀNH THỪA SỐ NGUYÊN TỐ

ví dụ nhập vào 200 sẽ phân tích thành 2*2*2*5*5
NGUYÊN LIỆU:[ 2 LABEL], 2 TEXTBOX, 1 COMMANDBUTTON
GỈAI THUẬT:
gán chuỗi text 2 bằng rỗng.
bước 1: nếu số nhỏ hơn 2 thì thông báo là không phân tích được.
bước 2: trong khi số nhập vào lớn bằng thì làm
+Nếu số nhập vào chia hết cho i thì lấy nó cho vào chuỗi textbox2.
+ Ngược lại thì i tăng lên 1 đơn vị.
bước 3: in kết quả ra textbox thứ 2.
Code:
 
 Option Explicit
 
'code by hau bo
Private Sub Command1_Click()
 Dim i As Integer
 Dim m As Integer
 Dim so As Integer
 Text2 = ""
  so = Val(Text1)
    If so < 2 Then
    MsgBox "so " & so & " khong the phan tich duoc", , "Thong bao"
    Else
    i = 2
  Do While so >= 2
  If so Mod i = 0 Then
    Text2 = Text2 & "*" & Str$(i)
    so = so / i
  Else
    i = i + 1
  End If
  Loop
  End If
  Text2 = Right$(Text2, Len(Text2) - 1)
End Sub

Về Đầu Trang Go down
troghieu
Khách viếng thăm



Bài gửiTiêu đề: Tham khao thi hoc ky   Fri Dec 24, 2010 9:39 pm

thank po nhju nhen!!!
Về Đầu Trang Go down
hien_cr
----unlimited----
----unlimited----


Tổng số bài gửi : 535
Bình chọn : 647
Join date : 25/12/2009
Age : 25
Đến từ : Cam Ranh City

Bài gửiTiêu đề: Re: Một số giải thuật VB6   Fri Dec 24, 2010 10:18 pm

Thank pò lấy tinh thần nè!!! cheers
Về Đầu Trang Go down
nhonhinhanh
<<-BINH NHÌ->>



Tổng số bài gửi : 28
Bình chọn : 41
Join date : 04/01/2010
Age : 26

Bài gửiTiêu đề: Re: Một số giải thuật VB6   Fri Dec 24, 2010 11:02 pm

cảm ơn ong bò nhìu nhìu nha!!!
Laughing cheers
Về Đầu Trang Go down
Sponsored content




Bài gửiTiêu đề: Re: Một số giải thuật VB6   Today at 3:30 pm

Về Đầu Trang Go down
 

Một số giải thuật VB6

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 

 Similar topics

-
» quay trộm đầu thu kỹ thuật số AVG
» Kỹ thuật số mặt đất có phát Ngoại Hạng Anh
» fw ky thuật số Dunals LTD 686
» Đầu kỹ thuật số mặt dất của VTC
» Mật khẩu bí mật các loại đầu thu Vệ tinh, Kỹ thuật số
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
TinVIP :: Góc học tập :: Tài Liệu Học Tập-
Chuyển đến