相关试卷

Dim a(1 To 100) As Integer '存放格子状态

Dim b(1 To 100) As Integer '辅助作用

Dim zc(1 To 10000) As Integer '记录每一天的正常格子数

Dim n As Integer '存放矩阵规模

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, s As String

    List1.Clear

    n = Val(Text1.Text)

    For i = 1 To n

        s = ""

        For j = 1 To n

            a((i - 1) * n + j) = Int(Rnd() * 2)

            s = s + Str(a((i - 1) * n + j))

            If a((i - 1) * n + j) = 0 Then

        Next j

        List1.AddItem s

    Next i

End Sub

Private Sub Command2_Click()

    Dim i As Integer, j As Integer, tian As Integer, flag As Boolean

    List2.Clear

    '下面代码实现病毒传染过程

    tian = 1: flag = False

    Do While zc(tian) > 0

        tian = tian + 1

        For i = 1 To n * n

            If a(i) = 0 Then

                If Then b(i) = tian

            Else

                b(i) = a(i)

            End If

        Next i

        For i = 1 To n * n

            If b(i) = 0 Then zc(tian) = zc(tian) + 1

            a(i) = b(i)

        Next i

        If Then flag = True: Exit Do

    Loop

    '在List2中输出所有格子的最终状态，代码略。

    If flag Then

        Label2.Caption = "不会被全部感染"

    Else

        Label2.Caption = "第" + Str(tian) + "天全部被感染"

    End If

End Sub

'Judge函数用来判断第i行第j列的格子周围的异常格子数是否超过半数，超过半数返回True

Function Judge(i As Integer, j As Integer) As Boolean

    '代码略

End Function

Dim num As Integer, bh(1 To 25) As String, xm(1 To 25) As String

Dim xb(1 To 25) As String, age(1 To 25) As Integer

Dim flag(1 To 25) As Boolean     '表示相应的员工是否已经被安排过配送任务

Dim zudui(1 To 7) As String       '表示每天的配送人员组合

Private Sub Form_Load()

    '从数据库中获取本校后勤人员所有信息，将编号、姓名、性别、年龄分别存入数组bh、xm、xb、age中，总人数在num变量中。并在list1中输出后勤人员信息。代码略。

End Sub

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, Dim k As Integer, t1 As String, t2 As Integer

    k = 1

    For i = 1 To num

        If xb(i) = "男" And age(i) <= 40 Then

            zudui(k) = bh(i)

            flag(Val(bh(i))) = True

            k = k + 1

            If Then Exit For

        End If

    Next i

    For i = 1 To 7

        k = i

        For j = i + 1 To num

            If flag(j) = False Then

                If  Then k = j

            End If

        Next j

        If k <> i Then

            t1 = bh(k): bh(k) = bh(i): bh(i) = t1

            t1 = xm(k): xm(k) = xm(i): xm(i) = t1

            t1 = xb(k): xb(k) = xb(i): xb(i) = t1

            t2 = age(k): age(k) = age(i): age(i) = t2

        End If

        zudui(i) = zudui(i) + bh(i)

        List2.AddItem "第" + Str(i) + "天：" + Mid(zudui(i), 1, 2) + " " +

    Next i

End Sub