相关试卷

现要求根据上表统计出各等级学生人数占总人数的比例。小李编写了一个VB程序帮助老师实现该功能：程序运行时，将每位学生的得分(两位整数)存储到数组a中，并在列表框List1

中显示。单击“统计”按钮后，在列表框List2中显示从A级至E级，各等级的人数占总人数的百分比例(四舍五入保留整数)。程序运行界面如图所示：

请阅读代码，并回答以下问题：

Dim n As Integer

Dim a(1 To 50) As Integer

Private Sub Form_Load( )

    Dim adocn As New ADODB. Connection

    Dim adors As New ADODB. Recordset

    Dim str1 As String

    adocn.ConnectionString = "Provider = Microsof.ACE.OLEDB.12.0；Data source=" +App. Path +”\school. accdb”

    adocn. Open

    str1 =“select * from students”

    ardors.Open str1, adocn

    '将每个学生的得分读入数组a中，并在列表框list1中显示，统计学生总人数n

    '代码略

End Sub

Private Sub Comd1_C1ick( )

    Dim cou As Integer，k as Integer

    Dim b(0 To 4) As Integer

    Const dj = “A级B级C级D级E级”

    For i=1 Ton

    k=a(i)\10-5

    If k<0 Then     ①    

    b(k)= b(k) + 1

    Next i

    For i=0 To 4

      cou =       '⑶改错

      List2. AddItem       ②      + Str(cou) +“%”

    Next i

End Sub

s ="ghi jabcdef"

key = Chr(97 + 3 * Int(Rnd * 4))

i =1：j=Len(s)

Do While i< = j

    m=(i+j+1)\2

    ans=ans+Str(m)

    c = Mid(s，m，1)

    If c=key Then Exit Do

    If Mid(s，i，1) < c Then

       If key>=Mid(s，i，1) And key<c Then j=m-1 Else i=m+1

    Else

       If key>c And key <= Mid(s，j，1) Then i =m+1 Else j=m- 1

    End If

Loop

运行程序后，变量ans的值不可能是(    )

i=1：j=2：n=10

Do While i<n

If a(i)>=a(j) Then mc(i)=mc(i)+1

If a(i)<=a(j) Then mc(j)=mc(j)+1

    j=j+1

    If j>n then i=i+1：j=i+1

Next i

For=1 To n

    List1.AddItem“得分为”+Str (a(i))+“名次为”+Str(            )

Next i

划线处应填写的语句为(    )

max=0

For i=1 to 7

    k=i

    For j=i+1 to 8

         If a(k)<a(j) then k=j

    Next j

    If k<>i then

        t=a(k)：a(k)=a(i)：a(i)=t

        If max<k-i then max=k-i

    End If

Next i

数组元素a(1)到a(8)的值依次为：19，9，48，32，5，17，23，8，执行该程序段后max的值为(      )

Dim d(0 To 9) As Integer

s=Text1.Text

c=0

For i=0 To 9

    d(i)=0

Next i

For i=1 To Len(s)

          '填空

Next i

Text2.Text=Str(c)

方框处的代码可由以下三部分组成：

①d(t)=i   ②t=val(Mid(s，i，1))   ③if d(t)<>0 And i-d(t)>c Then c=i-d(t)

代码顺序正确的是(     )

①视频数据存在着时间冗余   ②单调背聚存在结构冗余   ③转换过程中进行了有损压缩

④数据压缩后视频文件视觉效果更好   ⑤视频文件在压缩过程中遵守JPBG压缩标准。

其中正确的是（    ）

下列关于该数据表的说法，正确的是（    ）

①微信语音转换为文字

②医生使用CT扫描仪对人体进行扫描

③地下停车场自动识别车牌号码收费

④使用智能扫描笔将报纸上的文字扫描成图片

⑤使用手机APP对植物进行拍照，并识别植物信息