• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Help me VBA trong access

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Help] Help me VBA trong access
• Help me VBA trong access

• Help me VBA trong access

  nhockym > 25-04-13, 12:24 AM

  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á
  Ai chỉ giúp mình đc bài nào thì giúp mình nhé ? cảm ơn trước
  
  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.

• RE: Help me VBA trong access

  cpucloi > 25-04-13, 07:31 AM

  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?

• RE: Help me VBA trong access

  Xuân Thanh > 25-04-13, 11:01 AM

  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(x 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

• RE: Help me VBA trong access

  nhockym > 25-04-13, 01:15 PM

  (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(x 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 ạ
  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

• RE: Help me VBA trong access

  Xuân Thanh > 25-04-13, 04:14 PM

  (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 ạ
  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

• RE: Help me VBA trong access

  nhockym > 25-04-13, 10:15 PM

  Mã PHP:

  Sub giaithua()
Dim N As Long
Dim I As Long
Dim GT As Double
GT = 1
N = InputBox("nhap so", "nhap du lieu", " ")
If N > 0 Then
    For I = 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 ạ
  
  

  Mã PHP:

  Sub tamgiac()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = InputBox("nhap a", "nhap du lieu", " ")
b = InputBox("nhap b", "nhap du lieu", " ")
c = InputBox("nhap c", "nhap du lieu", " ")
If (((a + b) > c) & ((b + c) > a) & ((c + 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

• RE: Help me VBA trong access

  Xuân Thanh > 26-04-13, 10:49 AM

  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
• Bài trước Bài tiếp