1、vb 經(jīng)典題目及答案 1,在考生文件夾下有工程文件 wy7, vbp 及窗體文件 wy7,frm, 該程序就是不完整, 請?jiān)谟?？號(hào)的地方填 , 的 入正確的程序代碼 , 然后刪除 ？及全部注釋符號(hào) 即 號(hào), 但不能修改其它部分； 修改后的程序文件都儲(chǔ)存 存盤時(shí)不得修改文件夾與文件名； 此題描述如下 : 在窗體上有一個(gè)名為 Text1 的文本框 , 有三個(gè)命令按鈕 , 名稱分別就是 C1,C2 與 C3, 標(biāo)題分別就是 讀入 , 加密 與 存盤 ；要求程序運(yùn)行后 , 點(diǎn)擊 讀入 按鈕 , 將文本文件 in7 ,txt 該文件在考生文件夾下 中的文本 信息讀入文本框 Text1 中; 點(diǎn)擊 加密

2、 按鈕將 Text1 中的英文字母加密轉(zhuǎn)換 , 并將轉(zhuǎn)換后的結(jié)果顯示到 Text1 中；轉(zhuǎn)換方式為轉(zhuǎn)換成該字母對應(yīng)字母表中后兩個(gè)位置的字母； 例如 , 轉(zhuǎn)換前的字母就是 a, 就轉(zhuǎn)換后的 就是 c, 轉(zhuǎn)換前就是 E, 轉(zhuǎn)換后就是 G; 點(diǎn)擊 存盤 按鈕 , 就將轉(zhuǎn)換后的文本框中的文本儲(chǔ)存到 out7 ,txt 文件中 該文件儲(chǔ)存到考生文件夾下 ； Private Sub C1_Click Dim strinfo As String Open in7 , txt For Input As 1 Input #1, strinfo Close #1 Text1, Text = strinfo End

3、 Sub Private Sub C2_Click Dim strchange As String Dim i As Integer For i = 1 To LenText1 , Text strchange = strchange + ChrAscMidText1 , Text, i, 1 + 2 Next Text1, Text = strchange End Sub Private Sub C3_Click Open out7 , txt For Output As 1 Print #1, Text1 , Text Close #1 End Sub 2, 1 在考生文件夾下有工程文件

4、wy5,vbp 及窗體文件 wy5,frm, 該程序就是不完整 , 請?jiān)谟?？?hào)的地方 的 填入正確內(nèi)容 , 然后刪除？及全部注釋符 即 號(hào) , 但不能修改其它部分；存盤時(shí)不得轉(zhuǎn)變文件名與文件夾； 此題描述如下 : 在窗口中有一個(gè) RichText 文本框控件 名稱為 rtx1 與一個(gè)文本框控件 名稱為 Text1, 兩個(gè)命令按鈕 , 名稱 分別為 Command與 1Command2標(biāo) , 題分別為 加入 WY01,TXT, 統(tǒng)計(jì)字符個(gè)數(shù) ；要求程序運(yùn)行后 , 單擊 command1將考生文件夾下的 wy01,txt 的內(nèi)容顯示到 rtx1 中; 單擊 統(tǒng)計(jì)字符個(gè)數(shù) 按鈕統(tǒng)計(jì) Text1 中有

5、多少個(gè)字符 , 將 結(jié)果顯示在 Text1 中； 第 1 頁,共 11 頁vb 經(jīng)典題目及答案 Option Explicit Private Sub Command1_Click rtx1 , Load + wy01 , txt End Sub Private Sub Command2_Click If rtx1 , Text Then Text1, Text = Lenrtx1 , Text End If End Sub 3,在考生文件夾下有工程文件 wy7,vbp 及窗體文件 wy7,frm, 該程序就是不完整 , 請?jiān)谟?？?hào)的地方填入 的 正確內(nèi)容 , 然后刪除？及全部注釋符 即 號(hào),

6、 但不能修改其它部分； 存盤時(shí)不得轉(zhuǎn)變文件名與文件夾 , 相應(yīng) 的 dat 文件也儲(chǔ)存到考生文件夾 , 否就沒有成果； 下 此題描述如下 : 在名稱為 Form1 的窗體上有五個(gè) Label 控件與兩個(gè)命令按, 數(shù)據(jù)文件 prog8a , dat 存放一些字符； ; 鈕 1 按 開頭 按鈕后 , 能從考生文件夾下的 prog8a ,dat 中讀出數(shù)據(jù)并分別統(tǒng)計(jì)出其中數(shù)字,大寫字母,小寫 字母與其它類型字符的個(gè)數(shù) , 將結(jié)果寫入考生文件夾下的 prog8b , dat 文件中 以標(biāo)準(zhǔn)格式在一行中輸出 2 執(zhí)行完畢 , 開頭 按鈕變成 完成 , 且無效 變灰 Private Sub COMSTAR

7、T_Click Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integer myfile1 = App ,Path & & prog8a , dat myfile2 = App ,Path & & prog8b , dat Open myfile1 For Input As #1Open myfile2 For Output As #2 第 2 頁,共 11 頁vb 經(jīng)典題目及答案 While Not EOF1 Input #1, Ch$ If AscCh$ = 48 And AscC

8、h$ = 65 And AscCh$ = 97 And AscCh$ c2, 就為銳角三角形 ; 如一邊具有 a2+b2c2, 就為鈍角三角形； Label1, Enabled = False For i = 1 To 10 Private Sub Command6_Click ai = InputBox 請輸入第 & i & 個(gè)數(shù) ,請務(wù)必輸入數(shù)值數(shù)據(jù)！ , 輸入 Do While IsNumericai = False ai = InputBox 輸入數(shù)據(jù)無效 ,請重新輸入數(shù)值數(shù)據(jù)！ ！ & 請輸入第 & i & 個(gè) 數(shù), 輸入 LoopNext i For i = 1 To 9 For

9、j = i + 1 To 10 If Valaj = 2 * 3 ,14159 Then c = c Mod 2 * 3 , 14159 End If End Sub Private Sub Timer1_Timer Picture1, Refresh 重畫圖片框 End Sub Dim i As Integer For i = 0 To L1 , ListCount - 1 L1 , Selectedi = True Next End Sub Private Sub C2_Click Dim i As Integer Open out7 , txt For Output As 1 For i

10、 = 0 To L1 , ListCount - 1 L1 , ListIndex = i Print #1, L1 , Text, L1 , Selectedi = False Next Close #1 End Sub Private Sub Command3_Click End End Sub Private Sub Form_Load r = 20 c = 0 st = 0,063 HScroll1 , Min = 1 設(shè)置最小值 HScroll1 , Max = 100 設(shè)置最大值 End Sub Private Sub HScroll1_ChangeTimer1 , Interva

11、l = 200 - HScroll1 ,Value 依據(jù)滾動(dòng)條的數(shù)值設(shè)置時(shí)間間隔 ,速度越快 ,間隔越 小 第 10 頁,共 11 頁vb 經(jīng)典題目及答案 End Sub Private Sub Picture1_Paint Picture1, FillColor = QBColor12 Picture1, ForeColor = QBColor12 Picture1, Circle 0, 0, 2 x = Cosc * r y = Sinc * r Picture1, FillColor = QBColor14 Picture1, ForeColor = QBColor14 Picture1

12、, Circle x, y, 0 , 5 c = c + st If c = 2 * 3 ,14159 Then c = c Mod 2 * 3 , 14159End If End Sub Private Sub Timer1_Timer Picture1, Refresh 重畫圖片框 End Sub Option Explicit Private Sub Command1_Click End End Sub Private Sub Form_Load Label4, BackColor = RGBHScroll1 End Sub Private Sub HScroll1_Change Label4, BackColor = RGBHScroll1 End Sub Private Sub HScroll2_Change Label4, BackColor = RGBHScroll1 End Sub Private Sub HScroll3_Change Label4, BackCo