3.2 Python语言程序设计 知识点题库

Dim ach(1 To 500) As String     '存储各学生选课编码

Dim bno(1 To 10) As Integer     '存储各科目编号

Dim bname(1 To 10) As String    '存储各科目名称

Dim bnum(1 To 10) As Integer    '存储各科目被选次数

Dim bmc(1 To 10) As Integer     '存储各科目被选的名次

Dim n As Integer, num As Integer

Private Sub Command1_Click()

Dim i As Integer, km As String

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

Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, sql As String

cn.Open "provider=Microsoft.Jet.oledb.4.0;Data Source=" + App.Path + "\students.mdb"

rs.Open "select * from choose", cn

Do While Not rs.EOF

n = n + 1 : ach(n) = rs.Fields("subject") : rs.MoveNext

Loop

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing

For i = 1 To 7

bno(i) = i

bname(i) = Mid(km, (i - 1) * 2 + 1, 2)

   List2.AddItem Str(bno(i)) + "---" + bname(i)

Next i

End Sub

Private Sub Command2_Click()

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

Dim c As String, per As Integer

For i = 1 To n

If check(ach(i)) = True Then

For j = 1 To 3

c = Mid(ach(i), j, 1)

bnum(Val(c)) =      

  Next j

num = num + 1

End If

Next i

i = 1

Do While i <= 7'该循环得到各学科被选人数的名次

bmc(i) = 1

For j = 1 To 7

If bnum(j) >bnum(i) Then      

Next j

i = i + 1

Loop

For i = 1 To 7

For j = 1 To 7

If        Then

per = Int(bnum(j) * 100 / num * 100) / 100

List3.AddItem Str(bno(j)) + "---" + bname(j) + "---" + Str(per) + "%"

End If

Next j

Next i

End Sub

Function check(s As String) As Boolean

   '代码略! 若学生选科代码有效,函数返回True,否则返回False

End Function

Private Sub Command1 _Click ( )

Dim i As Integer, y As Integer

Dim s As String, ans As string

Dim a As String

s = Text1. Text

a = Mid(s, i, 1)

y = 0

For i = 1 To 6

    a = Mid (s, i , 1)

        ①   

    If i Mod 2 = 1 Then

        y = m

    Else

           ② 

        ans = ans + str(y)

        If   ③   Then ans = ans + ","

        y = 0

    End If

Next i

Label2. Caption = “RGB (“+ ans +”)”

End sub

Function HtoD(x As String) As Integer    ‘将一位十六进制数转换为十进制数

code = "0123456789ABCDEF”

j = 0

Do While j < = 16

    j = j +1

    If x = Mid(code, j, 1) Then Exit Do

Loop

        ④        

End Function

① ② ③ ④ 

Dim ans(0 To 31) As Integer

Private Sub Command1_Click()

    Dim b(0 To 4) As Integer

   Dim s As String, c As String, sum As Integer, k As Integer

'初始化数组ans和数组b，各元素的初始值均为0。代码略

s = Text1.Text：k = Len(s)

   For i = 1 To k

        c = Mid(s, i, 1)

        b(Asc(c) - 65) = 2 ^ (69 - Asc(c))

    Next i

    For i = 0 To 4

        If b(i) <> 0 Then

            ans(b(i)) = 1

            sum =     ①   

        End If

    Next i

   ans(sum) = 2

   '当标准答案含3个及以上选项时，学生答案选其中2个选项可得1分

    i = 0

    Do While k >= 3 And i <= 4

        For j = i + 1 To 4

           If b(i) * b(j) <> 0 Then ans(b(i) + b(j)) = 1

        Next j

        i = i + 1

    Loop

    i = 0

    Do While k >= 4 And i <= 4

        For j = i + 1 To 4

            If b(i) * b(j) = 0 Or k = 5 Then      ②     

        Next j

        i = i + 1

   Loop

   '当标准答案含5个选项时，学生答案选其中4个选项可得1分。代码略

 End Sub

Private Sub Command2_Click()

    Dim xh(1 To 1000) As String, answer(1 To 1000) As String

  '从数据库中读取学生学号和答案的数据分别存储在数组xh和answer中

'记录总数存储在变量n中，代码略

  List1.Clear

    For i = 1 To n

        List1.AddItem xh(i) + " " + answer(i) + " " + Str(ans(f(answer(i))))

    Next i

End Sub

Function f(s As String) As Integer

    Dim i As Integer, x As Integer

   x = 0

    For i = 1 To Len(s)

      x =     ③     

    Next i

    f = x

End Function

① ② ③ 

Dim a(1 To 100) As String, b(1 To 100) As String, n As Integer

Private Sub Command1_Click()

    Dim s1 As String, s2 As String，i As Integer, j As Integer, m As Single

    s1 = Text1.Text

    m = Sqr(Len(s1))

    If m > Int(m) Then n = Int(m) + 1 Else n = m

    For i = 1 To n * n

        If i <= Len(s1) Then  a(i) = Mid(s1, i, 1)   Else  a(i) = "*"

    Next i

    For i = 1 To n

        For j = 1 To n

            b((i - 1) * n + j) =     ‘将矩阵转置

            b((i - 1) * n + j) = jm(i, j)   ‘内码变换

        Next j

    Next i

    s2 = ""

    For i = 1 To n * n

        s2 = s2 & b(i)

    Next i

    Text2.Text = s2

End Sub

Function jm(x As Integer, y As Integer) As String

    Dim s As String

    s = b((x - 1) * n + y)

    If s <= "Z" And s >= "A" Or s <= "z" And s >= "a" Then

        If x Mod 2 <> 0 Then

            If s <> "Z" And s <> "z" Then

                s = Chr(Asc(s) + 1)

            Else

                s = Chr(Asc(s) - 25)

            End If

        Else

            If s <> "a" And s <> "A" Then

                s = Chr(Asc(s) - 1)

            Else

                s =

            End If

        End If

    End If

End Function