[問答題] 完成下列問題：

在名稱為Form1的窗體上畫一個名稱為Hscroll1的水平滾動條，其刻度范圍為1～100；再畫一個名稱為Text1的文本框，初始內(nèi)容為1。程序開始運(yùn)行時，焦點(diǎn)在滾動條上。請編寫適當(dāng)?shù)氖录^程，使得程序運(yùn)行時，文本框中實(shí)時顯示滾動框的當(dāng)前位置，運(yùn)行情況如圖2所示。

注意：要求程序中不得使用變量，每個事件過程中只能寫一條語句。存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。

[操作步驟] 第1步：新建一個標(biāo)準(zhǔn)EXE工程，保持窗體默認(rèn)屬性不變。 第2步：在窗體上畫一個水平滾動條，將其Min屬性設(shè)置為1，Max屬性設(shè)置為100。由于先添加滾動條，后添加文本框，滾動條的TabIndex屬性默認(rèn)為0，所以無須修改。 第3步：添加文本框。在窗體上畫一個文本框，將其Text屬性改為1。 第4步：編寫代碼。雙擊窗體上的滾動條控件進(jìn)入代碼編輯窗口，編寫如下事件過程： Private Sub HScroll1_Change() Text1.Text=HScroll1.Value

滾動條的刻度范圍由Min和Max兩個屬性決定，對于本題只需將滾動條的Min屬性設(shè)置為1，Max屬性設(shè)置為100即可滿足刻度范圍要求。窗體上控件焦點(diǎn)的順序由各控件的TabIndex屬性控制。程序運(yùn)行時，要求焦點(diǎn)在滾動條上，只需將滾動條的TabIndex屬性設(shè)置為0即可。滾動條的滑塊位置由其Value屬性設(shè)置，當(dāng)Value屬性值發(fā)生改變時會引發(fā)滾動條的Change事件。