发布时间 : 星期五 文章计算机二级VFP上机模拟考试题更新完毕开始阅读82be9a4e767f5acfa1c7cdac
s=s+p i=i+1 enddo thisform.text1.value=( 2 ) thisform.refresh 第四套：
试题一 属性设置及程序改错题（20分）
gc293.scx的功能是：该表单运行时自动处于最大化状态，窗口内有一个标签和一个计时器控件，标签“欢迎使用本上机测试系统”为从右向左移动的字幕，移动时间间隔为100毫秒。要求： (1)设置表单Form1和计时器Timer1的属性；
(2)在编写的过程代码Timer1_Timer()中有二个错误，请调试改正，
并不得增删语句。
Timer1的timer过程代码如下： IF THISFORM.Label1.Left + THISFORM.Label1.Width < 0 THISFORM.Label1.Caption = THISFORM.Width ELSE THISFORM.Label1.Left = THISFORM.Label1.Left + 10 ENDIF
试题二 程序填空题（20分）
tk293.SCX的功能是：该表单中设有一个文本框，一个标签和一个命令按钮。在文本框中输入数字（'0'~'6'），可在标签中用中文和英文同时显示星期几，单击命令按钮，可释放该表单。
请在文本框KeyPress事件的空白(1)、(2)处，填上适当的代码，将其补充完整，以便得到正确答案，但不得增删原语句。 Text1的KeyPress过程代码如下： LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode=13 n = (1) DO CASE CASE N='1' M=\星期一（Monday）\ CASE N='2' M=\星期二（Tuesday）\ CASE N='3' M=\星期三（Wednesday）\ CASE N='4' M=\星期四（Thursday）\ CASE N='5' M=\星期五（Friday）\ CASE N='6' M=\星期六（Saturday）\ CASE N='7' M=\星期天（Sunday）\ OTHERWISE M=\重新输入！\ ENDCASE THISFORM.Label1.Caption= (2) ENDIF THISFORM.Text1.SelStart=0 THISFORM.Text1.SelLength=LEN(THISFORM.Text1.Text) 第五套：
试题一 属性设置及程序改错题（20分）
gc314.scx的功能是：该表单运行时位居Visual FoxPro主窗口的正中，在编辑框中输出从100开始被3、5、7除余数均为1的10个数。该表单有两个命令按钮command1“开始计算”、command2“清空编辑框”和一个编辑框Edit1。点击“开始计算”，开始求满足条件的数，将满足条件的数输出到编辑框中，每输出一个换一行。要求：
(1)设置表单Form1和命令按钮command1的属性；
(2)在command1的click事件代码中有两个错误，请调试改正，并
不得增删语句。
Command1的click过程代码如下： i=100 num=0 do while num<=10 if (i % 3 = 1) .and. (i % 5 = 1) and (i % 7 = 1) HISFORM.Edit1=THISFORM.Edit1.Value+STR(i,5)+CHR(13)+chr(10) num=num+1 ENDIF i=i+1 ENDd 试题二 程序填空题（20分）
tk314.scx的功能是：该表单以5号字体显示“预祝大家通过考试!”字样，然后不停地递增放大该字体，当达到35号字体时，又恢复成最初状态；单击命令按钮，可释放该表单。
请在计时器Timer1的过程代码Timer1.Timer()的空白(1)、(2)处，填上适当的代码，将其补充完整，以便得到正确答案，但不得增删原语句。 Timer1的timer过程代码如下： i = i + 1 If i > 35 i = (1) endif (2)=i thisform.refresh 第六套：
试题一 属性设置及程序改错题:属性设置(4分*2题=8分),程序改错(6分*2题=12分),计20分.
表单gc337的功能是：设计一个表单，当单击增加按钮Command1时将文本框Text1中的内容增加到列表框List1中,当单击删除按钮
Command2时将List1中所选中的项目删除。开始时表单的标题为“二级考试上机”,Text1中字体为20号。 具体要求：
①设置表单Form1和文本框Text1的属性。
②为完成以上操作,Command1和Command2的过程代码中各有一处错误，请调试改正。调试改正中，每个过程代码只能改一处，并不得增删语句。 Command1的click过程代码如下： thisform.list1.additem(text1.value) thisform.text1.value=\Command2的click过程代码如下： num=thisform.list1 thisform.list1.removeitem(num) thisform.list1.refresh 试题二 程序填空题:(10分*2=20分),计20分
表单tk337的功能是：当按下显示按钮时，在屏幕上显示如下图形：
1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 ??
其中显示的行数(小于10)由文本框Text1输入。该程序不完整，请补充空白（1）、（2）处，以便能得到正确答案，但不得增删原语句。 “显示”按钮的Click事件代码如下： Dime a(40) store 0 to a store 0 to i,j num=(1) For i = 1 To num a(1) = 1