- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省慈溪市2018-2019学年高二下学期信息技术期末考试试卷

王老师采用星级制对本班学生的平时表现进行评价，每位同学的评分数据存储在数据库中。学生的得分和星级对照如下表：

成绩	1-20	21-40	41-60	61-80	81-100
星级	一星	二星	三星	四星	五星

要求依据上表统计出各星级学生人数占总人数的比例。小王编写了一个VB程序实现该功能：程序运行时，每位学生的得分存储到数组a中，并在列表框list1中显示，单击命令按钮后，在列表框list2中显示各星级的人数占总人数的百分比例。

程序运行界面如图所示：

（1）、观察代码，实现统计功能的按钮对象名为：。

（2）、当前读取的数据表名为：

（3）、实现上述功能的VB代码如下，划线①、②处请填空。

Const n=50

Dim a(1 To n)As Integer

Dim b(0 To 4)As Integer

Private Sub Form Load()

Dim adocn As New ADODB．Connection

Dim adors As New ADODB．Recordset

Dim str1，str2 As String

adocn．ConnectionString =”provider=microsoft．ace．oledb．12．0：data source=”+ App．Path+”＼school．accdb”

adocn．Open

str2=”select*from student”

adors．Open str2，adocn

‘以下将每个学生的得分读入数组a中，并在列表框list1中显示，代码略

End Sub

Private Sub Com1 Cl ick ()

Dim dd As String

Dim cou As Single

Dim t as integer

dd=”一星二星三星四星五星”

For i=1 To n

h(t)=b(t)+1

Next i

For i=0 To 4

COU=Int(b(i)／n*100+0．5)

list2．Addltem +Str(cou)+”％”

Next i

End Sub

举一反三

关于查找，下列叙述正确的是（）

编写一个VB程序，判断某字符串是否为回文字符串。所谓回文字符串，指一个字符串从左往右读和从右往左读是完全一样的。程序运行时，单击“判断”按钮后，在标签Label2中显示判断结果。程序运行效果如图所示。

实现上述功能的程序如下，请回答下列问题：

Private Sub Com1_Click( )

Dim s As String

Dim flag As Boolean

Dim n As Integer， i As Integer

s = Text1.Text

_________ ‘①

flag = True

i = 1

Do While i <= n \ 2

If Mid(s， i， 1) < >________________ Then ‘②

flag = False

Exit Do '退出Do循环

End If

i = i + 1

Loop

If flag Then

Label2.Caption = s + "是回文字符串"

Else

Label2.Caption = s + "不是回文字符串"

End If

End Sub

某对分查找算法的VB程序段如下

i = 1: j = 6: n = 0: f = False

Key = Val(Text1.Text)

Do While i <= j And Not f

n = n + 1

m = (i+j + 1) \ 2

If Key = a(m) Then f = True

If Key < a(m) Then j = m - 1 Else i = m + 1

Loop

数组元素a（1）到a（6）的值依次为“12，19，27，37，49,55”。若在文本框Text1中输入27，则以上程序段执行后，下列说法不正确的是（）

有如下VB程序段：

n=Val(Text1.Text)

k=0

left=1

right=n

Do While left <=right

k=k+1

m=(left+right) \ 2

If m-left < right-m Then

left=m+1

Else

right=m-1

End If

Loop

在文本框Text1中输入16，执行该程序段，下列说法错误的是（）

某对分查找算法的部分VB程序如下：

i=1：j=12：k=0：s=””

key= Va1(TextI Text)： c=N： flag= False

Do While i<= j And flag= False

m=(i1+j+1)\2：k=k+1

If key= a(m) Then c=Y： flag=True

If key >a(m) Then j= m-1 Else i =m+1

s=s& Str(a(m))

Loop

Text2 Text s： Text3 Text= c

数组a(1)到a(12)的值依次为“991．85．76，68．61，53，42．34，27，20，13”，执行该程序段后，下列说法正确的是（）

下列VB程序实现数字字母混合序列分离后分别排序，最后又合并输出。具体算法如下：在文本框Text1输入若干组混合序列，每组序列中仅包含一组字母和一个多位数字，序列之间用逗号隔开，以逗号结束。单击“排序”按钮command1，把每组序列中的字母和数字分开，并分别排序，最后在列表框list1输出。排序规则如下：所有数字按从小到大升序排序，字母序列按长度升序排序，若长度相同，直接按字母序列大小升序排序（按字母的ASCII码排序，“A”<“Z”<“a”<“z”）。实现算法的部分程序界面如图所示，VB程序代码如下，回答下列问题：

Private Sub Command1_Click()

Dim a(1 To 6) As Integer, b(1 To 6) As String, i as integer, j as integer

Dim c As String, k As Integer, tmp1 As Integer, tmp2 As String

s=text1.text

i = 1: k = 1: tmp1 = 0: tmp2 = ""

Do While i <= Len(s)

c = Mid(s, i, 1)

If c = "," Then

a(k) = tmp1: b(k) = tmp2

tmp1 = 0: tmp2 = ""

①

Else

If Then

tmp2 = tmp2 + c

Else

tmp1=tmp1*10+val(c)

End If

i = i + 1

Loop

For i = 1 To 5

For j = 1 To 6 - i

If a(j) > a(j + 1) Then tmp1 = a(j): a(j) = a(j + 1): a(j + 1) = tmp1

If Len(b(j)) > Len(b(j + 1)) Or ② Then

tmp2 = b(j): b(j) = b(j + 1): b(j + 1) = tmp2

End If

Next j

Next i

For i = 1 To 6

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

Next i

End Sub

相关试卷

公司介绍

服务介绍

帮助中心