专题16-VB(学考)非选择题(解析版).docx

浙江省五年（2015-2019）高中学考、高考选考信息技术真题分类汇编

专题16VB（学考）非选择题（解析版）

1.（2019年6月）小宇为选定班级参赛作品编写了一个VB程序，设计如下：在文本框Text1内输入5位评委对3个作品的评分数据（评委对作品的评分数据由3位十进制数组成，第1位对应作品编号，第2、3位对应作品得分，分值范围为[60,99]。如“275”表示2号作品得分75）。单击“计分”按钮后，在标签Label1中输出3个作品的平均分，在标签Label2中输出参赛的作品（选择最高平均分作品参赛，若最高平均分存在并列，则从并列作品中随机柚取）。程序运行界面如图所示。

（1）“计分”按钮的对象名为。

（2）程序部分代码如下，请在划线处填入合适代码。

PrivateSuhjf_Click()

DimsAsString，dAsString，iAsInteger

Dimf1AsSingle，f2AsSingle，f3AsSingle

s=Text1.Text

i=1

DoWhile

d=Mid(s,i,3)

IfMid(d,1,1)=1”Then

f1=f1+Val(Mid(d,2,2))

ElseIfMid(d,1,1)=“2”Then

f2=f2+Val(Mid(d,2,2))

Else

f3=f3+Val(Mid(d,2,2))

EndIf

Loop

Label1.Caption=作品1平均分为:+Str(f1/5)+“作品2平均分为:”+Str(f2/5)+“作品3平均分为:”+Str(f3/5)

以下省略“处理并列最高平均分，并在Labd2中输出选取的参赛作品”的代码

EndSub

（3）运行该程序时，在文本框Text1中以不同的顺序输入原评分数据：

380/295/283/170/180/385/372/285/190/180/390/384/272/170/276,单击“计分”按钮，则Label1中显示的结果 (选填:会/不会）发生改变。

【答案】（1）jf （2）i=len(s) i=i+4 （3）不会

【解析】本题考查字符串程序。（1）事件处理过程名格式：对象名_事件名，由代码可知对象名为jf。（2）由“d=Mid(s,i,3)”可知i变量含义为取字符的位置，且整个循环在取字符直到结束，所以循环条件为i=len(s)；且由“d=Mid(s,i,3)”可知取出来的字符为对应的作品学号和得分，下一次同样的取法，由Text1输入的内容可知，下一次取出相应字符串的起始位置为5，且i的初值为1，所以i=i+4。（3）每个3位字符串含义一定，只是把数据位置交换一下，数据本身没变，则不会改变结果。

2.（2019年4月）小王设计“模拟撤销”程序，需要用一个“历史记录”。“历史记录”是在对字符串s进行插人或删除时，将每步操作信息依次存储得到的。操作信息由操作符（“+”表示插入，“-”表示删除）、操作位置和操作字符串（只包含英文字母）构成。例如，“+23abc”表示在字符串s第23个位置插人了“abc”。“模拟撤销”过程按照“历史记录”的逆序进行，将字符串s的内容恢复到初始状态。对字符串“Book”的操作与撤销过程如第2题图a所示。

第2题图a

第2题图b

小王编写的“模拟撤销”VB程序功能如下：文本框Text1中的内容是撤销前字符串，文本框Text2中的内容是历史记录，单击“撤销”按钮Command1后，在标签Label1中显示撤销过程，程序运行界面如第2题图b所示。

（1）实现上述功能的VB程序如下，在程序中出现的对象没有Caption属性的是。

（选填，填字母：A.Label1/B.Command1/C.Text1和Text2）

（2）请在划线处填入合适代码。

PrivateSubCommand1_Click()

DimsAsString,tAsString,chAsString

DimcAsString，numAsString，ssAsstring

DimnAsInteger,iAsInteger

s=Text1Text:t=Text2.Text

c=:num=:ss=s

Fori=Len(t)To1Step-1

Ifch=aAndch=zOrch=AAndch=”Z”The