VB程序?qū)嶒?yàn)報(bào)告

VB 程序設(shè)計(jì)程序設(shè)計(jì) 實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)報(bào)告 實(shí)驗(yàn)二實(shí)驗(yàn)二 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì) 學(xué)院電子電氣班級(jí)1 班學(xué)號(hào)20110804姓名 實(shí)驗(yàn)日期2012 批次1地點(diǎn)教師 教 師 評(píng) 語(yǔ) 年 月 日 一 實(shí)驗(yàn)?zāi)康囊?實(shí)驗(yàn)?zāi)康?1 掌握表達(dá)式 賦值語(yǔ)句的正確使用與書(shū)寫(xiě)規(guī)則 2 掌握常用函數(shù)的使用 3 掌握 InputBox 與 MsgBox 函數(shù) 過(guò)程 的使用 4 掌握各種數(shù)據(jù)類(lèi)型 5 掌握 VB 程序基本的輸入輸出方法 二 實(shí)驗(yàn)內(nèi)容 你做了哪幾個(gè)題 二 實(shí)驗(yàn)內(nèi)容 你做了哪幾個(gè)題 1 必做題 全做 2 選做題 無(wú) 三 簡(jiǎn)述其中一題 寫(xiě)清題號(hào) 的具體操作步驟三 簡(jiǎn)述其中一題 寫(xiě)清題號(hào) 的具體操作步驟 實(shí)驗(yàn) 2 2b 具體操作步驟如下 1 打開(kāi) VB 程序 創(chuàng)建一個(gè)新的標(biāo)準(zhǔn)窗口 2 在窗口的相應(yīng)位置 分別建立 4 個(gè) label 并在屬性框中的 label 的 caption 處 更改 label 的名稱(chēng) label1 更名為 輸入原文 Label2 更名為 轉(zhuǎn)換后 Label3 更 名為 字串長(zhǎng) Label4 更名為 去空格后 3 分別在以上建立的 4 個(gè) label 后再建立 4 個(gè) text text1 text2 text3 text4 并在 屬性框中一一清除其 caption 后的名稱(chēng) 4 在窗口的最后建立 3 個(gè)按鈕 并在屬性框的 caption 中分別更改名稱(chēng)為 轉(zhuǎn)換成大 寫(xiě) 轉(zhuǎn)換成小寫(xiě) 統(tǒng)計(jì)字串長(zhǎng) 5 雙擊按鈕 對(duì)按鈕進(jìn)行編程 輸入程序如下 Private Sub Command1 Click Text2 UCase Text1 End Sub Private Sub Command2 Click Text2 LCase Text1 End Sub Private Sub Command3 Click Text3 Len Text1 Text4 Len Trim Text1 End Sub Private Sub Form Load End Sub 計(jì)算機(jī)技術(shù)基礎(chǔ) 計(jì)算機(jī)技術(shù)基礎(chǔ) VB 實(shí)驗(yàn)報(bào)告 實(shí)驗(yàn)報(bào)告 實(shí)驗(yàn)二實(shí)驗(yàn)二 四 思考并回答四 思考并回答 1 寫(xiě)出實(shí)驗(yàn)中的代碼 2 1a代碼是 Private Sub Command1 Click Text2 Text 2 3 14 Val Text1 End Sub Private Sub Command2 Click Text3 Text 3 14 Val Text1 2 End Sub Private Sub Form Load End Sub Private Sub Text1 LostFocus If Not IsNumeric Text1 Then i MsgBox 輸入了非法字符 64 提示 Text1 Text1 SetFocus End If Text2 Text3 End Sub 2 1b代碼是 Private Sub Command1 Click Const pi 3 14159 Dim r As Single l As Single s As Single r InputBox 請(qǐng)輸入半徑 輸入半徑 s pi r 2 l 2 pi r Label2 Label2 r Label3 Label3 Str l label4 label4 Str s End Sub 2 2 2a代碼是 Private Sub Command1 Click Text1 ForeColor RGB 255 0 0 Text2 ForeColor RGB 255 0 0 Text2 PasswordChar Text1 Text1 2006000 Text2 Text2 TJin1234 End Sub Private Sub Command2 Click End End Sub Private Sub Form Load End Sub Private Sub Text1 GotFocus Text1 Text1 ForeColor RGB 0 0 0 End Sub Private Sub Text2 GotFocus Text2 Text2 ForeColor RGB 0 0 0 Text2 PasswordChar End Sub 3 2 2b代碼是 Private Sub Command1 Click Text2 UCase Text1 End Sub Private Sub Command2 Click Text2 LCase Text1 End Sub Private Sub Command3 Click Text3 Len Text1 Text4 Len Trim Text1 End Sub Private Sub Form Load End Sub 4 2 2c代碼是 5 2 3a代碼是 Private Sub Command1 Click Dim x y x Text1 y Text2 x y Text3 x Text4 y End Sub Private Sub Command2 Click Dim x y x Text1 y Text2 y x Text3 x Text4 y End Sub Private Sub Command3 Click Dim x y x Text1 y Text2 x x 1 Text3 x Text4 y End Sub Private Sub Command4 Click Dim x y x Text1 y Text2 x x y Text3 x Text4 y End Sub Private Sub Command5 Click Dim x y x Text1 y Text2 x y y x Text3 x Text4 y End Sub Private Sub Command6 Click Dim x y t x Text1 y Text2 t x x y y t Text3 x Text4 y Text5 t End Sub Private Sub Form Load End Sub 6 2 3b代碼是 Private Sub Command1 Click Dim r1 r2 r3 X r1 Val Text2 r2 Val Text3 r3 Val Text4 X 1 1 r1 1 r2 1 r3 Label5 計(jì)算結(jié)果 X End Sub 五 簡(jiǎn)述本次實(shí)驗(yàn)存在的問(wèn)題五 簡(jiǎn)述本次實(shí)驗(yàn)存在的