相关试卷

def dx(s1,s2,n):        # 对多选题进行判分

  flag =True

  for i in s1:

    if :

      flag =False

      break

  if s1==s2:

    return n

  elif :

    return 0

  else:

    return n/2

f=open('学生答案.txt')

line=f.readline()       # 按行读取学生答案.txt 文件

bzda=['单选','A',2,'单选','D',2,'多选','ACD',2,'多选','AD',2,'填空',['字符串','string'],2,'填空',['i==0','i>=0'],2]

while line:

  studa=line.split('|')       # 将字符串以'|'为间隔分割成成多个字符串组成的列表

  zf=0

  for i in range(len(studa)-1):

    p=3*i

    if bzda[p]=='单选':       # 对单选题判分

      if studa[i+1]==bzda[p+1]:

        zf=zf+bzda[p+2]

    elif bzda[p]=='多选':        # 对多选题判分

      zf=

    else:

      if studa[i+1]!= '' and studa[i+1] in bzda[p+1]:

        zf=zf+bzda[p+2]

  print(studa[0],'成绩:',zf,'分')

  line=f.readline() # 读取下一行

f.close( )

s1=input('请输入编码字符:')

s=''

tmp=0

ans=''

txt='ABCDEFGHIJKLMNOPQRSTUVWSXYabcdefghijklmnopqrstuvwxyz012345678+/'

for c in s1:

  n=

  t=''

  for i in range(8):       # 将十进制 n 转换为 8 位二进制

    r=n%2

    t=+t

    n=n//2

  s=s+t

for i in range(len(s)):       # 6 位二进制一组分组再转换成十进制，查找它们对应的字符

  if i%6==5:

    ans=ans+txt[tmp]

    tmp=0

print('Base64 编码:',ans)

import math

def prime(n):        # 判断 n 是否是素数

  i=2

  k=int(math.sqrt(n))

  while i<=k:

    if :

      break

    i=i+1

  return i>k

def rev(n):# 倒转数字

  t=0

  while :

    t=t*10+n%10

    n=n//10

  return t

n=int(input('请输入整数 n:'))

L=[]

for i in range(100,n+1):

  if :

    if prime(i)==True:

      L=L+[i]

print('100 到 n 中的回文素数：',L)

① ② 

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim n As Integer

Dim a(1 To 200) As String

Function search(key As String) As Boolean

    i = 1: j = n

    Do While i <= j

        m = Int(i + (j - i) / 2)

        If key = a(m) Then

search = True: Exit Do

        ElseIf key > a(m) Then

            i = m + 1

        Else

            j = m - 1

        End If

    Loop

End Function

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, temp2 As String

    Dim out(0 To 100)

    For i = 1 To n

        For j = i + 1 To n

            If a(i) = Mid(a(j), 1, Len(a(i))) Then

If search(temp2) = True Then

                    cnt = cnt + 1

                    k = cnt

                    Do While a(j) > out(k) And k > 0      '找到a(j)应该插入的位置k

                        k = k - 1

                    Loop

                    For p = cnt To k + 1 Step -1     'k到末尾元素均后移一位

                        out(p) = out(p - 1)

                    Next p

                End If

            End If

        Next j

    Next i

    For i = 1 To cnt

        List2.AddItem out(i)

    Next i

End Sub

Private Sub Form_Load()

    Dim i As Integer

    连接字典数据库

    打开数据库中字典数据表，代码略

    n = 0

    Do While Not rs．EOF

        n = n + 1

        a(n) = rs/Fields("words")

        rs/MoveNext

    Loop

   关闭数据连接，代码略

    List1.Clear

    For i = 1 To n

        List1.AddItem a(i)    '在列表框List1中显示单词

    Next i

End Sub

Private Sub Command1_Click()

    Dim n As Integer, k As Integer, tmp As Integer, num As Integer

    Dim a(1 To 200) As Integer, i As Integer, j As Integer

    n = Val(Text1.Text)

    For i = 1 To n

        a(i) = 1

    Next i

    For i = 1 To n

        Do While tmp <= n

            If _ Then

                a(tmp) = 0

            Else

                a(tmp) = 1

            End If

        Loop

    Next i

    num = 0

    For j = 1 To n

        If a(j) = 0 Then num = num + 1

    Next j

    Text2.Text = Str(num)

End Sub