Robin_Wang_新浪博客

在VB中求两个数的最大公约数

(2009-12-04 10:20)

转载▼

标签：

vb

if

最大公约数

正整数

for

教育

分类：随笔之轩

Private Sub Command1_Click()
    If Text1.Text = '' Then
    MsgBox '请输入Text1'
    Exit Sub
    End If

    If Text2.Text = '' Then
    MsgBox '请输入Text2'
    Exit Sub
    End If

    If IsNumber = True Then
    Text3.Text = GCD(Val(Text1.Text), Val(Text2.Text))
    End If
End Sub

Private Sub Form_Load()
Text1.Text = ''
Text2.Text = ''
Text3.Enabled = False
Command1.Caption = '计算最大公约数'
End Sub

Private Function IsNumber() As Boolean
    IsNumber = True
    For i = 1 To Len(Text1.Text)
    If IsNumeric(Mid(Text1.Text, i, 1)) = False Then
    MsgBox '请输入正

阅读收藏

查看全文>>

在VBS中求一组数的max,min,sum,average

(2009-11-25 11:13)

转载▼

标签：

vbs

split

min

max

sum

avg

教育

分类： Web开发之轩

<html>
<head><title>求一组数的max,min,sum,avg</title>
       <style type='text/css'>

        </style>


  <script type='text/vbscript'>
     sub mypreviously()
    mystr.focus
    end sub

    sub myexam()
    mynum=mystr.value
      myarray=split(mynum,',')   '字符串分割函数:split(字符串,'分割符')

&nb

阅读收藏

查看全文>>

VFP表单制作计算器(代码)

(2009-04-16 08:22)

转载▼

标签：

this

vfp

表达式

click事件

空串

教育

分类： VisualFoxPro之轩

VFP表单制作计算器(代码)

1)【提示】操作步骤：
第一步：向表单添加文本框和命令组控件，分别设置命令按钮的Caption属性，在对命令按钮'='的Caption
属性设置时，不能在其属性窗口中直接输入半角的'='，否则提示语法错误。可以输入全角'＝'
或在表单FROM1的Init事件中，输入如下代码完成：
for i=1 to 10
this.commandgroup1.buttons(i).caption=alltrim(str(i))
endfor
this.commandgroup1.buttons(11).caption='*'
this.commandgroup1.buttons(12).caption='+'
this.commandgroup1.buttons(13).caption='-'
this.commandgroup1.buttons(14).caption='='
this.commandgroup1.buttons(15).caption='C'

第二步：在表单FORM1的Init

阅读收藏

查看全文>>

vfp自定义函数的应用

(2009-04-13 07:57)

转载▼

标签：

vfp

阶乘

to

for

number

教育

分类： VisualFoxPro之轩

求用户所输入的数的阶乘值

input 'number: ' to n    &&用户输入一个数
?jc(n)                     &&访问用户所输入的数的阶乘的值
function jc                &&自定义函数
parameter n
s=1
for i=1 to n
s=s*i
endfor
return s                  &&返回s的值

阅读收藏

查看全文>>

一些VFP函数的含义

(2009-04-11 19:17)

转载▼

标签：

it学习

教育

分类： VisualFoxPro之轩

一些VFP函数的含义

1、in 在这个条件里
2、not 不在这个条件里
3、and 条件是…和…
4、or 条件为…或者…
Visual FoxPro数据库函数

ADATABASES() 将所有打开数据库的名称和路径放到内存变量数组中
ADBOBJECTS() 把当前数据库中的命名连接名、关系名、表名或sQL视图名放到一个内存变量数组中
AFIELDS() 把当前表的结构信息存放在一个数组中，并且返回表的字段数
ALIAS() 返回当前表或指定工作区衰的别名
ASESSIONS() 创建一个已存在的数据工作期ID数组
ATAGINFO() 创建一个包含索引和键表达式的名字、数量和类型信息的数组
AUSED() 将一个数据工作期中的表别名和工作区存入内存变量数组
BOF() 确定当前记录指针是否在表头
CANDIDATE() 判断索引是否为候选索引
CDX() 根据指定的索引位置编号，返回打开的复合索引(．CDX)文件名称
CPDBP() 返回一个打开表所使用的代码页
CREATEOFFLINE() 由已存在

阅读收藏

查看全文>>

VFP程序设计基础

(2009-03-31 20:33)

转载▼

标签：

it学习

教育

分类： VisualFoxPro之轩

VFP 程序设计基础(1)

程序文件的建立、修改与运行

一、程序文件的建立与修改

命令格式： modify command <程序文件名>

功能：打开文本编辑窗口，用来建立或修改程序文件。

说明：

1．VFP程序源文件的扩展名为.PRG，用本命令建立时可缺省扩展名；程序在运行时，为了加快执行速度会自动编译，产生主文件名与源文件相同，扩展名为.FXP的目标文件；在VFP下若修改了.PRG文件，系统也会自动重新编译。目标程序是紧凑的非文本文件，运行速度快，并可起到对源程序的加密作用。

2．文件名前也可指明路径，例如:modify command a:\vfp\cx1

3．关闭编辑窗口的方法：

① 按Ctrl+W键可将文件立即存盘并退出编辑；

② 单击关闭按钮；

③ 双击编辑框最前边的控制菜单按钮；

阅读收藏

查看全文>>