简单应用题

　　3在考生文件夹下有一个工程文件sit4.vbp，窗体上已经添加所有控件，如图所示。在程序运行时，如果单击“开始”按钮，则每隔0.1秒窗体上的汽车图标向右移动一次(初始状态下不移动);如果单击“停止”按钮，则停止移动。

　　请完成以下工作：

　　①设置适当控件的适当属性，使得每0.1秒汽车图标向右移动一次，而初始状态下不移动。

　　②请去掉程序中的注释符，把程序中的?改为正确的内容。

　　③为两个命令按钮编写适当的事件过程.最后以原文件名存盘。

　　注意：不得修改已经给出的程序。编写事件的过程中不能使用变量，每个事件过程中只能有一条语句。

　　参考解析：

　　【考点分析】本题考点有：计时器的Interval和Ena-bled属性以及图片框的Left属性。

　　【解题思路】首先通过计时器的Interval和Enabled属性设置计时器每次改变的时间间隔和计时器是否可用，根据题意，在初始状态下Enabled属性设置为False，在计时器的Tim-er事件过程中，通过图片框的Left属性值的改变来实现自左向右移动的功能。在“开始”按钮的单击事件过程中应启用计时器，在“停止”按钮的单击事件过程中必须停止计时器。

　　【操作步骤】

　　步骤1：打开本题工程文件，设置计时器Interval的属性为100，将Enabled属性设置为False。

　　步骤2：打开代码编辑窗口，在指定位置编写如下代码。

　　参考答案

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　【易错提示】计时器的Interval属性是以毫秒为单位的，因此在设置时要注意ls=1000ms。

　　4在考生文件夹下有一个工程文件sit4.vbp，其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法为：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，将“明文”中的每个字母改为它后面的第lt个字母(“z”后面的字母认为是“8t”，“Z”后面的字母认为是“A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。

　　注意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。

　　参考解析：

　　【考点分析】本题考点有：Mid()函数、Len()函数、Asc()函数、String()函数、单选按钮Value、If判断语句以及For循环语句。

　　【解题思路】根据题意，首先要确定移动的位数，移动的位数是通过单选按钮来选择的，移动的值是由单选按钮的Caption属性值决定的，然后要确定循环的次数，循环的次数是由输入字母的个数决定的。使用Mid()函数取出字符串中的字符，利用Asc()函数返回字符的代码，利用String()函数将字符代码转换成字符。

　　Mid()函数的格式为Mid(字符串，P，n)。其中，Mid()函数从第P个字符开始，向后截取n个字符，P和n都是算术表达式。Mid()函数的第3个变量可以省，这样将从第P个字符开始向后截取到字符串的结尾。

　　String()函数用于重复指定字符串中的字符，返回新的字符串。

　　Asc()函数用于返回一个Integer，代表字符串中首字母的字符代码。

　　【操作步骤】

　　步骤1：打开本题工程文件。

　　步骤2：打开代码编辑窗口，去掉程序中的注释符“´”，将问号改为正确的内容。

　　参考答案(横线部分是需考生填入的内容)

　　Private　 Sub Command1_Click()

　　Dim n As Integer，k As Integer，m As Integer

　　Dim c As String，a As String

　　For k=0 To 2

　　If Op1(k).Value Then

　　n=Val(Op1(k).____Caption______)

　　End If

　　Next k

　　m=Len(Text1.Text)

　　a=""

　　Fork=1 To__m_______

　　c=Mid$(Text1.Text，_____k_____，1)

　　c=String(1，Asc(c)+n)

　　If c>"z"Or c>”Z”And c<"a"Then

　　e=String(1，Asc(c)一26)

　　End If

　　__________=a+c

　　Next k

　　Text2.Text=a

　　End Sub

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　【易错提示】单选按钮数组的起始下标为0，而不是1，在循环和判断的时候要特别注意。

　　相关推荐：

　　2015年计算机二级《MSOffice》全真模拟试题汇总

　　2015计算机二级《C语言程序设计》无纸化操作题汇总