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

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

2、字母表中后兩個(gè)位置的字母。 例如，轉(zhuǎn)換前的字母是a，則轉(zhuǎn)換后的是c，轉(zhuǎn)換前是E，轉(zhuǎn)換后是G；點(diǎn)擊存盤按鈕， 則將轉(zhuǎn)換后的文本框中的文本保存到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，該程序是不完整的，請(qǐng)?jiān)谟?？?hào)的地方填入正確內(nèi)容，然后刪除？及所有注釋符（即號(hào)），但不能修改其它部分。存盤時(shí)不得改變文件名和文件夾。本題描述如下：在窗口中有

4、一個(gè)RichText文本框控件（名稱為rtx1）和一個(gè)文本框控件（名稱為Text1），兩個(gè)命令按鈕，名稱分別為Command1和Command2，標(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中有多少個(gè)字符，將結(jié)果顯示在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，該程序是不完整的，請(qǐng)?jiān)谟校刻?hào)的地方填入正確內(nèi)容，然后刪除？及所有注釋符（即 號(hào)），但不能修改其它部分。存盤時(shí)不得改變文件名和文件夾，相應(yīng)的dat文件也保存到考生文件夾下，否則沒有成績(jī)。本題描述如下：在名稱為Form1的窗體上有五個(gè)Label控件和兩個(gè)命令按鈕， 數(shù)據(jù)文件prog8a.dat存放一些字符。1）按開始按鈕后,能從考生文件夾下的prog8a.dat中讀出數(shù)據(jù)并分別統(tǒng)計(jì)出其中數(shù)字、大寫字母、小寫字母和其它類型字符的個(gè)數(shù)，

6、將結(jié)果寫入考生文件夾下的prog8b.dat文件中（以標(biāo)準(zhǔn)格式在一行中輸出）；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(請(qǐng)輸入第 & i & 個(gè)數(shù),請(qǐng)務(wù)必輸入數(shù)值數(shù)據(jù)！, 輸入) Do While IsNumeric(a(i) = False a(i) = InputBox(輸入數(shù)據(jù)無效，請(qǐng)重新輸入數(shù)

8、值數(shù)據(jù)！ & 請(qǐng)輸入第 & i & 個(gè)數(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 設(shè)置最小值HScroll1.Max = 100 設(shè)置最大值End SubPrivate Sub HScro

10、ll1_Change()Timer1.Interval = 200 - HScroll1.Value 根據(jù)滾動(dòng)條的數(shù)值設(shè)置時(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