欢迎来到天天文库
浏览记录
ID:37898373
大小:19.50 KB
页数:4页
时间:2019-06-02
《VF考试整理题目》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、删除小写(若为大写改下ASC即可)s=thisform.text1.valuelength=len(s)strg=""fori=1tolengthstep1ifasc(substr(s,i,1))<97orasc(substr(s,i,1))>122strg=strg+hendifendforthisform.text2.value=strgthisform.refresh职工号,姓名,月工资。,税额zgh=thisform.combo1.valueselectpinfo.职工名,pinfo.月收入;frompinfo;where职工号=zgh;
2、intoarrayxthisform.text1.value=x(1)thisform.text2.value=x(2)ifthisform.text2.value>0andthisform.text2.value<=3500thisfom.text3.value="免税"endififthisform.text2.value>35000andthisform.text2.value<=6000thisfom.text3.value=(thisform.text2.value-3500)*0.1endififthisform.text2.valu
3、e>6000thisfom.text3.value=(thisform.text2.value-6000)*0.2endifthisform.refresh因子数n=val(thisform.text1.value)s=""fori=1tonstep1ifn%i=0s=s+str(i)+""endifendforthisform.text2.value=sthisform.refresh那用电量的 FH=alltrim(thisform.combo1.value) select用电量from表名where房号=FHintoarrayathisf
4、orm.text1.value=a(1)ifa(1)>0anda(1)<=200df=a(1)*0.65elsedf=a(1)*0.95endifthisform.text2.value=dfthisform.refresh(1)创建一个空表单(2)添加数据环境(3)添加控件:一个标签、一个文本框和一个计时器(4)设置属性:Label1的caption为秒,Backstyle透明Timer1的interval为1000Text1的value为0(5)编写事件:由于时间是一般来说是一秒一秒再变化,所以事件是写在timer1的timer事件中This
5、form.Text1.Value=Thisform.Text1.Value+1Thisform.REFRESH(6)保存运行 这是时钟的 打开表单文件303.scx,,设置计时器的Interval为1000。然后完成如下功能:单击“开始”按钮,计时器被激活,文本框的值从0开始每个1秒自动增加1;并且自动改变图像Image1的边框颜色,当文本框的值为奇数时,图像Image1的边框颜色为红色,当文本框的值为奇数时,图像Image1的边框颜色为蓝色。“开始“的click事件代码: Thisform.text1.value=0 thisform.tim
6、er1.enabled=.t. “TIMER1”的TIMER事件代码: thisform.text1.value=thisform.text1.value+ifthisform.text1.value%2=0thisform.image1.bordercolor=rgb(255,0,0)elsethisform.image1.bordercolor=rgb(0,0,255)endifthisform.refresh 打开表单js4.scx,运行界面如上图。运行时,在选项按钮组,选择一个选项,单击“计算”按钮,则在文本框显示其相对应的结果。在“计
7、算”命令按纽的Click事件编写如下代码:ch=thisform.optiongroup1.value'(被11,7整除)docasecasech=1s=0fori=100to200ifi%7=0s=s+1endifendforthisform.text1.value=scasech=2sum=0fori=100to200ifi%11=0sum=sum+iendifendforthisform.text1.value=sumendcase1)单击命令按钮Command1(红色背景),则标签Label1的背景颜色改变为红色,标题改变为“红色背景颜色
8、”;2)单击命令按钮Command2(绿色背景),则标签Label1的背景颜色改变为绿色,标题改变为“绿色背景颜色”;3)单击命令按钮C
此文档下载收益归作者所有