vb操作題庫-星級(jí)全套文字版

1、第 01 套 基本操作題 基本操作題★★ ★★（1）在名稱為Forml的窗體上添加一個(gè)名稱為H1水平滾動(dòng)條，請(qǐng)?jiān)趯傩源翱谥性O(shè)置它的屬性值，滿足下列要求：它的最小刻度值為1，最大刻度值為100，在程序運(yùn)行時(shí)鼠標(biāo)單擊滾動(dòng)條上滾動(dòng)框以外的區(qū)域(不包括兩邊按鈕)，滾動(dòng)框移動(dòng)10個(gè)刻度。再在滾動(dòng)條下面畫兩個(gè)名稱分別為L(zhǎng)1、L2的標(biāo)簽，并分別顯示1、100，運(yùn)行時(shí)的窗體如圖所示。 注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗

2、體文件名為sjt1.frm。 （2）在名稱為Form1的窗體上添加兩個(gè)名稱分別為Text1和Text2的文本框，初始內(nèi)容均為空；再建立一個(gè)下拉菜單，菜單標(biāo)題為“操作“，名稱為M1，此菜單下含有兩個(gè)菜單項(xiàng)，名稱分別為Copy和Clear，標(biāo)題分別為“復(fù)制“、“清除“，請(qǐng)編寫適當(dāng)?shù)氖录^程，使得在程序運(yùn)行時(shí)，單擊“復(fù)制“選項(xiàng)菜單，則把Text1中的內(nèi)容復(fù)制到Text2中，單擊“清除“選項(xiàng)菜單，則清除Text2中的內(nèi)容(即在Text2中填入空

3、字符串)。運(yùn)行時(shí)的窗體如圖所示。要求在程序中不得使用任何變量，每個(gè)事件過程中只能寫一條語句。 注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。 Private Sub Clear_Click() Text2.Text = ““End SubPrivate Sub Copy_Click()Text2.Text = Text1.TextEnd Sub第 01 套 簡(jiǎn)單應(yīng)用題 簡(jiǎn)單應(yīng)用題★★ ★

4、★（1）在考生文件夾下有一個(gè)工程文件sjt3.vbp，窗體上已經(jīng)有一個(gè)標(biāo)簽Label1，請(qǐng)?zhí)砑右粋€(gè)單選按鈕數(shù)組，名稱為Op1，含三個(gè)單選按鈕，它們的Index屬性分別為0、1、2，標(biāo)題依次為“飛機(jī)“、“火車“、“汽車“，再添加一個(gè)名稱為Text1的文本框。窗體文件中已經(jīng)給出了Op1的Click事件過程，但不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使得在程序運(yùn)行時(shí)單擊“飛機(jī)“或“火車“單選按鈕時(shí)，在Text1中顯示“我坐

5、飛機(jī)去“或“我坐火車去“，單擊“汽車“單選按鈕時(shí)，在Text1中顯示“我開汽車去“，如圖所示。 注意：不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。 Private Sub Op1_Click(Index As Integer)Dim a As String, b As String, c As Stringa = “我坐“b = “我開“' Select Case ?

6、 ***** Index *****Case 0Text1.Text = a + Me.Op1(0).Caption + “去“Case 1' Text1.Text = ? + Me.Op1(1).Caption + “去“ ***** a *****Case 2Text1.Text = b + Me.Op1(2).Caption + “去“此外再把窗體的

7、標(biāo)題設(shè)置為“密碼窗口“，以上這些設(shè)置都必須在屬性窗口中進(jìn)行，程序運(yùn)行時(shí)的窗體如圖所示。 注意：存盤時(shí)必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 在窗體中添加一個(gè)標(biāo)簽，名稱設(shè)置為L(zhǎng)1，將標(biāo)簽的Caption屬性設(shè)置為“請(qǐng)輸入密碼“。然后再添加一個(gè)文本框，設(shè)置其名稱為Text1,然后設(shè)置其Height屬性為300，設(shè)置其Width屬性為2000，設(shè)置其PasswordChar屬性為“*“。最

8、后將Form1的Caption屬性設(shè)置為“密碼窗口“。（ 2） 在名稱為Form1的窗體上添加一個(gè)名稱為P1的圖片框，請(qǐng)編寫適當(dāng)?shù)氖录^程，使得程序在運(yùn)行時(shí)，每單擊一次圖片框，就在圖片框中輸出“單擊圖片框“，每單擊圖片框外的窗體一次，就在窗體中輸出“單擊窗體“，運(yùn)行時(shí)的窗體如圖所示。要求在程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。 注意：存盤時(shí)必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.f

9、rm。 Private Sub Form_Click()Form1.Print “單擊窗體“End SubPrivate Sub P1_Click()P1.Print “單擊圖片框“End Sub第 02 套 簡(jiǎn)單應(yīng)用題 簡(jiǎn)單應(yīng)用題★（1）在考生文件夾下有一個(gè)工程文件sjt3.vbp，窗體中有兩個(gè)圖片框，名稱分別為P1、P2，其中的圖片內(nèi)容分別是一架航天飛機(jī)和一朵云彩，一個(gè)命令按鈕，名稱為C1，標(biāo)題為“發(fā)射“，還有一個(gè)計(jì)時(shí)器，名稱為Ti

10、mer1。并給出了兩個(gè)事件過程，但并不完整，要求：①設(shè)置Timer1的屬性，使其在初始狀態(tài)下不計(jì)時(shí)；②設(shè)置Timer1的屬性，使其每隔0.1秒調(diào)用Timer事件過程一次。③去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使得在運(yùn)行時(shí)單擊“發(fā)射“按鈕，則航天飛機(jī)每隔0.1秒向上移動(dòng)一次，當(dāng)?shù)竭_(dá)P2的下方時(shí)停止移動(dòng)，如圖所示。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。Private Sub C1_Click()

11、9; Timer1.Enabled = ? ***** True *****End SubPrivate Sub Timer1_Timer()Static a%a = a =+1' If P1.Top > P2.Top ＋ P2.? Then ***** Height *****P1.Move P1.Left, P1.T

12、op - 5 - a, P1.Width, P1.HeightElse' Timer1.Enabled = ? ***** False *****End IfEnd Sub（2）在考生文件夾下有一個(gè)工程文件sjt4.vbp，運(yùn)行情況如圖所示。程序的功能是計(jì)算下列表達(dá)式的值： 其中的N和x的值通過鍵盤分別輸入到文本框Text1、Text2中。之后如果單擊標(biāo)題為“計(jì)算“