4.2 运用顺序结构描述问题求解过程 知识点题库

Private Sub Command1_ Click()

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

    Dim st As String, szm As String, ch As String, word As String, tmp As String

    st = Text1. Text

    szm = Text2. Text

    flag = True： n=0

    For i=1 To Len(st)

        If ch = szm And flag = True Then

            n=n+1： word = ch

            For j=i+1 To Len(st)

                tmp = Mid(st, j, 1)

                If tmp<>””And tmp <>”.”And tmp <>“,” Then

                Else

                    List1. AddItem Str(n) +“.”+ word

                    i=j

                    Exit For

                End If

            Next j

        ElseIf ch=“” Or ch=“,” Or ch= “.”Then

        Else

            flag = False

       End If

    Next i

    Label1.Caption=“字母”+ szm +“开头的单词总数：”+ str(n)

End Sub

Const n= 12

Dim a(1 To n) As Integer, mc(1 To n) As Integer

Private Sub Command1_Click()

'n个用户的ID依次为1到n，读取n个用户的积分和排名数据分别存储到数组a和数组mc中，并在列表框Listl中显示ID、积分、积分排名，代码略

End Sub

Private Sub Command2_Click()

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

    Dim s As String, flag As Boolean, x As Integer, y As Integer

    Dim p(1To20) As Integer    '存储输入的ID和积分增值，每次输入不超过10组

    For i=1 To 20

        p(i)=0

    Next i

    s= Text1.Text

    d=0：k=0

    For i= 1 To Len(s)

        If Mid(s, i, 1)= "，" Then

            If flag Then

                x = Val(Mid(s, i-d, d))

                For j= 1 To k Step 2

                    If p(j) =x Then Exit For

                Next j

                If j> k Then

                    p(j)=x：k=k+2

                End If

            Else

                y = Val(Mid(s, i-d, d))

                p(i+1)=p(j+ 1)+y

            End If

            flag= Not flag： d= 0

        Else

        End If

    Next i

    For i=1 To k\2

        x=p(2*i-1)：y=p(2*i)

        me(x)= 1

        For j= 1 Ton

            If j<> x Then

                If a(j)<a(x)+y And a(j)>=a(x) Then

            End If

            If a(j)> a(x) +y Then mc(x)= m(x)+ 1

        Next j

    Next i

    '在列表框List2中显示ID，积分、排名，代码略

End Sub

Private Sub Form_ Load( )

‘将n堆果子的重量从数据库导入到数组a，代码略。

End Sub

Private Sub Command1_Click( )

    Dim f As Boolean

    Dim last As Integer

    Dim a(1 To n) As Integer

    i= 1

    Do While i<n And Not f

        f=True

        For j=n To i+1 Step-1

            If a(j)<a(j- 1) Then

                t= a(j): a(j)=a(j- 1): a(j-1)=t

                last= j

                f= False

            End If

        Next j

    Loop

    For i= 1 To n-2

        tmp=a(i)+a(i+1)

        j=

        Do While a(j)< tmp

            a(j-1)= a(j)

            j=j+1

            If j=n+ 1 Then Exit Do

        Loop

        Min=Min+tmp

    Next i

    Text1.Text = Min

End Sub