类、对象、属性、方法、事件和事件处理的概念及应用 知识点题库

Private Sub Command1_Click()

  Dim s As String, c As String, d As String

  Dim n As Integer, b1 As Integer, b2 As Integer, v As Integer, i As Integer

  s = Text1.Text: n = Len(s): i = 1

  Do While i <= n

    c = Mid(s, i, 2)

    If c = "00" Then

      d = "东"

    ElseIf c = "01" Then

      d = "南"

    ElseIf c = "10" Then

      d = "西"

    Else

      d = "北"

    End If

    b1 = Val(Mid(s, i + 2, 1))

    b2 = Val(Mid(s, i + 3, 1))

    v =

    List1.AddItem d + " " + Str(v)

  Loop

End Sub

Private Sub Command1_Click()

 Dim r As Integer, k1 As Integer, k2 As Integer

 Dim s As String, n As Integer

     ‘从文本框TxtIn 中获取字符串

 Randomize

 r = Int(Rnd() * 10) + 1    ‘随机生成洗牌次数

 n = Len(s)

 Do While r >= 1    ‘洗牌操作

  k1 = Int(Rnd() * (n - 2)) + 2

  k2 = Int(Rnd() * (n - k1 + 1)) + k1

  s = + Mid(s, 1, k1 - 1) + Mid(s, k2 + 1, n - k2)

  r = r - 1

 Loop

 = s       ‘输出结果

End Sub

Function chg 10(a As Integer, m As Integer) As String

Dim k As Integer, p As Integer

Dim temp As String

Dim x As String

x = "0123456789ABCDEF"

k=n

Do While   ①  

  p=k Mod m

    ②  

  k=k\m

Loop

chg10=temp

End Function

Private Sub Cmrd1_Click()

  Dim a As Integer

a= Val(Text1.Text)

  Label5.Caption = chg10(a, 2)

  Label6.Caption = chg10(a, 8)

  Label7.Caption = chg10(a, 16)

End Sub
①②

（A .Command1_Click        B .Form_load     C .Text1_Click）事件处理过程中添加语句 Text1. Text=“”。

Private Sub Command1_Click（  ）

  Dim s As String, ch As String, sum As Integer

  Dim fh As Integer

  s= Text1.Text：fh=1：p=0：sum =0

  For i= 1 To Len (s)

    ch= Mid(s, i, 1)

    If ch>="0"And ch <="9" Then

      p=   ①  

    Else

      sum=   ②  

      p=0

      If ch ="—"Then

        fh=-1

      Elself ch ="+" Then

        fh=1

      End If

    End If

  Next i

  Labell. Caption= Str（sum）

End Sub

① ② 

① 

②

Private Sub Command1Click( )

    Dim s1 As String, s2 As String, c As String, mw As String

    Dim i As Integer

    s1= Text1.Text

    s2 = Mid（s1, 1, 1）

    For i=2 To

        c=Mid（s1, i, 1）

        If c>="A" And c<= "Z" Then

        IfThen s2 =s2 +c

        Else

            s2 =s2+c

        End If

    Next i

    mw=“”

    i=6

    Do While i<= Len（s2）

        mw = mw + Mid(s2, i, 1)

    Loop

    Text2. Text= s2

    Label1. Caption =mw

End Sub

Private Sub Command3_Click()

    Dim s As String, t As Integer, j As Integer

    s = Text1.Text

    t = Len(s): Sum = 0

    For i = 1 To t

        For j = i To t

            List1.AddItem

            Sum = Sum + 1

        Next j

    Next i

    List1.AddItem "总共有" +  + "个子串" 

End Sub

Private Sub Command 1_ Click()

    Dim n As Long, sum As Long, ans As Long

    n= Val(Text1. Text)

    sum=1

    Do While sum <n

    Loop

    If n =sum Then

        ans=sum

    ElseIf Then

        ans=sum/2

    Else

        ans =sum

    End If

    Label 1. Caption = Str(ans)

End Sub

Private Sub Command1_Click()

    Dim i, k As Integer

    Dim x1, y1, x2, y2 As Single

    Dim v As Single, maxd As Single

    Dim s As String, pos zb As String

    List1.Clear

    s=Text1.Text

    x1=1:y1=1

    t="": k=1: j=1

    List1.AddItem"坐标点"&"距离"

    For i=1 To Len(s)

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

            v=Val(Mid(s, j, i-j))

            j=

            If k Mod 2=1 Then

                x2=v

            Else

                y2=v

                d=Sqr((x2-x1)^2+(y2-y1)^2)

                If Then

                    maxd=d

                    pos="(" & Str(x2)& "," & Str(y2)& ")"

                End If

                List1.AddItem"(" & Str(x2)& "," & Str(y2)& ")" & Str(d)

            End If

            k=k+1

        End If

    Next i

    Label1.Caption="距离（1, 1）最远的点为"& pos &"距离为"& Str(maxd)

End Sub