vb經(jīng)典題目及答案_第1頁(yè)
vb經(jīng)典題目及答案_第2頁(yè)
vb經(jīng)典題目及答案_第3頁(yè)
vb經(jīng)典題目及答案_第4頁(yè)
vb經(jīng)典題目及答案_第5頁(yè)
已閱讀5頁(yè),還剩8頁(yè)未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

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

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論