2.4 可以复用的代码 知识点题库

Private Sub Command1_Click()

Dim n As Integer, d As String, b As String

For i = 1 To 999

n=i

d=CStr(n)            'CStr函数的功能是数值转换为字符串

     ①    

If ishws(d)Aind ishws(b)Then

List1.AddItem Str(i)+" "+b

End If

Next i

End Sub

Function dtob(k As Integer)As String '进制转换

Do While k >0

dtob =CStr(k Mod 2)+ dtob

k=k\2

Loop

End Function

Function ishws(x As String)As Boolean

ishws = True

For j=1 To Len(x) \2

If     ②    Then

ishws = False

Exit For

End If

Next j

End Function

①②

Dim a(1 To 2000) As Integer, b(1 To 2000) As Integer, s(1 To 2000) As Integer

Dim gid(1 To 100) As Integer, t(1 To 2000) As Integer

Dim c(1 To 2000) As String, gtype(1 To 100) As String

Dim ts(1 To 100) As Integer           '数组 ts 存储每个类别商品总销量

Dim k(1 To 2000) As Integer          '数组 k 存储每个类别商品总数

Dim m As Integer, n As Integer

Private Sub Form_Load()

'从数据库读取 m 条记录中类别编号、商品类别数据分别存储在数组 gid、gtype 中

'从数据库读取n 条记录中类别编号、商品名称、商品销量数据分别存储在数组 b、c、s中，代码略

For i = 1 To n            '统计各类别商品总销量及商品总数

k(b(i)) = k(b(i)) + 1

Next i

For i = 1 To m               '计算各类别商品总销量的名次

p = 0

For j = 1 To m

If ts(i) < ts(j) Then p = p + 1

mc(i) = p + 1

Next j

Next i

List1.AddItem "类别  销量  名次"

For i = 1 To m

List1.AddItem gtype(i) + "  " + Str(ts(i)) + "   " + Str(mc(i))

Next i

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, pos As Integer, tmp As Integer, p As Integer

p = 1

For i = 1 To m

a(i) = p

p = p + k(i)

Next i

For i = 1 To n

 p = b(i)

t(a(p)) = i

a(p) = a(p) + 1

Next i

pos = 1

For i = 1 To m         '对各类别商品按商品销量进行排序

For j = pos To pos + k(i) - 2

tmp =t(j): t(j) = t(p): t(p) = tmp

Next j

pos = pos + k(i)

Next i

List2.AddItem "类别  商品  商品销量"

For i = 1 To n

List2.AddItem     + " " + geshi(c(t(i))) + "  " +Str(s(t(i)))

Next i

End Sub

Function f(head As Integer, tail As Integer) As Integer

Dim i As Integer, p As Integer

p = head - 1

For i = head To tail

If s(t(i)) > s(t(p)) Then p = i

Next i

f = p

End Function

Function geshi(s As String) As String           '格式输出，代码略

End Function

Const n=18，m=6

Dim a（1 To n）As Integer

Dim b（1 To 2*m）As Integer

b（1）、b（2）为第1区间的下限和上限，b（3）、b（4）为第2区间的下限和上限……

Dim c（1 To 2*m+1）As Integer

‘c（1）、c（2）分别存储第1段“非重叠块”和“重叠块”的元素个数；

‘c（3）、c（4）分别存储第2段“非重叠块”和“重叠块”的元素个数……

‘c（2*m-1）存储第m段“非重叠块”的元素个数，c（2m）存储第m段“重叠块”的元素个数（值为0）；      ‘c（2*m+1）存储剩余段的元素个数

Private Sub Command1_Click( )

  Dim i As Integer，p As Integer，i As Integer，LL As Integer

‘读取n个数据并保存在数组a中，代码略

‘读取m个区间的下限和上限并保存在数组b中，代码略

  For i=1 To 2*m+1

    c（i）=0

  Next i

  i=1：p=1

  L=0：LL=0

Do While   ①   

  If IsIn（i, p）Then

      If IsIn（i, p+1）Then

          LL=LL+1

      Else

             ②   

          LL=0

      End If

      i=i+1

    Else

      c（2*p-1）=L

      c（2*p）=LL

        L=0：LL=0

        p=p+1

    End If

  Loop

  If i<=n Then

    c（2*p-1）=n-i+1

  Else

    c（2*p-1）=L

    c（2*p）=LL

  End If

‘输出统计结果，代码略

End Sub

‘函数IsIn用来判断a（i）值是否属于第p区间

Function IsIn（i As Integer, p As Integer）As Boolean

If p>m Then

    IsIn=False

Else

    If   ③   Then IsIn=True Else IsIn =False

End If

End Function

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

Dim n As Integer

Dim xm(1 To n) As String

Dim xb(0 To n) As String

Dim cj(0 To n) As Integer

Private Sub Form_Load()

'读取学生姓名、性别和成绩分别存 xm、xb 和 cj 数组，并在列表框 List1 中显示。

'学生人数存变量 n，代码略。

End Sub

Private Sub Command1_Click()

    Dim s As String, k As Single, m As Single, mm As Integer

    Dim c As Integer, p As Integer, i As Integer, j As Integer

    Dim t1 As String, t2 As Integer

    s = Text1.Text

    k = Val(Text2.Text)

    c = 0

    For i = 1 To n

        If xb(i) = s Then

    Next i

    m = c * k / 100

    If m < 1 Then

        mm = 1

    Else

        mm =

    End If

    i = 1

    Do While i <= n

        p = i

        For j = i + 1 To n

            If xb(j) = s Then

                If  Then p = j

            End If

        Next j

        If i <> p Then

            t1 = xb(i): xb(i) = xb(p): xb(p) = t1

            t2 = cj(i): cj(i) = cj(p): cj(p) = t2

        End If

        If i > mm And (xb(i) <> xb(i - 1) Or cj(i) <> cj(i - 1)) Then Exit Do

        i = i + 1

    Loop

    For i = 1 To mm

        List2.AddItem xm(i) + " " + xb(i) + " " + Str(cj(i))

    Next i

End Sub

Dim pos As Integer, a(1 To 100)As String

Private Sub Form_Load()

    '将字母“a”至“z”依次存入数组元素a(1)到a(26)

End Sub

Function judge(ss As String) As Integer            '判断字典中是否有ss这个单词

    Dim i As Integer judge = 0

    For i = 27 To pos

        If a(i) =Then judge = i

        Exit For

        End If

    Next i

End Function

Private Sub Command1_Click()

    Dim s As String, i As Integer, j As Integer, k As Integer, ch As String, word As String, result As String, Dim id As Integer, idletter As Integer

    s = Text1.Text pos = 26: i = 1

    Do While i <= Len(s)

        j = i

        Do While Mid(s, j, 1) <> " "

            j = j + 1

            If j > Len(s) Then Exit Do

        Loop

        word = Mid(s, i, j - i)

        If Len(word) = 1 Then            '单个字母的单词

            result = result + Str(Asc(word) -Asc("a") + 1)

        Else

            id = judge(word)

            If id = 0 Then               '新的单词

                For k = 1 To Len(word)                   '依次处理该单词中的各个字母编码

                    ch = Mid(word, k, 1)

                Next k

                pos = pos + 1              '对该单词编码

                a(pos) = word

            Else             '词典中存在该单词

                result = result + Str(id) End If

        End If

        If j < Len(s) Then result = result + " *"

    Loop

    Text2.Text = result

End Sub

Const n=8

Const m=12

Dim a（n*m）As Double，b（m）As Integer

Dim f（n）As Double，num（n）As Integer，sum As Double

Private Sub Form_Load（）

    '读取n个人每个评委的评分，按照选手编号从小到大依次存入数组a，并显示在List1中

    'a（1）到a（m）存储第1个选手得到的m个评委的评分

    'a（m+1）到a（2*m）存储第2个选手得到的m个评委的评分

    '以此类推，代码略

End Sub

Private Sub Command1_Click（）

    Dim i As Integer，j As Integer，x As Integer，k As Integer

    Dim s As Double，avg1AsDouble，avg2AsDouble

    Dim ans_v As Double，ans_c As Double

    For i=1 To n

        sum=0

        For j=1 To m

            sum=sum+a（（i-1）*m+j）

            b（j）=0

        Next j

        s=0

        ans_v=-1：ans_c=0

        For j=1 To m-1

            x=find（i）     '找到第i组中m个数中第j大数位置x

            avg1=s/j

            avg2=（sum-s）/（m-j）

            If ans_v=-1 Or avg1-avg2<ans_c Then

                ans_v=（avg1+avg2）/2

                ans_c=avg1-avg2

            End If

        Next j

        Do While k>=1 And ans_v>f（k）

            f（k+1）=f（k）

            num（k+1）=num（k）

            k=k-1

        Loop

        f（k+1）=ans_v

        num（k+1）=i

    Next i

    '将结果显示在List2中，代码略

End Sub

Function find（t As Integer）As Integer

    Dim i As Integer

    find=0

    For i=（t-1）*m+1 To t*m

        IfThen

            If find=0 Or a（find）<a（i）Then find=i

        End If

    Next i

    b（find-（t-1）*m）=1

End Function

from PIL import Image

#输入起始点坐标（xs,ys）,信息点宽度高度(fw, fh)，间隔宽度高度(sw ,sh)，代码略

num = 5               # 判分个数

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

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

    count = 0

    for i in range(x, x + fw + 1):

        for j in range(y, y + fh + 1):

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

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

                count = count + 1

    if count >= :

        return True

total_width = fw+ sw

total_height = fh + sh

image = Image.open("t2.bmp")

pixels = image.load()

number = ""

bz=[""]*num

df=0

bzd=input('请输入标准答案：')

da={"A":"1000","B":"0100","C":"0010","D":"0001"}

for i in range(len(bzd)):

    bz[i]=

for row in range(num):                       #分数判定

    for col in range(4):

        y = ys + total_height * row

        if fill_judge(x, y) == True :

            number = number + '1'

        else:                           

            number = number + '0'

    if number = = bz[row]：

 df+=2

    number=""

print("得分为：",df)