4.1.1 Python的常量和变量 知识点题库

Dim a(1 To 1000) As Integer

Dim n As Integer, p As Integer, q As Integer

Private Sub Command1_Click() '生成随机数据

    n = Val(Text2.Text)

    If n Mod 2 = 0 Then p = n - 1: q = n Else p = n: q = n - 1

      'p，q 分别为生成的数列的奇数位和偶数位最大下标

      '以下代码为生成随机数并按要求排序输出，代码略

End Sub

Private Sub Command2_Click() '添加数据

    Key = Val(Text3.Text)

    If Key Mod 2 = 0 Then

        i = 1: j = p: p = p + 2

    Else

        i = 2: j = q: q = q + 2

    End If

    Do While i <= j

        m = (i + j) / 2

        If Key Mod 2 = 0 And m Mod 2 = 0 Then m = m - 1

        If Key Mod 2 = 1 And m Mod 2 = 1 Then m = m - 1

        If Then i = m + 2 Else j = m – 2

    Loop

    If Key Mod 2 = 0 Then '插入一个偶数

        For k =

            a(k) = a(k - 2)

        Next k

        a(k) = Key

    Else

        '插入一个奇数，代码略

    End If

    If p > q Then n = p Else n = q

    For i = 1 To n

        s = s + Str(a(i)) + ","

    Next i

    Text1.Text = s

End Sub

Private Sub Command1_Click( )

Dim a As Integer, s As String

Dim. n As Integer, t As Integer, v As Integer

n= Val(Text1. Text)

t=0

s= “”

Do While n >0

    a= n Mod 2

    n=n\2

    t=  ①  

    s=Str(a)+ s

Loop

v=t Mod 2

Text2. Text =s

Label3. Caption=校验位值: “+  ②  

End Sub

① ② 

Private Sub com _ Click( )

Dim i As Integer, a As String, p As string

s=Text1.Text

n=Len (s)

p= “”

i=1

f =True

Do While i < = n

    If Mid(s, i, 1)= “0” Then

        p= p + “A”

        i=i+1

    ElseIf Mid(s, i+1, 1)= “1” Then

        p = p + “T”

              ①     

    ElseIf Mid(s, i+2, 1) = “1” Then

        p = p+ “G”

        i=i+3

    ElseIf Mid(s,      ②     , 1)= “0” Then

        p = p + “C”

        i=1+3

    Else

        f=False

        i=i+n

    End If

Loop

If f Then Label1. Caption Else. Caption = “接收有误”

End Sub

① ② 

Private Sub Commandl_Click （）

Dim x As String，ch As String

Dim flag As Boolean，i As Integer，result As Long

x =   ①   

i = l

result = 0

flag = True

ch = Mid（x，1，1）

Do While i <=Len（x）And flag =True

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

    result = result * 16 + Val（ch）

  Elself ch>="A"And ch <="Z" Then

    result =result * 16 +（Asc（ch）- Asc（"A"）+10）

  ElseIf ch >="a" And ch <= "z" Then

    result = result * 16 +（Ase（ch）- Ase（"a"）+ 10）

  Else

    flag = False

  End If

  i = i + l

  ch =   ②   

Loop

If flag = True Then

  Label 3.Caption =Su（result）

Else

  Label3.Caption ="输入错误"

End If

End Sub

①②

Private Sub Command1_Click()

  Dim n As Integer, i As Integer

  Dim s As Integer, x As Integer, f As Boolean

  n= Val(Text1.Text)

  f= False: s=0

  i=2

  Do While    ①  

    For x=2 To i\2

      If i Mod x=0 Then Exit For     ‘Exit For用于退出For循环

    Next x

    If    ②    Then

      s=s+1

      If  Then      ‘③

        Label1.Caption= "第"& Str(n) & "个素数为:"& Str()

        f= True

      End If

    End If

    i=i+1

  Loop

End Sub

① ②