Private Sub Command1_Click()

    Dim gj As Double，x As Double      ‘用于存放股价

    Dim n As Integer·gs As Integer     ‘n用于存放涨停个数，  gs用于存放股数

    Dim zsy As Long，rsy As Long     ‘zsy用于存放总收益。  rsy用于存放日收益

    List1．Clear

        gi=Val(Text1．Text)：n=Val(Text2．Text)：gs=Val(Text3．Text)

        zsy=0

        List1．Addltem“交易日  股价  日收益”

        For i=1 To n

            x=gj

            IfThen      ‘①

                gj=Int(gj*1.44*100+0.5)／100

            Else

                gj=Int(gj*1.1*100+0.5)／100

            End If

            rsy=            ‘②

            zsy=zsy+rsy

            List1.Addltem“第”Str(i)&“  ”&Str(gj)&“  ”&Str(rsy)

      Next i

      Label4．Caption=Str(gs)&”股预期总收益”&Str(zsy)&“元”

End Sub