用VF编写一个程序：输入密码“AAA”，输入三次错误退出！
直接比较，也就是
Console.WriteLine("输入密码:");if("888888"==Console.ReadLine()) Console.WriteLine("正确");else Console.WriteLine("错误");Console.ReadKey();
USE 仓库零配件数据表.DBF
FN=0
do while fn<3
ACCEPT "请输入系统密码（加回车）：" TO HM
IF HMHAAA
?
? "密码不正确，还有"+allt(str(2-fn))+"次机会。"
ENDIF
fn=fn+1
enddo
if fn>2
?
? "密码不正确，即将退出。"
RETU
endif
clea
pas=space(3)
a=0
do while .t.
@4,4 say '输入密码:' get pas
read
if uppe(pas)='AAA'
clea
@6,4 say '欢迎!'
wait
retu
else
a=a+1
if a=3
@8,4 say '连续三次错误,退出系统!'
retu
endif
@6,4 say '密码错误,重新输入'
endif
enddo
vf设计程序s=1+(1+2) + (1+2+3) + … + (1+2+3+… +n)输入n值,计算s值...
a1=VAL(thisform.text1.Value)a2=0 a4=0 A5=0 a3=0 FOR a3=1 TO a1 STEP 1 a2=a3 A4=A2+A4 A5=A4+A5 ENDFOR thisform.text2.Value=A5 THISFORM.Refresh 主程序就这个样了，你新建一个表单，你在command按钮里面放上这个，建2个文本框，1号框输入，2号框显示结果。VFP9.0调试过关。
请用vf编一个简单的程序,比如机场航班信息查询或者考试成绩查询之类的...
set talk off CLEAR USE 机场信息表.dbf go top LOCATE for 航班号="zh0001"IF .not. found()messagebox( "没有这个航班！" )ELSE DO WHILE .NOT.EOF()? "航班："+str(航班号)continue display ENDDO endif set talk on 仅作参考。
怎样用VFP编写一个比较五个数大小的程序
cc)INSERT INTO temp (num) VALUES (dd)INSERT INTO temp (num) VALUES (ee)SELECT MAX(num) as max_num FROM temp INTO CURSOR tmp maxnum = tmp.max_num USE SELECT temp USE DELETE FILE temp.dbf RETURN maxnum ENDFUNC 当然，这样写纯粹是为了写vf程序，还可以使用冒泡法等算法实现 ...
怎么用VF编一个关于用户名和密码的程序?
use 密码表 a=Thisform.text1.value b=Thisform.text2.value if a==""n=messagebox("请输入用户名",4+32,"学生管理系统登陆")do case case n=6 thisform.text1.value=""thisform.text1.setfocus case n=7 thisform.release endcase else if b==""n=messagebox("请输入密码",4+32,"学生...
用VF编个程序!
clear set talk off m=0 dimen a(10)for i=1 to 10 input "请输入逻辑真或假："to a(i)if a(i)=.t.m=m+1 endif endfor ?"一共输入了:",m,"个逻辑真"set talk on
求助:谁能帮我编写一个VF8.0的小程序
5.上下翻代码书上翻 6.至于写进表里么，首先，判断表内是否有这个学生，如果没有，那么用replace with命令把各个文本筐内的value写进去表里，如replace 成绩 with alltrim(thisform.txt成绩.value) ，这里假设成绩为字符型字段。7.查询的话，use 表 go top locate for 学号=一个变量或者从text1里...
vfp编写一个简单的程序
set talk off clear dime a[30]a[1]=1 a[2]=1 for i=3 to 30 a[i]=a[i-1]+a[i-2]endfor ?a[30]set talk on cancel 很久没有搞VF了，不知道源程序对不对算法思想还是这样的，我VF还是三年前过前的，以前的编程基础很好，不过对VF的语法不是很记得了！上面程序如果对格式有误你...
...输出6个数,从数字1-16中随机输出1个数,用VF怎么编程序?
以下是6个1-35的随机数 clea for i=1 to 6 ? int(rand()*(35-1)+1)endfor 以下是1个1-16的随机数 ? int(rand()*(16-1)+1)如果用来买彩票，1-35的随机数中可能产生重号，当然有另外的解决办法 下面是改正程序：以下是6个1-35的无重号的随机数 clea a=int(rand()*(35-1)+1...
极其简单的VF数据库编程
1,input "请输入学号：" to a select 姓名，avg（成绩）as 平均成绩 from 选课表 where 学号=a to screen 2，set talk off clear s=0 for i=1to 5 t=1 do b s=s+t ?s endfor ?"1！+2！+3！+4！+5！="+alltr(str(s))set talk on procedure b for p=1to i t=t*p en...
vf程序设计 ,求大神指点。包括确定,清除按钮的事件编写。 谢过大神!
n=0 x=thisform.text1.value if x=visual foxpro 6.0 thisform.label2.caption="密码正确"else n=n+1 endif if n=3 thisform.label2.caption="密码输入错误，请退出"endif 3.清除的命令按钮输入程序：thisform.text1.value=.null.注：如果不行的话，注意修改属性 4.退出的命令就不写了吧 总...
市心保儿： use 密码表a=Thisform.text1.valueb=Thisform.text2.valueif a==＂＂n=messagebox(＂请输入用户名＂,4+32,＂学生管理系统登陆＂)do casecase n=6thisform.text1.value=＂＂thisform.text1.setfocuscase n=7thisform.releaseendcaseelseif b==...
玉田县19473022699： 用VF编写程序,运行时接收用户键盘输入的两个任意正整数a和b,计算a与b之间所有整数(包括ab)之和并显示出来? - ？
市心保儿： Clear input ＂第一个数＂ to aa input ＂第二个数＂ to bb aaa = Max(aa,bb) bbb = aa + bb - aaa s = 0 For i = bbb To aaas = s + i Next ? s
玉田县19473022699： 请大家帮助我用VF写一个程序 - ？
市心保儿： 【注:】我这个是文件最少的了, 只城要一个文件就行了, 如果是交作业, 直接把 SET SAFE OFF后面的复制去就行了. 我做了个代码, 全自动完成你说的所有功能, 另存为AA.PRG, 直接 DO AA, 产生一个表, 写入3条记录, 并总出平均...
玉田县19473022699： vfp编写程序:请输入一个整数n,求出该数的各位数字之和. - ？
市心保儿： 你好!aa=23425 Local bb,cc,numberlen cc=[] bb=Allt(Str(aa)) numberlen=Len(bb) For i=1 To numberlen cc=cc+[+]+Subs(bb,i,1) Endf cc=Subs(cc,2)? &cc.我的回答你还满意吗~~
玉田县19473022699： 请用VF编写下面这个程序!？
市心保儿： 温习了下VF,你看下希望对你有帮助. MODIFY COMMAND a PARAMETERS a,b a = 0.00005 b = 0 Do While a <= 8848 a = a * 2 b = b + 1 ENDDO ?b
玉田县19473022699： 用VF编写一个程序 - ？
市心保儿： bming=space(6) @5,10 say ＂请输入要打开的表名:＂ get bming read use &bming browse
玉田县19473022699： vf编程题 设计一个登陆窗口 - ？
市心保儿： a=thisform.text1.valueb=thisform.text2.valuelocate for 用户名=aif found() if b=＂123＂ &&123为密码 messagebox(登陆成功!欢迎使用本程序) else messagebox(密码错误...
玉田县19473022699： 1/1!+1/3!+1/5!+.+1/(2*n - 1)!怎么用VF编写程序 - ？
市心保儿：[答案] clear s=0 input ＂请输入N的值:＂ to n for i=1 to n k=2*i-1 r=1 for j=1 to k r=r*j endfor p=1/r s=s+p endfor ?＂1/1!+1/3!+1/5!+.+1/(2*n-1)!=＂,s
玉田县19473022699： 用VF编辑一个小程序,如何设置界面用户名和密码 - ？
市心保儿： Public Function findOlder(intBirthday As Long) As Boolean If intBirthday > Cells(ActiveCell.Row, 5).Value Then findOlder = True Else findOlder = False End If End Function 上面这样写就可以了.也就是说,只需要给这个函数名赋值就可以了,VBA函数返回值是通过函数名来操作的.GoodLuck! 请参考
玉田县19473022699： 用VF设计了一个登陆界面,学号和密码我都存在了“学号和密码.dbf”里了,怎么编代码?？
市心保儿： 表要放在表单的数据环境中,然后代码如下: sele 学号和密码 t1=alltrim(thisform.text1.value) t2=alltrim(thisform.text2.value) loca for alltrim(学号)==t1 if found() if alltrim(密码)==t2 messagebox(＂登陆成功!＂,48,＂登陆＂) do form 下一...
