VB數(shù)據(jù)類型與簡單運(yùn)用

1、VB數(shù)據(jù)類型與簡單運(yùn)用 實(shí)驗(yàn)?zāi)康牧私釼B數(shù)據(jù)類型、常量、變量、運(yùn)算、函數(shù)、表達(dá)式的基本概念。2）初步進(jìn)行VB數(shù)值運(yùn)算處理。實(shí)驗(yàn)題目1）通過程序界面了解VB數(shù)據(jù)類型。設(shè)計(jì)一個(gè)窗體，有4個(gè)標(biāo)簽，1個(gè)組合框，3個(gè)文本框。運(yùn)行時(shí)組合框中選擇不同的變量類型，文本框顯示 相應(yīng)的初值、類型符、字節(jié)數(shù)。運(yùn)行界面如圖實(shí)驗(yàn)三01圖實(shí)驗(yàn)三012）輸入任意3個(gè)數(shù)，選出最大、最小兩數(shù)。設(shè)計(jì)一個(gè)窗體，有1個(gè)命令按鈕，3個(gè)標(biāo)簽，3個(gè)文本框。運(yùn)行時(shí)，單擊命令按鈕出現(xiàn)inputbox（）輸入框。只能 輸3個(gè)數(shù)，3個(gè)數(shù)后，重新開始。輸?shù)?個(gè)數(shù)時(shí)最大等于最小，以后自動(dòng)區(qū)分開。運(yùn)行界面如圖實(shí)驗(yàn)三02.圖實(shí)驗(yàn)三02實(shí)驗(yàn)背景及準(zhǔn)備1）初

2、步學(xué)習(xí)了 VB編程基礎(chǔ)，包括數(shù)據(jù)類型、常量、變量、運(yùn)算符、函數(shù)、表達(dá)式等。2）初步學(xué)習(xí)了邏輯運(yùn)算符、邏輯表達(dá)式。3）預(yù)習(xí)組合框控件預(yù)習(xí)if endif條件語句，select endselect情況選擇語句。 實(shí)驗(yàn)過程與主要步驟1)題目一：進(jìn)入VB,窗體上放置相應(yīng)控件，給出窗體、標(biāo)簽的標(biāo)題。組合框控件的作用是下拉顯示一列可供選擇的列表項(xiàng), 中選中某一項(xiàng)單擊時(shí)，激發(fā)click事件。因此，第一步，在組合框LIST屬性中手工填入各種變量類型名稱，如圖實(shí) 驗(yàn)三03所示；第二步，編寫Click事件過程。IKConbol ComboBox |按字母序|按分類序DataSource人Dragicon(None

3、)DragMode0 - ManualEnabledTrueF ont宋體ForeColor &H800000Height300HelpContextIOIMEMode0 - No OpeiIndexjlntegralMei g TrueHltemData(List)|Left360二J1 Llst(List)iLockedbyteAMouseiconboolean integerJList返回/設(shè)置控封 含的項(xiàng)。long single doublecurrencyV圖實(shí)驗(yàn)三03編寫Click事件過程首先需要知道所選中的是哪一項(xiàng)，組合框Listindex記錄了被選項(xiàng)的序號(hào)，所以可根據(jù) List

4、index的值再作相應(yīng)處理。因?yàn)榭蛇x項(xiàng)有11項(xiàng)之多，故比擬恰當(dāng)?shù)厥褂昧?Select Endselect情況語句，而不 是一般的If Endif條件語句。題目1的程序代碼如下：Option Explicit使得所有變量必須先定義，再使用。Private Sub Combol_Click()Dim qk As Integerqk = Combo 1.Listindex + 1組合框的listindex屬性返回當(dāng)前所選工程的序號(hào)(從0開始)。Select Case qk選擇語句Dim xl As ByteText 1.Text = xlTcxt2.Tcxt = nnText3.Text = 1Di

5、m x2 As BooleanTex tl.Text = x2Text2.Text =Tex t3 .Text = 2Dim x3 As IntegerText 1.Text = x3Text2.Text =”Text3.Text = 2Dim x4 As LongTextl.Text = x4Text2.Text = n&nText3.Text = 4Dim x5 As SingleTextl.Text = x5Text2.Text=n!HText3.Text = 4Dim x6 As DoubleTextl.Text = x6Text2.Text 廿Text3.Text = 8Dim x7

6、 As CurrencyTextl.Text = x7Text2.Text=nnText3.Text = 8Dim x8 As DateTextl.Text = x8Textl.Text =nnText3.Text = 8Dim x9 As StringTextl.Text = x9Textl.Text = n$nText3.Text= 可變”Dim xlO As Object對(duì)象變量定義后必須用set語句設(shè)置初值。此處初值無意義。Set x 10 = LoadPicturc(nG:vb 教材syO3syO3tOl.jpg)Textl.Text = xlOText2.Text =”Tex t3

7、 .Text = 4Case ElseDim xl 1 As VariantText!.Text = xl 1 Text2.Text = ,H, Text3.Text =可變 End Select End Sub2)題目二進(jìn)入VB,窗體上放置相應(yīng)控件，修改窗體與控件的標(biāo)題。最大值、最小值文本框的初始值為“二在命令 按鈕中使用Inputbox ()輸入框函數(shù)進(jìn)行數(shù)據(jù)輸入，因?yàn)橐薅ㄝ斎肴齻€(gè)數(shù)，所以用一個(gè)全局變量N來計(jì)數(shù)， N初值為每輸入一個(gè)數(shù)，N自動(dòng)加L。當(dāng)N=3后，重置N=0.。數(shù)值的大小比擬用、或v來進(jìn)行，結(jié)果為邏輯值真(True-1)或假(False。)。If Endif條件語句用來作不

8、同處理，由此，產(chǎn)生了分支程序。題目二的程序代碼如下：Option ExplicitPublic n As Integern 為全局變量Private x As Doublex 為私有變量Private Sub Command 1 _Click()If n = 0 Then，初始化Textl.Text=,n,Text2.Text =”Text3.Text=nnEnd Ifn = n + 1彳盾環(huán)3次x = InputBox。請(qǐng)輸入第” & Str(n) & 個(gè)數(shù))做字符串連接Text 1.Text = Textl.Text & x & Space(2)If n = 1 Then，只有一個(gè)數(shù)時(shí)Te

9、xt2.Text = xTex t3 .Text = xEnd IfIf n = 2 Then，有兩個(gè)數(shù)時(shí)If x Text2.Text ThenText3.Text = Text2.TextText2.Text = xElseText3.Text = xEnd IfEnd IfIf n = 3 Then有三個(gè)數(shù)時(shí)If x Text2.Text ThenTcxt2.Tcxt = xElseIf x Text3.Text ThenTex t3 .Text = xEnd IfEnd Ifn = 0End IfEnd SubPrivate Sub Form_Load() n = 0End Sub重新開始重新開始為變量n賦初值 實(shí)驗(yàn)小結(jié)1）初