相关试卷

Const n = 52

Dim hs(1 To n) As Integer'存储每张卡牌的花色

Dim num(1 To n) As Integer'存储每张卡牌的点数

Din class(1 To 4) As Integer '存储每种花色卡牌的存储位置

Dim record(1 To 12) As Integer

Private Sub Form _Load()

    '读取打乱的卡牌中每张卡牌的花色、点数数据，存入数组hs， num中，代码略

End Sub

Private Sub Command1_ _Click()

    Dim k As Integer， i As Integer， P As Integer

    Dim flag As Boolean

    flag = True

    For i=1 To 4

        class(i) =     '计算每种花色卡牌存储的起始位置

    Next i

    i=1

    Do while i<=n And flag=True

        k = hs(i)

        If class(k) > k* 3 Then

            p = pos(i)

            If p < 0 Then

            End If

        Else

            record(class(k)) = i

            class(k) = class(k) + 1

            If class() =4 And class(2) =7 And class(3)=10 And clas(4)= 13 Then

                flag= False

            End If

        End If

        i=i+1

    Loop

    List1.AddItem “”&“花色”&“”&“点数”

    For i =1 To 12

        List1. AddItem“”& hs(record(i)) &“”& num(record(i))

    Next i

End Sub

Function pos(t As Integer) As Integer    '返回点数最小卡牌位置

    Dim min As Integer

    m= (hs(t)-1)*3+1

    min= m

    If num(record(min)) > num(record(m+ 1)) Then min=m+ 1

    If num (record(min)) > num(record(m+ 2)) Then min=m+ 2

    If  Then

        pos= 0

    Else

        pos=min

    End If

End Function

(单选，填字母：A .Form1/B .Label /C .TextBox / D .CommandButton)

Const n=4

Dim a(1 To n) As Integer    'n道菜由每家餐厅外卖员送达耗时

Dim b(1 To n) As Integer    'n道菜自取耗时

Private Sub Form Load)

    '产生外卖送货各道菜耗时，并存储到数组a中，并显示

    '产生自取各道菜耗时，并存储到数组b中，并显示

    '代码略

End Sub

Private Sub Command1_Click()

    Dim i As Integer, max As Integer, ans As Integer

    Dim left As Integer, right As Integer, m As Integer

    For i=1 To n

        If a(i) > max Then       '外卖员送菜的最长时间

    Next i

    left= 1: right = max: ans = max

    Do While left <= right

        m= (left + right) \ 2

        If Then

            ans = m: right=m-1

        Else

            left=m+1

        End If

    Loop

    Lab3. Caption=“最快”+ Str(ans) + “分钟”

End Sub

Private Function check(t As Integer) As Boolean

    Dim total As Integer

    check = False

    For i =1 To n

        If a(i) > t Then

            total ='如果外卖来不及就自己取

        End If

    Next i

  If  Then check = True

End Function