程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告.docx

VB程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告 實(shí)驗(yàn)日期：2010.09.16 一、實(shí)驗(yàn)?zāi)康呐c要求理解變量與常量的概念、定義及使用，并且理解程序設(shè)計(jì)的算法及算法表示；掌握各種常用數(shù)據(jù)類(lèi)型的數(shù)據(jù)在內(nèi)存中的存放形式，選擇及循環(huán)控制語(yǔ)句的運(yùn)用；了解自定義數(shù)據(jù)類(lèi)型，各種運(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)輸入值后按回車(chē)鍵，自動(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