实例源代码
开放源代码的例子
开放源代码的例子
以下是 7 条关于开放源代码的例子：
1. Linux 操作系统啊！哇塞，这可是个超级厉害的开放源代码例子呢！就像一个巨大的宝藏，全世界的开发者都能去挖掘它、贡献自己的力量。
想想看，如果没有开源，我们能享受到这么强大又稳定的操作系统吗？
2. Apache HTTP Server 呀！它可不简单，就像一个坚固的基石，为无数网站提供着可靠的支持。
这不是活生生地体现了开放源代码的厉害之处吗？有那么多人能一起改进它，让它越来越好！
3. MySQL 数据库，这也是开放源代码的明星呢！它就如同一个知识的海洋，任由大家在里面遨游、探索。
没有开源，它能变得如此强大和好用吗？
4. Firefox 浏览器呢！很多人每天都在用它。
它就像是一辆快速的赛车，在
互联网的道路上疾驰。
因为开源，它才能不断进化，满足大家各种各样的需求，这多棒呀！
5. WordPress，建网站的都知道吧！它可是开放源代码的杰作啊！就像一
个魔法盒，能变出各种精彩的网站。
大家一起努力让它变得神奇，多有意思！
6. LibreOffice 办公软件，和那些收费的相比也毫不逊色呀！它如同一位贴
心的助手，随时帮我们处理各种文档。
开源让它充满活力，能更好地服务大家。
7. TensorFlow，在人工智能领域那可是大名鼎鼎！它就像是一把开启智慧之门的钥匙。
因为开源，众多开发者才能在其基础上创造出更多令人惊叹的成果。
我觉得开放源代码真的是太棒了！它让技术能够被广泛分享和发展，推动着整个世界不断进步！。
python案例代码30个
python案例代码30个以下是30个Python案例代码：1.计算两个数的和```pythondef add_numbers(num1, num2):return num1 + num2result = add_numbers(5, 10)print(result)```2.检查一个数是否为偶数```pythondef is_even(num):if num % 2 == 0:return Trueelse:return Falseresult = is_even(7)print(result)```3.计算一个列表的平均值```pythondef calculate_average(numbers): total = sum(numbers)average = total / len(numbers) return averagenumbers = [1, 2, 3, 4, 5]result = calculate_average(numbers) print(result)```4.判断一个字符串是否为回文字符串```pythondef is_palindrome(string):reversed_string = string[::-1]if string == reversed_string: return Trueelse:return Falseresult = is_palindrome("racecar")print(result)```5.找出一个列表中的最大值和最小值```pythondef find_max_min(numbers):max_value = max(numbers)min_value = min(numbers)return max_value, min_valuenumbers = [1, 2, 3, 4, 5]max_num, min_num = find_max_min(numbers) print(max_num, min_num)```6.将字符串中的大写字母转换为小写字母```pythondef convert_to_lowercase(string):return string.lowerresult = convert_to_lowercase("Hello World") print(result)```7.判断一个数是否为素数```pythondef is_prime(num):if num < 2:return Falsefor i in range(2, int(num ** 0.5) + 1): if num % i == 0:return Falsereturn Trueresult = is_prime(17)print(result)```8.统计一个字符串中每个字符的出现次数```pythondef count_characters(string):char_count = {}for char in string:if char in char_count:char_count[char] += 1else:char_count[char] = 1return char_countresult = count_characters("hello") print(result)```9.将一个列表中的元素逆序排列```pythondef reverse_list(lst):return lst[::-1]numbers = [1, 2, 3, 4, 5]result = reverse_list(numbers) print(result)```10.计算一个数的阶乘```pythondef factorial(num):result = 1for i in range(1, num + 1):result *= ireturn resultresult = factorial(5)print(result)```11.删除一个列表中的重复元素```pythondef remove_duplicates(lst):return list(set(lst))numbers = [1, 2, 2, 3, 4, 4, 5] result = remove_duplicates(numbers) print(result)```12.将两个列表合并成一个新的列表```pythondef merge_lists(list1, list2): return list1 + list2numbers1 = [1, 2, 3]numbers2 = [4, 5, 6]result = merge_lists(numbers1, numbers2) print(result)```13.判断一个字符串是否为数字```pythondef is_number(string):try:float(string)return Trueexcept ValueError:return Falseresult = is_number("123")print(result)```14.排序一个列表```pythondef sort_list(lst):return sorted(lst)numbers = [3, 1, 4, 2, 5]result = sort_list(numbers)print(result)```15.计算一个数的平方根```pythondef square_root(num):return num ** 0.5result = square_root(25)print(result)```16.将一个字符串中的单词逆序排列```pythondef reverse_words(string):words = string.splitreversed_words = " ".join(words[::-1]) return reversed_wordsresult = reverse_words("Hello World") print(result)``````pythondef sum_odd_numbers(numbers):return sum([num for num in numbers if num % 2 != 0])numbers = [1, 2, 3, 4, 5]result = sum_odd_numbers(numbers)print(result)```18.判断一个字符串是否为回文数字（从左向右和从右向左读都一样）```pythondef is_palindrome_number(num):string = str(num)reversed_string = string[::-1]if string == reversed_string:return Trueelse:return Falseprint(result)``````pythondef find_even_numbers(numbers):return [num for num in numbers if num % 2 == 0]numbers = [1, 2, 3, 4, 5]result = find_even_numbers(numbers)print(result)```20.删除一个字符串中的所有空格```pythondef remove_spaces(string):return string.replace(" ", "")result = remove_spaces("Hello World")print(result)```21.将一个字符串中的大写字母转换为小写字母，小写字母转换为大写字母```pythondef convert_case(string):return string.swapcaseresult = convert_case("Hello World") print(result)```22.将一个列表中的元素按照相反的顺序排列```pythondef reverse_order(lst):lst.reversereturn lstnumbers = [1, 2, 3, 4, 5]result = reverse_order(numbers)print(result)```23.计算一个数的立方```pythondef cube(num):return num ** 3result = cube(2)print(result)```24.循环打印一个字符串指定的次数```pythondef print_string(string, count):for _ in range(count):print(string)print_string("Hello", 3)```25.计算列表中所有元素的乘积```pythondef multiply_elements(numbers): result = 1for num in numbers:result *= numreturn resultnumbers = [1, 2, 3, 4, 5]result = multiply_elements(numbers) print(result)```26.查找一个字符串中的所有子字符串```pythondef find_substrings(string):substrings = []for i in range(len(string)):for j in range(i + 1, len(string) + 1): substrings.append(string[i:j])return substringsresult = find_substrings("abc")print(result)```27.将一个列表中的元素合并为一个字符串```pythondef merge_elements(lst):return "".join(lst)elements = ["a", "b", "c"]result = merge_elements(elements)print(result)```28.将一个字符串中的所有单词首字母大写```pythondef capitalize_words(string):words = string.splitcapitalized_words = [word.capitalize( for word in words] return " ".join(capitalized_words)result = capitalize_words("hello world")print(result)```29.计算圆的面积```pythonimport mathdef calculate_circle_area(radius):return math.pi * radius ** 2result = calculate_circle_area(5)print(result)```30.使用递归计算斐波那契数列的第n项```pythondef fibonacci(n):if n <= 0:return "Input should be a positive integer." elif n == 1:return 0elif n == 2:return 1else:return fibonacci(n - 1) + fibonacci(n - 2) result = fibonacci(6)print(result)```这些案例代码大致有1200多字。
scratch循序渐进200实例源代码
1. 引言Scratch是一种通过积木式编程语言进行可视化编程的工具，它适合初学者学习编程的利器。
在Scratch中，学习者可以通过拖拽积木来搭建程序，而不需要直接编写代码，这样能够降低学习编程的门槛，让更多的人能够轻松地接触编程。
2. Scratch循序渐进的学习方法在Scratch中学习编程，最好采用循序渐进的学习方法。
这样能够建立起学生对编程的信心和兴趣，使他们更容易掌握编程的基本原理和技巧。
下面是200个Scratch的实例源代码，希望能够帮助学习者更好地掌握Scratch编程。
3. Scratch实例源代码（以下为部分实例源代码，共200个实例源代码未一一列举出来）1）画一个圆形当flag被点击重复360次移动1步转动1度2）画一个正方形当flag被点击重复4次移动100步转动90度3）画一个三角形当flag被点击重复3次移动100步转动120度4）制作一个跳动的小猫当flag被点击重复10次移动10步跳跃到高度1005）制作一个闪烁的星星当flag被点击无限循环显示等待1秒隐藏等待1秒6）制作一个变化颜色的气球当flag被点击无限循环改变颜色至蓝色等待1秒改变颜色至红色等待1秒4. 结语通过以上200个Scratch实例源代码的学习，相信读者能够更好地掌握Scratch编程的基本原理和技巧。
希望大家能够通过不断的实践和学习，掌握更多的编程知识，将编程技能运用到实际的项目中去。
祝大家学习进步，编写出更加精彩的程序！7. Scratch应用实例Scratch的学习不仅仅是为了理解编程的基本原理和技巧，更重要的是将所学知识应用到实际项目中。
下面将介绍几个常见的Scratch应用实例，希望能够启发读者将自己的创意和想法用Scratch实现出来。
7.1）编写一个物理模拟程序利用Scratch的角色和积木，可以编写一个简单的物理模拟程序，比如模拟抛物运动、弹簧振动等。
通过设置不同的参数和条件，可以观察不同情况下的运动规律，这有助于学生深入理解物理学中的一些概念，比如加速度、速度、力等。
247个python 案例 源码
Python作为一种高级编程语言，被广泛应用于数据分析、人工智能、Web开发等领域。
通过阅读Python案例源码，我们可以深入了解Python的语法、特性和应用方式。
在本文中，我们将共享247个Python案例源码，希望能够帮助大家更好地理解Python编程。
一、Python语法基础1. Hello World```pythonprint("Hello World")```2. 变量赋值```pythonname = "张三"age = 18```3. 条件语句```pythonif x > 0:print("x是正数")else:print("x是负数或零")```4. 循环语句```pythonfor i in range(5):print(i)```5. 函数定义```pythondef add(x, y):return x + y```6. 列表操作```pythonnumbers = [1, 2, 3, 4, 5]```7. 字典操作```pythonperson = {'name': '张三', 'age': 18}```8. 字符串操作```pythons = "Hello, World"```9. 文件操作```pythonwith open('file.txt', 'r') as f: content = f.read()```10. 异常处理```pythontry:x = 1 / 0except ZeroDivisionError: print("除零错误")```二、数据分析与处理11. 数据读取```pythonimport pandas as pddata = pd.read_csv('data.csv') ```12. 数据清理```pythondata.dropna()```13. 数据筛选```pythondata[data['age'] > 30]```14. 数据聚合```pythondata.groupby('sex').mean() ```15. 数据可视化```pythonimport matplotlib.pyplot as pltplt.plot(data['x'], data['y'])```三、Web开发16. Flask框架搭建```pythonfrom flask import Flaskapp = Flask(__name__)app.route('/')def index():return "Hello, World!"if __name__ == '__m本人n__':app.run()```17. Django框架搭建```pythonfrom django.shortcuts import renderfrom django.网络协议 import HttpResponsedef index(request):return HttpResponse("Hello, World!")```18. 数据库操作```pythonimport sqlite3conn = sqlite3.connect('test.db')```19. 模板引擎```pythonrender_template('index.html', name=name) ```20. 表单处理```pythonif request.method == 'POST':process_form_data()```四、人工智能21. 机器学习```pythonfrom sklearn import svm model = svm.SVC()```22. 深度学习```pythonimport torchmodel = torch.nn.Sequential() ```23. 自然语言处理```pythonimport nltknltk.download('punkt')```24. 图像处理```pythonimport cv2image = cv2.imread('image.jpg')25. 语音处理```pythonimport speech_recognition as srr = sr.Recognizer()with sr.Microphone() as source:audio = r.listen(source)```五、网络编程26. TCP服务器```pythonimport socketserver = socket.socket(socket.AF_INET, socket.SOCK_STREAM) ```27. TCP客户端```pythonclient = socket.socket(socket.AF_INET, socket.SOCK_STREAM) client.connect(('127.0.0.1', 8888))28. UDP服务器```pythonserver = socket.socket(socket.AF_INET, socket.SOCK_DGRAM) server.bind(('127.0.0.1', 9999))```29. UDP客户端```pythonclient = socket.socket(socket.AF_INET, socket.SOCK_DGRAM) client.sendto(b'hello', ('127.0.0.1', 9999))```30. HTTP请求```pythonimport requestsresponse = requests.get('xxx```六、系统管理31. 文件操作```pythonimport osos.mkdir('test')```32. 进程管理```pythonimport subprocessresult = subprocess.run(['ls', '-l'], stdout=subprocess.PIPE) ```33. 网络配置```pythonimport netifacesnetifaces.interfaces()```34. 日志记录```pythonimport logginglogging.basicConfig(filename='example.log',level=logging.DEBUG)```35. 定时任务```pythonimport scheduleschedule.every().day.at("10:30").do(job)```七、其他实用工具36. 数据加密```pythonimport hashlibhashlib.md5('xxx'.encode('utf-8')).hexdigest() ```37. 数据压缩```pythonimport zlibcompressed_data = zlibpress('Hello, World') ```38. 数据解压```pythonoriginal_data = zlib.dpresspressed_data)```39. 日期时间处理```pythonimport datetimedt = datetime.datetime.now()```40. 邮件发送```pythonimport smtplibserver = smtplib.SMTP('smtp.example', 25)```八、总结通过阅读以上247个Python案例源码，我们不仅可以加深对Python 编程语言的理解，还可以学习到Python在不同领域的应用方式。
易语言串口通讯modbus协议模块上位机必备例子源代码
易语言串口通讯modbus协议模块上位机必备例子源代码1.引言1.1 概述在编写易语言串口通讯modbus协议模块上位机必备例子源代码之前，我们首先需要了解一些基本概念和背景知识。
本文介绍了该例子的目的和结构，以及引言、正文和结论三个主要部分的内容。
1.1概述Modbus协议是一种常用的串行通信协议，广泛应用于工业自动化领域。
它被设计用于在不同设备之间进行数据传输和通信。
Modbus协议简洁明了，易于实现和部署，因此被许多工业设备和上位机所采用。
易语言是一种面向过程的编程语言，易于学习和使用。
它提供了丰富的库和模块，方便我们进行串口通讯编程。
易语言的特点是语法简单易懂，同时也支持调用其他语言编写的DLL函数，可以实现更加复杂的功能。
本例子的目标是演示如何使用易语言编写一个串口通讯的Modbus 协议模块，并结合上位机的必备功能来实现数据的读写和显示。
在正文部分，我们将介绍Modbus协议的简要概述，包括其通信方式、数据格式、功能码等。
同时，我们还将介绍易语言中的串口通讯模块及其基本用法。
在结论部分，我们将提供一些实例源代码示例，以便读者更好地理解和使用这个例子。
此外，我们还将列举一些上位机必备的功能，以供读者参考和扩展应用。
通过这个例子，读者可以学习到如何使用易语言进行串口通讯编程，并了解Modbus协议在实际应用中的运用。
同时，读者也可以根据自己的需求和实际情况，对例子进行二次开发和改进，以适应不同的应用场景。
在下一节中，我们将详细介绍Modbus协议的相关知识，以便读者更好地理解本例子的内容和实现。
文章结构部分主要是对整篇文章的组织和安排进行介绍，以下是1.2 文章结构的内容：1.2 文章结构本文主要分为三个部分，包括引言、正文和结论，具体如下：1. 引言部分介绍了本文的概述、文章结构和目的。
在概述中，我们对易语言串口通讯modbus协议模块上位机必备例子源代码进行了简要介绍，指出了本文的主要内容和目标。
python案例代码30 个
python 实现 30 个案例1. 身份验证输⼊密码时，终端中没有回显，可以使⽤getpass模块的getpass函数。
# 身份验证import getpassusername = input('请输⼊⽤户名: ')password = getpass.getpass('请输⼊密码: ')if username == 'admin'and password == '123456':print('登录成功!')else:print('登录失败!')2. 列表去重使⽤ python 的内置函数 set 可以实现去重。
x = [1, 1, 2, 2, 3, 2, 3, 4, 5, 6]print(list(set(x))) # [1, 2, 3, 4, 5, 6]3. 列表压缩去除列表中所有布尔值为 false 的元素。
def filter_false(lst):return list(filter(bool, lst))res = filter_false([None, 0, False, '', [], 'martin', [1, 2]]) print(res) # ['martin', [1, 2]]4 . 列表等分将⼀个列表等分为多个列表from math import ceildef divide(lst: list, size: int) ->list:""":param lst: 要拆分的列表:param size: 拆分的⼤⼩:return: ⼆维数组"""if size<= 0:return [lst]return [lst[i*size:(i+1) *size] for i in range(0, ceil(len(lst) / size))]res = divide([1, 2, 3, 4, 5, 7, 8, 9], 2)print(res) # [[1, 2], [3, 4], [5, 7], [8, 9]]res = divide([1, 2, 3, 4, 5, 7, 8, 9], 3)print(res) # [[1, 2, 3], [4, 5, 7], [8, 9]]res = divide([1, 2, 3, 4, 5, 7, 8, 9], 0)print(res) # [[1, 2, 3, 4, 5, 7, 8, 9]]res= divide([1, 2, 3, 4, 5, 7, 8, 9], -2)print(res) # [[1, 2, 3, 4, 5, 7, 8, 9]]在得到了⼀个多个列表之后，可能会遇到要查找这⼏个列表中最⼤那个值是多少？def max_lists(*lst):return max(max(*lst, key=lambda v: max(v)))res = max_lists([[1, 2, 3], [4, 9, 7], [8, 5]])print(res) # 95. 两个列表转为字典根据两个列表，将其组合成为⼀个字典。
7个经典python爬虫案例代码分享
Python作为一种简单易学的编程语言，广受程序员和数据科学家的喜爱。
其中，用Python进行网络爬虫的应用也越来越广泛。
本文将共享7个经典的Python爬虫案例代码，希望能够给大家带来启发和帮助。
1. 爬取豆瓣电影排行榜数据在本例中，我们将使用Python的requests库和BeautifulSoup库来爬取豆瓣电影排行榜的数据。
我们需要发送HTTP请求获取网页内容，然后使用BeautifulSoup库解析HTML文档，提取出我们需要的电影名称、评分等信息。
我们可以将这些数据保存到本地或者进行进一步的分析。
```pythonimport requestsfrom bs4 import BeautifulSoupurl = 'response = requests.get(url)soup = BeautifulSoup(response.text, 'html.parser')for movie in soup.find_all('div', class_='item'):title = movie.find('span', class_='title').textrating = movie.find('span', class_='rating_num').textprint(title, rating)```2. 爬取博博用户信息在这个案例中，我们将利用Python的requests库和正则表达式来爬取博博用户的基本信息。
我们需要登录博博并获取用户主页的URL，然后发送HTTP请求获取用户主页的HTML文档。
我们可以使用正则表达式来提取用户的昵称、性别、位置区域等信息。
我们可以将这些信息保存到数据库或者进行其他处理。
```pythonimport requestsimport reurl = 'response = requests.get(url)pattern = repile(r'<title>(.*?)</title>.*?昵称：(.*?)<.*?性别：(.*?)<.*?地区：(.*?)<', re.S)result = re.search(pattern, response.text)if result:username = result.group(2)gender = result.group(3)location = result.group(4)print(username, gender, location)```3. 爬取新浪新闻在这个案例中，我们将使用Python的requests库和XPath来爬取新浪新闻的标题和信息。
C#100例经典源代码
long int i,x, y, z;
for (i=1;i<100000;i++)
{ x=sqrt(i+100); /*x为加上100后开方后的结果*/
y=sqrt(i+268); /*y为再加上168后开方后的结果*/
i f (x*x== i +100&&y*y== i +268)/*如果一个数的平方根的平方等于该数，这说明此 数是完全平方数*/
bonus二bonus2+(i-200000) *;
else if(i<=600000)
bonus二bonus4+(i-400000)*;
else if(i<=1000000)
bonus二bonus6+(i-600000)*;
e I se
bonus二bonusl0+ (i T 000000)*; pr intf ("bonus=%d", bonus);
pr intf (H\n%ld\n，\ i);
}
)
【程序4】
题目：输入某年某月某日，判断这一天是这一年的第几天
1.程序分析：以3月5日为例，应该先把前两个月的加起来，然后再加上5天即 本年的第几天，特殊
情况，闰年且输入月份大于3时需考虑多加一天。
2•程序源代码：
ma i n()
int day, month, year, sum, Ieap;
bonus4=bonus2+200000*;
bonus6=bonus4+200000*;
bonusl0=bonus6+400000*;
if (i<=100000)
vb udp源程序实例子
vb udp源程序实例子以下是一个简单的 UDP源程序的示例代码：```vbImports Imports .SocketsModule Module1Sub Main()' 定义UDP客户端Dim client As New UdpClient()' 设置服务器IP和端口Dim serverIP As IPAddress = IPAddress.Parse("127.0.0.1") Dim serverPort As Integer = 12345' 创建发送的字节数组Dim message As Byte() = Encoding.ASCII.GetBytes("Hello, UDP Server!")' 发送消息到服务器client.Send(message, message.Length, NewIPEndPoint(serverIP, serverPort))' 关闭UDP客户端client.Close()Console.WriteLine("UDP消息发送完成。
")Console.ReadKey()End SubEnd Module```该代码主要实现了一个UDP客户端，通过指定服务器的IP地址和端口号，发送一个消息给服务器。
在这个示例中，我们使用本地回环地址 127.0.0.1 和端口号 12345 来模拟服务器的IP 和端口。
要使此示例工作，你需要在此代码之前启动一个UDP服务器来接收消息。
你可以通过创建一个新的控制台应用程序项目，并使用类似以下示例的代码实现UDP服务器：```vbImports Imports .SocketsModule Module1Sub Main()' 定义UDP服务器监听的端口号Dim serverPort As Integer = 12345' 创建UDP服务器Dim server As New UdpClient(serverPort)Console.WriteLine("等待UDP消息...")' 接收来自客户端的消息Dim clientAddress As IPEndPoint = NewIPEndPoint(IPAddress.Any, serverPort)Dim receivedBytes As Byte() = server.Receive(clientAddress) Dim message As String =Encoding.ASCII.GetString(receivedBytes)Console.WriteLine("收到来自客户端的消息：{0}", message)' 关闭UDP服务器server.Close()Console.WriteLine("UDP服务器关闭。
应用实例源代码Java程序设计(第二版)应用实例源代码13.6 应用实例-案例学生信息管理系统
案例学生信息管理系统1．案例要求编写学生信息管理系统程序，功能是访问13.1节建立的学生数据库student.accdb，该数据库有一个数据表xuesheng，表字段有学号、姓名、性别、年龄、籍贯、所在院系和专业。
运行主界面如图13-20所示。
具体来说，在此界面中，我们输入学号或姓名进行记录“查询”操作，单击“添加”、“修改”和“删除”按钮做添加、修改和删除记录操作。
其中，添加记录通过如图13-14所示的对话框录入数据，修改记录也是通过专门的对话框进行的。
要删除记录时，则显示一个确认对话框，只有单击“是”按钮后才执行删除操作。
图13-20 学生信息管理系统主界面2．案例分析学生信息管理系统一共有8个类，统一放在stu包中：StudentDate类是数据库操作类，用来连接数据库，有查询、添加、修改和删除操作方法；TableForm类是表格类，将查询得到的记录显示到表格中；DialogForm类是组件类，用来设置添加和修改记录时所需要的GUI 组件；LoginForm类是登录类，用来作程序入口；MainForm类是主界面类，在此界面中现在数据表的记录，并单击其他按钮做相应的操作；AddForm类是添加信息类，弹出一个对话框输入新记录；UpdateForm类是修改信息类，弹出对话框修改记录；DeleteForm类是删除信息类，弹出对话框选择是否删除记录。
3．案例实现（1）编写学生信息管理系统程序的数据库操作类。
数据库操作类直接跟数据库交互，涉及到数据库连接、数据查询、记录添加、修改、删除和数据库对象关闭操作，每个操作都有具体的方法实现。
StudentDate数据库操作类不带main方法，不能独立运行。
为了方便编程，在此类中将建立数据库连接、关闭连接、关闭语句和关闭结果集分别编程4个方法，由于这些类都只是内部调用，所有设置成私有的。
其余查询记录、添加、修改、删除记录等方法设置成公共的，这些方法可以被其他类调用。
经典C源代码30例
经典C源代码30例==============================================================【程序80】题目：海滩上有一堆桃子，五只猴子来分。
第一只猴子把这堆桃子凭据分为五份，多了一个，这只猴子把多的一个扔入海中，拿走了一份。
第二只猴子把剩下的桃子又平均分成五份，又多了一个，它同样把多的一个扔入海中，拿走了一份，第三、第四、第五只猴子都是这样做的，问海滩上原来最少有多少个桃子？1.程序分析：2.程序源代码：main(){int i,m,j,k,count;for(i=4;i<10000;i+=4){ count=0;m=i;for(k=0;k<5;k++){j=i/4*5+1;i=j;if(j%4==0)count++;elsebreak;}i=m;if(count==4){printf("%d\n",count);break;}}}作者：zhlei81 2005-1-22 11:32 回复此发言--------------------------------------------------------------------------------16 回复：经典Ｃ源程序100例【程序81】题目：809*??=800*??+9*??+1 其中??代表的两位数,8*??的结果为两位数，9*??的结果为3位数。
求??代表的两位数，及809*??后的结果。
1.程序分析：2.程序源代码：output(long b,long i){ printf("\n%ld/%ld=809*%ld+%ld",b,i,i,b%i);}main(){long int a,b,i;a=809;for(i=10;i<100;i++){b=i*a+1;if(b>=1000&&b<=10000&&8*i<100&&9*i>=100)output(b,i); }}==============================================================【程序82】题目：八进制转换为十进制1.程序分析：2.程序源代码：main(){ char *p,s[6];int n;p=s;gets(p);n=0;while(*(p)!='\0'){n=n*8+*p-'0';p++;}printf("%d",n);}============================================================== 【程序83】题目：求0—7所能组成的奇数个数。
20个python3大项目开发源代码(附源码)
在此文中，我们将为您介绍20个Python3大型项目开发的源代码，以帮助您了解Python3的应用和实际项目开发。
以下是这20个Python3大型项目开发源代码的详细内容：1. 人脸识别系统- 该项目使用Python3编写，利用OpenCV和Dlib库实现人脸识别功能。
它可以识别图像和视频中的人脸，并进行特征提取和匹配。
2. 文件同步工具- 这个项目使用Python3编写，可以实现不同计算机之间的文件同步。
它可以检测文件的新增、删除和修改，并及时同步到其他设备。
3. 聊天机器人- 该项目利用Python3编写，使用自然语言处理技术和机器学习算法，实现了一个智能聊天机器人。
它可以回答一般性问题，处理用户输入的文本，并给出相应的回复。
4. 数据可视化工具- 这个项目采用Python3编写，利用Matplotlib和Seaborn库实现数据可视化功能。
它可以将数据以图表、图形等形式展现出来，方便用户分析和理解数据。
5. 网络爬虫- 该项目使用Python3编写，利用BeautifulSoup和Requests库实现网络爬虫功能。
它可以抓取网页数据，对数据进行处理和分析，用于各种网页数据的采集和整理。
6. 视频流分析系统- 这个项目利用Python3编写，借助FFmpeg和NumPy库实现对视频流的分析和处理。
它可以提取视频流中的特征，并进行目标识别和跟踪。
7. 在线投票系统- 该项目采用Python3编写，利用Django框架实现在线投票系统。
它可以处理用户投票请求，进行实时统计数据，并生成相应的数据报表。
8. 电流信箱客户端- 这个项目使用Python3编写，利用smtplib和poplib库实现电流信箱客户端功能。
它可以发送、接收和管理电流信箱，支持对邮件进行筛选、归档等操作。
9. 文档管理系统- 该项目利用Python3编写，使用Django框架实现文档管理系统。
它可以上传、下载和管理文档，支持文档的分类、版本管理等功能。
黑马程序员vue案例源代码
黑马程序员vue案例源代码摘要：1.黑马程序员Vue案例简介2.Vue.js的简介和特点3.Vue.js在黑马程序员案例中的应用4.黑马程序员Vue案例源代码的概述5.对黑马程序员Vue案例源代码的具体分析6.结论正文：1.黑马程序员Vue案例简介黑马程序员Vue案例是一个基于Vue.js的在线购物网站案例，由黑马程序员教育团队开发。
该案例涵盖了Vue.js的基本概念和技巧，如组件、指令、计算属性、监听器、生命周期等，是一个很好的学习Vue.js的实例。
2.Vue.js的简介和特点Vue.js是一个构建用户界面的渐进式框架。
它易于上手，具有灵活的组件系统和简洁的API。
Vue.js的核心库只关注视图层，使其易于与其他库或现有项目进行集成。
Vue.js的特点包括：声明式渲染、组件化、双向数据绑定、轻量级、易于集成等。
3.Vue.js在黑马程序员案例中的应用在黑马程序员Vue案例中，开发团队充分利用了Vue.js的特点，构建了一个完整的在线购物网站。
案例涵盖了商品列表、商品详情、购物车、订单确认等模块，让学习者能够全面了解Vue.js在实际项目中的应用。
4.黑马程序员Vue案例源代码的概述黑马程序员Vue案例源代码结构清晰，遵循了Vue.js的开发规范。
源代码主要包括以下几个部分：- assets：存放项目所需的静态资源，如图片、样式等。
- components：存放项目的组件，包括页面组件和功能组件。
- router：存放项目的路由配置。
- store：存放项目的状态管理配置。
- App.vue：项目的入口文件，负责整个项目的渲染。
5.对黑马程序员Vue案例源代码的具体分析在源代码中，我们可以看到开发团队对Vue.js的各种技术的熟练运用，如组件化、单页面路由、状态管理等。
组件之间的通信和数据传递也处理得当，使得整个项目易于维护和扩展。
6.结论黑马程序员Vue案例是一个很好的学习Vue.js的项目实例。
初中信息技术python源代码
初中信息技术python源代码Python是一种简单而强大的编程语言，广泛应用于不同领域，包括信息技术。
下面是一些初中级别的Python源代码示例，帮助初学者理解和掌握Python编程。
1.计算器程序```python#用户输入两个数字num1 = float(input("输入第一个数字: "))num2 = float(input("输入第二个数字: "))#选择运算符operator = input("选择运算符(+, -, *, /): ")#定义函数来执行不同的运算def add(x, y):return x + ydef subtract(x, y):return x - ydef multiply(x, y):return x * ydef divide(x, y):return x / y#根据运算符进行相应的计算操作，并输出结果if operator == '+':print(num1, "+", num2, "=", add(num1, num2))elif operator == '-':print(num1, "-", num2, "=", subtract(num1, num2)) elif operator == '*':print(num1, "*", num2, "=", multiply(num1, num2)) elif operator == '/':print(num1, "/", num2, "=", divide(num1, num2))else:print("输入有误")```上述代码演示了一个简单的计算器程序。
高校程序设计课程设计源代码与文档范例
高校程序设计课程设计源代码与文档范例源代码与文档范例在高校的程序设计课程中，学生们通常需要进行项目设计和编码实现。
正确编写源代码和撰写文档是一个程序开发过程中非常重要的环节。
本文将为大家提供一份高校程序设计课程设计源代码与文档的范例，以供参考。
源代码范例下面是一个简单的源代码范例，用Python编写一个求解斐波那契数列的函数：```pythondef fibonacci(n):if n <= 0:return "Input must be a positive integer."elif n == 1:return 0elif n == 2:return 1else:fib_list = [0, 1]for i in range(2, n):fib_list.append(fib_list[i-1] + fib_list[i-2])return fib_list[n-1]# 测试代码n = 10print(f"The {n}th fibonacci number is: {fibonacci(n)}")```上述代码定义了一个名为fibonacci的函数，用于计算斐波那契数列中的第n个数。
代码中使用了循环和列表等基本编程概念，力求简洁明了。
同时，还包含了测试代码，用于验证函数的正确性。
文档范例除了源代码外，编写完善的文档也是程序设计中必不可少的一部分。
下面是一个文档范例，包含了对上述源代码的说明和使用指南：```# 斐波那契数列计算器## 简介本程序用于计算斐波那契数列中的第n个数。
## 源代码```pythondef fibonacci(n):if n <= 0:return "Input must be a positive integer."elif n == 1:return 0elif n == 2:return 1else:fib_list = [0, 1]for i in range(2, n):fib_list.append(fib_list[i-1] + fib_list[i-2])return fib_list[n-1]```## 使用方法用户需要提供一个正整数n作为输入参数，函数将返回斐波那契数列中的第n个数。
python项目开发案例集锦源代码
Python项目开发案例集锦一、介绍Python作为一种高效、易学、功能丰富的编程语言，在各个领域有着广泛的应用。
本文将为大家共享一些Python项目开发的经典案例，希望能够对初学者和有一定经验的开发者有所帮助。
这些案例涵盖了Web开发、数据处理、机器学习等多个方面，旨在展示Python的强大功能和广阔前景。
二、Web开发案例1. Flask框架搭建个人博客使用Flask框架搭建个人博客是一个很好的学习项目。
你可以使用SQLAlchemy来管理数据库，使用Jinja2模板来渲染页面，还可以添加用户注册、登入、文章发布等功能。
通过这个项目，你可以学习到如何使用Python构建Web应用，如何处理HTTP请求和响应，如何进行表单验证等技术。
2. Django框架开发上线商城Django是一个功能强大的Web框架，它提供了丰富的组件和工具，可以快速构建复杂的Web应用。
通过开发一个上线商城，你可以学习如何使用Django框架进行URL分发、模型设计、用户认证、支付接口集成等内容。
这个项目可以帮助你全面掌握Django的应用和开发技巧。
三、数据处理案例3. 使用Pandas进行数据分析Pandas是一个强大的数据分析工具，它提供了丰富的数据结构和功能，可以帮助你高效处理和分析数据。
通过使用Pandas进行数据分析，你可以学习到如何读取、清洗、统计、可视化数据，如何进行数据透视和分组统计等内容。
这个项目对于数据分析师和数据科学家是一个很好的练习项目。
4. 使用Matplotlib绘制数据可视化图表Matplotlib是一个强大的数据可视化工具，可以帮助你将数据转化为直观的图表和图像。
通过使用Matplotlib绘制数据可视化图表，你可以学习到如何使用不同的图表类型展现数据、如何添加标签和注释、如何调整图表样式等内容。
这个项目对于对数据可视化有兴趣的开发者是一个很好的实践项目。
四、机器学习案例5. 使用Scikit-learn进行文本分类Scikit-learn是一个流行的机器学习库，提供了丰富的机器学习算法和工具，可以帮助你构建和训练机器学习模型。
c实例源代码
c实例源代码As a person, we must have independent thoughts and personality.【实例1-1】using System;using ;namespace _{class Program{static void Main(string[] args){"恭喜你，学会了C#编程！");}}}【实例1-2】private void Form1_Load(object sender, EventArgs e) {="这是一窗口！";Label lbShow = new Label();= new Point(40,50);= true;= "恭喜你学会编程了！";int[] x, y;x = new int[5] { 1,2,3,4,5};y = new int[5];y = x;foreach (int a in y){+= ();}【实例2-1】using System;using TestEnum{public partial class TestEnum : Form{et自动生成的构造函数，后文示例将全部省略public TestEnum(){InitializeComponent();}enum MyEnum { a = 101, b, c, d = 201, e, f };MainetType()); etType()); 0LetType());0FetType()); etType()); 0MetType()); etType()); etType()); etType());etType()); etType()); Main Jackson;}}class TestDelegate{delegate string MyDelegate();MainMainMain, cost);}("谢谢您的惠顾！");}}【实例2-14】using System;using TestWhile{public partial class TestWhile : Form{public TestWhile() et自动生成的构造函数{InitializeComponent();}private void TestWhile_Load(object sender, EventArgs e){int i,sum;i=1; MainMainMainMainMain;("请输入一串字符，以句号结尾：");do{ch_new = (char)();if(ch_new == ch_old)continue;(ch_new);ch_old=ch_new;}while(ch_new!='.');("\n");}}。
源代码清单
附录：主要窗体的源代码：1：订房信息窗体的源代码：Option Explicit'是否改动过记录，ture为改过Dim mblChange As BooleanDim mrc As ADODB.RecordsetPublic txtSQL As StringPrivate Sub cboItem_Change(Index As Integer)'有变化设置gblchangemblChange = TrueEnd SubPrivate Sub cboItem_Click(Index As Integer)Dim mrcc As ADODB.RecordsetDim intCount As IntegerDim MsgText As StringIf gintBmode = 1 ThenIf Index = 0 ThentxtSQL = "select * from rooms where roomNO = '" & Trim(cboItem(0)) & "' and putup <> '是'"Set mrcc = ExecuteSQL(txtSQL, MsgText)For intCount = 1 To 3cboItem(intCount).ClearcboItem(intCount).AddItem mrcc.Fields(intCount)cboItem(intCount).ListIndex = 0Next intCounttxtItem(5) = mrcc.Fields(5)mrcc.CloseEnd IfEnd IfEnd SubPrivate Sub cboItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Sub cmdExit_Click()If mblChange And cmdSave.Enabled ThenIf MsgBox("保存当前记录的变化吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then'保存Call cmdSave_ClickEnd IfEnd IfUnload MeEnd SubPrivate Sub cmdSave_Click()Dim intCount As IntegerDim sMeg As StringDim mrcc As ADODB.RecordsetDim MsgText As StringFor intCount = 0 To 3If Trim(txtItem(intCount) & " ") = "" ThenSelect Case intCountCase 0sMeg = "顾客姓名"Case 1sMeg = "身份证号码"Case 2sMeg = "折扣"Case 3sMeg = "入住时间"End SelectsMeg = sMeg & "不能为空！"MsgBox sMeg, vbOKOnly + vbExclamation, "警告"txtItem(intCount).SetFocusExit SubEnd IfNext intCountFor intCount = 0 To 3If Trim(cboItem(intCount) & " ") = "" ThenSelect Case intCountCase 0sMeg = "客房编号"Case 1sMeg = "客房种类"Case 2sMeg = "客房位置"Case 3sMeg = "客房单价"End SelectsMeg = sMeg & "不能为空！"MsgBox sMeg, vbOKOnly + vbExclamation, "警告"cboItem(intCount).SetFocusExit SubEnd IfNext intCountIf IsDate(txtItem(2)) ThentxtItem(2) = Format(txtItem(2), "yyyy-mm-dd")ElseMsgBox "入库时间应输入日期（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"txtItem(2).SetFocusExit SubEnd IfFor intCount = 1 To 3 Step 2If Not IsNumeric(txtItem(intCount)) ThenMsgBox "请输入数字", vbOKOnly + vbExclamation, "警告"txtItem(intCount).SetFocusExit SubEnd IfNext intCountIf gintBmode = 2 ThentxtSQL = "delete from bookin where bookno = '" & Trim(txtNo) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)End IftxtSQL = "select * from bookin"Set mrcc = ExecuteSQL(txtSQL, MsgText)mrcc.AddNewmrcc.Fields(0) = txtNoFor intCount = 0 To 1mrcc.Fields(intCount + 1) = txtItem(intCount)Next intCountmrcc.Fields(3) = cboItem(0)For intCount = 2 To 4mrcc.Fields(intCount + 2) = txtItem(intCount)Next intCountmrcc.Fields(8) = 0mrcc.Updatemrcc.ClosetxtSQL = "select * from rooms where roomNO = '" & Trim(cboItem(0)) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)If Not mrcc.EOF Thenmrcc!putup = "y"End Ifmrcc.Updatemrcc.CloseIf gintBmode = 1 ThenMsgBox "添加订房信息成功!", vbOKOnly + vbExclamation, "添加订房消息"Unload MeIf flagBedit ThenUnload frmBookinEnd IffrmBookin.txtSQL = "select bookno,customname,customID,roomno,indate,discount,inmemo from bookin where ammount = '0'"frmBookin.ShowElseMsgBox "修改订房信息成功!", vbOKOnly + vbExclamation, "修改订房消息"Unload MeIf flagBedit ThenUnload frmBookinEnd IffrmBookin.txtSQL = "select bookno,customname,customID,roomno,indate,discount,inmemo from bookin where ammount = '0'"frmBookin.ShowEnd IfEnd SubPrivate Sub Form_Load()Dim sSql As StringDim intCount As IntegerDim MsgText As StringIf flagSedit ThenSet mrc = ExecuteSQL(txtSQL, MsgText)If Not mrc.EOF ThenFor intCount = 0 To 3cboItem(intCount).AddItem mrc.Fields(intCount)cboItem(intCount).ListIndex = 0Next intCounttxtItem(5) = mrc.Fields(5)End Ifmrc.ClosetxtNo = GetRkno()gintBmode = 1ElseIf gintBmode = 1 ThenMe.Caption = Me.Caption & "添加"'初始化客房信息txtSQL = "select DISTINCT roomNO from rooms where putup <> 'y'"Set mrc = ExecuteSQL(txtSQL, MsgText)If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0).AddItem Trim(mrc.Fields(0))mrc.MoveNextLoopElseMsgBox "请先进行客房登记！", vbOKOnly + vbExclamation, "警告"cmdSave.Enabled = FalseExit SubEnd Ifmrc.ClosetxtNo = GetRknoElseIf gintBmode = 2 ThenSet mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenWith mrctxtNo = !booknoFor intCount = 0 To 1If Not IsNull(.Fields(intCount + 1)) ThentxtItem(intCount) = .Fields(intCount + 1)End IfNext intCountcboItem(0).AddItem !roomnocboItem(0).ListIndex = 0For intCount = 2 To 4If Not IsNull(.Fields(intCount + 2)) ThentxtItem(intCount) = .Fields(intCount + 2)End IfNext intCountEnd WithEnd Ifmrc.CloseMe.Caption = Me.Caption & "修改"txtSQL = "select * from rooms where roomNO = '" & Trim(cboItem(0)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If Not mrc.EOF ThenFor intCount = 1 To 3cboItem(intCount).AddItem mrc.Fields(intCount)cboItem(intCount).ListIndex = 0Next intCounttxtItem(5) = mrc.Fields(5)End Ifmrc.CloseEnd IfmblChange = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer)gintBmode = 0End SubPrivate Sub txtItem_Change(Index As Integer)'有变化设置gblchangemblChange = TrueEnd SubPrivate Sub txtItem_GotFocus(Index As Integer)txtItem(Index).SelStart = 0txtItem(Index).SelLength = Len(txtItem(Index))End SubPrivate Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub2：订房信息查询窗体源代码：Option Explicit'用于传递查询块Private Sub chkItem_Click(Index As Integer)If Index = 2 ThencboYear(0).SetFocusElsetxtItem(Index).SetFocusEnd IfEnd SubPrivate Sub cmdExit_Click()Me.HideEnd SubPrivate Sub cmdOK_Click()Dim dBeginDate As StringDim sQSql As StringIf chkItem(0).Value = vbChecked ThensQSql = " customname = '" & Trim(txtItem(0) & " ") & "'"End IfIf chkItem(1).Value = vbChecked ThenIf Trim(sQSql & " ") = "" ThensQSql = " roomno ='" & Trim(txtItem(1) & " ") & "'"ElsesQSql = sQSql & " and roomno ='" & Trim(txtItem(1) & " ") & "'"End IfEnd IfIf chkItem(2).Value = vbChecked ThendBeginDate = Format(CDate(cboYear(0) & "-" & cboMonth(0) & "-" & cboDay), "yyyy-mm-dd")If Trim(sQSql & " ") = "" ThensQSql = " indate ='" & dBeginDate & "'"ElsesQSql = sQSql & " and indate ='" & dBeginDate & "'"End IfEnd IfIf Trim(sQSql) = "" ThenMsgBox "请设置查询条件！", vbOKOnly + vbExclamation, "警告"Exit SubElseIf flagBedit ThenUnload frmBookinEnd IffrmBookin.txtSQL = "selectbookno,customname,customID,roomno,indate,discount,inmemo from bookin where ammount = '0' and " & sQSqlfrmBookin.ShowEnd IfMe.HideEnd SubPrivate Sub Form_Load()Dim i As IntegerDim j As IntegerDim sSql As StringDim txtSQL As StringDim MsgText As StringDim mrc As ADODB.RecordsettxtSQL = "select distinct datepart(yy,indate) from bookin where ammount = '0' "Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenWith mrcDo While Not .EOFcboYear(0).AddItem .Fields(0).MoveNextLoopEnd WithcboYear(0).ListIndex = 0For j = 1 To 12cboMonth(0).AddItem jNext jcboMonth(0).Text = Month(Now())For j = 1 To 31cboDay.AddItem jNext jcboDay.Text = Day(Now())ElsecmdOk.Enabled = FalseEnd Ifmrc.CloseEnd SubPrivate Sub lblitem_Click(Index As Integer)chkItem(Index).Value = vbCheckedEnd SubPrivate Sub txtItem_GotFocus(Index As Integer)txtItem(Index).SelStart = 0txtItem(Index).SelLength = Len(txtItem(Index))End Sub3：订房信息列表窗体源代码：Option ExplicitPublic txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringPrivate Sub Form_Load()ShowTitleShowDataflagBedit = TrueEnd SubPrivate Sub Form_Resize()If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then '边界处理If Me.ScaleHeight < 10 * lblTitle.Height ThenExit SubEnd IfIf Me.ScaleWidth < lblTitle.Width + lblTitle.Width / 2 ThenExit SubEnd If'控制控件的位置lblTitle.Top = lblTitle.HeightlblTitle.Left = (Me.Width - lblTitle.Width) / 2msgList.Top = lblTitle.Top + lblTitle.Height + lblTitle.Height / 2msgList.Width = Me.ScaleWidth - 200msgList.Left = Me.ScaleLeft + 100msgList.Height = Me.ScaleHeight - msgList.Top - 200 End IfEnd SubPublic Sub FormClose()Unload MeEnd Sub'删除记录Private Sub Form_Unload(Cancel As Integer)flagBedit = FalsegintBmode = 0End Sub'显示Grid的内容Private Sub ShowData()Dim j As IntegerDim i As IntegerSet mrc = ExecuteSQL(txtSQL, MsgText)With msgList.Rows = 1Do While Not mrc.EOF.Rows = .Rows + 1For i = 1 To mrc.Fields.CountSelect Case mrc.Fields(i - 1).TypeCase adDBDate.TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy-mm-dd")Case Else.TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & ""End SelectNext imrc.MoveNextLoopEnd Withmrc.CloseEnd Sub'显示Grid表头Private Sub ShowTitle()Dim i As IntegerWith msgList.Cols = 8.TextMatrix(0, 1) = "".TextMatrix(0, 2) = "顾客姓名".TextMatrix(0, 3) = "身份证号码".TextMatrix(0, 4) = "房间编号".TextMatrix(0, 5) = "入住日期".TextMatrix(0, 6) = "折扣".TextMatrix(0, 7) = "备注"'固定表头.FixedRows = 1'设置各列的对齐方式For i = 0 To 7.ColAlignment(i) = 0Next i'表头项居中.FillStyle = flexFillRepeat.Col = 0.Row = 0.RowSel = 1.ColSel = .Cols - 1.CellAlignment = 4'设置单元大小.ColWidth(0) = 300.ColWidth(1) = 0.ColWidth(2) = 1000.ColWidth(3) = 2000.ColWidth(4) = 2000.ColWidth(5) = 1000.ColWidth(6) = 1000.ColWidth(7) = 600.Row = 1End WithEnd SubPrivate Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) '右键弹出If Button = 2 And Shift = 0 ThenPopupMenu fMainForm.menuBookinEnd IfEnd Sub4：结算信息窗体源代码：Option Explicit'是否改动过记录，ture为改过Dim mblChange As BooleanDim mrc As ADODB.RecordsetPublic txtSQL As StringPrivate Sub cboItem_Change(Index As Integer)'有变化设置gblchangemblChange = TrueEnd SubPrivate Sub cboItem_Click(Index As Integer)Dim sSql As StringDim MsgText As StringDim mrcc As ADODB.RecordsetDim intCount As IntegerIf gintCmode = 1 Then'初始化员工名称和IDIf Index = 0 ThencboItem(1).Enabled = TruecboItem(2).Enabled = TruecboItem(3).Enabled = TruecboItem(1).ClearcboItem(2).ClearcboItem(3).CleartxtSQL = "select roomNO,roomtype,roomposition,roomprice from rooms where roomNO ='" & Trim(cboItem(0)) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)If Not mrcc.EOF ThencboItem(1).AddItem mrcc!roomtypecboItem(2).AddItem mrcc!roompositioncboItem(3).AddItem mrcc!roompricecboItem(1).Enabled = FalsecboItem(2).Enabled = FalsecboItem(3).Enabled = FalsecboItem(1).ListIndex = 0cboItem(2).ListIndex = 0cboItem(3).ListIndex = 0cmdSave.Enabled = TrueElseMsgBox "没有订房信息！", vbOKOnly + vbExclamation, "警告"cmdSave.Enabled = FalseExit SubEnd Ifmrcc.ClosetxtSQL = "select * from bookin where ammount = '0' and roomno = '" & Trim(cboItem(0)) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)If Not mrcc.EOF ThentxtNo = mrcc!booknotxtItem(0) = mrcc!customnametxtItem(1) = mrcc!customIDtxtItem(2) = mrcc!indatetxtItem(3) = mrcc!discounttxtItem(5) = mrcc!inmemoFor intCount = 0 To 3txtItem(intCount).Enabled = FalseNext intCountEnd Ifmrcc.CloseEnd IfEnd IfExit SubEnd SubPrivate Sub cboItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Sub cmdExit_Click()If mblChange And cmdSave.Enabled ThenIf MsgBox("保存当前记录的变化吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then'保存Call cmdSave_ClickEnd IfEnd IfUnload MeEnd SubPrivate Sub cmdSave_Click()Dim intCount As IntegerDim sMeg As StringDim mrcc As ADODB.RecordsetDim MsgText As StringDim bYear As IntegerDim eYear As IntegerDim bDays As IntegerDim eDays As IntegerDim aDays As IntegerDim amMount As DoubleIf Trim(txtItem(4) & " ") = "" ThenMsgBox sMeg, vbOKOnly + vbExclamation, "警告"txtItem(4).SetFocusExit SubEnd IfIf IsDate(txtItem(4)) ThentxtItem(4) = Format(txtItem(4), "yyyy-mm-dd")ElseMsgBox "入库时间应输入日期（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"txtItem(4).SetFocusExit SubEnd If'再加入新记录txtSQL = "select * from bookin where bookno = '" & Trim(txtNo) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)mrcc.Fields(6) = txtItem(5)mrcc.Fields(7) = txtItem(4)bYear = DatePart("yyyy", txtItem(2))eYear = DatePart("yyyy", txtItem(4))bDays = DatePart("y", txtItem(2))eDays = DatePart("y", txtItem(4))If bYear = eYear ThenaDays = eDays - bDaysElseaDays = (eYear - bYear - 1) * 365 + (365 - bDays) + eDaysEnd Ifmrcc.Fields(8) = aDays * Trim(cboItem(3)) * Trim(txtItem(3)) / 100amMount = aDays * Trim(cboItem(3)) * Trim(txtItem(3)) / 100mrcc.Updatemrcc.ClosetxtSQL = "select * from rooms where roomNO = '" & cboItem(0) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)If Not mrcc.EOF Thenmrcc!putup = " "End Ifmrcc.Updatemrcc.CloseIf gintCmode = 1 ThenUnload MemblChange = FalseMsgBox "金额为" & amMount & "元，结算完毕！", vbOKOnly + vbExclamation, "添加结算信息"If flagCedit ThenUnload frmCheckoutEnd IffrmCheckout.txtSQL = "select * from bookin where ammount <> '0'"frmCheckout.ShowElseIf gintCmode = 2 ThenMsgBox "金额为" & amMount & "元，结算信息修改完毕！", vbOKOnly + vbExclamation, "修改结算信息"Unload MeIf flagCedit ThenUnload frmCheckoutEnd IffrmCheckout.txtSQL = "select * from bookin where ammount <> '0'"frmCheckout.ShowEnd IfEnd SubPrivate Sub Form_Load()Dim sSql As StringDim intCount As IntegerDim MsgText As StringIf gintCmode = 1 ThenMe.Caption = Me.Caption & "添加"'初始化物资名称txtSQL = "select DISTINCT roomno from bookin where ammount = '0'"Set mrc = ExecuteSQL(txtSQL, MsgText)If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0).AddItem Trim(mrc!roomno)mrc.MoveNextLoopElseMsgBox "没有顾客入住！", vbOKOnly + vbExclamation, "警告"cmdSave.Enabled = FalseExit SubEnd Ifmrc.CloseElseIf gintCmode = 2 ThenSet mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenWith mrctxtNo = mrc.Fields(0)For intCount = 0 To 1txtItem(intCount) = .Fields(intCount + 1)Next intCountcboItem(0).AddItem .Fields(3)cboItem(0).ListIndex = 0For intCount = 2 To 3If Not IsNull(.Fields(intCount + 2)) ThentxtItem(intCount) = .Fields(intCount + 2)End IfNext intCounttxtItem(5) = .Fields(6)txtItem(4) = .Fields(7)End WithEnd Ifmrc.ClosetxtSQL = "select * from rooms where roomNO = '" & cboItem(0) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenWith mrcFor intCount = 1 To 3cboItem(intCount).AddItem .Fields(intCount)cboItem(intCount).ListIndex = 0Next intCountEnd WithEnd Ifmrc.CloseFor intCount = 0 To 3txtItem(intCount).Enabled = FalseNext intCountMe.Caption = Me.Caption & "修改"End IfmblChange = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer)gintCmode = 0End SubPrivate Sub txtItem_Change(Index As Integer)'有变化设置gblchangemblChange = TrueEnd SubPrivate Sub txtItem_GotFocus(Index As Integer)txtItem(Index).SelStart = 0txtItem(Index).SelLength = Len(txtItem(Index))End SubPrivate Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub5：结算信息查询窗体源代码：Option Explicit'用于传递查询块Private Sub chkItem_Click(Index As Integer)If Index = 2 ThencboYear(0).SetFocusElsetxtItem(Index).SetFocusEnd IfEnd SubPrivate Sub cmdExit_Click()Me.HideEnd SubPrivate Sub cmdOK_Click()Dim dBeginDate As StringDim sQSql As StringIf chkItem(0).Value = vbChecked ThensQSql = " customname = '" & Trim(txtItem(0) & " ") & "'"End IfIf chkItem(1).Value = vbChecked ThenIf Trim(sQSql & " ") = "" ThensQSql = " roomno ='" & Trim(txtItem(1) & " ") & "'"ElsesQSql = sQSql & " and roomno ='" & Trim(txtItem(1) & " ") & "'"End IfEnd IfIf chkItem(2).Value = vbChecked ThendBeginDate = Format(CDate(cboYear(0) & "-" & cboMonth(0) & "-" & cboDay), "yyyy-mm-dd")If Trim(sQSql & " ") = "" ThensQSql = " indate ='" & dBeginDate & "'"ElsesQSql = sQSql & " and indate ='" & dBeginDate & "'"End IfEnd IfIf Trim(sQSql) = "" ThenMsgBox "请设置查询条件！", vbOKOnly + vbExclamation, "警告"Exit SubElseIf flagBedit ThenUnload frmCheckoutEnd IffrmCheckout.txtSQL = "select * from bookin where ammount <> '0' and " & sQSqlfrmCheckout.ShowEnd IfMe.HideEnd SubPrivate Sub Form_Load()Dim i As IntegerDim j As IntegerDim sSql As StringDim txtSQL As StringDim MsgText As StringDim mrc As ADODB.RecordsettxtSQL = "select distinct datepart(yy,indate) from bookin where ammount <> '0'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenWith mrcDo While Not .EOFcboYear(0).AddItem .Fields(0).MoveNextLoopEnd WithcboYear(0).ListIndex = 0For j = 1 To 12cboMonth(0).AddItem jNext jcboMonth(0).Text = Month(Now())For j = 1 To 31cboDay.AddItem jNext jcboDay.Text = Day(Now())ElsecmdOk.Enabled = FalseEnd Ifmrc.CloseEnd SubPrivate Sub lblitem_Click(Index As Integer)chkItem(Index).Value = vbCheckedEnd SubPrivate Sub txtItem_GotFocus(Index As Integer)txtItem(Index).SelStart = 0txtItem(Index).SelLength = Len(txtItem(Index))End Sub6：结算信息列表窗体源代码：Option ExplicitPublic txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringPrivate Sub Form_Load()ShowTitleShowDataflagCedit = TrueEnd SubPrivate Sub Form_Resize()If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then '边界处理If Me.ScaleHeight < 10 * lblTitle.Height ThenExit SubEnd IfIf Me.ScaleWidth < lblTitle.Width + lblTitle.Width / 2 ThenExit SubEnd If'控制控件的位置lblTitle.Top = lblTitle.HeightlblTitle.Left = (Me.Width - lblTitle.Width) / 2msgList.Top = lblTitle.Top + lblTitle.Height + lblTitle.Height / 2msgList.Width = Me.ScaleWidth - 200msgList.Left = Me.ScaleLeft + 100msgList.Height = Me.ScaleHeight - msgList.Top - 200 End IfEnd SubPublic Sub FormClose()Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer)flagCedit = FalsegintCmode = 0End Sub'显示Grid的内容Private Sub ShowData()Dim j As IntegerDim i As IntegerSet mrc = ExecuteSQL(txtSQL, MsgText)With msgList.Rows = 1Do While Not mrc.EOF.Rows = .Rows + 1For i = 1 To mrc.Fields.CountSelect Case mrc.Fields(i - 1).TypeCase adDBDate.TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy-mm-dd")Case Else.TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & ""End SelectNext imrc.MoveNextLoopEnd Withmrc.CloseEnd Sub'显示Grid表头Private Sub ShowTitle()Dim i As IntegerWith msgList.Cols = 10.TextMatrix(0, 1) = "".TextMatrix(0, 2) = "顾客姓名".TextMatrix(0, 3) = "身份证号码".TextMatrix(0, 4) = "房间编号".TextMatrix(0, 5) = "入住日期".TextMatrix(0, 6) = "折扣".TextMatrix(0, 7) = "备注信息".TextMatrix(0, 8) = "结算日期".TextMatrix(0, 9) = "金额"'固定表头.FixedRows = 1'设置各列的对齐方式For i = 0 To 9.ColAlignment(i) = 0Next i'表头项居中.FillStyle = flexFillRepeat.Col = 0.Row = 0.RowSel = 1.ColSel = .Cols - 1.CellAlignment = 4'设置单元大小.ColWidth(0) = 300.ColWidth(1) = 0.ColWidth(2) = 1000.ColWidth(3) = 2000.ColWidth(4) = 2000.ColWidth(5) = 2000.ColWidth(6) = 2000.ColWidth(7) = 2000.ColWidth(8) = 2000.ColWidth(9) = 1000.Row = 1End WithEnd SubPrivate Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) '右键弹出If Button = 2 And Shift = 0 ThenPopupMenu fMainForm.menuCheckoutEnd IfEnd Sub7：客房信息窗体源代码：Option Explicit'是否改动过记录，ture为改过Dim mblChange As BooleanDim mrc As ADODB.RecordsetPublic txtSQL As StringPrivate Sub cboItem_Change(Index As Integer)'有变化设置gblchangemblChange = TrueEnd SubPrivate Sub cboItem_Click(Index As Integer)Dim sSql As StringDim MsgText As StringDim mrcc As ADODB.Recordset'初始化员工名称和IDIf Index = 0 ThentxtSQL = "select typename,price from roomtype where typename='" & Trim(cboItem(0)) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)If Not mrcc.EOF ThentxtItem(2) = mrcc!pricecmdSave.Enabled = TrueElseMsgBox "请先建立客房标准！", vbOKOnly + vbExclamation, "警告"cmdSave.Enabled = FalseExit SubEnd Ifmrcc.CloseEnd IfExit SubEnd SubPrivate Sub cboItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Sub cmdExit_Click()If mblChange And cmdSave.Enabled ThenIf MsgBox("保存当前记录的变化吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then'保存Call cmdSave_ClickEnd IfEnd IfUnload MeEnd SubPrivate Sub cmdSave_Click()Dim intCount As IntegerDim sMeg As StringDim mrcc As ADODB.RecordsetDim MsgText As StringFor intCount = 0 To 3If Trim(txtItem(intCount) & " ") = "" ThenSelect Case intCountCase 0sMeg = "客房编号"Case 1sMeg = "客房位置"End SelectsMeg = sMeg & "不能为空！"MsgBox sMeg, vbOKOnly + vbExclamation, "警告"txtItem(intCount).SetFocusExit SubEnd IfNext intCountIf gintRmode = 1 ThentxtSQL = "select * from rooms where roomNO='" & Trim(txtItem(0)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenMsgBox "已经存在此客房编号的记录！", vbOKOnly + vbExclamation, "警告"txtItem(0).SetFocusExit SubEnd Ifmrc.CloseEnd IfIf gintRmode = 2 Then'先删除已有记录txtSQL = "delete from rooms where roomNO='" & Trim(txtItem(0)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)End If'再加入新记录txtSQL = "select * from rooms"Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.AddNewmrc.Fields(0) = Trim(txtItem(0))mrc.Fields(1) = Trim(cboItem(0))For intCount = 1 To 2If Trim(txtItem(intCount) & " ") = "" Thenmrc.Fields(intCount + 1) = NullElsemrc.Fields(intCount + 1) = Trim(txtItem(intCount))End IfNext intCountmrc.Fields(4) = " "mrc.Fields(5) = Trim(txtItem(3))mrc.Updatemrc.CloseIf gintRmode = 1 ThenFor intCount = 0 To 3txtItem(intCount) = ""Next intCountmblChange = FalseIf flagRedit ThenUnload frmRoomfrmRoom.txtSQL = "select * from rooms"frmRoom.ShowEnd IfElseIf gintRmode = 2 ThenUnload MeIf flagRedit ThenUnload frmRoomEnd IffrmRoom.txtSQL = "select * from rooms"frmRoom.ShowEnd IfEnd SubPrivate Sub Form_Load()Dim sSql As StringDim intCount As IntegerDim MsgText As StringDim mrcc As ADODB.RecordsetIf gintRmode = 1 ThenMe.Caption = Me.Caption & "添加"'初始化物资名称txtSQL = "select DISTINCT typename from roomtype"Set mrc = ExecuteSQL(txtSQL, MsgText)If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0).AddItem Trim(mrc.Fields(0))mrc.MoveNextLoopcboItem(0).ListIndex = 0ElseMsgBox "请先进行客房标准设置！", vbOKOnly + vbExclamation, "警告"cmdSave.Enabled = FalseExit SubEnd Ifmrc.CloseElseIf gintRmode = 2 ThenSet mrcc = ExecuteSQL(txtSQL, MsgText)If mrcc.EOF = False ThenWith mrcctxtItem(0) = .Fields(0)For intCount = 1 To 2If Not IsNull(.Fields(intCount + 1)) ThentxtItem(intCount) = .Fields(intCount + 1)End IfNext intCounttxtItem(3) = .Fields(5)txtSQL = "select DISTINCT typename from roomtype"Set mrc = ExecuteSQL(txtSQL, MsgText)If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0).AddItem Trim(mrc.Fields(0))mrc.MoveNextLoopcboItem(0).ListIndex = 0ElseMsgBox "请先进行客房标准设置！", vbOKOnly + vbExclamation, "警告"cmdSave.Enabled = FalseExit SubEnd Ifmrc.CloseEnd WithEnd Ifmrcc.CloseMe.Caption = Me.Caption & "修改"End IfmblChange = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer)gintRmode = 0End SubPrivate Sub txtItem_Change(Index As Integer)'有变化设置gblchangemblChange = TrueEnd SubPrivate Sub txtItem_GotFocus(Index As Integer)txtItem(Index).SelStart = 0txtItem(Index).SelLength = Len(txtItem(Index))End SubPrivate Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub8：客房信息查询窗体源代码：Option Explicit'用于传递查询块。