Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Help me VBA trong access
#1
Mình mới học đến modules trong access và cô giáo cho vài bài tập về ... m.n pro giúp mình với...mình lơ mơ phần này quá sad
Ai chỉ giúp mình đc bài nào thì giúp mình nhé ? cảm ơn trước happy

1. Nhập x, tính y = |2x – 3|
3. Nhập tọa độ (x, y) của điểm M. Kiểm tra M có thuộc hình tròn tâm I (a,b), bán kính R không?
4. Nhập 3 số nguyên dương a, b, c. Kiểm tra ba số đó có phải là số đo ba cạnh của một tam giác không?
5. Biết năm nhuận là năm chia hết cho 400 hoặc chia hết cho 4 nhưng không chia hết cho 100. Hãy nhập vào một năm bất kỳ và cho biết năm ấy có phải là năm nhuận hay không?
6. Biết rằng bộ số nguyên dương a, b, c được gọi là bộ số Pi-ta-go nếu tổng các bình phương của hai số bằng bình phương của số còn lại. Hãy nhập vào ba số nguyên dương a, b, c và kiểm tra xem chúng có là bộ số Pi-ta-go hay không?
7. Nhập vào một số nguyên dương N. Tính N!.
8. Nhập vào một số nguyên dương S có ba chữ số , kiểm tra S = a3 + b3 + c3 không?
9. Viết ra tất cả các số có ba chữ số sao cho số đó bằng tổng các lập phương của các chữ số của số đó.
10. Viết ra tất cả các cách để có 200 đồng với 3 loại giấy bạc: 5đ, 2đ, 1đ.
11. Nhập vào hai xâu a và b. Chỉ ra các vị trí xuất hiện của xâu a trong xâu b.
12. Nhập vào một dãy số bất kỳ. Đếm các số >8 và <10. Chỉ ra vị trí các số đó.
13. Tạo mảng số nguyên, hai chiều gồm m hàng và m cột. Tính tổng các số lẻ trên hai đường chéo.
Chữ ký của nhockym Xin chào, mình là nhockym, Tham gia http://thuthuataccess.com/forum từ ngày 24-04 -13.
Reply
Những người đã cảm ơn
#2
Cái này có thể giúp được, nhưng bạn làm tới đâu rồi? Phải bắt tay vào làm chứ, sau đó không hiểu chỗ nào post lên mọi người cùng tham gia giúp, chắc mọi người không có thời gian ""giải bài tập"" giúp bạn đâu? Lightbulb
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Xuân Thanh , nhockym
#3
1/ Không ai giúp bạn được trừ phi bạn phải cố gắng
2/ Muốn làm được thì phải hiểu thuật toán bài giải. Ví dụ bài số 1, chính là bài giải phương trình y=|2x -3|, tức là cho giá tri x, tìm giá trị y tương ứng thỏa mãn điều kiện của phương trình, Vậy có thể viết hàm tính y theo x như sau
Mã PHP:
Function y(As Double) As Double
    y 
Abs(2x 3)
End Function 

Hàm Abs trong VBA là lấy trị tuyệt đối của một số bất kỳ

Bạn tự tìm ra thuật toán của các bài toán khác để giải
Lưu ý hình như điều kiện cùa bài toán số 5 không đúng Đã chia hết cho 400, thì đương nhiên chia hết cho 4 và 100. Bạn kiểm tra lại dữ liệu
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn nhockym
#4
(25-04-13, 11:01 AM)Xuân Thanh Đã viết: 1/ Không ai giúp bạn được trừ phi bạn phải cố gắng
2/ Muốn làm được thì phải hiểu thuật toán bài giải. Ví dụ bài số 1, chính là bài giải phương trình y=|2x -3|, tức là cho giá tri x, tìm giá trị y tương ứng thỏa mãn điều kiện của phương trình, Vậy có thể viết hàm tính y theo x như sau
Mã PHP:
Function y(As Double) As Double
    y 
Abs(2x 3)
End Function 

Hàm Abs trong VBA là lấy trị tuyệt đối của một số bất kỳ

Bạn tự tìm ra thuật toán của các bài toán khác để giải
Lưu ý hình như điều kiện cùa bài toán số 5 không đúng Đã chia hết cho 400, thì đương nhiên chia hết cho 4 và 100. Bạn kiểm tra lại dữ liệu
Thân mến


Thanks bác nhiều ... thuật toán thì e cũng nghĩ ra đc nhưng e k biết diễn giải bằng VBA ntn ạ sad
Bác cho e hỏi cái vd1 kia của bác e làm như thế này ak ... nó chạy nhưng k trả ra kết quả của y ;
Mã:
Sub tinhy()
    Dim x As Integer
    Dim y As Integer
    x = InputBox("nhap x", "nhap du lieu", " ")
    If x > 0 Then y = 2 * x - 3 Else y = -2 * x - 3
End Sub
Chữ ký của nhockym Xin chào, mình là nhockym, Tham gia http://thuthuataccess.com/forum từ ngày 24-04 -13.
Reply
Những người đã cảm ơn
#5
(25-04-13, 01:15 PM)nhockym Đã viết: Thanks bác nhiều ... thuật toán thì e cũng nghĩ ra đc nhưng e k biết diễn giải bằng VBA ntn ạ sad
Bác cho e hỏi cái vd1 kia của bác e làm như thế này ak ... nó chạy nhưng k trả ra kết quả của y ;
Mã:
Sub tinhy()
    Dim x As Integer
    Dim y As Integer
    x = InputBox("nhap x", "nhap du lieu", " ")
    If x > 0 Then y = 2 * x - 3 Else y = -2 * x - 3
End Sub

Bạn kiểm tra lại thuật toán và biến
1/ Thuật toán : Bài toán đúng cho mọi giá trị x
2/ Biến : Nên định nghĩa biến là Double
3/ Sửa lại :
Mã:
Sub tinhy()
    Dim x As Double
    Dim y As Double
    x = InputBox("nhap x", "nhap du lieu", " ")
    If (2 * x - 3) > 0 Then y = (2 * x - 3) Else y = (2 * x - 3) * (-1)
End Sub

Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn nhockym
#6
Mã PHP:
Sub giaithua()
Dim N As Long
Dim I 
As Long
Dim GT 
As Double
GT 
1
InputBox("nhap so""nhap du lieu"" ")
If 
0 Then
    
For 1 To N
    GT 
GT I
    Next
    MsgBox “n
! = " &GT"
End If
End Sub 

cái này e chạy cho nhập số xong nó báo run-time error '13' type mismatch là lỗi gì vậy ạ 008

Mã PHP:
Sub tamgiac()
Dim a As Integer
Dim b 
As Integer
Dim c 
As Integer
InputBox("nhap a""nhap du lieu"" ")
InputBox("nhap b""nhap du lieu"" ")
InputBox("nhap c""nhap du lieu"" ")
If (((
b) > c) & ((c) > a) & ((a) > b)) Then
MsgBox 
"a b c la so do 3 canh cua tam giac"
Else
MsgBox "a b c khong phai so do 3 canh cua tam giac"
End If
End Sub 

còn bài này cũng lỗi như vầy ak 040
Chữ ký của nhockym Xin chào, mình là nhockym, Tham gia http://thuthuataccess.com/forum từ ngày 24-04 -13.
Reply
Những người đã cảm ơn
#7
1/ Sub GiaiThua :
MsgBox "n! = " & GT

2/ Sub TamGiac :
2.1/ a, b, c có thể là số thập phân nên định nghĩa biến a, b, c là Double
2.2/ If ((a + b) > c And (b + c) > a And (c + a) > b) Then
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Lỗi "A problem occurred while Microsoft Access was communicating with the OLE server thanhoai 1 108 03-11-16, 03:53 PM
Bài mới nhất: maidinhdan
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 229 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Lỗi] Cúp điện ---> lỗi access 2013 biencuong86 3 149 26-10-16, 04:30 PM
Bài mới nhất: maidinhdan
  thay đổi biểu tượng Access dưới thanh Start từ win 7 đến win 10 thanhtruong 7 432 05-08-16, 10:53 PM
Bài mới nhất: hungefi
  [Hỏi] File chạy chậm vì trong quá trình design phải chỉnh sửa và test thử nhiều. toancvp 4 263 29-07-16, 11:36 PM
Bài mới nhất: toancvp

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ơ