vb等級考試題目與評析67-資料下載頁
2025-08-26 10:04本頁面
【導(dǎo)讀】請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。在名稱為Form1，標(biāo)題為"窗體"的窗體上畫一個(gè)標(biāo)簽，其名稱為Label1，標(biāo)題為"等級考試"，BorderStyle屬性為1，且可以自動調(diào)整大小，再畫一個(gè)框架，名稱為Frame1，標(biāo)題為"科目"，如圖。存盤時(shí)必須存放在考生文件夾下，工程文件名為，窗體文件名為。在名稱為Form1的窗體上畫兩個(gè)圖像框，其名稱分別為Image1和Image2，Stretch屬性分別為True. 要求程序中不得使用變量。指定其要顯示的內(nèi)容，同時(shí)可通過Font屬性來設(shè)定要顯示文字的字體。第二題主要考查了Image控件的Stretch屬性的使用方法，通過指定Stretch可以指定圖片是否被拉伸，同時(shí)也考。查了Image控件中圖片的清除方法，可用Set控件名.Picture=Nothing來清除Image控件中的圖片。"命令按鈕后，將顯示一個(gè)信息框"未輸入或未選擇項(xiàng)目"，如圖4所示。修改程序中的其他部分。體上有一個(gè)命令按鈕，其名稱為Command1，標(biāo)題為"計(jì)算"。索引值"從0開始，到列表項(xiàng)總數(shù)-1止。改為正確的內(nèi)容，使其能正確運(yùn)
【正文】 件過程中的注釋符，把程序中的 ？改為正確的內(nèi)容，使其能正確運(yùn)行。 3）用原來的文件名保存工程文件和窗體文件。 本題主要考查了文件的操作，文件中字符串的處理方法。主要代碼如下： Dim s As String Private Sub Command1_Click() Open For Input As 1 s = Input$(LOF(1), 1) Close 1 = s End Sub Private Sub Command2_Click() Dim oldSen As String Dim newSen As String Dim ch As String Dim lastCh As String oldSen = strlen = Len(oldSen) lastCh = Left(oldSen, 1) For i = 1 To strlen ch = Mid(, i, 1) If lastCh = Then ch = UCase(ch) End If newSen = newSen amp。 ch lastCh = ch Next i = newSen End Sub Private Sub Command3_Click() Open For Output As 1 Write 1, Close 1 End Sub
公司管理相關(guān)推薦
鄂ICP備17016276號-1