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

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

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

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

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