在Form1、標題為“鼠標光標形狀”的窗體上添加一個文本框

1、真誠為您提供優(yōu)質(zhì)參考資料，若有不當之處，請指正?；A題(1)【解題思路】先將窗體的Caption屬性設置為鼠標光標形狀，然后再添加一個名稱為Text1的文本框。通過文本框和窗體的MousePointer屬性的設置，使鼠標在文本框中時，鼠標光標為箭頭(Arrow)形狀；在窗體中其他位置處，鼠標光標為十字(Cross)形狀?！静僮鞑襟E】步驟1：新建一個窗體，在窗體中添加一個窗體和一個文本框，然后按照題目要求設置控件屬性。程序中用到的控件及屬性見表3.78。 表3.78步驟2：調(diào)試并運行程序，關閉程序后按題目要求存盤。基礎題(2) 【解題思路】通過標簽的Name、Caption屬性設置標簽的名稱和標

2、題，通過命令按鈕的Name、Caption屬性設置命令按鈕的名稱和標題?！静僮鞑襟E】步驟1：建立界面，在窗體中添加3個文本框，一個命令按鈕和兩個標簽控件。并設置控件的屬性。程序中用到的控件及屬性見表3.79和表3.80。 步驟2：打開代碼編輯窗口，在指定位置編寫代碼。參考答案Private Sub Command1_Click() Text3 = Text1.SelLength Text2 = Text1.SelStartEnd Sub步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤。 【舉一反三】可以通過第35套第二大題的第二小題來進行同類知識點的練習。簡單題(1)【解題思路】窗體載入時，通

3、過滾動條的Min、Max屬性設置兩個滾動條的移動刻度值的范圍，滾動條刻度值的范圍是圓可以在矩形中移動的范圍。形狀控件的Top和Left屬性值隨著滾動條的Value屬性值的變化而改變，使水平滾動條的滾動塊在最左邊時，圓靠在矩形的左邊線上，滾動塊在最右邊時，圓靠在矩形的右邊線上。垂直滾動條的情況與此類似?！静僮鞑襟E】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。程序提供代碼Private Sub Form_load()HScroll1.Min = Shape2.LeftHScroll1.Max = Shape2.Width + Shape2.Left - Shape1. ?VScroll1

4、.Min = Shape2.TopVScroll1.Max = Shape2.Height + ? - Shape1.HeightHScroll1.Value = 1000VScroll1.Value = 1000End SubPrivate Sub HScroll1_Change()？ = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Shape1.Top = ?End Sub程序結(jié)束參考答案第1個？處填入：Width第2個？處填入：Shape2.Top第3個？處填入：Shape1.Left第4個？處填入：VScroll1.Value步驟

5、3：調(diào)試并運行程序，關閉程序后按題目要求存盤?！九e一反三】可以通過第19套第二大題的第二小題來進行同類知識點的練習。簡單題(2) 【解題思路】計時器的Interval屬性用來控制計時器事件發(fā)生的時間間隔(Interval是以毫秒為單位)。當單擊發(fā)射按鈕時開始計時，將計時器控件的Enabled屬性設置為True。航天飛機圖標將向上運動，速度逐漸加快，通過形狀控件的Height、Top屬性判斷是否全部進入云中后，如果全部進入則停止，這時需要將計時器控件的Enabled屬性設置為False，并把飛行距離d、所用時間(單位為秒)分別顯示在標簽Label1和Label2中；單擊保存按鈕，則把飛行距離、所

6、用時間存入考生文件夾下的out4.txt文件中。【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。程序提供代碼Dim a, t, dPrivate Sub Command1_Click()Timer1.? = Trued = Image1.TopEnd SubPrivate Sub Command2_Click()Open App.Path & out4.txt For Output As #1Print #1, Label1, Label2Close #1End SubPrivate Sub Form_Load()a = 1t = 0End SubPrivate Sub Timer1_Timer()Image1.Top = Image1.Top - a * 50If Image1.Top + Image1.Height c(j + 1) Then t = c(j) c(j) = c(j + 1) c(j + 1) = t f = False E