第三章 算法的程序实现 知识点题库

Dim a(1 To 8)As Integer   ‘存储道次编号

Dim b(1 To 8)As Single   ‘存储运动员成绩

Dim num As Integer

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, p As Integer

Dim t As Single

For i=1 To 7

 k=i

 For j=i+1 To 8

  If    Then

    k=j

  End If

 Next j

If k<>i Then

    p=a(i):a(i)= a(k):a(k)= p

    t=b(i):b(i)= b(k):b(k)= t

End If

Next i

For i=1 To 8

List2.AddItem Str(a(i))&“道:”& Str(b(i))

Next i

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)    ’按回车键录入比赛成绩

Dim cj As Single

If KeyAscii=13 Then  ‘是否为回车键

num=num+1

cj=Val(Text1.Text)

If cj>0 And num<=8 Then

   a(num)= num

   List1.AddItem Str(a(num))&“道:”&Str(b(num))

Else

  MsgBox “输入无效”

End If

Text1.Text=“”

End If

End Sub

Private Sub Command 1_Click（）

  Dim s As String，ch As String

  Dim i As Integer，n As Integer

  Dim max1 As Integer，max2 As Integer

  s=Text1.Text：n=Len（Text1.Text）

  If Mid（s，1，1）>Mid（s，2，1）Then

    max 1=1：max2=2

  Else

    max1=2：max2=1

  End If

  For i=3 To n

  ch=Mid（s，i，1）

    If ch>Mid（s，max1，1）Then

        ①   

      max1=i

    ElseIf ch>=Mid（s，max2，1）Then

      max2=i

    End If

  Next i

  For i=1To n

    If   ②  Then Text2.Text=Text2.Text&Mid（s，i，1）

  Next i

End Sub

① ②

Const n= 2000    ‘物资总项数

Const nc = 26    ‘物资种别数，最多不会超过26

Dim items(1 To n) As String, supplies(1 To n) As String, totals(1 To n) As Long

Dim g(1 To2 * nc) As Long    ‘存储各种物资3天、7天的需求数量

Dim b(1 To nc) As Long    ‘存储各种物资的库存量

Dim c(1 To nc) As Long

Dim q(1 To nc) As Integer

Private Sub Form_Load()

‘本过程读取编号、品名、收支、需求的数据分别存储在数组items、supplies、totals、g数组中，并在List1中显示有关数据：g数组中g(1)、g(2)存储物资A的3天、7天的需求数量；g(3)、g(4)存储物资B的3天、7天的需求数……代码略

End Sub

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, k As Integer, top As Integer, bottom As Integer

    Dim r As Long, s As String, t As Integer, m As Integer

    For i=1 To nc.

        b(i)=0:c(i)=0

    Next i

    For i=1 To n    ‘统计每种物资的库存量

    k = Asc(Mid(items(i), 2, 1))- Asc("A")+1

      ①  

    c(k)=i

Next i

j=0

For i=1 To nc

    If c(i)<>0 Then j=j+1: q(j)=i

Next i

top = 0: bottom=j+ 1

j=1: k=bottom-1

Do While j<bottom    ‘按各种物资的需求量进行等级分类

    m=q(j)

      ② 

    If r<g(2*m-1) Then

        top=top+1

        If top<>j Then t= q(top): q(top)=q(j): q(j)=t

        j=j+1

    ElseIf r>= g(2*m) Then

        bottom=bottom-1

        t= q(j): q(j)=q(bottom): q(bottom)=t

    Else

        j=j+1

    End If

Loop

List2.AddItem "编号  品名  库存"

    List2. AddItem "------------------------------"

    For i= 1 To k

        s= fp(i, top, bottom)

        List2.AddItem" " & s & " " & supplies(c(q(i))) & " " & b(q(i))

    Next i

End Sub

Function fp(pos As Integer, head As Integer, tail As Integer) As String

    If   ③   Then

        fp= "A"

    ElseIf pos < tail Then

        fp= "B"

    Else

        fp="C"

    End If

    fp = fp & Mid(items(c(q(pos))), 2, 1)

End Function

① ② ③ 

Constn= 10

Dim a(1 To n) As Integer

Private Sub Command1_ Click（）

     Dim Left As Integer， Right As Integer， Lstart As Integer， Rstart As Integer

     Dim i As Integer， j As Integer， t As Integer， s As String

     '随机生成n个不重复元素的数组a，并在左边环形显示，代码略

     k= 1

     For i= 2 Ton

         If a(i) < a(k) Thenk=i

     Next i

     Lstart = (k+n- 2) Mod n+ 1: Rstart= k Mod n+ 1

     i= 1

     Do Whilei<= (n-1)\2

         Left = Lstart

         For j= 1 To

             p= (Left+ n-2) Mod n+ 1

             If a(Left) > a(p) Then

                 t= a(Left): a(Left) = a(p): a(p)= t

             End If

             Left= p

         Next j

         Rstart= Rstart Mod n + 1

         Right = Rstart

         Do While

             p=RightModn+1

             If  Then

                 t= a(Right): a(Right) = a(p): a(p)=t

             End If

             Right= p

         Loop

         Lstart =

          i=i+ 1

     Loop

     排序后的数据在右边环形显示，代码略

End Sub

ID=input("请输入十八位身份证号码： ")#输入身份证号码

sex={0："女"，1："男"，2："女"，3："男"，4：女，5："男"： 6："女"，7："男"．"8："女"，9："男"}

ID_ birth=ID[6：14]

ID_ sex=ID[16]

ID_ check=ID[17]

#求出year，month，day

print("出生日期： "+year+"年"+ month+"月"+day+"日")

print("性别："，   ②    )

ID=list(ID)                    #把字符串转成列表

ID=list(map(int, ID[0：17]))   #把前17个元素转成整型

ID_ CHECK=["1"，"0'"，"X'"，"9“，"8"，"7”，"6“，"5”，"4"，"3"，"2"]

print("验证码是否正确：", check-= =ID_check)

xx=[35，29，28，42，21 ，38，17，44，18，19]

ty=[29，31，26，38，40，41，26，41，21，33]

c=0

for i in :

     if :

     c=c+1

print("技术学科分数大于等于80分的学生有："str(c)+"个"

n=int(input("请输入一个整数："))

m=int(input("请输入一组数据的第一个数："))

=m

max=m 

for i in range(1,n):

    t=int(input("请输入后续的数："))

    if  t<:

         min=t 

    if  t>max:

print()  #输出极差的值

input("运行完毕，请按回车键退出...")

编写完成后原名保存并关闭应用软件。