vb等級考試題目與評析68-資料下載頁
2024-09-04 16:50本頁面
【導(dǎo)讀】請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序。在名稱為Form1的窗體上畫一個水平滾動條，其名稱為HScroll1，Min屬性為0，Max屬性為100，LargeChange屬性為5，SmallChange屬性為2，然后再畫一個文本框，其名稱為Text1，初始內(nèi)容為空白，編寫適當(dāng)?shù)氖录^程。程序運行后，在文本框中。的運行情況如圖所示。程序中不得使用任何變量。存盤時必須存放在考生文件夾下，工程文件名為。列表框中的某個項目，則把標(biāo)簽中字體的大小設(shè)置為與該項目相同。在該控件中，用戶可通過設(shè)置Min，Max的值來決定滾動條的最大、最小。同時可通過SmallChage、LargeChange來決定單擊兩端箭頭、中間空白的位移量。第二題主要考查了ListBox控件的使用方法，在ListBox中選擇一項將觸發(fā)其Click事件，同時將ListIndex的屬。性設(shè)值為選中項的編號。名.ListIndex)的形式指出當(dāng)前ListBox中選中的項目。改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能。修改程序中的其他部分。級考試"；另有一個命令按鈕，其名稱為Command1，標(biāo)題為"反向顯示"，如圖1所示。本題主要考查了文件的讀寫操作，排序算法。
【正文】 As 1 = i = 0 Do Until EOF(1) Input 1, a(i) = amp。 a(i) amp。 i = i + 1 Loop c = i Close 1 End Sub Private Sub Command2_Click() Dim i As Integer, j As Integer, t As Integer For i = 0 To c 2 For j = i + 1 To c 1 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i = For i = 0 To c 1 If a(i) 500 Then Exit Sub = amp。 a(i) amp。 Next i End Sub Private Sub Command3_Click() Open For Output As 1 Print 1, Close 1 End Sub
公司管理相關(guān)推薦
鄂ICP備17016276號-1