VB程序設(shè)計階段性作業(yè)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上中國地質(zhì)大學(武漢)遠程與繼續(xù)教育學院VB程序設(shè)計課程作業(yè)3（共 4 次作業(yè)）學習層次：專升本 涉及章節(jié)：第8章 第9章一、判斷題1聲明形參處缺省傳遞方式聲明，則為按值傳遞（Byval）。2過程中的靜態(tài)變量是局部變量，當過程再次被執(zhí)行時，它的值是上一次過程調(diào)用后的值。3雖然標簽控件顯示的文本在運行時不能編輯，但是可以通過程序代碼進行改變。標拖動控件來定位。4要在文本框中輸入6位密碼，并按回車鍵確認，則文本框的MaxLength屬性可設(shè)置為6。5單選鈕能響應Click事件，但不能響應KeyPress事件。6移動框架時框架內(nèi)控件也跟隨移動，因此框架內(nèi)控件的Left和Top

2、屬性值也隨之改變。7從幾十個項目中任選其中一項或多項時可選用列表框或組合框控件來實現(xiàn)。 8用戶可拖動滾動條的滾動滑塊來改變滾動條的Value值，在移動滾動滑塊時，發(fā)生Change事件。9由于定時器控件在運行時是不可見的，因此在設(shè)置時可將其放在窗體的任何位置。二、選擇題1將焦點主動設(shè)置到指定的控件或窗體上，應采用 方法。A、SetDate B、SetFocus C、SetText D、GetGata 2要使文本框顯示滾動條，除了設(shè)置ScrollBars屬性外還必須設(shè)置 屬性。A、AutoSize B、MultiLine C、Alignment D、Visible3要使復選框控件不響應Click事

3、件，可設(shè)置復選框的 屬性。A、Appearance B、Style C、Enabled D、TabIndex4以下 語句將刪除列表框List1中的最后一項。A、List1.RemoveItem List1.ListCount B、List1.ClearC、List1.List(List1.ListCount-1)= D、List1.RemoveItem List1.ListCount-15設(shè)計動畫時通常用定時器控件 屬性來控制動畫速度。A、Interval B、Timer C、Move D、Enabled三、填空題1調(diào)用過程時對形參的改變不會導致相應實參變量的改變，則該形參采用 （按值傳遞/按

4、地址傳遞）方式。2在窗體Form1的過程中引用窗體Form2中的全局變量y，寫作 。3運行時，若需要命令按鈕為灰色，即不被擊活，在設(shè)計時可以通過 屬性來實現(xiàn)。4要讓控件隱藏起來，處于不可見狀態(tài)，可修改其 屬性。5運行時單擊復選框，將使復選框的Value值取 。6當列表框的MultiSelect屬性值為 時，單擊列表項或按空格鍵可以實現(xiàn)復選。7拖動滾動條的滾動滑塊時僅發(fā)生 事件。8定時器控件只能接收 事件。9定時器的Interval屬性值不得大于 。四、程序閱讀題（寫出下列程序的運行結(jié)果）程序1. 請寫出在Text1、Text2、Text3中依次輸入3、4、5后，單擊窗體時Label1的顯示結(jié)果

5、。Private Sub Form_Click() Dim a As Single, b As Single, c As Single a = Text1.Text: b = Text2.Text: c = Text3.Text Label1.Caption = Str(a * a + 2 * b * b + 3 * c * c)End Sub程序2. 寫出程序運行時，單擊Option1(2)后，窗體上的顯示結(jié)果。Private Sub Form_Load() Option1(0).Value = False: Option1(1).Value = False: Option1(2).Valu

6、e = FalseEnd SubPrivate Sub Option1_Click(Index As Integer) Select Case Index Case 0 Check1(0).Value = 1: Check1(1).Value = 0 Case 1 Check1(0).Value = 0: Check1(1).Value = 1 Case 2 Check1(0).Value = 1: Check1(1).Value = 1 End Select If Check1(0).Value = 1 Then Print 您好 If Check1(1).Value = 1 Then Pr

7、int 歡迎使用Visual Basic!End Sub程序3. 寫出程序運行時，在組合框中輸入“香蕉”并按回車鍵后，列表框中的所有表項。Private Sub Form_Load() Combo1.AddItem 西瓜: Combo1.AddItem 蘋果: Combo1.AddItem橘子 Combo1.AddItem 葡萄: Combo1.AddItem 哈密瓜 Combo1.AddItem 火龍果: Combo1.AddItem 柚子 Combo1.List(0) = 李子: Combo1.List(7) = 獼猴桃End SubPrivate Sub Combo1_KeyPress(

8、KeyAscii As Integer)Dim i As IntegerIf KeyAscii = 13 Then Combo1.List(Combo1.ListCount) = Combo1.TextList1.ClearFor i = 0 To Combo1.ListCount - 1If Len(Trim(Combo1.List(i) =5 Then Timer1.Enabled = FalseEnd SubPublic Sub sub1(n As Integer) n = n + 1 Print n=; nEnd Sub五、程序填空題1【程序說明】窗體上已建立命令按鈕Command1（

9、開始）、Command2（結(jié)束）和文本框Text1，Text1中輸入字符個數(shù)不得超過100個。開始運行時，“結(jié)束”命令按鈕不能響應；按“開始”命令按鈕后，將文本框中的字符按其ASCII碼值由小到大順序從左到右重新排列，并在窗體上輸出重新排列后的字符串，同時“結(jié)束”命令按鈕能響應，“開始”按鈕不能響應。Private Sub Command1_Click() Dim n As Byte, i As Byte, j As Byte, p As Byte Dim a(100) As String * 1, str1 As String, t As String str1 = Text1.Text:

10、n = Len(str1) For i = 1 To n: （1） : Next i For i = 1 To n - 1 p = i For j = i + 1 To n If a(p) a(j) Then （2） Next j If p i Then t = a(i): （3） : a(p) = t Next i For i = 1 To n: Print a(i);: Next i （4） Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Comman

11、d2.Enabled = FalseEnd Sub2【程序說明】利用1個定時器、1個標簽和2個命令按鈕制作一個動態(tài)秒表。各控件名稱取缺省值，控件Command1、Command2標題分別為“開始”、“結(jié)束”。運行時，單擊“開始”按鈕后秒表開始計時，并在標簽上顯示總秒數(shù)；單擊“結(jié)束”按鈕后，計時結(jié)束，在窗體上顯示出運行的時間（折算成小時、分鐘和秒數(shù)）。Dim x As LongPrivate Sub Form_Load() Timer1.Interval = 1000: Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click() Cls x

12、 = 0 （1） End SubPrivate Sub Command2_Click() Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = （2） m = （3） s = x Mod 3600 Mod 60 Print 運行了 + Str(h) + 小時 + Str(m) + 分 + Str(s) + 秒End SubPrivate Sub Timer1_Timer() （4） Label1.Caption = xEnd Sub3【程序說明】本題是利用計時器控件來實現(xiàn)文字的水平移動，要求：（1）運行時

13、標簽框內(nèi)的文字從窗體左邊向右邊移動，當標簽框的左邊界超出窗體的右邊界時，從窗體的左邊進入窗體（尾部先進入）。（2）文字移動時顏色不斷產(chǎn)生隨機變化。 Private Sub Form_Load() Form1.WindowState = 2 Timer1.Interval = 100End SubPrivate Sub Timer1_Timer() Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) （1） = Label1.Left + 150 If Label1.Left = Form1.Width Then （2） End Sub

14、六、程序設(shè)計題1在窗體上建立命令按鈕“Command1”（顯示）和“Command2”（退出）。運行時，“Command2”按鈕始終顯示“退出”；單擊“顯示”按鈕后窗體上顯示“歡迎使用Visual Basic！”，同時標題改為“清除”，再單擊“清除”按鈕后，界面恢復窗體裝入時的初始狀態(tài)。2編制一個演示文本操作的程序，界面如圖10-3所示，要求各命令按鈕為一個控件數(shù)組。（1）程序剛運行時3個命令按鈕均不能響應。（2）當選擇文本之后Label1顯示響應的提示，“剪切”和“復制”按鈕能夠響應。（3）單擊“剪切”或“復制”按鈕后，所有按鈕中只有“粘貼”按鈕能響應。（4）單擊“粘貼”按鈕后，3個命令按鈕

15、都不能響應。圖10-3 程序設(shè)計題5的窗體界面3編制1個用于進制轉(zhuǎn)換的應用程序，運行時的界面如圖10-6所示。 圖10-5 程序設(shè)計題8的界面設(shè)計 圖10-6 程序設(shè)計題9的界面設(shè)計4設(shè)計一個字幕推出程序。程序界面如圖10-7所示，標簽的字號在定時器的控制下每個時間間隔放大2磅并且保持標簽在窗體中水平居中，當標簽的字號超過72時，定時器停止響應Timer事件。字號放大的速度由水平滾動條控制，部分程序已經(jīng)設(shè)計如下：Private Sub Form_Load() Label1.Left = Width / 2 - Label1.Width / 2 Label1.AutoSize = True HS

16、croll1.Min = 1: HScroll1.Max = 1000 HScroll1.SmallChange = 10: HScroll1.LargeChange = 100 HScroll1.Value = 500: Timer1.Interval = 500End Sub請設(shè)計其他事件過程。圖10-7 程序設(shè)計題10的界面設(shè)計參考答案一、判斷題1 2 3 4 5 6 7 8 9二、選擇題1B 2B 3C 4D 5A三、填空題1按值傳遞 2Form2.y3Enabled 4Visible 50或1 61 7Scroll8Timer 965535四、程序閱讀題（寫出下列程序的運行結(jié)果）程序

17、1 116 程序2. 您好歡迎使用Visual Basic!程序3. 李子 蘋果 橘子葡萄柚子香蕉程序4.y = 6y = 14程序5.n = 1n = 3n = 5五、程序填空題1（1）a(i) = Mid(str1, i, 1) 或 a(i) = Mid(Text1.Text, i, 1) （2）p = j （3）a(i) = a(p) （4）Command2.Enabled = True2（1）Timer1.Enabled = True （2）x 3600 （3）(x Mod 3600) 60 或 (x - 3600 * h) 60 （4）x = x + 1 3（1）Label1.Lef

18、t （2）Label1.Left = -Label1.Width六、程序設(shè)計題程序1. 界面設(shè)計略，過程設(shè)計如下：Private Sub Command1_Click() If Command1.Caption = 顯示 Then Print 歡迎使用Visual Basic！: Command1.Caption = 清除 Else Form1.Cls: Command1.Caption = 顯示 End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load()Form1.Cls: Command1.Capt

19、ion = 顯示: Command2.Caption = 退出End Sub程序2界面設(shè)計如圖10-3所示，過程設(shè)計如下：Private Sub Form_Load() Command1(0).Enabled = False: Command1(1).Enabled = False Command1(2).Enabled = False: Label1.Caption = End SubPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 Clipboard.Clear: Clipboard.SetText

20、Text1.SelText Text1.SelText = : Label1.Caption = 請選擇要粘貼的位置！ Command1(0).Enabled = False: Command1(1).Enabled = False Command1(2).Enabled = True Case 1 Clipboard.Clear: Clipboard.SetText Text1.SelText Label1.Caption = 請選擇要粘貼的位置！: Command1(0).Enabled = False Command1(1).Enabled = False: Command1(2).Enabled = True Case Else Text1.SelText = Clipboard.GetText(): Form_Load Label1.Caption = 粘貼完成！ End SelectEnd SubPrivate Su