资源描述：
《省考vf上机及答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、模拟试题245gc245.scx的功能是：设计一个窗口，日历牌每10秒显示一次，每次显示10秒；系统时间的数字式表每秒显示一次新的时间。要求：①设置计时器Timer1和Timer2的属性②在编写的二个过程代码Timer1_Timer(),Timer2_Timer()中各有一个错误，请调试改正。调试改正中，每个过程代码只能改一处，并不得增删语句tk245.scx的功能是：当按下“求和”按钮时，计算S=1**2+（1**2+2**2）+（1**2+2**2+3**2）+…（1**2+2**2+3**2+…+10**2）。请在该程序空白(1)、(2)处，将其补充完整，以便得
2、到正确答案，但不得增删原语句。**Command1的Click事件如下：SETTALKOFFTOT=0FORN=1TO10T=0M=1DOWHILEM<=NT=t+(1)M=M+1ENDDOTOT=TOT+TENDFOR?'S=',(2)SETTALKONRETURN模拟试题291gc291.scx的功能是:设计一个窗口,输入一个整数,按下"判断"按钮.若为素数,则显示"该数是一个素数",否则显示"该数不是一个素数".要求:(1)设置label2和label3的属性,使其开始运行时不可见.(2)在command1_click()的过程代码中有两处错误,请调试改正.TK
3、291.scx的功能是:设表文件WK.DBF的编号字段名为BH,类型为数值型,宽度为3,单击"处理"按钮实现:把BH每一位相加是奇数的记录存放到WK1.DBF文件中，并要求按照BH从大到小排序。请在该程序空白(1)、(2)处，将其补充完整，以便得到正确答案，但不得增删原语句。**Command1的Click事件如下：USEWKSORTTOWK1ONBH/DUSEWK1DOWHILE.NOT.EOF()N1=INT(BH/100)N2=INT((BH-100*N1)/10)N3=MOD(BH,10)IFMOD((1),2)=0DELETEENDIF(2)ENDDOPAC
4、KLIST模拟试题292已知表文件stud.dbf,包括学号(c,6),姓名(c,8),性别(c,1),系科(c,12),当前表中无记录。gc292.scx的功能是:实现对表stud.dbf的记录输入。其中：“追加”按钮：单击追加一条新记录；“上一条”按钮：单击显示上一条记录；“下一条”按钮：单击显示下一条记录；“退出”按钮：单击录入窗口。要求:(1)设置Combo1的属性,使得性别中只能输入“M”和“F”；(2)在command2_click()和command3_click()的过程代码中有各有一处错误,请调试改正。TK292.scx的功能是,单击"计算"按钮实现
5、求自然对数底E，要求误差小于1e-6,计算公式为：E=1+1/1！+1/2！+1/3！+...请在该程序空白(1)、(2)处，将其补充完整，以便得到正确答案，但不得增删原语句。**Command1的Click的事件如下：s=1p=1i=1setdecimalto10dowhile(1)p=p/is=s+pi=i+1enddothisform.text1.value=(2)thisform.refresh模拟试题293gc293.scx的功能是：该表单运行时自动处于最大化状态，窗口内有一个标签和一个计时器控件，标签“欢迎使用本上机测试系统”为从右向左移动的字幕，移动时间
6、间隔为100毫秒。要求：(1)设置表单Form1和计时器Timer1的属性；(2)在编写的过程代码Timer1_Timer()中有二个错误，请调试改正，并不得增删语句。tk293.SCX的功能是：该表单中设有一个文本框，一个标签和一个命令按钮。在文本框中输入数字（'0'~'6'），可在标签中用中文和英文同时显示星期几，单击命令按钮，可释放该表单。请在文本框KeyPress事件的空白(1)、(2)处，填上适当的代码，将其补充完整，以便得到正确答案，但不得增删原语句。**Text1的KeyPress的事件代码如下：LPARAMETERSnKeyCode,nShiftAlt
7、CtrlIFnKeyCode=13n=(1)DOCASECASEN='1'M="星期一（Monday）"CASEN='2'M="星期二（Tuesday）"CASEN='3'M="星期三（Wednesday）"CASEN='4'M="星期四（Thursday）"CASEN='5'M="星期五（Friday）"CASEN='6'M="星期六（Saturday）"CASEN='7'M="星期天（Sunday）"OTHERWISEM="重新输入！"ENDCASETHISFORM.Label1.Caption=(2)ENDIFTHISFORM.Text1.Se
