2. 计算机
  3. (1)在考生文件夹中有一个工程文件sjt3．vbp，窗体上有2个命令按钮、1个水平滚动条和1个计时器，其名称分别为Command1、Command2、HScroll1和Timer1，如图3—8(a)所示。程序运行后，按钮Command1、Command2的

(1)在考生文件夹中有一个工程文件sjt3．vbp，窗体上有2个命令按钮、1个水平滚动条和1个计时器，其名称分别为Command1、Command2、HScroll1和Timer1，如图3—8(a)所示。程序运行后，按钮Command1、Command2的

admin2017-03-26  69
问题 (1)在考生文件夹中有一个工程文件sjt3．vbp，窗体上有2个命令按钮、1个水平滚动条和1个计时器，其名称分别为Command1、Command2、HScroll1和Timer1，如图3—8(a)所示。程序运行后，按钮Command1、Command2的标题分别立即显示“开始”“停止”，同时把计时器的Interval属性设置为100，Enabled属性设置为False。此时如果单击“开始”按钮，则该按钮变为禁用，而标题则变为“继续”，同时滚动条的滚动框自左至右移动，每次移动10，如图3—8(b)所示，移到右端时，自动从左端重新开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时滚动框停止移动；再次单击“继续”命令按钮后，滚动框继续移动。已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。
注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体上有2个名称分别为Text1、Text2的文本框，有1个名称为Command1的命令按钮。程序运行时，在Text1文本框中输入一行单词(只含有字母或空格)，单击命令按钮后，将把每个单词的第一个字母改为大写(如果原来已是大写字母则不变)，并在Text2文本框中显示出来，如图3—9所示。已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。
注意：不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案第1小题 步骤1：打开考生文件夹中的本题工程文件sit3．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： Command1．Caption="继续" Command1．Enabled=False Command1．Enabled=True HScroll1．Value=HScroll1．Value+10 HScroll1．Value=HScroll1．Min 步骤2：按要求将文件保存至考生文件夹中。 第2小题 步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口中，去掉程序中的注释符“’’，将问号“?”改为正确的内容。 参考代码： st1=Trim(Text1．Text) st2=st2&Mid(st1，n+1，1) Text2．Text=st2 步骤2：按要求将文件保存至考生文件夹中。
解析 第1小题：题目中设置了一个定时器，定时器启动后周期性的移动水平滚动条，可在定时器的Timer事件处理过程中，设置水平滚动条的Value属性，Value属性值增大则滚动条往右移动。
第一个“?”处是补充“开始”命令按钮的事件处理过程代码，根据题目要求，点击“开始”按钮后该按钮的标题变成“继续”，即Caption属性设置为“继续”；同时，“开始”按钮变成不可用，即Enabled属性设置为False：第三个“?”处是设置Command1命令按钮变成可用，即Enabled属性设置为True；第四个和第五个“?”处是设置水平滚动条的Value属性，在Value属性没有到达最大值之前，在每次定时器的Timer事件过程中增加10，如果到了最大值则回到最左边，即把Value值设置为最小。
第2小题：题目要求对单词进行转换，即单词首字母变成大写。分析代码可知，在命令按钮的事件处理过程中，首先获取需要转换的文本内容，即Text1文本框内容：然后对第一个单词的首字母(即文本内容的第一个字母)转换成大写；接下来通过循环查找其他单词，通过Mid函数从st1里面逐个取出字母，判断是否是空格，如果不是则把下一个字母添加到st2中；如果是空格，表明下一个字母是单词首字母，需要把下一个字母转换成大写再添加到st2中。最后一个“?”处是把st2显示在Text2文本框中。
转载请注明原文地址:https://kaotiyun.com/show/11Gp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)