让文本框保持光标不离开

PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Height = 20, ; Left = 72, ; Top =...
文本框(TextBox) | 2015-11-30 09:46 | 1280次阅读 | 0评

数据表中不固定字段(数值型)的行合计计算方法

* 测试表 CREATE CURSOR T (BH C(4),B1 N(4),B2 N(4),B3 N(4),B4 N(4)) INSERT INTO T VALUES ([0001],1200,1000,800,600) INSERT INTO T VALUES ([0002],1100,900,700,500) INSERT INTO T VALUES ([0003],1900,1700,1500,1300) SELECT *,000000 小计 FROM T INTO CURSOR TEMP READ...
数据表问题 | 2015-11-29 18:19 | 1076次阅读 | 0评

列出1-N之间的所有完数

clear for i=1 to 100 k=0 cstr="" for j=1 to i-1 if i % j=0 k=k+j cstr = cstr+alltrim(str(j))+"," endif endfor if k=i ?str(i) +" 完数 :" +left(cstr,len(cstr)-1) endif endfor
算法 | 2015-11-24 10:38 | 903次阅读 | 0评

语音

oSpeech = CreateObject("SAPI.SpVoice") &&连接到系统的语音功能 sWord='中华人民共和国'&&被阅读的字串 oSpeech.Speak(sWord) &&让系统读出字符串里的内容 oSpeech=NULL &&阅读完毕
其它问题 | 2015-11-20 16:06 | 1248次阅读 | 0评

杨辉三角

clear input "输入行数:"  to n  dime a(n,n)  for i=1 to n      ?space((n-i)/2*5)       for j=1 to i          if j=1 or i=j                a(i,j)=1&nbsp...
算法 | 2015-11-20 02:40 | 1534次阅读 | 0评

提取字符串中的数字并求出平均值

clear cstr="abc32skfkj262ksf8k99kfsk24kf" cstr1="" ncount=0 nsum=0 ok=.f. for i=1 to len(cstr) a=substr(cstr,i,1) if isdigit(a)=.t. cstr1=cstr1+a ok=.t. else if ok=.t. nsum=nsum+val(cstr1) ...
浏览172835次
最新评论