(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体中有一个红色方框和一个计时器控件。程序运行时每隔0.5秒,方框的颜色交替变为黄色和红色(黄色值为&HFFFF&;红色值为&HFF&);若单击鼠标右键,则停止变色;若单击鼠标左键,则方框左上角移到鼠标

admin2019-06-11  38

问题 (1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体中有一个红色方框和一个计时器控件。程序运行时每隔0.5秒,方框的颜色交替变为黄色和红色(黄色值为&HFFFF&;红色值为&HFF&);若单击鼠标右键,则停止变色;若单击鼠标左键,则方框左上角移到鼠标点击的位置处(如图3—53所示)。请将事件过程中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,其窗口上有2个名称分别为Command1和Command2,标题分别为“开始查找”和“重新输入”的命令按钮;有2个名称分别为Text1和Text2、初始值均为空的文本框。
1)在Text1文本框中输入仅含字母和空格(空格用于分隔不同的单词)的字符串后,单击“开始查找”按钮,则可以将输入字符串中最长的单词显示在Text2文本框中,如图3—54所示。
2)单击“重新输入”按钮,则清除Text1和Text2中的内容,并将焦点设置在Text1文本框中,为下一次输入做好准备。请将“开始查找”命令按钮Click事件过程中的注释符去掉,把“?”改为正确内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序。最后,程序按原文件名存盘。

选项

答案第1小题 步骤1:打开考生文件下的本题工程文件sjt3.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Timer1.Interval=500 Shape1.Left=X Shape1.Top=Y Timer1.Enabled=False If Shape1.BackColor=vbRed Then 步骤2:按要求将文件保存至考生文件夹中。 第2小题 步骤1:打开考生文件下的本题工程文件sjt4.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: word_s=s s=Mid(s,m+1) If n<Len(word_s)Then Text2.Text=Word_max 步骤2:按要求将文件保存在考生文件夹中。

解析 第1小题鼠标事件分点击事件和状态事件:点击事件有单击(Click)和双击(DblClick),不区分左键、右键:状态事件有按下(MouseDown)、移动(MouseMove)和弹起(MouseUp),能够区分出鼠标的左键、右键和中间键。按下鼠标键事件过程的一般格式为:
Private Sub Form_MouseDown(Buaon As Integer,Shift As Integer,X As Single,Y As Single)
End Sub
其中各参数的含义:Button表示被按下的鼠标键,可以取3个值,1为左键、2为右键、4为中间键;Shift表示Shift键、Ctrl键和Alt键的状态,Shift键为1、Ctrl键为2、Alt键为4;X,Y表示鼠标光标的当前位置。本题在计时器的Timer事件过程中,完成方框的颜色交替,因此在Timer事件中应该是一个选择语句,如果颜色为红色(vbred),将其设置为黄色,否则设置为红色。由于要求0.5秒交替显示一次,因此计时器的Interval属性应该设置为500。
在窗体的MouseDown事件中,首先要判断按下的是鼠标的哪个键,如果是左键,则令形状的Left和Top属性分别为鼠标事件的参数X和Y;如果是右键,则令计时器停止工作。
第2小题:本题源程序在“开始查找”按钮的Click事件过程中,先检验文本框Text1(已赋值给变量s)中是否读入数据,并用InStr函数检查空格的位置,以空格为单词分隔依据找出每个单词。每找到一个单词,就将该单词使用Left函数在s中分离出来,然后将s中的这个单词去掉,判断单词的长度并且和预存的最长单词长度相比较,若其比最长单词还长,则这个单词的长度成为新的最长单词长度,这个单浏成为新的最长单词。循环结束后即可得出最长的单词。
转载请注明原文地址:https://jikaoti.com/ti/GAN0FFFM
0

最新回复(0)