大家好!我是一位刚接触电脑的新手(一些正常的开关机还是会的),请问一下怎么去学软件,学软件要从什么开始,我需要怎么做。我对软件还是不太认识,听别人说学软件的人都是高智商的天才,所以我要挑一下我是否有这个智商,请前辈们教教小弟,多谢了。。。
来源:http://www.mzvfp.com/read.php?tid=55600&page=3
作者:陈家驹
?gcd(15,21)
?gcd(125,25)
Function GCD(X, Y)
If X < 0
X = -x && 欧拉算法
Endif
If Y < 0
Y = -Y && 返回 X 和 Y 的 GCD
Endif
If X = 0 Or Y = 0
? "GCD...
* VFP9.0 CODE
Create Cursor Tt (Kh C(3))
Insert Into Tt Values ("001")
Insert Into Tt Values ("001")
Insert Into Tt Values ("002")
Insert Into Tt Values ("003")
Insert Into Tt Values ("001")
Insert Into Tt Values ("003")
Insert Into Tt Values ("002")
Insert Into Tt Values ("001"...
loWord = Createobject("word.application")
loWord.Documents.Open('c:\1.doc')
?loWord.ActiveDocument.ComputeStatistics(1) &&总行数
第一项:(1/3)-(1/3)*(2/5)
第二项:(1/3)*(2/5)*(3/7)-(1/3)*(2/5)*(3/7)*(4/9)
第三项:(1/3)*(2/5)*(3/7)*(4/9)*(5/11)-(1/3)*(2/5)*(3/7)*(4/9)*(5/11)*(6/13)
第四项:(1/3)*(2/5)*(3/7)*(4/9)*(5/11)*(6/13)*(7/15)-(1/3)*(2/5)*(3/7)*(4/9)*(5/11)*(6/13)*(7/15)*(8/17)
上面数列的特征:分子等差为1,分母等差为2,分母为2倍的分子加1,“-“前、后相邻两项之间,最后...
CLEAR
DO WHILE .T.
INPUT "请输入11-1000000之间的任意数:" TO N
IF N>10^6 OR N<11
MESSAGEBOX("数字超出范围,请重新输入!")
LOOP
ELSE
EXIT
ENDIF
ENDDO
S=2+3+5+7
C=4
FOR LNI=11 TO N
X=LNI
Y=0
DO WHILE X!=0
Y=X%10+Y*10
X=INT(X/10)
ENDDO
IF Y=...
做过留恋,这是个好网站
启用重复输入:
defaults write -g ApplePressAndHoldEnabled -bool FALSE
关闭重复输入:
defaults delete -g ApplePressAndHoldEnabled
有这么一个数值型数据
Num=2015.02
转换为日期型数据:2015-02-01
Set Date Ansi
Set Century ON
Set Mark To "-"
? Date(Int(Num),(Num-Int(Num))*100,1)
? Date(Int(Num),mod(Num*100,100),1)
来源:http://bbs.bccn.net/thread-440412-2-1.html
MyWord=CreateObject('Word.Application')
MyWord.Visible=.T.
MyWord.Documents.Open ('e:\xin\笑话\爆笑答案.doc')
aaa=MyWord.ActiveWindow.ActivePane.Pages.Count
?aaa
来源:http://bbs.bccn.net/viewthread.php?tid=432056&extra=&highlight=word&page=3
oWord = CREATEOBJECT('Word.Application') && 建立 WORD 对象
oWord.Documents.Open('d:\file.doc') && 打开 d:\file.doc
oWord.PrintOut(,,4,,,,,1,"1-3,5") &&...
作者:自由之风
Clear
objWMIService = Getobject("winmgmts:\\.\root\CIMV2")
colItems = objWMIService.ExecQuery("SELECT * FROM Win32_VideoController",,48)
For Each ye In colItems
?"型 号: "+ ye.VideoProcessor
?"厂 商: "+ye.AdapterCompatibility
?"名 称: "+ ye.Name
?"状 态: "+ y...
作者:十豆三
*--文本文件的编码格式手动查看方法:
*--用记事本打开文本后,点击菜单上的“另存为”,编码格式在出现的对话框下方。
*--那用VFP如何取得文本文件的编码格式呢,如下:
lcFileName='C:/A.txt' &&文本文件名
lcStr=Filetostr(lcFileName)
lcStrType=Createbinary(Substr(lcStr,1,2))
Do Case
Case lcStrType=0hEFBB &&VFP6.0不支持此种方式,此实列是在VFP9....
方法一(VFP方法)
Clear
cStr=Strtran(Filetostr("demon.txt"),0h0d0a,"|")
Do While "||"$cStr
cStr=Strtran(cStr,"||","|")
Enddo
=Strtofile(Strtran(Substr(cStr,2),"|",0h0d0a),"demon1.txt")
方法二(正则表达式方法)
clear
local Reg, cStr
Reg = CreateObject("VBScript.RegExp")
c...
默认安装的dotenv-rails的版本是2.0.1,运行时出现错误:
/Users/gs/.rvm/gems/ruby-2.2.1@rails420/gems/railties-4.2.0/lib/rails/railtie/configuration.rb:95:in `method_missing': undefined method `eager_load_paths' for #<Rails::Railtie::Configuration:0x007fb329e66660> (NoMethodError)
from /Users/gs...
线性表链式存储的应用
由于链表是一种动态存储管理的结构,链表中每个结点占用的存储空间不需预先分配划定,而是在运行时刻由系统应需求即时生成,因此,建立链表的过程是一个动态生成的过程。即从 "空表"起,依次建立结点,并逐个插入链表。所谓"逆序"创建链表指的是,依和线性表的逻辑顺序相"逆"的次序输入元素。
由于链表的生成是从最后一个结点起逐个插入,因此每个新生成的结点都是插入在链表的"第一个"结点之前,即头结点之后,使新插入的结点成为插入之后的链表中的第一个结点。
1、假设线性表( ,,…, )的数据元素存储...
主要是加入一些功能 修改Kconfig 再 make menuconfig 选中要加入发的功能。
编写程序生成相应的可执行文件,注意其权限 chmod
编译内核 make
烧录
碰到一个让我心动的女孩儿 好像跟她结婚 疼她 爱她 睡她 平心而论 确实漂亮
女神级别的。
进入bbcn第一天,希望自己在以后能多在这里吸取知识,解己之惑。
obj=CREATEOBJECT("MSComDlg.CommonDialog.1")
obj.Flags = 524288 + 512 + 4
obj.filter = "文件类型(*.TXT)|*.TXT"
obj.FileName = "D:\"+"请选择升级文件 (可以拖动鼠标多选)"
obj.maxFileSize=10000
obj.ShowOpen()
self=obj.FileName+CHR(0)
?self
程序只有一个表单,但是在主程序中加入_screen.visible=.F.编译运行后,程序得不到焦点,必需用鼠标点击后,才能得到焦点,如何解决?
在Form1.ActiVate事件中加入
DECLARE Long SetActiveWindow IN WIN32API Long hWnd
SetActiveWindow( thisform.HWnd )
必须在有窗口句柄属性的VFP版本中才能使用该代码