4.4.4 循环控制的应用 知识点题库

程序中①画线处应填入。

程序中②画线处应填入。

Dim a(1 To 100) As Integer         ′数组a存储合并前的区间

Dim b(1 To 100) As Integer         ′数组b存储合并后的区间

Dim n As Integer                        ′n表示区间个数

Private Sub Command1_Click（)

    Dim s1 As String, i As Integer

    '读取数据，并存储到数组a中，并输出在文本框Text1中，代码略

End Sub

Private Sub Command2_CIick()

    Dim s2 As String, i As Integer, j As Integer, k As Integer

    Dim n As Integer, t As Integer, x As Integer

    For i＝1 To n－1

        For j＝1 To 2 * n－2 * i Step 2

            If Then

                t＝a(j): a(j)＝a(j＋2): a(j＋2)＝t

                t＝a(j＋1): a(j＋1)＝a(j＋3): a(j＋3)＝t

            End If

        Next j

    Next i

    k＝2

    b(1)＝a(1): b(2)＝a(2)

    i＝2: j＝3

    Do While j <＝2 * n

        If b(i) >＝a(j) Then

            If b(i) <＝a(j＋1) Then  

            Else If b(i)＋1＝a(j) Then

                b(k)＝a(j＋l)

        Else

            k＝k＋1:

            k＝k＋1: b(k)＝a(j＋1)

            i＝i＋2

        End If

        j＝j＋2

    Loop

    For x＝1 To k－2 Step 2

        s2＝s2 & "[" & b(x) & "," &b(x＋1) & "]" & ","

    Next x

    s2＝s2 & "[" & b(x) & "," & b(x＋1) & "]"

    Text2.text＝s2

End Sub

Const maxn= 1005

Dima(1 To 3 * maxn) As Integer

Dim ticket(1 To 3 * maxn) As Integer

Dim i，n，k，x，y，cost As Integer

Dim tail，head As Integer

Dim s As String

Dim found As Boolean

Private Sub Command1_Click()

    s= Text1.Text

    k= 1

    For i=1 To L en(s)

        c= Mid(s，i，1)

        If c="，" Then k=k+1 Else

    Next i

    '将各条出行数据输出在列表框List1中，代码略

End Sub

Private Sub Command2_ Click()

    head=1：tail= 1

    For i=1 To k\ 3

        If a(3 * i-2)=0 Then

            cost= cost+a(3 * i-1)

            ticket(3 * tail)=a(3 * i)+45

            tail= tail+1

        Else

            Do While head < tail And ticket(3 * head) < < a(3 * i)

                head= head+1

            Loop

            If found= False Then cost=cost+a(3 * i-1)

        End If

    Next i

    Label2.Caption= Str( cost)

End Sub

Function pd(x As Integer, y As Integer) As Boolean

    pd= False

    For j=x Toy

        If ticket(3 * j-1) >=a(3 * i-1) And ticket(3 * j-2)=0 Then

            pd=True

ticket(3 * j-2)=1

            Exit Function

        End If

    Next j

End Function

'数组a储存棋盘原状态，数组b储存翻转后的棋盘状态

Dim a(1 To 16) As Integer, b(1 To 16) As Integer, minc As Long

Private Sub Form_Load()

  '生成原始由0、1组成的棋盘状态，用数组 a(1)-a(16)保存，代码略

End Sub

Private Sub Command1_Click()

  Dim k As Integer, c As Integer, i As Long, j As Long

  minc = 100

  For i = 0 To 65535

    For j = 1 To 16       '初始化棋盘

      b(j) = a(j)

    Next j

    k = 16: c = 0: j = i

    Do While j > 0

      If j Mod 2=1 Then

        b(k) = 1 - b(k)

        If k > 4 Then b(k - 4) = 1 - b(k - 4)

        If  Then b(k + 4) = 1 - b(k + 4)

        If k Mod 4 <> 0 Then b(k + 1) = 1 - b(k + 1)

        If k Mod 4 <> 1 Then b(k - 1) = 1 - b(k - 1)

        c = c + 1

      End If

      k = k - 1

    Loop

    If Then minc = c

  Next i

  If minc = 100 Then Label1．Caption = "无法翻转为纯色!" Else Label1．Caption = "最少翻" + Str(minc) + "次"

End Sub

Function check() As Boolean       '判断棋盘是否纯色

  Dim flag As Boolean, i As Integer

  flag = True

  For i = 1 To 15

    If Then flag = False: Exit For

  Next i

  check = flag

End Function

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( )

data=open("txm.txt")

#班级选课人数存放在列表xknum中，代码略

kmmc="物理化学生物政治历史地理技术"

line=data.readline()

kmnum=[0]*7     #用于存放实际参与教学调查每个选科人数

while line:

    for i in range(3):      #统计每科参考投票的人数

        km=int(line[])-1    #(选填字母,从下列A、B、C、D四个选项中选取一项）

        kmnum[km]=kmnum[km]+1 a

        line=data.readline()

        s=""

        for i in range(7):

            if :   #（填程序代码）

s=s+kmmc[i*2:(i+1)*2]+" "

       print("无效的科目有:",s)

划线①处的选项：

A .9+i*2:9+i*2                                       B .9+i*2:11+i*2 

C .8+i*2:9+i*2                                       D .8+i*2:10+i*2 

from PIL import Image

x_start = 11       # 起始点坐标

y_start = 92    

fill_width= 24       信息点宽度

fill_height= 10         # 信息点高度

space_width = 15       间隔宽度

space_height = 12         # 间隔高度

ans_cnt = 5            # 题目个数

def bw_judge(R, G, B):         # bw_judge用于判断一个像素的填涂情况

Gray_scale = 0．299 * R + 0．587 * G + 0．114 * B

return Gray_scale < 132

def fill_judge(x, y):            # fill_judge 用于判断信息点的填涂情况

count = 0

for i in range(x, x + fill_width):

  for j in range( ):

  R, G, B = pixels[i, j]

  if bw_judge(R, G, B) == True:

    count = count + 1

    if count >= fill_width * fill_height * 0.64:

      return True

      total_width  = fill_width + space_width

      total_height = fill_height + space_height

      image = Image.open ("card．bmp")

      pixels = image.load()

      ans = ""

      item=[‘A’,’B’,’C’,’D’]

      list=[]

      for col in range(ans_cnt):

        x =

        for row in range(4):

          y = y_start + total_height * row

          if fill_judge(x, y) == True:

            list.append(ans)

            ans=""

print(list)