vfp程序设计

一。

s=1

FOR I=1 TO 50

S=SI

ENDFOR

"S=",S

二。

s=0

FOR I=1 TO 100

S=S+I

ENDFOR

"S=",S

三。1。

for i=1 to 6

space(7-i)

for j=1 to 2i-1

"△"

endfor

endfor

三。2

s=0

FOR I=0 TO 100 STEP 2

S=S+I

ENDFOR

"S=",S

四。

for i=1 to 6

？

for j=1 to 2i-1

"★"

endfor

endfor

1E-R图是E-R模型的图形表示法，它是表示概念数据模型的有力工具。在E-R模型中有3个基本的概念，即实体、联系和___属性 __，在E-R图中它们分别用矩形框和椭圆行框来表示。

2在VFP中，用户可以利用命令来修改系统的 *** 作环境（如默认工作目录等），也可以通过菜单命令打开__选项______对话框进行设置。

3在VFP中，与表 *** 作相关的系统函数有多个，例如EOF（）、BOF（）、USED（）等。用于返回当前选定工作区中已打开表的字段数目的函数是__FCOUNT（）___。

4目前用户通常是在 *** 作系统环境下（如在“我的电脑”或“资源管理器”窗口中）创建和删除文件夹。在VFP中，也可以使用MD命令和___RD_____命令来创建新文件夹和删除已建文件夹。

5下列程序段中的后三条命令，可用一条功能等价的命令来实现，这条命令是___USE cj IN 0____。

SET TALK OFF

SELECT 1

USE xs

SELECT 0

USE cj

SELECT xs

6在VFP中，系统规定：除了自由表的字段名、表的索引标识名至多只能有___10____个字符以外，其余名称的长度可以长达100多个字符。

7答案是 “-”

9答案"quit"

21答案为 A ,W20

23 zap

24 答案为“cdx"

菱形就拆分为两个正三角型就可以啊!一个依次叠加，到最大那个边，另一个从最大减一再依次叠减，就好了啊！你可以先用一个来设定边数，就好想啊！我有vfp的源代码，你要说声，我发上来，你参考下就好啊！

2

clear

for x=1 to 100 step 2

y=int(sqrt(x))

for i=2 to y

if mod(x,i)=0

exit

endif

endfor

if i>y

x

endif

endfor

3

clear

set talk off

input "请输入成绩(0-100):" to x

do case

case x<60

"不及格！"

case x<=69

"及格"

case x<=79

"中"

case x<=89

"良"

case x<=100

"优"

endcase

set talk on

4

clear

set talk off

s=0

input "请输入一个奇数n:" to n

for i=1 to n step 2

s=s+i

endfor

"1+2++n="+alltrim(str(s))

set talk on

SET TALK OFF

CLEAR

FOR i=1 TO 9

s=''

IF i<=5

FOR j=1 TO 2i-1

s=s+""

ENDFOR

ELSE

FOR j=19-2i TO 1 STEP -1

s=s+""

ENDFOR

ENDIF

s

ENDFOR

上面的程序是全靠左边显示

SET TALK OFF

CLEAR

FOR i=1 TO 9

s=''

IF i<=5

FOR j=1 TO 2i-1

s=s+""

ENDFOR

s=SPACE(5-i)+s

ELSE

FOR j=19-2i TO 1 STEP -1

s=s+""

ENDFOR

s=SPACE(i-5)+s

ENDIF

s

ENDFOR

上面是居中显示

2、clear

"1到100之内的所有素数："

s=0

for i=2 to 100

x=0

for j=2 to i-1

if i/j=int(i/j)

x=1

endif

endfor

if x=0

alltrim(str(i))+space(2)

s=s+i

endif

endfor

"它们的和是：",s

3、clear

"1到1000之间所有奇数的和:"

s=0

for i=1 to 1000

if mod(i,2)<>0

s=s+i

endif

endfor

s

4、command1的click代码：

if ALLTRIM(thisformtext1value)="12345"andalltrim(thisformtext2value)="abcd"

messagebox("欢迎进入QQ世界")

else

messagebox("你的用户名或密码是错误的!")

endif

5、1）select from STUDENT where 入学成绩>500

2)select 学号,姓名,专业信息 from STUDENT where substr(alltrim(姓名),1,2)="李"

3)count for 性别="女" to mm

6、CLEAR

SET UDFPARMS TO REFERENCE &&地址传递

DIME AAA(10)

FOR i= 1 TO 10

input "请输入第"+ALLTRIM(STR(i))+"个数：" to AAA(i)

NEXT

=MySort(AAA,10) &&调用冒泡排序函数

i=1

"从大到小排序结果为："

do while i<=10

AAA(i) &&显示排完序后的数据

i=i+1

enddo

RETURN

冒泡排序函数

参数: pData: 传入数组, nCount:数组的大小

function MySort

para pData, nCount

for i=1 to nCount

for j=nCount to i+1 step -1

if pData(j)>pData(j-1)

iTemp = pData[j-1]

pData(j-1) = pData[j]

pData(j) = iTemp

endif

endfor

endfor

endfunc

声音的播放

在程序的编制过程中，适当地使用声音，可达到意想不到的效果，下面是在VFP中加入声音的几种方法：

1． 使用set bell to 命令

用set bell to 命令可以直接播放声音，此方法主要适用于给按钮加上声音效果，比如有一个“开始”按钮，要在按下它时能发声，可在其CLICK EVENT中加入如下代码：

wav_name="soundwav”

set bell to wav_name,0

chr(7)

其中soundwav为要播放的声音文件。

2． 调用mplayer2exe来播放

Mplayer2exe是Windows自带的媒体播放器，在VFP中，可使用如下命令来播放声音文件：

Run /n7 c:\progra～1\micros～2\mplayer2exe "soundwav"

若想在启动时播放声音，可将该语句放入表单的init事件中。这种方法适宜于用来播放背景音乐，其缺点是播放时，Windows工具栏上有一个最小化后的媒体播放器。

3． 使用OLE控件

在表单中添加一个OLE对象可按如下顺序：

① 新建一个表单，选中表单控件工具栏的OLEcontrol；

②在表单上按下鼠标左键，建立OLE对象，在出现的对话框中选择声音对象，选择以“create form file”方式插入；

③选择要插入的声音文件，确定退出；

④用Doverb方法来执行，其中Doverb(0)用来播放，Doverb(1)用来编辑。例如要在表单启动时同时启动声音，可在表单的init事件中加入如下语句：

thisformolecontrol1doverb(0)

4． 使用Microsoft Media Player控件

在一个表单中加入声音的顺序如下：

①在VFP中，选择“工具”选单的“选项”；

②在出现的界面中选择“控件”，选中“ActiveX控件”，在选定对话框中选择“Microsoft media player”，确定退出该界面；

③在工具栏中选择“ActiveX控件”，选中“Microsoft media player”控件，在表单上单击鼠标左键，这样就创建了“Microsoft media player”对象；

④以下语句可实现声音的播放：

thisformolecontrol1open(〃soundwav〃)

playcount 可用来控制播放的次数；

如想实现重复播放，可在EndOf Stream Event中加入语句：thisplay。

这种方法也可以用来播放avi、mpeg等文件，只需把上面的“soundwav” 文件改为相应类型的文件即可。

5． 使用MCI

MCI(media control interface:媒体控制接口)是多媒体设备和文件的标准接口。多媒体应用程序可以利用MCI控制各种各样的多媒体设备和文件。

下面通过一个例子说明如何用MCI实现对音频的控制：

①建立一个表单Form1,对表单作如下设置：

Form1load:

＆＆声明MCISendString命令。

Form1Destroy:

DECLARE LONG mciSendString IN C:\WINDOWS\SYSTEM\WINMMDLL STRING sCom,STRING sReturnString,LONG lReturnLength,LONG lpWnd

DECLARE LONG mciExecute IN C:\WINDOWS\SYSTEM\ WINMMDLL STRING sCommand

Form1Destory:

Clear dlls

＆＆清除声明的dll函数；

②新建四个按扭，其caption值分别为：“打开”，“播放”，“停止”，“关闭”，分别在各按扭的click事件中加入以下代码：

thisformopenclick:

mciexecute("open c:\mywave\toolbirdwav alias cc")

thiformplayclick:

buffer=space(100)

=mcisendstring("play cc",@buffer,80,0)

thisformstopclick:

buffer=space(100)

=mcisendstring("stop cc",@buffer,80,0)

thisformcloseclick:

buffer=space(100)

=mciSendString("close cc",@Buffer,80,0)

以上就是关于vfp程序设计全部的内容，包括:vfp程序设计、VFP题目求解、在c++中用FOR语句嵌套编写九九乘法表 怎么使它们排成不同的形状，比如：菱形。谢谢啊等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！