求VF编写小程序a,b,c执行交换a最大b其次c最小
新建一个程序（文件菜单——新建——程序——新建文件），写代码： input "请输入a的值 : " to a input "请输入b的值 : " to b input "请输入c的值 : " to c if b>a t=a a=b b=t endif if c>a t=a a=c c=t endif if c>b t=c c=b b=t endi ? "交换后a,b,c...
vf小程序编写
clear input "请输入会员积分：" to jf do case case jf>=90 ?"一级会员"case jf>=75 and jf<=89 ?"二级会员"case jf>=60 and jf<=74 ?"三级会员"case kf<60 ?"非会员"endcase
找会VF的朋友写一个小程序!
set talk off s=0 i=2 do while i<=8 j=1 p=1 do while j<=i p=p*j j=j+1 enddo s=s+p i=i+3 enddo ?s set talk on 呵呵，已经经过测试了，绝对正确！
vf 编个小程序,我想在上边三个框中输入数值,点击运算后,在料长框中显 ...
thisform.text4.Value = 2*(thisform.text2.value-thisform.text3.value) + 3.1415926535*(thisform.text1.value+thisform.text3.value)
跪求大虾给通过vf表单编个小程序
没看明白
如何用vf编钱数转换程序
还有一个：FUNCTION rmbupper()lParameters mmje &&输入变量：数字型，小于9万亿,大于-9万亿 Private dx,aa,i dx=Iif(mmje<0,'负','')aa=Round(Abs(mmje)*100,0)For i=Len(Alltrim(Str(aa,15)))-1 To 0 Step -1 dx=dx+Subs('零壹贰叁肆伍陆柒捌玖',Int(Round(aa\/10^i,10))...
用VF做个小程序
在表单里的画一个文本框:text1 画一个按钮的command1 表单数据环境中加入hetong.dbf command1的click事件如下：sele hetong &&选择原数据表 select * from hetong where 劳动合同号=allt(thisform.text1.value);order by 姓名 into cursor temp &&将输入的合同号在表中寻找结果存入到临时表中,并以...
求教:关于VF的一个小程序
已录取学生的记录表看作LC表．那么你可以用一句SQL命令查询：sele * from xs wher 学号 not in;(sele 学号 from LC）或者 sele * from xs wher not exists;(sele * from lc wher 学号=xs.wb.学号)屏幕则会显示出未录取学生的记录，查询窗口与浏览表窗口是一样的．...
VF中关于数字打印的问题??编小程序
输出位置问题 改为：clear for i=1 to 5 for j=1 to i i,-j+10 say str(i)next next 说明:@i,-j+10 say str(i)
vf抽奖小程序
以1到100个座位号来编吧 按钮command1的caption首先设为"开始"文本框text1 再画一个时间控制器timer1 设置属性:interval值为2 enable值为.f.双击timer1,并在time事件中输入如下代码:thisform.text1.value=int(rand()*100) &&产生100内的随机值 thisform.text1.refresh &&刷新文本框 command1的...
