原创 如何判斷是否以獨佔方式打開當前數據庫？
If InStr(CurrentProject.Connection.ConnectionString, "Jet OLEDB:Database Locking Mode=0") > 0 Then
2018-09-04 13:35:30
原创 VFP趣味編程：雞兔同籠
雞兔同籠。小朋友數了數圈在籠子裏的雞和兔共有14個頭，腳共有44只，問圈在籠子裏的雞和兔各有多少隻？ 算法分析。這個問題與上次所講的盲人裁判的問題差不多，如何解決雞兔同籠問題呢？首先，設籠子中有x只雞，則兔
2018-09-04 13:35:30
原创 VFP趣味編程：求婚者的智慧
古代一個王國的公主愛上了花匠。公主要出嫁按傳統要用拋繡球的方式選擇附馬。花匠就給公主獻了個對策。婚日來臨，人羣擁擠，主持人叫求婚者排成一行，花匠在隊列外數了數，共有101個人，於是他找了個適當的位置也站在了隊伍中。主持人喊1、2，1、2地
2018-09-04 13:35:30
2
原创 我的數據訪問類
Public Class BqDataClassClass BqDataClass '數據訪問類 Dim ldailDataName As String Dim ldailYN As Boolean = False
2018-09-04 13:35:30
原创 VFP趣味編程：求出10000以內，被2除餘1，被3除餘2，......，被9除餘8的自然數。
求出10000以內，被2除餘1，被3除餘2，被4除餘3，被5除餘4，被6除餘5，被7除餘6，被8除餘7，被9除餘8的自然數。源程序ex7_1.prg如下： SET TALK OFFCLEACLEA AL
2018-09-04 13:35:30
原创 得到本計算機的一些信息
Public Class Bq_PcClass Bq_Pc '得到本計算機的一些信息 Private lPcIP, lName, lPcName As String Private lTemp, lSys32, lDes
2018-09-04 13:35:29
原创 排序 問題
今天在csdn論壇中，看到幾個題目。分析並解答。 FoxPro數據庫編程題 如下: 1、通過鍵盤輸入20個數。（1）求其中最大者和最小者，並顯示之；
2018-09-04 13:35:29
原创 VFP趣味編程：盲人裁判的判斷
關於vfp的上機練習題已經編寫完成很久了，學生們都反覆練習過。本人一直就很想將其中的“趣味編程”部分整理出來，與廣大網友分享。今天終於有時間可以完成這個願望了，下面用九個篇幅來介紹九個有趣的問題。 甲乙兩人在進行射擊氣球比賽，裁
2018-09-04 13:35:29
原创 加法器 問題
今天在csdn論壇中，看到幾個題目。分析並解答。 題如下: 原貼見 http://topic.csdn.net/u/20080116/21/1f271f51-8423-4333-bb53-6f7a75b768bf.html計算S=1
2018-09-04 13:35:29