综合性设计报告1丁朝彬.docVIP

综合性设计报告 综合设计题目： 程序应用 小组成员： 丁朝彬 222010325022096 潘俊坤 222010325022095 程贞雄 222010325022099 张凤菊 222010325022120 曹圣 222010325022100 周萌 222010325022094 10级园林4班 目录 综合设计题目...........................................................1 综合设计分工说明...................................................1 问题概述....................................................................1 问题分析....................................................................1 功能模块描述及功能模块图....................................1 源程序清单...........................................................2--10 测试数据及结果........................................................11 总结和体会................................................................11 一 综合设计题目 程序应用 二 综合设计分工说明 丁朝彬：收集资料 做游戏程序 做文件的复制粘贴程序 总结 潘俊坤：收集资料 做数据的运算程序设计 程贞雄：收集资料 做图像的处理程序设计 张凤菊：收集资料 做习题的程序设计 周萌 ：收集资料 做文件的打开，新建等的程序设计 曹圣： 收集资料 做排序的程序设计 三 问题概述 熟悉菜单的运用和使用 四 问题分析 方 法：利用VB编程实现一系列的程序使用 六 源程序清单 丁朝彬：Private Sub Command1_Click() Load Form1 Form1.Show Unload Me End Sub Private Sub Form_Activate() Option1.Caption = 石头 Option2.Caption = 剪刀 Option3.Caption = 布 Option1.Value = False Option2.Value = False Option3.Value = False End Sub Private Sub Option1_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox 对方也出石头！继续！ Case 1: MsgBox 哈哈！你赢了！对方出的是剪刀！奖励你一个苹果！ Case 2: MsgBox 你输了！对方出的是布哦！不好意思，苹果给对方了哈！ End Select Option1.Value = False End Sub Private Sub Option2_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox 你输了！对方出的是石头哦！不好意思，苹果给对方了哈！ Case 1: MsgBox 对方也出剪刀！继续！ Case 2: MsgBox 哈哈！你赢了！对方出的是布！奖励你一个苹果！ End Select Option2.Value = False End Sub Private Sub Option3_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox 哈哈！你赢了！对方出的是石头！奖励你一个苹果！ Case 1: MsgBox 你输了！对方出的是剪刀哦！不好意思，苹果给对方了哈！ Case 2: MsgBox 对方也出布！继续！ End Select Option3.Value = False End Sub Private Sub Command1_Click() Dim a As Single Dim b As Single Dim c As Single a = Int(Text1.