TinVIP (¯¯»»» Tin VIP(2k9-2k12) --- Trường CĐSP Nha Trang «««¯¯) |
Diễn Đàn TinVIp Nha Trang |
Latest topics | » Cho thuê phòng trọ đường Phú Thiện, Vĩnh Thạnh mới xâyThu Mar 18, 2021 2:29 pm by vohuuhau » Cho thuê phòng trọ ở đường Hương Lộ Ngọc Hiệp, Nha TrangThu Mar 18, 2021 2:21 pm by vohuuhau » NGUỒN GỐC & Ý NGHĨA CỦA CÁC DÃY SỐ 25251325, 35351335, 5841314520Thu Mar 18, 2021 2:04 pm by vohuuhau » Key photoshop CS3Fri Nov 01, 2019 3:19 pm by vohuuhau » Key code avast 2040Tue May 28, 2019 10:02 am by vohuuhau » 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 caoWed 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 internetTue Oct 29, 2013 5:09 pm by vohuuhau » Tìm thấy xác chị huyềnTue Oct 29, 2013 5:01 pm by vohuuhau |
| |
| | Tác giả | Thông điệp |
---|
vohuuhau ----unlimited----
Tổng số bài gửi : 790 Bình chọn : 1382 Join date : 07/01/2010 Age : 39 Đến từ : Thiên đường cỏ xanh ^_^
| Tiê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. Nguyên liệu gồm 1 textbox và một commandbutton 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. |
| | | vohuuhau ----unlimited----
Tổng số bài gửi : 790 Bình chọn : 1382 Join date : 07/01/2010 Age : 39 Đến từ : Thiên đường cỏ xanh ^_^
| Tiê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. |
| | | vohuuhau ----unlimited----
Tổng số bài gửi : 790 Bình chọn : 1382 Join date : 07/01/2010 Age : 39 Đến từ : Thiên đường cỏ xanh ^_^
| Tiê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. |
| | | vohuuhau ----unlimited----
Tổng số bài gửi : 790 Bình chọn : 1382 Join date : 07/01/2010 Age : 39 Đến từ : Thiên đường cỏ xanh ^_^
| Tiê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
|
| | | troghieu Khách viếng thăm
| Tiêu đề: Tham khao thi hoc ky Fri Dec 24, 2010 9:39 pm | |
| |
| | | hien_cr ----unlimited----
Tổng số bài gửi : 535 Bình chọn : 647 Join date : 25/12/2009 Age : 33 Đến từ : Cam Ranh City
| Tiê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è!!! |
| | | nhonhinhanh <<-BINH NHÌ->>
Tổng số bài gửi : 28 Bình chọn : 41 Join date : 04/01/2010 Age : 33
| Tiê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!!! |
| | | Sponsored content
| Tiêu đề: Re: Một số giải thuật VB6 | |
| |
| | | |
Similar topics | |
|
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
| |
| |
| |
|