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

1、VB程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)二 順序結(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)康?掌握表達(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è)題）1必做題：全做2選做題：無(wú)三、簡(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處 更改labe

2、l的名稱(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 SubPrivate Sub Command2_

3、Click()Text2 = LCase(Text1)End SubPrivate Sub Command3_Click()Text3 = Len(Text1)Text4 = Len(Trim(Text1)End SubPrivate Sub Form_Load()End Sub計(jì)算機(jī)技術(shù)基礎(chǔ)（VB）實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)二四、思考并回答1寫(xiě)出實(shí)驗(yàn)中的代碼：2-1a代碼是：Private Sub Command1_Click()Text2.Text = 2 * 3.14 * Val(Text1)End SubPrivate Sub Command2_Click()Text3.Text = 3.14 *

4、Val(Text1) 2End SubPrivate Sub Form_Load()End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1) Theni = MsgBox("輸入了非法字符！", 64, "提示")Text1 = ""Text1.SetFocusEnd IfText2 = ""Text3 = ""End Sub2-1b代碼是：Private Sub Command1_Click()Const pi = 3.14159D

5、im r As Single, l As Single, s As Singler = InputBox("請(qǐng)輸入半徑:", "輸入半徑")s = pi * r 2l = 2 * pi * rLabel2 = Label2 & rLabel3 = Label3 + Str(l)label4 = label4 + Str(s)End Sub22-2a代碼是：Private Sub Command1_Click()Text1.ForeColor = RGB(255, 0, 0)Text2.ForeColor = RGB(255, 0, 0)Text2

6、.PasswordChar = ""Text1 = (Text1 = "2006000")Text2 = (Text2 = "TJin1234")End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_GotFocus()Text1 = ""Text1.ForeColor = RGB(0, 0, 0)End SubPrivate Sub Text2_GotFocus()Text2 = &

7、quot;"Text2.ForeColor = RGB(0, 0, 0)Text2.PasswordChar = "*"End Sub3 2-2b代碼是：Private Sub Command1_Click()Text2 = UCase(Text1)End SubPrivate Sub Command2_Click()Text2 = LCase(Text1)End SubPrivate Sub Command3_Click()Text3 = Len(Text1)Text4 = Len(Trim(Text1)End SubPrivate Sub Form_Load(

8、)End Sub4. 2-2c代碼是：5. 2-3a代碼是：Private Sub Command1_Click()Dim x%, y%x = Text1: y = Text2x = yText3 = xText4 = yEnd SubPrivate Sub Command2_Click()Dim x%, y%x = Text1: y = Text2y = xText3 = xText4 = yEnd SubPrivate Sub Command3_Click()Dim x%, y%x = Text1: y = Text2x = x + 1Text3 = xText4 = yEnd SubPr

9、ivate Sub Command4_Click()Dim x%, y%x = Text1: y = Text2x = x + yText3 = xText4 = yEnd SubPrivate Sub Command5_Click()Dim x%, y%x = Text1: y = Text2x = y: y = xText3 = xText4 = yEnd SubPrivate Sub Command6_Click()Dim x%, y%, t%x = Text1: y = Text2t = x: x = y: y = tText3 = xText4 = yText5 = tEnd SubPrivate Sub Form_Load()End Sub6. 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