4.1.3 Python的运算符与表达式 知识点题库

Dim a(1 To 100) As Integer

Dim sum(0 To 100) As Integer ’sum(i)存储 a(1)+a(2)+…+a(i)的值

Dim n As Integer, s As Integer

Private Sub Form_Load()

‘读取整数序列依次存储在数组a中

‘读取整数序列长度存储在变量n中

‘本过程代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, ans As String

Dim Min As Integer     ‘存储符合条件的最小长度

Dim iMin As Integer     ‘存储符合条件子序列的起始位置

s=val(Text2.text)

For i = 0 To n

 sum(i) = 0

Next i

For i = 2 To n

 sum(i) = a(i) + sum(i-1)

Next i

Min = n

iMin = 1

For i = 1 To n

 j=i

 Do WhileAnd j<= n

  j = j + 1

 Loop

 If j <= n And j - i + 1 < Min Then

  Min = j - i + 1

  iMin = i

 End If

Next i

ans =“”

For i = iMin To

 ans = ans + Str(a(i))

Next i

Label1.Caption = “符合条件的子序列为” + ans

End Sub

Private Sub Command1 _Click( )

Dim key As String

Dim a As Integer, b As Integer, ans As Integer, ch As String

key =Text1.Text

i=1

Do While i <= Len (key)

    ch Mid(key, i, 1)

    If ch>= “0” And ch < = “9” Then

           ①   

    Else

        Exit Do   ‘退出循环

    End If

Loop

a=   ②  

b= Val (Mid（key,+1, Len (key)-i）)

ans =a +b

Label1. Caption= “算式计算结果为: “+str(ans)

End Sub

① ② 

Private Function bw(x As Integer, y As String) As String

'函数bw功能：若二进制位数不足，通过在前面添"0"使得位数为4的倍数

    Dim r As Integer, i As Integer

    r = x Mod 4

    If r <> 0 Then

       For i = 1 To 4 - r

          y = "0" + y

       Next i

       x = Len(y)

    End If

    bw=  

End Function

Private Sub Command1_Click()

   Dim m As String, n As Integer, i As Integer, a As Integer

   Dim s As Integer, s1 As String, j As Integer

   m = Text1.Text

   n = Len(m)

   Text2.Text = ""

      m =    ’调整 m 的位数为 4 的倍数

   For i = 1 To n - 3 Step 4

   s = 0

      For j = i To i + 3

         a = Val(Mid(m, j, 1))

         s = 

      Next j

      If s >= 10 Then

         s1 = Chr(Asc("A") + s - 10)

      Else

         s1 = CStr(s)      '函数 CStr 类似于 Str，但无前导空格

      End If

      Text2.Text = Text2.Text + s1

Next i

End Sub