Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Chập chững VBA
#1
Bạn nào tốt bụng hướng dẫn hoặc làm cho mình cái demo bài tập này với. Cảm ơn nhiều lắm:
Giải và biện luận bx+c=0
Private Sub cmdgiai_Click()
Dim b As Integer, c As Integer
Dim x As Double
b = Val(txtb.Text)
c = Val(txtc.Text)
If b = 0 Then
    If c = 0 Then
        MsgBox "PT VSN"
    Else
        MsgBox "PT VN"
    End If
Else
    x = -c / b
    MsgBox x & " la nghiem PT"
End If
End Sub
Chữ ký của phuc_thanhtien phuc_thanhtien,gia nhập Thủ Thuật Access từ 08-03 -16.
Reply
Những người đã cảm ơn
#2
File mẫu tham khảo.

P/s file chạy tốt trên access 07 bạn nhé.

Link tải: File mẫu
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn phuc_thanhtien
#3
Bạn ơi chọn định dạng cho Textbox nghiem thế nào để có số 0 ở đằng trước khi mà phần nguyên nhỏ hơn 1 vậy:

[Hình: untitled2.jpg]

Bạn giúp thêm mình bài này nữa nhé, mình vẫn chưa vỡ vạc ra được:
Bài 6: h = (q + 26*(m+1)/10 + k + k/4 + j/4  + 5j ) / 7%
Private Sub CmdNS_Click()
Dim q As Byte, m As Byte, k As Byte
Dim y As Integer, j As Byte
q = Val(txtq.Text)
m = Val(txtm.Text)
y = Val(txty.Text)
If (m = 1) Or (m = 2) Then
    m = m + 12
    y = y - 1
End If
k = y Mod 100
j = y \ 100 + 1
h = (q + 26 * (m + 1) / 10 + k + k / 4 + j / 4 + 5 * j) Mod 7
Select Case h
    Case 0
        thu = "thu 7"
    Case 1
        thu = "chu nhat"
    Case 2
        thu = "thu 2"
    Case 3
        thu = "thu 3"
    Case 4
        thu = "thu4"
    Case 5
        thu = "thu 5"
    Case 6
        thu = "thu 6"
End Select
MsgBox "Ban sinh vao " & thu
End Sub
Chữ ký của phuc_thanhtien phuc_thanhtien,gia nhập Thủ Thuật Access từ 08-03 -16.
Reply
Những người đã cảm ơn
#4
Với trường hợp máy chỉ hiển thị -,22222xxx thì cái này do Windows, bạn chỉ cần thay đổi lại thông số Display leading zeros
Bạn vào control panel trong máy tìm đến phần Region and language rồi làm theo hình. (Win 7) win khác làm tương tự.
[Hình: haiquancomputer163_Capture.PNG]
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
Bài bạn sinh vào thứ mấy
File mẫu
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn phuc_thanhtien
#6
Cảm ơn bạn quan_pc nhiều mình đã vỡ vạc đôi chút rồi.
Code chạy tốt nhưng kết quả không đúng. (hôm nay 15/4/16 đáng lẽ là thứ 6 mà nó lại có kết quả là thứ tư.)

[Hình: SN2.jpg] 

Bạn nào có code đúng dùng được thì post lên cho xin nhé.
Chữ ký của phuc_thanhtien phuc_thanhtien,gia nhập Thủ Thuật Access từ 08-03 -16.
Reply
Những người đã cảm ơn
#7
Tôi sử dụng hàm weekday có sẳn của Access.

Mã PHP:
Private Sub Command17_Click()
 
   Dim q As ByteAs ByteAs Integerthu As StringAs Byte

   q 
Val(txtq.Value)
   m Val(txtm.Value)
   y Val(txty.Value)

   h Weekday(DateSerial(ymq))

   Select Case h
       Case 1
           thu 
"chu nhat"
       Case 2
           thu 
"thu 2"
       Case 3
           thu 
"thu 3"
       Case 4
           thu 
"thu 4"
       Case 5
           thu 
"thu 5"
       Case 6
           thu 
"thu 6"
       Case 7
           thu 
"thu 7"
   End Select
   MsgBox 
"Ban sinh vao " thu
End Sub 
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn phuc_thanhtien
#8
Cảm ơn ongke0711 nhiều nhiều... 
Kết quả:
[Hình: SN3.jpg]

Mạo muội xin hỏi thêm, nếu phải sửa lại bài gốc trên thì sửa lại thế nào cho đúng ạ.
Chữ ký của phuc_thanhtien phuc_thanhtien,gia nhập Thủ Thuật Access từ 08-03 -16.
Reply
Những người đã cảm ơn maidinhdan
#9
Mình mới đang làm quen với Code, nên còn bỡ ngỡ quá. Đọc ví dụ muốn làm cái demo kiểm tra nhưng lại bí nữa... thôi thì xin cầu viện các bạn lần nữa:
 
Ví dụ 3: Kiểm tra một số nguyên (>2) có phải là nguyên tố hay không?
Dim so As Integer
Dim uoc As Integer
Dim nguyento As Boolean
nguyento = True
For uoc = 2 To Int(so / 2)
If so Mod uoc = 0 Then
nguyento = False
Exit For
End If
Next
If nguyento Then
Msgbox "là nguyên tố"
Else
Msgbox "không là nguyên tố!"
End If
Giải thuật đơn giản để xác định một số có phải nguyên tố hay không là: xác định
xem tất cả các số(uoc) có thể trở thành ước của số(so) cần kiểm tra. Nếu tìm thấy một ước thực sự đầu tiên, kết luận ngay không phải sốnguyên tố bởi lệnh nguyento = False và thoát khỏi vòng lặp bằng lệnh Exit For; trong trường hợp xét toàn bộ các ước có thể mà không tìm được một số nào là ước thực sự, kết luận đây là số nguyên tố(biến nguyento = True như giá trị ban đầu)
 
Cái mình làm đây: https://drive.google.com/file/d/0B2yhiz0...sp=sharing

Các bạn sửa giúp nhé!
Cảm ơn!
Chữ ký của phuc_thanhtien phuc_thanhtien,gia nhập Thủ Thuật Access từ 08-03 -16.
Reply
Những người đã cảm ơn
#10
Kiểm tra một số nguyên (>2) có phải là nguyên tố hay không?

Của bạn đây: 

[Hình: SNT.jpg]

https://drive.google.com/open?id=0B2yhiz...1FxX0tqLTQ

Chúc bạn vui vẻ và thành công nhé.
Chữ ký của thiennamlong Xin chào, mình là thiennamlong, Tham gia http://thuthuataccess.com/forum từ ngày 22-06 -14.
Reply
Những người đã cảm ơn maidinhdan , phuc_thanhtien


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Giải dùm đề thi chứng chỉ Tin Học Quốc Gia với Anh - Chị ợi airlblood 1 492 06-12-13, 09:33 PM
Bài mới nhất: khải nguyên

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ