2020国产成人精品视频,性做久久久久久久久,亚洲国产成人久久综合一区,亚洲影院天堂中文av色

分享

vb選擇結(jié)構(gòu)試驗(yàn)報(bào)告

 依依work 2011-11-10

 

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-??疲TO(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é)。

    本站是提供個(gè)人知識管理的網(wǎng)絡(luò)存儲空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多