vb經(jīng)典題目及答案

1、vb經(jīng)典題目及答案1、在考生文件夾下有工程文件wy7.vbp及窗體文件wy7.frm，該程序是不完整的，請在有 ？號的地方填入正確的程序代碼，然后刪除 ？及所有注釋符號（即 號），但不能修改其它部分。修改后的程序文件都保存，存盤時不得修改文件夾和文件名。本題描述如下：在窗體上有一個名為Text1的文本框，有三個命令按鈕，名稱分別是C1、C2和C3，標題分別是讀入、加密和存盤。要求程序運行后，點擊讀入按鈕，將文本文件in7.txt（該文件在考生文件夾下）中的文本信息讀入文本框Text1中；點擊加密按鈕將Text1中的英文字母加密轉換，并將轉換后的結果顯示到Text1中。轉換方式為轉換成該字母對應

2、字母表中后兩個位置的字母。 例如，轉換前的字母是a，則轉換后的是c，轉換前是E，轉換后是G；點擊存盤按鈕， 則將轉換后的文本框中的文本保存到out7.txt文件中（該文件保存到考生文件夾下）。 Private Sub C1_Click()Dim strinfo As StringOpen in7.txt For Input As 1Input #1, strinfoClose #1Text1.Text = strinfoEnd SubPrivate Sub C2_Click()Dim strchange As StringDim i As IntegerFor i = 1 To Len(Tex

3、t1.Text) strchange = strchange + Chr(Asc(Mid(Text1.Text, i, 1) + 2)NextText1.Text = strchangeEnd SubPrivate Sub C3_Click()Open out7.txt For Output As 1Print #1, Text1.TextClose #1End Sub2、（1）在考生文件夾下有工程文件wy5.vbp及窗體文件wy5.frm，該程序是不完整的，請在有？號的地方填入正確內(nèi)容，然后刪除？及所有注釋符（即號），但不能修改其它部分。存盤時不得改變文件名和文件夾。本題描述如下：在窗口中有

4、一個RichText文本框控件（名稱為rtx1）和一個文本框控件（名稱為Text1），兩個命令按鈕，名稱分別為Command1和Command2，標題分別為加入WY01.TXT、統(tǒng)計字符個數(shù)。要求程序運行后，單擊command1將考生文件夾下的wy01.txt的內(nèi)容顯示到rtx1中；單擊統(tǒng)計字符個數(shù)按鈕統(tǒng)計Text1中有多少個字符，將結果顯示在Text1中。 Option ExplicitPrivate Sub Command1_Click()rtx1.LoadFile App.Path + wy01.txtEnd SubPrivate Sub Command2_Click()If rtx1.

5、Text Then Text1.Text = Len(rtx1.Text)End IfEnd Sub3、在考生文件夾下有工程文件wy7.vbp及窗體文件wy7.frm，該程序是不完整的，請在有？號的地方填入正確內(nèi)容，然后刪除？及所有注釋符（即 號），但不能修改其它部分。存盤時不得改變文件名和文件夾，相應的dat文件也保存到考生文件夾下，否則沒有成績。本題描述如下：在名稱為Form1的窗體上有五個Label控件和兩個命令按鈕， 數(shù)據(jù)文件prog8a.dat存放一些字符。1）按開始按鈕后,能從考生文件夾下的prog8a.dat中讀出數(shù)據(jù)并分別統(tǒng)計出其中數(shù)字、大寫字母、小寫字母和其它類型字符的個數(shù)，

6、將結果寫入考生文件夾下的prog8b.dat文件中（以標準格式在一行中輸出）；2）執(zhí)行完畢，開始按鈕變成完成，且無效（變灰） Private Sub COMSTART_Click()Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integermyfile1 = App.Path & & prog8a.datmyfile2 = App.Path & & prog8b.datOpen myfile1 For Input As #1Open myfile2 For Output As #2Wh

7、ile Not EOF(1) Input #1, Ch$ If Asc(Ch$) = 48 And Asc(Ch$) = 65 And Asc(Ch$) = 97 And Asc(Ch$) c2,則為銳角三角形；若一邊具有a2+b2c2,則為鈍角三角形。Private Sub Command6_Click()Label1.Enabled = FalseFor i = 1 To 10 a(i) = InputBox(請輸入第 & i & 個數(shù),請務必輸入數(shù)值數(shù)據(jù)！, 輸入) Do While IsNumeric(a(i) = False a(i) = InputBox(輸入數(shù)據(jù)無效，請重新輸入數(shù)

8、值數(shù)據(jù)！ & 請輸入第 & i & 個數(shù), 輸入) Loop Next iFor i = 1 To 9 For j = i + 1 To 10 If Val(a(j) = 2 * 3.14159 Then c = c Mod (2 * 3.14159) End IfEnd SubPrivate Sub Timer1_Timer()Picture1.Refresh 重畫圖片框End Sub Dim i As IntegerFor i = 0 To L1.ListCount - 1 L1.Selected(i) = TrueNextEnd SubPrivate Sub C2_Click()Dim

9、i As IntegerOpen out7.txt For Output As 1For i = 0 To L1.ListCount - 1 L1.ListIndex = i Print #1, L1.Text, L1.Selected(i) = FalseNextClose #1End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()r = 20c = 0st = 0.063HScroll1.Min = 1 設置最小值HScroll1.Max = 100 設置最大值End SubPrivate Sub HScro

10、ll1_Change()Timer1.Interval = 200 - HScroll1.Value 根據(jù)滾動條的數(shù)值設置時間間隔,速度越快,間隔越小End SubPrivate Sub Picture1_Paint()Picture1.FillColor = QBColor(12)Picture1.ForeColor = QBColor(12)Picture1.Circle (0, 0), 2x = Cos(c) * ry = Sin(c) * rPicture1.FillColor = QBColor(14)Picture1.ForeColor = QBColor(14)Picture1.

11、Circle (x, y), 0.5c = c + st If c = 2 * 3.14159 Then c = c Mod (2 * 3.14159) End IfEnd SubPrivate Sub Timer1_Timer()Picture1.Refresh 重畫圖片框End SubOption ExplicitPrivate Sub Command1_Click()EndEnd SubPrivate Sub Form_Load()Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll1_Change()Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll2_Change()Label4.BackColor