S=0 for i=1 to 100 if i%3=0 s=s+i endif endfor thisform.label1.caption=alltrim(str(s)) 本题素材为考生文件夹中的表单文件tk18.scx tk18.scx, 【40】 】 本题素材为考生文件夹中的表单文件tk18.scx,该表单实现的功能 是从表“tk18_dz.dbf 中查询读者信息。 tk18_dz.dbf”中查询读者信息 是从表 tk18_dz.dbf 中查询读者信息。 具体要求:在文本框text1中输入读者, text1中输入读者 具体要求:在文本框text1中输入读者,单击命令按钮
查询可以查找到 该读者的记录信息,把性别显示在文本框text2 text2中 籍贯显示在文本框text3 text3中 该读者的记录信息,把性别显示在文本框text2中,籍贯显示在文本框text3中, 如果找不到记录则弹出一个消息框显示“查无此人 查无此人! 如果找不到记录则弹出一个消息框显示 查无此人!” 在按钮command1 查询) click过程中编写程序实现上述功能 command1( 过程中编写程序实现上述功
能。 在按钮command1(查询)的click过程中编写
程序实现上述功能。 表单运行效果图如下所示: 表单运行效果图如下所示:
伍
(1)将表tk18_dz.dbf添加到数据环境中。 将表tk18_dz.dbf添加到数据环境中。 tk18_dz.dbf添加到数据环境中 (2)在Command1的Click事件中写如下程序: Command1的Click事件中写如下程序: mmand1 事件中写如下程序 xm=ALLTRIM(thisform.text1.Value) =xm LOCATE for =xm IF FOUND() thisform.text2.Value=tk18_dz. thisform.text2.Value=tk18_dz. thisform.text3.Value=tk18_dz.籍贯 thisform.text3.Value=tk18_dz.籍贯 ELSE MESSAGEBOX("查无此人 查无此人") MESSAGEBOX("查无此人") ENDIF 【40】 表单tk09.scx实现的功能是设置文字的颜色,表单运行效果图如下: 】 表单tk09.scx实现的功能是设置文字的颜色,表单运行效果图如下: tk09.scx实现的功能是设置文字的颜色
陆
编写程序实现以下功能: 编写程序实现以下功能: 单击命令按钮“设置文字颜色 设置文字颜色”时 设置标签的文字颜色为随机产生的颜色 文字颜色为随机产生的颜色。 单击命令按钮 设置文字颜色 时,设置标签的文字颜色为随机产生的颜色。 在Command1的Click事件中写如下程序: Command1的Click事件中写如下程序: 事件中写如下程序 r=INT(RAND()*256) g=INT(RAND()*256) b=INT(RAND()*256) thisform.label1.ForeColor=RGB(r,g,b) &;&;说明,rand()函数的返回值是0 之间的数。rand()乘以256再取整就能产生 &;&;说明,rand()函数的返回值是0~1之间的数。rand()乘以256再取整就能产生 说明 函数的返回值是 乘以256 255之间的数 之间的数。 0~255之间的数。 tk24.scx, 【40】 本题素材为考生文件夹下的tk24.scx,表单包括1个标签、1个命令按钮 】 本题素材为考生文件夹下的tk24.scx 表单包括1个标签、 个计时器控件。表单运行效果如下图所示: 和1个计时器控件。表单运行效果如下图所示:
该表单的功能是文字从右向左移动,要求:标签Label1每隔1 该表单的功能是文字从右向左移动,要求:标签Label1每隔1秒自动从右向左移 功能是文字从右向左移动 Label1每隔 个像素单位,移到窗口左边界时标签回到窗口右边重新向左移动; 动5个像素单位,移到窗口左边界时标签回到窗口右边重新向左移动;单击命令 按钮“退出 可释放该表单。 退出”可释放该表单 按钮 退出 可释放该表单。
柒
编写程序实现上述功能。 编写程序实现上述功能。 在属性窗口设置Timer1的Interval为100。(2 在属性窗口设置Timer1的Interval为100。(2分) Timer1 。( 在对象Timer1的Timer事件过程中编写以下程序:(10分 在对象Timer1的Timer事件过程中编写以下程序:(10分) Timer1 事件过程中编写以下程序 IF thisform.label1.Left
>0 thisform.label1.Left=thisform.label1.Leftthisform.label1.Left=thisform.label1.Left-5 ELSE thisform.label1.Left=thisform.Width thisform.label1.Left=thisform.Width ENDIF 在对象Command1的Click事件过程中编写以下程序:(3分 在