




全文預(yù)覽已結(jié)束
VIP免費(fèi)下載
版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
VB程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告 實(shí)驗(yàn)日期:2010.09.16 一、實(shí)驗(yàn)?zāi)康呐c要求理解變量與常量的概念、定義及使用,并且理解程序設(shè)計(jì)的算法及算法表示;掌握各種常用數(shù)據(jù)類型的數(shù)據(jù)在內(nèi)存中的存放形式,選擇及循環(huán)控制語(yǔ)句的運(yùn)用;了解自定義數(shù)據(jù)類型,各種運(yùn)算符、表達(dá)式的使用方法,順序結(jié)構(gòu)程序設(shè)計(jì)方法;會(huì)用常用的內(nèi)部函數(shù),并且能夠靈活運(yùn)用各種選擇結(jié)構(gòu)進(jìn)行和循環(huán)控制進(jìn)行綜合程序設(shè)計(jì)。二、實(shí)驗(yàn)內(nèi)容1.設(shè)計(jì)一個(gè)字符大小寫(xiě)轉(zhuǎn)換程序,當(dāng)在文本框Text1中輸入大寫(xiě)字母,在文本框Text2中同時(shí)顯示其小寫(xiě)字母;當(dāng)在文本框Text1中輸入小寫(xiě)字母,在文本框Text2中同時(shí)顯示其大寫(xiě)字母;當(dāng)輸入其他字符,則在文本框Text2中原樣輸出。2. 編寫(xiě)華氏溫度與攝氏溫度的轉(zhuǎn)換程序,轉(zhuǎn)換公式如下:F = 95 c + 32 攝氏溫度轉(zhuǎn)化為華氏溫度,F(xiàn)為華氏溫度C = 59 F -32 華氏溫度轉(zhuǎn)化為攝氏溫度,C為攝氏溫度要求按兩種方法進(jìn)行轉(zhuǎn)換。(1) 用命令按鈕實(shí)現(xiàn)轉(zhuǎn)換,即單擊“轉(zhuǎn)換華氏”按鈕,則將攝氏溫度轉(zhuǎn)換成華氏溫度;同樣,單擊“轉(zhuǎn)換攝氏”按鈕,則將華氏溫度轉(zhuǎn)換成攝氏溫度。(2) 不用命令按鈕,當(dāng)文本輸入時(shí)直接完成轉(zhuǎn)換。當(dāng)用戶在“攝氏溫度”文本輸入框內(nèi)輸入值后按回車鍵,自動(dòng)將攝氏溫度轉(zhuǎn)換成華氏溫度;同樣,華氏轉(zhuǎn)換成攝氏的方法也是如此。三、實(shí)驗(yàn)步驟第一題實(shí)驗(yàn)步驟;(1) 將label1、label2的caption屬性寫(xiě)為“輸入文本”;(2) 將text1、text2的內(nèi)容清空;(3) 將form1的caption屬性改為“字符大小寫(xiě)轉(zhuǎn)換”。第二題實(shí)驗(yàn)步驟(1) 將命令按鈕Command1、Command2的caption屬性改為“轉(zhuǎn)換華氏”、“轉(zhuǎn)換攝氏”,并統(tǒng)一大小,設(shè)置間距;(2) 將label1、label2的caption屬性改為“攝氏溫度”、“華氏溫度”,并設(shè)置字體大小。(3) 將text1、text2的內(nèi)容清空;四、程序代碼第一題實(shí)驗(yàn)代碼:Private Sub Text1_KeyPress(KeyAscii As Integer)Select Case KeyAsciiCase 0 To 64Text2.Text = Text2.Text + Chr(KeyAscii)Case 65 To 90Text2.Text = Text2.Text + Chr(KeyAscii + 32)Case 97 To 122Text2.Text = Text2.Text + Chr(KeyAscii - 32)Case ElseKeyAscii = 0End SelectEnd Sub第二題實(shí)驗(yàn)代碼:Private Sub Command1_Click()Dim f!, c!c = Text1.Textf = 9 / 5 * c + 32Text2.Text = fEnd SubPrivate Sub Command2_Click()f = Text2.Textc = 5 / 9 * (f - 32)Text1.Text = cEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thenc = Text1.Textf = 9 / 5 * c + 32Text2.Text = fEnd IfSelect Case KeyAsciiCase 48 To 57, 8, 46Case ElseKeyAscii = 0End SelectEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thenf = Text2.Textc = 5 / 9 * (f - 32)Text1.Text = cE
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 衢州市教育局直屬公辦學(xué)校招聘教師筆試真題2024
- 2025年機(jī)械原理理論試題
- 截一個(gè)幾何體-教學(xué)設(shè)計(jì)
- 人工智能倫理與技術(shù)發(fā)展-洞察闡釋
- 重慶精細(xì)鐵粉生產(chǎn)線項(xiàng)目可行性研究報(bào)告(范文模板)
- 第一課 在美術(shù)世界中遨游 教材 教案 講義 教學(xué)設(shè)計(jì) 教學(xué)參考 教學(xué)案例(初一美術(shù)第十三冊(cè)(人美版))
- 2025至2030年中國(guó)瓷器壁掛行業(yè)投資前景及策略咨詢報(bào)告
- 手機(jī)企業(yè)經(jīng)營(yíng)管理方案
- 山東省淄博市2020-2021學(xué)年高二上學(xué)期期末生物試題(原卷版)
- 山東省臨沂市蘭陵縣2020-2021學(xué)年高二上學(xué)期期中教學(xué)質(zhì)量檢測(cè)生物試題(原卷版)
- 2025福建泉州工程職業(yè)技術(shù)學(xué)院及南安市翼融信資產(chǎn)運(yùn)營(yíng)有限公司招聘35筆試參考題庫(kù)附帶答案詳解析
- T/CCS 051-2023露天礦山自卸車無(wú)人駕駛系統(tǒng)總體要求
- GB/T 45611-2025鉆石鑒定與分類
- 2025至2030年中國(guó)豬預(yù)混料行業(yè)投資前景及策略咨詢研究報(bào)告
- 鐵路客車內(nèi)部裝修設(shè)計(jì)優(yōu)化方案
- 2025年中考第一次模擬考試(陜西卷)(參考答案及評(píng)分標(biāo)準(zhǔn))
- 鮮花顏色搭配培訓(xùn)課件
- 安檢服務(wù)課件
- 2025年中考化學(xué)復(fù)習(xí)新題速遞之創(chuàng)新實(shí)驗(yàn)(2025年4月)
- 2025-2030年中國(guó)電感市場(chǎng)趨勢(shì)分析及投資發(fā)展戰(zhàn)略研究報(bào)告
- (人教版)2025年中考生物真題試題(含解析)
評(píng)論
0/150
提交評(píng)論