《VB語言程序設(shè)計(jì)》實(shí)驗(yàn)報(bào)告

實(shí)驗(yàn)名稱：選擇結(jié)構(gòu)程序設(shè)計(jì)

姓    名      xxx    

學(xué)    號：   3090511075   

同 組 者：_________________

專業(yè)班號：     管093     

實(shí)驗(yàn)日期：_________________

教師簽字：_________________

一、實(shí)驗(yàn)?zāi)康募耙?SPAN lang=EN-US>

    通過本實(shí)驗(yàn)使學(xué)生：理解條件表達(dá)式的含義及作用；掌握IF語句的使用方法；掌握多分支語句Select…Case…End Select的使用方法和使用特點(diǎn)；掌握選擇結(jié)構(gòu)常見問題解法，能夠編寫簡單的基于選擇結(jié)構(gòu)的應(yīng)用程序解決實(shí)際問題；掌握選擇性控件（單選按鈕OptionButton和復(fù)選框CheckBox）的使用。

二、實(shí)驗(yàn)設(shè)備及環(huán)境

P4 PC機(jī) 、Visual basic6.0編程環(huán)境

三、實(shí)驗(yàn)內(nèi)容

1. 已知學(xué)號由9位數(shù)組成，如：032343001，其中前2位表示年級，第5位表示學(xué)生類型（類型規(guī)定如下：2-博士，3-碩士，4-本科，5-?？疲ＴO(shè)計(jì)程序，從文本框輸入學(xué)號，在另外兩個(gè)文本框中顯示該生年級及學(xué)生類型。

2. 設(shè)計(jì)對輸入字符進(jìn)行轉(zhuǎn)換的程序。要求在文本框中每輸入一個(gè)字符就進(jìn)行判斷和轉(zhuǎn)換，轉(zhuǎn)換結(jié)果顯示在另一文本框中。（轉(zhuǎn)換規(guī)則為：將其中小寫字母轉(zhuǎn)換為大寫，大寫字母轉(zhuǎn)換為小寫，其余非字母字符轉(zhuǎn)換為“*”）。

3. 設(shè)計(jì)程序，利用3個(gè)復(fù)選框代表紅、綠、藍(lán)三顏色值，當(dāng)選中復(fù)選框時(shí)表示顏色值為255，不選中為0，把通過RGB函數(shù)調(diào)配的顏色作為一個(gè)標(biāo)簽的背景色

四、實(shí)驗(yàn)步驟

1.題

（1）用戶界面設(shè)計(jì)

（2）關(guān)鍵程序代碼（指明針對哪一對象的什么事件，可用截圖）

Private Sub Command1_Click()

Dim s As String, nj As String, lx As String

s = Text1.Text

nj = Mid(s, 2, 1)

Text2.Text = nj

lx = Mid(s, 5, 1)

If lx = "2" Then

        Text3.Text = "博士"

ElseIf lx = "3" Then

 Text3.Text = "碩士"

ElseIf lx = "4" Then

        Text3.Text = "本科"

ElseIf lx = "5" Then

        Text3.Text = "專科"

Else

 Text3.Text = "學(xué)號出錯(cuò)！"

End If

End Sub

（3）運(yùn)行結(jié)果（界面圖）

2.題

（1）用戶界面設(shè)計(jì)

（2）程序代碼

Private Sub Text1_keypress(keyascii As Integer)

Select Case keyascii

Case 97 To 122

      Text2.Text = Text2.Text + UCase(Chr(keyascii))

Case 65 To 90

      Text2.Text = Text2.Text + LCase(Chr(keyascii))

Case Else

     Text2.Text = Text2.Text + "*"

End Select

End Sub

(3)運(yùn)行結(jié)果

3題

（1）用戶界面設(shè)計(jì)

（2）程序代碼

Dim x As Integer, y As Integer, z As Integer

Private Sub Check1_Click()

If Check1.Value = 1 Then

x = 255

Else

x = 0

End If

Label1.BackColor = RGB(x, y, z)

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

y = 255

Else

y = 0

End If

Label1.BackColor = RGB(x, y, z)

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

z = 255

Else

z = 0

End If

Label1.BackColor = RGB(x, y, z)

End Sub

（3）運(yùn)行結(jié)果

五、實(shí)驗(yàn)總結(jié)

   通過本次實(shí)驗(yàn)，了解了選擇結(jié)構(gòu)程序設(shè)計(jì)中常用的一些語句，更熟悉VB編程的一些細(xì)節(jié)。