1. THÔNG BÁO TUYỂN ADMIN DIỄN ĐÀN 2013
    Tìm kiếm nhà trọ - Ở ghép
    THÔNG BÁO BÁN ÁO SPKT.NET CHO THÀNH VIÊN DIỄN ĐÀN


    HÃY TÌM KIẾM Ở ĐÂY TRƯỚC KHI ĐẶT CÂU HỎI
    {xen:phrase loading}

Đề thi Visual basic Update ngày 8.6.2011

Thảo luận trong 'Đề thi 2011' bắt đầu bởi vanbinh_21, 27 Tháng năm 2011.

  1. vanbinh_21 <marquee><b><i>--- waiting for you... mãi chờ em..

    Số bài viết: 2,077
    Đã được thích: 52
    Điểm thành tích: 48
    [IMG]

    download tại file đính kèm
    pass: spkt.net


    chú ý: không post gì khác ngoài đề thi trong topic này. thank!
  2. assassin123 New Member

    Số bài viết: 206
    Đã được thích: 1
    Điểm thành tích: 0
    Re: Đề thi Visual basic 24/5/2011

    Cái câu 1


    Còn đây là câu 2 : không biết có tối ưu chưa

  3. so61pi New Member

    Số bài viết: 27
    Đã được thích: 0
    Điểm thành tích: 1
    Re: Đề thi Visual basic 24/5/2011

    Câu 1 (chưa xử lý việc nhập số < 2):

    Mã:
    Private Sub Command1_click()
    Dim i As Integer
    Dim s As String
    n = Val(InputBox ("Nhap n :  "))
    For i = 2 To n
        If (KTSNT(i) = True) Then
            s = s & " " & i
        End If
    Next
    MsgBox s
    End Sub
    
    Function KTSNT(a As Integer) As Boolean
    Dim i As Integer
    [B][COLOR="Blue"]i=2[/COLOR][/B]
    Do While (a Mod i <> 0 And i <= a)
        i = i + 1
    Loop
    If a = i Then
        [B][COLOR="red"]KTSNT = True[/COLOR][/B]
    Else
        [B][COLOR="Red"]KTSNT = False[/COLOR][/B]
    End If
    End Function
    Câu 2 mình thấy nếu cho mảng a(0 to 100) thì bị giới hạn, code của mình khác tí:
    Mã:
    Private Sub command1_click()
    Dim n As Long
    Dim i As Long
    Dim rs As String
    Dim Xn As Double
    Dim Xn_1 As Double
    Dim temp As Double
    
    rs = ""
    n = 0
    n = Val(InputBox("Nhap n: "))
    
    If n <= 0 Then
        rs = "Invalid"
    ElseIf n = 1 Then
        rs = "0"
    Else
        rs = "0 1"
        Xn_1 = 0
        Xn = 1
        For i = 2 To n - 1
            temp = Xn
            Xn = Xn + Xn_1
            Xn_1 = temp
            rs = rs & Space(1) & Xn
        Next i
    End If
    MsgBox rs
    End Sub
    :d
  4. assassin123 New Member

    Số bài viết: 206
    Đã được thích: 1
    Điểm thành tích: 0
    Re: Đề thi Visual basic 24/5/2011

    Câu 3 : Giải gần 1h mới ra hix . Thứ 4 mà thi kiểu này chắc rớt quá :(


  5. small ant Well-Known Member

    Số bài viết: 2,827
    Đã được thích: 88
    Điểm thành tích: 48
    Giới tính: Nữ
    10701029 thích bài này.
  6. niuton New Member

    Số bài viết: 9
    Đã được thích: 0
    Điểm thành tích: 1
    đây là câu 4 :
    Private Sub Command1_Click()
    s = InputBox(" nhap ten:")
    Text1.Text = s
    Dim i, j, ct As Integer
    Dim S1(100) As String
    j = 1
    For i = Len(s) To 1 Step -1
    If Mid(s, i, 1) <> " " Then
    S1(j) = Mid(s, i, 1)
    j = j + 1
    ct = j
    Else
    S1(j - 1) = UCase(S1(j - 1))
    Exit For
    End If
    Next i
    For i = ct + 1 To 1 Step -1
    Text2.Text = Text2.Text + S1(i)

    Next i
    End Sub
  7. niuton New Member

    Số bài viết: 9
    Đã được thích: 0
    Điểm thành tích: 1
    đây là câu 2 : ( mình đã làm rùi, chạy khá ổn, dùng mảng động ( cập nhập số ptu mảng theo n ), các bạn xem tham khảo nhé )
    Private Sub Command1_Click()
    Dim A() As Integer
    Dim n As Integer

    n = Val(InputBox(" Nhap N :"))
    ReDim A(n) As Integer
    Dim i As Integer
    A(0) = 0
    A(1) = 1
    For i = 2 To n
    A(i) = A(i - 1) + A(i - 2)
    Next i
    For i = 0 To n
    Text1.Text = Text1.Text + Str(A(i))
    Next i
    End Sub
  8. nhok New Member

    Số bài viết: 22
    Đã được thích: 0
    Điểm thành tích: 1
  9. small ant Well-Known Member

    Số bài viết: 2,827
    Đã được thích: 88
    Điểm thành tích: 48
    Giới tính: Nữ

Chia sẻ trang này