相关试卷

Dim n As Integer

Dim a(1 To 100) As Integer

Private Sub Command1_Click()

    Dim i As Integer, j As Integer,k As Integer

    Dim ans As String, x As Integer

    n = Val (Text1. Text)

    a(1) = 1

    For i=2 To n

        For j=1 To i-1

        Next j

        j=i

        Do While j>1

            a(j)=a(j-1)

            j=j-1

        Loop

        a(1) = 1

        For j=1 Ton - i

            k = a(1)

            a(x) = k

        Next j

    Next i

    ans =“”

    For i=1 Ton

        ans = ans + Str(a(i))

    Next i

    Label1. Caption =“序列为：”+ ans

End Sub

Function yd(i As Integer) As Integer

    Dim j As Integer, tmp As Integer

    For j=i To 2 Step -1

        tmp=j+1

        If tmp > i Then

        a (tmp) = a(j)

    Next j

    yd=j+1

End Function

Dim a(0 To 100) As Integer   ‘记录所有导弹的高度及顺序

Dim b(0 To 100) As Integer    ‘b(k)数组存储第k个系统车能拦截的最高高度

Dim n As Integer

Private Sub Command1_ Click( )

    Dim L As Integer, R As Integer, m As Integer

    Dim k As Integer, res As Integer, i As Integer

    Randomize

    n=15

    For i= 1To n

        a(i)=       ‘随机产生高度[75,380]的导弹,高度为整数

    Next i

    ‘将导弹高度依顺序显示在文本框Text1中，代码略

    k=1：b(k)=a(1)

    For i=2 To n

        b(k+1)=a(i)

        L= 1

        R=k+1

        Do While L< = R

            m=(L+R+1)\2

            If  Then

                R=m-1

                res=m

           Else

                L=m+1

            End If

        Loop

        If res =k+1 Then k=k+1

    Next i

    Label2. Caption =“最少需要”+ Str(k) +“台导弹拦截系统”

End Sub

(提示：物理\法术防御率=物理\法术防御+(物理\法术防御系数+物理\法术防御))

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