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

Private Sub Command1_Click( )

  Dim s1, s2, result, t As String

  Dim span, jw As Integer

  s1=Text1. Text：s2=Text2. Text

  span=Len（s1）-Len（s2）

  If span<0 Then

    t=s1：s1=s2：s2=t

    span=   ①  

  End If

  For i=1 To span

    s2="0"+s2

  Next i

  jw=0：result="  "

  For i=   ②   To 1 Step-1

    x=Val（Mid（s1, I, 1））+Val（Mid（s2，i，1））+jw

    jw=x\2

    result=Str（x Mod 2）+result

  Next i

  If jw=1 Then result="1"+result

  Text3. Text=result

End Sub

Private Sub Command1_Click( )

  Dim st1，st2 As String，i，n As Integer

  St1=Text1.Text

  n=Len（s1）

  st2=""

  For i=1 To n

    If pos（st1, i）<> "—" Then

      st2=st2+ pos（st1, i）

    Else

        If pos（st1, i） <pos（st1, 1） Then

          For j=Asc（pos（st1, i-1））+1To Asc（pos（st1, i+ 1））-1

                ①   

          Next j

        Else

          st2 = st2+"—"

        End If

      End If

  Next i

  Text2. Text = s2

End Sub

Function pos（s As String, x As Integer） As String

       ②   

End Function

以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②。

① ② ③ 

Private Sub check_Click()

    Dim s as string, ss as string, s1 as string, s2 as string

    Dim i as integer, bz as integer

    bz = 0

    For i = 1 To Len(s)

        ss = Mid(s, i, 1)

        If ss = "-" Then

            bz = bz + 1

        ElseIf bz = 1 Then

            s1 = CStr() + s1      ‘Cstr函数是在str的基础上去除前导空格

        ElseIf bz = 2 Then

            s2 = s2 + ss

        End If

    Next i

    If  Then

        Label1.Caption = "符合标准"

    Else

        Label1.Caption = "不符合标准"

    End If

End Sub

Private Sub Command1_Click( )

    Dim code As String, s As String, ch As String, result As String

    Dim i As Integer, numL As Integer, numR As Integer

    Dim flag As Boolean

    code = "ABCD"

    s = Text1.Text

    flag = True

    result = ""

    For i = 1 To

        If ch < "0" Or ch > "9" Then

            flag = False

            Exit For                   ' 退出循环

        Else

            numL = Val(ch) \ 4

            numR =

            result = result + Mid(code, numL + 1, 1) +

        End If

    Next i

    If flag Then

        Text2.Text = result

    Else

        Text2.Text = "输入错误"

    End If

End Sub

course=["排球","篮球","足球","羽毛球","乒乓球","网球","健身操","游泳","太极"]

xk=[]       #存储选课信息，用数字1~9表示9门课程

f=[0]*9     #存储9门课程的选课人数

d=[0]*100   #存储两门课程同选的次数,如d[26]=50表示篮球和网球被50个同学同选

def relation(y):          #计算列表y中各数据项的同选次数

    for i in range(1,10):

        for j in range(i+1,10):

            if str(i) in y and str(j) in y:            #课程i，j均在列表y中出现

                d[10*i+j]+=1        #第i和第j门课程同选次数加1存储在列表d中

file=open("xk.txt","r")      #打开文件

line=file.readline()

while line:               #读取文件数据到列表xk中，数据样式详见第(1)小题图所示

    line=line.split()

    xk.append(line)

    line=file.readline()

file.close()

for y in xk:               #对列表xk中的各数据项进行处理

    relation(y)           #调用定义函数统计y中各门课程同选次数，存储到列表d中

    for x in y:            #遍历数据项y中的元素，统计每门课程的选课人数

for i in range(9):

    print(course[i],"选课人数:",,"人")   #输出每门课程的选课人数

maxd=max(d)

print("同选最多的两门课程是:")

for k in range(100):

    if d[k]==maxd:

        print(course[k//10-1],)       #根据列表d的索引计算两门同选课程索引

Private Sub Command1_ Click()

  Dim d As Integer, k As Integer, r As Integer

  Dim s As String, c As String

  d= Val(Text1. Text)

  k= Val(Text2. Text)

  s=" "

  Do While d>0

    r=d Mod k

    If r>=10 Then

      c= Mid(“ABCDEF”,,1)

    Else

      c=str(r)

    End If

    s=

    d=d\ k

  Loop

  Label1. Caption=“结果为：”+s

End Sub