2016年10月学考成绩揭晓后，信息技术老师要统计各班学考技术A等级人数，但教务处为了保护学生成绩隐私，只给他提供了各班学生本次学考的等...

题型：综合题题类：模拟题难易度：困难

2017年11月浙江省普通高校招生学考科目考试技术（信息技术）仿真模拟试题02

2016年10月学考成绩揭晓后，信息技术老师要统计各班学考技术A等级人数，但教务处为了保护学生成绩隐私，只给他提供了各班学生本次学考的等级信息，其中技术学科等级排在每位学生的第一科。若某班学生大部分参加技术、地理、历史三门学考，小部分参加其中的两门，则教务处提供的等级信息为每位学生连续三个字符（如：ABAB-B，表示第一个学生的成绩技术为A，地理为B ，历史为A，第二个学生技术为B，地理没考，历史为B，其他依此类推）。于是他编写了一个VB程序，很快统计出各班技术学科的A等级人数。程序设计界面如图所示，其中各班学考等级信息来自文本框Text1，科目数来自文本框Text2，统计结果输出到文本框Text3中。实现上述功能的VB程序代码如下：

Private Sub Commandl_Click( )

Dim s, p As String

Dim a, n As Integer

Dim kms As Integer

s= ①

n = Len ( s )：a = 0 ：kms = Val(Text2.Text)

If n Mod kms = 0 Then

For i= ②_______

p = Mid(s，i，1)

If p= "A" or p= "a" Then a = a+l

Next i

Text3.Text = Str(a)

Else

Text3.Text="学生等级信息不正确"

End If

End Sub

请回答下列问题：

（1）、文本框Text3中的文字太小，可以选择图中的（填属性名）属性调整大小。

（2）、将程序中画线处的代码补充完整，使程序能够实现统计功能。

① 处应填；② 处应填。

（3）、程序运行时，在文本框Text1中输入A-ABBBC-CCAA-AAA，Text2中输入3，单击“统计”按钮，则文本框Text3中显示的内容是。

举一反三

有一Access数据库“school.accdb” 存放在f:\2015mt\vb文件夹中，其中的“student”数据表用来存储学生的基本情况信息，包括学号(num)、姓名(name)、性别(sex)、分数(score)，括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生信息，运行界面如下图所示。在文本框Text1中输入学生的学号，单击“查询”，在文本框Text2、Text3 、Text4中分别显示学生姓名、性别、分数。

Private Sub Command1 Click()

Dim adocn As New adodb.Connection

Dim adors As New adodb.Recordset

Dim str2 As String, str1 As String

str1 = "Provider=Microsoft.ACE.OLEDB.12.0;data source=f:\2015mt\vb\{#blank#}1{#/blank#} "

adocn.Open str1

str2 = "select * from students where num=" + Text1.Text

adors.Open str2, adocn, adOpenDynamic, adLockOptimistic

If adors.EOF = True Then

MsgBox "你输入的学号不存在"

Else

Text2.Text = adors.Fields("name").Value

Text3.Text = adors.Fields("sex").Value

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

End If

adors.Close

adocn.Close

End Sub

有如下Visual Basic程序：

Private Sub Command1_Click( )

Dim s As Integer

Dim I As Integer

S=0

For i=1 To 10

s=s+i\7

Next i

Text1.text=str(s)

End sub

该程序段运行后，文本框Text1中显示{#blank#}1{#/blank#}

有如下VB程序段：

Dim a(1 to 5) as integer, i as integer, c as integer

a(1)=2: a(2)=1: a(3)=3: a(4)=4: a(5)=5

c=0

for i=3 to 5

if a(i-2)+a(i-1) =a(i) then c=c+1

next i

text1.text = str(c)

该程序运行后，文本框text1中显示的内容是（）

用蒙特卡洛法求圆周率PI的近似值，其算法如下：使用随机函数Rnd,随机生成两个[0,1）之间的随机数，由此构成一个投点坐标（x,y），然后根据x²+y²<=1投点是否在圆内来求PI的近似值。其中总共随机投点n次，统计落点在单位圆内的点数为s,则4s/n即为所求PI的近似值。程序界面如图所示，在Text1中输入投点的个数，单机“计算”按钮，PI的近似值结果显示在Text2中。）

国际标准书号ISBN分成四组的10位数字组成，前面9位数字分组号、出版社和书序号三组，最后一位为校验码。校验的规则为从左边开始取出每位数字(前9位)，取出的数字依次乘以10、9、8……2，把各次的乘积相加，用11减去这个和除11的余数即为校验码。在文本框Text1中输入条形码，单击“校验”按钮Cmd1，在文本框Text2输出结论。程序运行的界面如图所示：

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim s As String，i As Integer，s1 As String，sum As Integer，t As Integer

Dim jy As Integer

s＝Text1.Text

t＝0：sum＝0

For i＝1 To Len(s)

s1＝Mid(s，i，1)

If s1>＝“0” And s1<＝“9” Then

′①

If t<10 Then

sum＝sum＋Val(s1)*(11－t)

ElseIf t＝10 Then

′②

End If

Next i

sum＝11－sum Mod 11

If Then′③

Text2.Text＝“该校验码中数字不是10位数！”

Else

If jy＝“X” and sum＝10 Then

Text2.Text＝“校验通过”

ElseIf val(jy)＝sum then

Text2.Text＝“校验通过”

Else

Text2.Text＝“校验不通过”

End If

End Sub

划线处代码为①{#blank#}1{#/blank#}

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

③{#blank#}3{#/blank#}

某编码由4个信息位和3个校验位组成，通过对编码信息进行验算，能够检测并纠正一位错误代码。该7位编码中b1～b4为信息位，p1～p3为校验位，位置如下：

编码中位	1	2	3	4	5	6	7
对位信息	p1	p2	b1	p3	b2	b3	b4

校验的方式如下，求校验值g1、g2、g3：

g1 = p1 Xor b1 Xor b2 Xor b4

g2 = p2 Xor b1 Xor b3 Xor b4

g3 = p3 Xor b2 Xor b3 Xor b4

其中Xor 为异或运算，规则是：0 Xor 0 =0，0 Xor 1 =1，1 Xor 0 =1，1 Xor 1 =0，

p1 Xor b1 是将p1、b1 转换为二进制后按位进行异或运算，如7 Xor 12 的结果为11。

⑴若计算得到的校验值g1、g2、g3均为0，说明校验正确，数据无错误。例如：若7位编码为1101001，计算校验值g1、g2、g3值均为0，验证正确。

⑵若校验值g1、g2、g3不全为0，说明数据有错，出错位置为g3g2g1（二进制数表示），纠错的方法是对错误的位进行取反，即“0”变“1”，“1”变“0”。例如：若7位编码为1111001，计算校验值g1=1、g2=1、g3=0，不全为0，说明数据有错，错误位置在011（二进制数）位，即第3位，原位置上“1”应为“0”，正确编码为1101001。

小明为此编写了VB程序，程序运行时，在文本框Text1中输入编码值，单击“校验”

按钮Command1后，在文本框Text2中输出运行结果，如图所示。

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

相关试卷

公司介绍

服务介绍

帮助中心