- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省温州市“十五校联合体”2018-2019学年高二上学期信息技术期中联考试卷

小王用VB编写一个自动统计英文字母和单词个数的程序。功能如下：在文本框Text1中输入任意的英文句子，单击 “统计”命令按钮Command1，程序自动统计出每个字母出现的频率，并将其输出到列表框List1，且将出现次数最多的字母输出在标签Label1中，另外将单词个数在标签label2中输出。程序界面如图所示，实现上述功能的VB程序如下。请回答以下问题：

（1）、请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim a(65 To 122) As Integer

Dim i As Integer, ch As String, count As Integer

Dim Max As Integer, Maxi As Integer, flag As Boolean

List1.Clear

flag = False

count = 0

s = Text1.Text

For i = 1 To Len(s)

ch = Mid(s, i, 1)

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

a(Asc(ch)) =

If flag = False Then

count = count + 1

flag = True

End If

Else

End If

Next i

Max = 0: Maxi = 0

For i = 65 To 122 ’A的ASCII码值为65，a的ASCII码值为97

If a(i) > 0 Then

List1.AddItem Chr(i) + ": " + Str(a(i))

End If

If a(i) > Max Then

Max = a(i)

Maxi = i

End If

Next i

Label1.Caption = "频率最高字母：" +

Label2.Caption = "共有单词数：" + Str(count) + "个"

End Sub

（2）、从代码可知，当出现两个以上的字母次数最高时（例如字母a和d都出现4次，且为最高次数），则程序最终输出的是（单选,填写字母：A .排在前面的第一个频率最高字母/B .中间的某个频率最高字母/C .排在最后的一个频率最高字母/D .无法确定）。

举一反三

编写VB程序，在如图1所示1×1的正方形区域内产生一定数量、位置随机的点坐标，统计位于0.5×0.5的黑色区域内（包括边界）点的数量。程序运行时界面如图2所示。

自上而下两个文本框的名称分别是Text1和Text2，“开始”按钮的名称是Command1。在Text1

中输入数据，单击“开始”按钮，在Text2中显示统计结果。“开始”按钮单击事件处理过程的流程图如右图所示。请根据流程图将下列程序补充完整

Private Sub Command1_Click( )

Dim n As Integer, m As Integer, i As Integer

Dim x As Single, y As Single

n = {#blank#}1{#/blank#}

m=0

Randomize ′初始化Rnd函数

For i = 1 To n

x = Rnd ′随机产生x坐标，0≤x＜1

y = Rnd ′随机产生y坐标，0≤y＜1

{#blank#}2{#/blank#}

Next i

Text2.Text = Str(m)

End Sub

某学校开设多样化选修课程，学生可以根据个人兴趣和特长选择选修课。假设每门选修课的选课人数不超过40，学生选课的相关信息存放在数据库文件“student.accdb”的data表中，选课查询程序运行时界面如第16题图所示。

程序功能：在文本框Text1中输入课程号，单击“查询”按钮Command1,在列表框List1中显示选修本课程的学生信息。如果没有找到，在列表框中显示“该课程当前无人报名”。按此要求将程序补充完整。

Private Sub command1_click()

Dim xh(1 to 40),xm(1 to 40) As String '学号和姓名的数组

Dim i,num as integer

Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

Dim strSQL As String

conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\student.accdb" '打开到数据库的链接

conn.Open

strSQL ="select xh,xm from data where '课程=&(Text1.Text) & '" '设置查询的SQL语句

Set rs.ActiveConnection = conn '设置rs的ActiveConnection属性，指定与其关联的数据库链接

rs.Open strSQL '打开记录集，将从表student中读取的结果集保存到记录集rs中

List1.Clear

num=0

Do while not rs.EOF

①

xh(num)=rs.Fields("xh")

xm(num)=rs.Fields("xm")

rs.MoveNext

loop

rs.Close

conn.close

set rs=nothing

set conn=nothing

For i=1 to num

②

Next i

if num=0 then list1.additem("该课程当前无人报名")

End Sub

如图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是：( )

Private Sub Command1_Click()

Dim a(1 To 4) As Integer

Dim i As Integer

a(1) = 1

For i = 2 To 4

a(i) = 2 * a(i - 1) + 1

Next i

List1.AddItem Str(a(i))

End Sub

两质数（素数）的差为2，称此对质数为质数对。下列程序是找出n以内的质数对，并成对显示结果。其中，函数s判断参数m是否为质数。请完成以下问题：

Function s(m) As Boolean

Dim i As Integer

______1_______

For i = 2 To Int(Sqr(m))

If m / i = 0 Then s = false ‘3

Next i

End Function

Private Sub Command1_click()

Dim i, n As Integer

Dim p1, p2 As Boolean

n = Val(Text1.Text)

p1 = s(3)

List1.Clear

For i = ______2_____

p2 = s(i)

If p2 = True Then List1.AddItem = Str(i - 2) + " " + Str(i) ‘4

p1 = p2

Next i

End Sub

某VB程序代码如下：

Dim n As Integer，s As String

n = 64 :s = ""

Do While n > 0

s = Str(n Mod 7) + s

n = n \ 7

Loop

执行该程序段后，变量s的值是（）

关于下列Python程序段的说法正确的是（）

k=1

while 1:

k+=1

相关试卷

公司介绍

服务介绍

帮助中心