在Form1添加一個標簽(標題為“輸入信息”)一個文本框

《在Form1添加一個標簽(標題為“輸入信息”)一個文本框》由會員上傳分享，免費在線閱讀，更多相關內(nèi)容在應用文檔-天天文庫。

1、基礎題(1)【解題思路】根據(jù)題意，須在命令按鈕的Click事件過程中，將標簽和文本框的Visible屬性值設置為False，并用Print方法將文本框的內(nèi)容輸出到窗體上。【操作步驟】步驟1：建立界面，并設置控件的屬性。程序中用到的控件及屬性見表3.99。表3.99步驟2：編寫程序代碼。參考答案PrivateSubCommand1_Click()Form1.PrintText1.TextLabel1.Visible=FalseText1.Visible=FalseEndSub步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤。基礎題(2)【解題思路】FontSize

2、屬性可用來設置文本框中字體的大小。Value屬性用于設置滾動條滑塊的當前位置值，當滾動框的位置改變時，觸發(fā)Change事件?！静僮鞑襟E】步驟1：建立界面，并設置控件的屬性。程序中用到的控件及屬性見表3.100。表3.100步驟2：編寫程序代碼。參考答案PrivateSubHScroll1_Change()Text1.FontSize=HScroll1.ValueEndSub步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤。簡單題(1)【解題思路】通過InpatBox函數(shù)接收用戶輸入信息，在"添加項目"單擊事件過程中，運用AddItem方法添加列表框內(nèi)容，在"刪除

3、項目"單擊事件中運用RemaneItem方法移除列表框內(nèi)容。【操作步驟】步驟1：打開本題工程文件，添加一個名稱為List1列表框和一個名稱為Text1文本框，然后建立一個菜單，其屬性見表3.101。表3.101標題控件項目添加項目刪除項目名稱ItemAddDelete內(nèi)縮符號011步驟2：分析并編寫程序代碼。程序提供代碼PrivateSubAdd_Click()　　　　Text1.Text=InputBox("請輸入要添加的項目")　　　　'List1.AddItem?EndSubPrivateSubDelete_Click()Text1.Text=InputB

4、ox("請輸入要刪除的項目")'Fori=0To?　　　　'IfList1.List(i)=?Then　　　　　　'List1.RemoveItem?　　　　EndIfNextiEndSub程序結(jié)束參考答案第1個？處填入：Text1.Text第2個？處填入：List1.ListCount-1第3個？處填入：Text1.Text第4個？處填入：i步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤。簡單題(2)【解題思路】本題在For循環(huán)語句中，應使用CInt函數(shù)將數(shù)組arr1中每個元素的數(shù)據(jù)類型轉(zhuǎn)換為整型，并賦給數(shù)組arr2具有相同下標的元素。變量temp記錄的是4

5、個文本框中輸入數(shù)據(jù)的平均值，顯示在窗體標題欄中。【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。程序提供代碼OptionBase1PrivateSubSort(a()AsInteger)DimStartAsInteger,FinishAsIntegerDimiAsInteger,jAsInteger,tAsInteger'Start=？(a)'Finish=？(a)'Fori=?To2Step-1　　　　'Forj=1To?　　　　　　'Ifa(j)?a(j+1)Then　　　　　　　　t=a(j+1)　　　　　　　　a(j+1)=a(j)　　

6、　　　　　　a(j)=t　　　　　　EndIf　　　　NextjNextiEndSubPrivateSubCommand1_Click()Dimarr1Dimarr2(4)AsIntegerarr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))Fori=1To4　　　　arr2(i)=CInt(arr1(i))NextiSortarr2()Text1.Text=arr2(1)Text2.Text=arr2(2)Text3.Text=arr2(3)Text4.Text=

7、arr2(4)EndSub程序結(jié)束參考答案第1個？處填入：LBound第2個？處填入：UBound第3個？處填入：4第4個？處填入：3第5個？處填入：>步驟3：調(diào)試并運行程序，關閉程序后按題目要求存盤。綜合題【解題思路】本題需編寫"讀入數(shù)據(jù)"、"計算并輸出"和"存盤"命令的單擊事件過程。在"讀數(shù)"命令的單擊事件過程中，通過調(diào)用ReadData過程將數(shù)據(jù)從in5.txt文件讀入數(shù)組Arr(窗體變量)中；在"計算"命令的單擊事件過程中，在For循環(huán)語句(循環(huán)變量i的初值為1，終值為100)中依次將數(shù)組Arr中大于等于50的元素的值顯示在文本框中，并將其值累加到變量s

8、um；在"保存"命令的單