vb等級考試題目與評析57-資料下載頁
2024-09-04 23:26本頁面
【導讀】請根據(jù)以下各小題的要求設計VisualBasic應用程序?！懊畎粹o2”，編寫適當?shù)氖录^程。程序的運行情況如圖所示。存盤時必須存放在考生文件夾下，工程文件名為，窗體文件。在名稱為Form1的窗體上畫一個列表框，其名稱為L1；一個水平滾動條，其名稱為HS1，smallChange屬性為2，LargeChange屬性為10，Min屬性為0，Max屬性為100，編寫適當?shù)氖录^程。是“xx”，其中xx是滾動框所在的位置，如圖所示。所得的和，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計算數(shù)組arr. 中顯示“停止”，在標簽中用字體大小為16的粗體顯示“熱烈歡迎”，同時把計時器的Interval屬性設置為50，Enabled屬性設置為True。改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程。2）統(tǒng)計后的每個字母的次數(shù)必須存入考生文件夾下的，否則沒有成績。主要考查了多行文本框的使用，同時也考查了文件的操作，以及顯示格式的控制。
【正文】 數(shù)必須存入考生文件夾下的 ，否則沒有成績。在文件中的格式為： 字母 A 出現(xiàn)的次數(shù)為 xx 字母 B 出現(xiàn)的次數(shù)為 xx 字母 C 出現(xiàn)的次數(shù)為 xx 字母 D 出現(xiàn)的次數(shù)為 xx 注意：不能修改已經(jīng)給出的程序部分；在結束程序運行之前，必須單擊“保存”按鈕，把結果存入，否則無成績。最后把修改后的文件按原文件名存盤。 圖 1 圖 2 主要考查了多行文本框的使用，同時也考查了文件的操作，以及顯示格式的控制。 程序主要代碼如下： Private Sub Command1_Click() Open For Input As 1 Do While Not EOF(1) Input 1, a$ s = s amp。 a$ Loop Close 1 = s End Sub Private Sub Command2_Click() For i = 1 To Len() Select Case Mid$(, i, 1) Case a, A: a = a + 1 Case b, B: b = b + 1 Case c, C: c = c + 1 Case d, D: d = d + 1 End Select Next i = 字母 A出現(xiàn)的次數(shù)為 amp。 Format(a, 00) = amp。 vbCrLf amp。 字母 B出現(xiàn)的次數(shù)為 amp。 Format(b, 00) = amp。 vbCrLf amp。 字母 C出現(xiàn)的次數(shù)為 amp。 Format(c, 00) = amp。 vbCrLf amp。 字母 D出現(xiàn)的次數(shù)為 amp。 Format(d, 00) End Sub Private Sub Command3_Click() Open For Output As 1 Print 1, Close 1 End Sub
公司管理相關推薦
鄂ICP備17016276號-1