




已閱讀5頁,還剩13頁未讀, 繼續(xù)免費(fèi)閱讀
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
VB程序設(shè)計(jì)實(shí)驗(yàn)單元一實(shí)驗(yàn)報(bào)告專業(yè)班級(jí): 姓名 學(xué)號(hào) 指導(dǎo)教師: 王自強(qiáng) 完成時(shí)間: 2015年3月21日星期六 實(shí)驗(yàn) 一VB環(huán)境和可視化編程基礎(chǔ)一、 實(shí)驗(yàn)?zāi)康? 了解Visual Basic的安裝2 掌握啟動(dòng)與退出Visual Basic3 掌握建立、編輯和運(yùn)行一個(gè)簡單應(yīng)用程序的全過程4 掌握基本控件的使用二、實(shí)驗(yàn)環(huán)境 VB6.0三、實(shí)驗(yàn)內(nèi)容1、編寫一程序,在文本框中統(tǒng)計(jì)在該窗口上鼠標(biāo)單擊的次數(shù)。 提示:對窗口編寫兩個(gè)事件:Form_Load事件對文本框初值設(shè)為空;Form_Click事件對文本框計(jì)數(shù)。 對文本框計(jì)數(shù):Text1=Val(text1)+1 。四、實(shí)驗(yàn)步驟1、繪制Label1的caption輸入“你單擊窗體的次數(shù):”2、繪制text。編程為:Private Sub Form_Click()Text1.Text = Val(Text1.Text) + 1End SubPrivate Sub Form_Load()Text1.Text = End Sub3、text的font size設(shè)置為“一號(hào)”五、實(shí)驗(yàn)結(jié)果VB程序設(shè)計(jì)實(shí)驗(yàn)單元一實(shí)驗(yàn)報(bào)告專業(yè)班級(jí): 網(wǎng)媒1403班 姓名 凌紫怡 學(xué)號(hào) 201424050320 指導(dǎo)教師: 王自強(qiáng) 完成時(shí)間: 2015年3月21日星期六 實(shí)驗(yàn) 一VB環(huán)境和可視化編程基礎(chǔ)二、 實(shí)驗(yàn)?zāi)康? 了解Visual Basic的安裝2 掌握啟動(dòng)與退出Visual Basic3 掌握建立、編輯和運(yùn)行一個(gè)簡單應(yīng)用程序的全過程4 掌握基本控件的使用二、實(shí)驗(yàn)環(huán)境 VB6.0三、實(shí)驗(yàn)內(nèi)容2、命令按鈕、字號(hào)、內(nèi)容和格式的復(fù)制練習(xí)。按鈕1:使得Text1中的文本按要求改變。 按鈕2:將Text1中選定的文本復(fù)制到Text2. 控件名屬性Form1Caption=”實(shí)驗(yàn)2”Label1復(fù)制文本Label2輸入文本Text1Text=“VB功能強(qiáng)大,但要下功夫?qū)W習(xí)才能學(xué)好。”Text2Text=”Command1Caption=”隸書25磅”Command2Caption=”復(fù)制=”四、實(shí)驗(yàn)步驟1、label1的caption輸入“復(fù)制效果”;label2的caption輸入“輸入文本”。2、繪制兩個(gè)text。Private Sub Text1_Click()Text1.Text = VB功能強(qiáng)大,但要下功夫?qū)W習(xí)才能學(xué)好。End SubPrivate Sub Text2_click()Text2.Text = End Sub3、以及兩個(gè)Command。Command1的caption輸入“隸書25磅”;Command2的caption輸入“復(fù)制=”。Private Sub Command1_Click()Text1.FontName = 隸書Text1.FontSize = 25End SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeEnd Sub五、實(shí)驗(yàn)結(jié)果實(shí)驗(yàn)二 VB語言基礎(chǔ)和順序結(jié)構(gòu)一 、實(shí)驗(yàn)?zāi)康?、掌握正確書寫表達(dá)式、賦值語句的規(guī)則2、掌握常用函數(shù)的使用3、掌握InputBox與MsgBox的使用4、掌握Print和Format的使用二、 實(shí)驗(yàn)環(huán)境 VB6.0三、 實(shí)驗(yàn)內(nèi)容1、輸入半徑的值,分別計(jì)算并輸出圓的面積、圓的周長和球的體積。四、實(shí)驗(yàn)步驟1、繪制一個(gè)label,caption為r。2、繪制四個(gè)text,編寫程序代碼為:Private Sub Text1_Change()Text2.Text = Text3.Text = Text4.Text = End Sub3、繪制三個(gè)command,command1的caption為“圓的面積”;command2的caption為“圓的周長”;command3的caption為“圓的體積”。編寫程序代碼為:Private Sub Command1_Click()a = 3.14Text2.Text = a * Text1.Text * Text1.TextEnd SubPrivate Sub Command2_Click()a = 3.14Text3.Text = 2 * a * Text1.TextEnd SubPrivate Sub Command3_Click()a = 3.14Text4.Text = 4 / 3 * a * Text1.Text * Text1.Text * Text1.TextEnd Sub五、實(shí)驗(yàn)結(jié)果實(shí)驗(yàn)二 VB語言基礎(chǔ)和順序結(jié)構(gòu)一 、實(shí)驗(yàn)?zāi)康?、掌握正確書寫表達(dá)式、賦值語句的規(guī)則2、掌握常用函數(shù)的使用3、掌握InputBox與MsgBox的使用4、掌握Print和Format的使用二、 實(shí)驗(yàn)環(huán)境 VB6.0三、 實(shí)驗(yàn)內(nèi)容2、隨機(jī)產(chǎn)生一個(gè)3位正整數(shù),然后逆序輸出,產(chǎn)生的隨機(jī)數(shù)與逆序數(shù)同時(shí)顯示。例如735,輸出537.提示:利用“Mod”和“”將一個(gè)3位數(shù)分離出3個(gè)1位數(shù),然后連接成一個(gè)逆序的3位數(shù)。四、實(shí)驗(yàn)步驟1、繪制一個(gè)text,并編寫程序代碼:Private Sub Text1_Change()Label1 = End Sub2、繪制一個(gè)label,label的border style屬性為1-fixed single3、繪制兩個(gè)command,command1的caption命名為“產(chǎn)生”;command2的caption命名為“逆序”并且編寫程序?yàn)椋篜rivate Sub Command1_Click()Text1.Text = Int(Rnd * 900 + 100)End SubPrivate Sub Command2_Click()Dim x%, x1%, x2%, x3%x = Val(Text1.Text)x1 = x Mod 10x2 = (x Mod 100) 10x3 = x 100Label1 = x1 * 100 + x2 * 10 + x3End Sub五、實(shí)驗(yàn)結(jié)果實(shí)驗(yàn)三 選擇結(jié)構(gòu)一、實(shí)驗(yàn)?zāi)康?、 掌握邏輯表達(dá)式的正確書寫形式。2、 掌握單分支與雙分支條件語句的使用。3、 掌握多分支條件語句的使用。4、 掌握情況語句的使用及其與多分支條件語句之間的區(qū)別。二、實(shí)驗(yàn)環(huán)境 VB6.0三、實(shí)驗(yàn)內(nèi)容1、 輸入3個(gè)整數(shù),輸出最大的數(shù)。四、實(shí)驗(yàn)步驟1、繪制一個(gè)label,它的caption是“輸入三個(gè)整數(shù)”2、繪制四個(gè)text,并且編寫程序代碼為Private Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = End Sub3、繪制兩個(gè)command,command1的caption為“輸出最大值”并且編寫程序代碼為Private Sub Command1_Click()x = Val(Text1.Text)y = Val(Text2.Text)z = Val(Text3.Text)If x y And x z ThenText4.Text = xElseIf y z ThenText4.Text = yElseText4.Text = zEnd IfEnd SubCommand2的caption為“清空”,并且編寫程序?yàn)镻rivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub五、實(shí)驗(yàn)結(jié)果三、實(shí)驗(yàn)內(nèi)容2、 輸出150-200的能被7但不能被3整除的數(shù)。四、實(shí)驗(yàn)步驟1、繪制一個(gè)command,它的caption為“輸出150-200的能被7但不能被3整除的數(shù)”2、command1的程序代碼為Private Sub Command1_Click()Dim a As IntegerFor a = 150 To 200If a Mod 7 = 0 And a Mod 3 0 Then Print aNext aEnd Sub五、實(shí)驗(yàn)結(jié)果三、實(shí)驗(yàn)內(nèi)容3、 輸入一個(gè)三位數(shù),判斷是否為水仙數(shù)。水仙數(shù)的特點(diǎn):個(gè)位數(shù)、十位數(shù)和百位數(shù)的立方和等于該數(shù)自身的數(shù)。四、實(shí)驗(yàn)步驟1、繪制一個(gè)command,它的caption為“判斷是否為水仙數(shù)”2、command1的程序代碼為Private Sub Command1_Click()Dim a As Singlea = InputBox(輸入一個(gè)三位數(shù),判斷其是否為水仙數(shù), 輸入三位數(shù))Dim b, c, db = a Mod 10c = (a Mod 100) 10d = a 100If b 3 + c 3 + d 3 = a ThenPrint 是ElsePrint 否End IfEnd Sub五、實(shí)驗(yàn)結(jié)果實(shí)驗(yàn)四 循環(huán)結(jié)構(gòu)一、實(shí)驗(yàn)?zāi)康?、 掌握For語句的使用。2、 掌握Do語句的各種形式的使用。3、 掌握如何控制循環(huán)條件,防止死循環(huán)或不循環(huán)。二、實(shí)驗(yàn)環(huán)境 VB6.0三、實(shí)驗(yàn)內(nèi)容1. 一個(gè)富翁試圖與陌生人做一筆換錢生意,換錢規(guī)則為:陌生人每天給富翁10萬元錢,直到滿一個(gè)月(30天);而富翁第一天給陌生人1分錢,第二天2分,第三天4分,富翁每天給陌生人的前是前一天的兩倍,直到滿一個(gè)月。分別顯示富翁給陌生人的錢和陌生人給富翁的錢為多少?四、實(shí)驗(yàn)步驟1、繪制一個(gè)command,它的caption為“計(jì)算”,程序代碼為Private Sub Command1_Click()a = 100000s1 = a * 30Print 陌生人給富人的錢是:; s1n = 0.01s2 = 0For k = 1 To 30s2 = s2 + nn = 2 * nNext kPrint 富人給陌生人的錢是:; s2End Sub五、 實(shí)驗(yàn)結(jié)果實(shí)驗(yàn)四 循環(huán)結(jié)構(gòu)一、實(shí)驗(yàn)?zāi)康?、 掌握For語句的使用。5、 掌握Do語句的各種形式的使用。6、 掌握如何控制循環(huán)條件,防止死循環(huán)或不循環(huán)。二、實(shí)驗(yàn)環(huán)境 VB6.0三、實(shí)驗(yàn)內(nèi)容2. 用計(jì)算機(jī)安排考試日程。期末某專業(yè)在周一至周六的六天要考a,b,c三門課,考試順序?yàn)橄瓤糰,
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 智能制造與工業(yè)園區(qū)的協(xié)同發(fā)展路徑
- 公共服務(wù)體系優(yōu)化對經(jīng)開區(qū)發(fā)展的影響
- A-Level化學(xué)(A2)2024-2025年度有機(jī)合成與分析化學(xué)模擬試卷(含解析)
- 2025年校園欺凌防治與干預(yù)制度:加強(qiáng)學(xué)生心理輔導(dǎo)隊(duì)伍建設(shè)
- 2025年注冊安全工程師化工安全模擬試卷:化工工藝與安全管理實(shí)戰(zhàn)技巧精講集
- 教聯(lián)體與社會(huì)資本的合作發(fā)展模式
- 推動(dòng)健美操創(chuàng)新的現(xiàn)狀及總體形勢
- 影視產(chǎn)業(yè)對區(qū)域人才培養(yǎng)與引進(jìn)的促進(jìn)作用
- 提高學(xué)生急救實(shí)踐能力的教學(xué)工具開發(fā)
- 小麥抗白粉病育種的面臨的問題、機(jī)遇與挑戰(zhàn)
- 2024年青海格爾木公開招聘社區(qū)工作者考試試題答案解析
- 四川省成都市青羊區(qū)2024年中考語文二模試卷(含答案)
- 2025屆高考語文專題復(fù)習(xí):散文內(nèi)容要點(diǎn)概括分析散文形象 課件
- 硅橡膠模具合同(2篇)
- 農(nóng)村三資管理課件
- 《貴州省安全生產(chǎn)風(fēng)險(xiǎn)分級(jí)管控和隱患排查治理“雙控”體系建設(shè)實(shí)施指南(2018年試行)》
- 教育數(shù)學(xué)概論知到智慧樹章節(jié)測試課后答案2024年秋成都師范學(xué)院
- 2025“背鍋”第一案!寧夏興爾泰化工集團(tuán)有限公司“12·2”事故調(diào)查報(bào)告課件
- 落地式腳手架專項(xiàng)施工方案
- 體彩代銷者考試題及答案
- 2025-2030中國保安服務(wù)行業(yè)發(fā)展分析及發(fā)展趨勢預(yù)測報(bào)告
評論
0/150
提交評論