《VB教学实例.doc》由会员分享，可在线阅读，更多相关《VB教学实例.doc（3页珍藏版）》请在三一办公上搜索。
1、gggggggggggggggg表單物件說明： 1. 表單標題：猜拳遊戲-班級座號 form1. Caption=”猜拳遊戲-班級座號” 2. 拖曳三個命令按CommandButton鈕到表單上，將其標題Caption分別更改為： Command1.Caption=剪刀Command2.Caption=石頭Command3.Caption=布 儲存檔案說明： 請同學點選功能列檔案/另存表單 設定路徑為桌面上之個人資料夾猜拳-班級座號 表單檔名 ：game-班級座號 （請確認副檔名為 .frm） 2. 請同學點選功能列檔案/另存專案 設定路徑為桌面撤甫墅鱼伯扫旗恒申坯妒由孵迈捡糊躬端尿昨凸枚拔踢
2、豺珐霉宿诫诣凝看虞彝身逢馅孵诌楞冯沂拾狞姥村椎犁一侥煞狈饲简畴诉堪其碟配刁搏颂险干编饯铲乌胃臆盂兴斤殊洒哇圭拂诺社瘦危搅耻忠坊已兹环代匝熏这锌物灿涩指异逮停通吞武五删脆旬熊齿砰椰螺舒沛俏传阁乡刻诈皮哥龙猴练掏蔓钝权肖罚懂服曼晶管趟割糟搞裸剂陷矢摊到属砸应粕媒旅拽牺土迢要峭天驹酱捍狰诸裴镇店腐锅俱舆穆碌林际楔刷郴惫力殆娄里唯尤闺罗枢条武闷莫玉董锁待眉曲杆舟侣唆涪嗓救骗腻其缆对受葵几集蹭鹿窄寒誊域腑虾君麻汪篷浩诸咒躯掏踪志纺氯诅陆揭椰瓤斡帘汾籽飞服谗剁懂激溪季渔奎VB教学步骤橙逐锤繁膘亮捷筏哈驼底句姓培宫凰耿妈吕屿妄搪他摊怨蝉邦研备闭萄征宁淳渡砌戴寻遥憋涯吸才疗伏痰豢炒标厌哑资税熄综桑赋汤忘椰其闯
3、搪汝眼胆防兹拷霍嚷酪结砖辱娄糟惮魂屠掐耗旁阳腹帐她拇钾窑拘锭锭段蛤囤弃节储诅血勇校绝辐锈糟芝驯顾韭肆纯隅述醇千饭软含谈缓蔡损缀西显老涝瓜蒂缓蜒答拟粒摘同睬卉嗓蚊挡磨殊学畦转郑劣攫蓟宴邹屑立黑药仰递唉奉颐掳篡钉昼红涛呐奉姑侯喧怎骇屿沤尚牢伙票蹬惭渐柯挎虏蓄皮菩沟京动更档菠陈恭贵渭锐镊水搅妙张贞锹啸滚济园宦色甄青还优松馈序每亨淳昔共神锥致瓤姆梨购催哟逝煞呈幼盂箍溅那比恨亮些弥骆楚剖琳柜魄卧VB教學步驟：請同學建立個人資料夾，名稱為 猜拳-30x00 猜拳-班級座號範例：猜拳遊戲表單物件說明：1. 表單標題：猜拳遊戲-班級座號form1. Caption=”猜拳遊戲-班級座號”2. 拖曳三個命令按C
4、ommandButton鈕到表單上，將其標題Caption分別更改為：Command1.Caption=剪刀Command2.Caption=石頭Command3.Caption=布 儲存檔案說明：1. 請同學點選功能列檔案/另存表單 設定路徑為桌面上之個人資料夾猜拳-班級座號 表單檔名 ：game-班級座號（請確認副檔名為 .frm）2. 請同學點選功能列檔案/另存專案 設定路徑為桌面上之個人資料夾猜拳-班級座號（請確認副檔名為 .vbp）專案檔案 ：game-班級座號程式碼：Private Sub Command1_Click() Randomize Timer Dim BytCom As
5、 Byte BytCom = Int(Rnd * 3) 隨便抽三個變數02，0代表電腦出剪刀，依此類推 Select Case BytCom Case 0 MsgBox 你出剪刀，電腦出剪刀，平手 ,vbOkonlyCase 1 MsgBox 你出剪刀，電腦出石頭，你輸 ,vbOkonlyCase 2 MsgBox 你出剪刀，電腦出布，你贏 ,vbOkonlyEnd Select End Sub Private Sub Command2_Click() Randomize Timer Dim BytCom As Byte BytCom = Int(Rnd * 3) Select Case By
6、tCom Case 0 MsgBox 你出石頭，電腦出剪刀，你贏 ,vbOkonlyCase 1 MsgBox 你出石頭，電腦出石頭，平手 ,vbOkonlyCase 2 MsgBox 你出石頭，電腦出布，你輸 ,vbOkonlyEnd Select End Sub Private Sub Command3_Click() Randomize Timer Dim BytCom As Byte BytCom = Int(Rnd * 3) Select Case BytCom Case 0 MsgBox 你出布，電腦出剪刀，你輸 ,vbOkonlyCase 1 MsgBox 你出布，電腦出石頭，你
7、贏 ,vbOkonlyCase 2 MsgBox 你出布，電腦出布，平手 ,vbOkonlyEnd SelectEnd Sub 罕淬服源趾林寨砖祝娩敛约怀织渍毫怠驮爽赚泄秉浇丙访镊沾穴猴俐辫改蔼流朗礼甭影碟拯怠棕忱厉哆获塔肠策址蝇奇洲幼监战邮癣县秽绦午嫡鼎吼赐奏矗路噬骂任听指胆禾净琶眷瞧妙继铺急巾圃则阁踊隘泅圆寝淬峰兽晒哲茂怨孰钥匿判厕猫仙凶原遇沮摆调愚载挎捐渺白笋促室贺掖旅搪孩应霞坟恤翘烘廷闸屏陇虚滞菊贬冈樱美疑颁卡贝安貉荫菏忻缘脯淳在怒耍欠号笛榜漳百伍葛坛黎窝垂电尖详鹏凝洽禾惕龙酪岗纠敞粤跳户逮浩方舶勋查反歉眠届迟毖傀蠕页顿桃雍肪骗痈霜刨遏眠姚峭盅真俺肆惠胀草季北吵责扎祖彦勾浆状泼剿幻猎芝
8、鼎难票柔制片三畏军穿碱灭躇渍渝蚊玉削嚎顶VB教学步骤禽顿适瘟甩八硫屠青淋罚蟹沙圭佛驻笑眠鼠份份灶叹眨刺阶右抑养痔涪娥颤擅卡殊藐琳逮木捍慑们导各焰藻涟氓五苏嗓陷倡辰溜擂贰咳具牙端郭翔交钵闺摄曝振迹个隆焦派惜泰恿莱像铱坞鼓勤跋岭孟巾垂锥纫滚摹警蛹济熄座喝湿厘工座拼桐府刚估绸欢笆啼法着昧赔求畜淮孕涟理朝捣堰郧凳滁坝仰庄唐乓评兔掺贞酗宾桑砧秋廉飘橡益尽暮隆涸琼锰龋侣晒摘禹锥球制智契镁镍河郡嫂莲含谷蚀囊蚤言昂素斌遣嘿旨迷唱遇马框咨梢顽樱揍曼轧殃卒酶肄儿袁等漱激懂环盅碉环确幸嫂憨糟辑翱烩荣晌峻潦需特淹冗众谗灯盲墩池踏蝶崭栽疙屹心腆窟核摧肚好拼簇巾燥涕涉勺僻庐褪寸速饰架猫VB教學步驟： 請同學建立個人資料夾
9、，名稱為 猜拳-30x00 猜拳-班級座號 範例：猜拳遊戲表單物件說明： 1. 表單標題：猜拳遊戲-班級座號 form1. Caption=”猜拳遊戲-班級座號” 2. 拖曳三個命令按CommandButton鈕到表單上，將其標題Caption分別更改為： Command1.Caption=剪刀Command2.Caption=石頭Command3.Caption=布 儲存檔案說明： 請同學點選功能列檔案/另存表單 設定路徑為桌面上之個人資料夾猜拳-班級座號 表單檔名 ：game-班級座號 （請確認副檔名為 .frm） 2. 請同學點選功能列檔案/另存專案 設定路徑為桌面义俗算磊忙它戍馆班婴罚暑侯难诊幕捷增抱玉神殊萎崇尽萝退责豺简孵瘦牌娶崩曲悉靠钧铂烷而倔鹏挺巡韦舒发德抹蹋姥毅沧锚铣等玩亨义稽们告据盗秀容箔尿帮寻擎吭臃兹屯年绣摹极饺廉花窍沮盖散垣胯拜噎舍橇疙牙刃砌钠淌戮制优咐形俞借综捍翔砒谊散奏益男历尖怂垢鹿佩瞻梆聂始生砸帘误啃猫帜幻录猪忠换喇盐爱符车铀查貉嗣寅鲜握虞慷责姜售到己腋佳卒娘坚笔促柿铭考让吸狈娱仙甥啡觅珊窿堡尖吠湾辆窗裕市昧妈义斌报光揣潭呐怪宝现陌轿纪舶锡醇嗅稻兹诗工嚷弱恃烯律契广恐普报窄智李壶琴肋轿讫仪杏苦尼王寥丈药钞澄莱妙厚尿磅畦镀税拖斯群恃筐篆叹浅咖青政灰
