【正文】 題目一：基本操作題第1套題解析(1)【解題思路】水平滾動(dòng)條的最大刻度值和最小刻度值分別由Max和Min屬性設(shè)置；單擊滾動(dòng)條上滾動(dòng)框以外的區(qū)域移動(dòng)刻度值大小由LargeChange屬性設(shè)置，而單擊滾動(dòng)條兩邊按鈕移動(dòng)刻度大小由SmallChange屬性設(shè)置，本題要求單擊滾動(dòng)條上滾動(dòng)框以外的區(qū)域移動(dòng)刻度大小則由LargeChange屬性設(shè)置；標(biāo)簽標(biāo)題顯示由Caption屬性設(shè)置?！静僮鞑襟E】 步驟1：打開(kāi)Visual Basic，按照題目的要求新建窗體并添加一個(gè)水平滾動(dòng)條控件。 步驟2：在屬性窗口中，設(shè)置水平滾動(dòng)條的名稱(chēng)為H1,然后設(shè)置其LargeChange的值為10，Max的值為100，Min的值為1。 步驟3：再在窗體上水平滾動(dòng)條的左右兩端的下方添加兩個(gè)標(biāo)簽控件Label1和Label2。步驟4：在屬性窗口中將Label1的名稱(chēng)設(shè)置為L(zhǎng)1，將Caption屬性設(shè)置為1。再將Label1的名稱(chēng)設(shè)置為L(zhǎng)2。步驟5：按下鍵盤(pán)上的F5鍵運(yùn)行程序。步驟6：保存工程，,?！九e一反三】可以通過(guò)第40套第一大題的第二小題來(lái)進(jìn)行同類(lèi)知識(shí)點(diǎn)的練習(xí)。(2)【解題思路】在編輯窗體中單擊右鍵選擇菜單編輯器來(lái)創(chuàng)建菜單，在菜單的Click事件中。【操作步驟】步驟1：新建窗體。步驟2：菜單項(xiàng)設(shè)置完成后，單擊確定按鈕。步驟3：添加文本框控件?？?件屬 性設(shè)置值文本框1Name NameText1文本框2Text2步驟4：編寫(xiě)程序代碼。參考答案Private Sub Clear_Click() = End SubPrivate Sub Copy_Click() = End Sub步驟5：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。【舉一反三】可以通過(guò)第32套第一大題的第一小題來(lái)進(jìn)行同類(lèi)知識(shí)點(diǎn)練習(xí)。題目二：簡(jiǎn)單應(yīng)用題(1) 【解題思路】通過(guò)文本框的Name屬性設(shè)置文本框名稱(chēng)；在窗體上添加單選按鈕，通過(guò)Name屬性設(shè)置名稱(chēng)，右擊單選按鈕進(jìn)行復(fù)制，彈出對(duì)話(huà)框，選擇創(chuàng)建單選按鈕數(shù)組，并通過(guò)Caption屬性設(shè)置每一個(gè)單選按鈕的標(biāo)題；通過(guò)命令按鈕Name和Caption屬性分別設(shè)置命令按鈕的名稱(chēng)和標(biāo)簽；設(shè)置兩個(gè)字符型變量a、b ，a ＝ 我坐，b ＝ 我開(kāi)，用于Select Case選擇語(yǔ)句的字符串連接；通過(guò)對(duì)單選按鈕數(shù)組Index屬性查詢(xún)，實(shí)現(xiàn)單擊單選按鈕完成字符串連接和文本框顯示操作的功能?！静僮鞑襟E】步驟1：打開(kāi)本題工程文件，在窗體中添加一個(gè)單選按鈕數(shù)組，包含3個(gè)單選按鈕。再添加一個(gè)文本框。步驟2：按照題目要求設(shè)置控件的屬性。步驟3：分析并編寫(xiě)程序代碼。Private Sub Op1 Click(Index As Integer)Dim a As String, b As String, c As String a = 我坐b = 我開(kāi)39。Select Case ?Case 0 = a ＋ (0)．Caption ＋ 去Case 139。 = ? ＋ (1)．Caption ＋ 去Case 2 = b ＋ (2)．Caption ＋ 去End Select End Sub程序結(jié)束參考答案第一個(gè)？處填入：Index 第二個(gè)？處填入：a【舉一反三】可以通過(guò)第41套第二大題第二小題來(lái)進(jìn)行同類(lèi)知識(shí)點(diǎn)的練習(xí)。(2) 【解題思路】在窗體上建立好控件后，先設(shè)置控件屬性，再編寫(xiě)事件過(guò)程。本題需注意容器中控件的畫(huà)法。命令按鈕標(biāo)題由Caption屬性設(shè)置，單擊命令觸發(fā)Click事件；單選按鈕的標(biāo)題由Caption屬性設(shè)置，程序中需要檢測(cè)的單選按鈕的狀態(tài)，通過(guò)Value屬性來(lái)實(shí)現(xiàn)，如果單選按鈕被選中，則Value值為1，否則Value值為0。在文本框中顯示內(nèi)容通過(guò)Text屬性實(shí)現(xiàn)，其形式為：文本框名．Text = 顯示的內(nèi)容。在VB程序中，Open語(yǔ)句用于打開(kāi)數(shù)據(jù)文件，打開(kāi)順序文件的基本格式為：Open FileName For Mode As FileNumber。其中，F(xiàn)ileName表示要打開(kāi)的文件的路徑；Mode為打開(kāi)模式，OutPut用于輸出，Append用于追加寫(xiě)入，Input用于讀取；FileNumber為打開(kāi)文件時(shí)指定的句柄。讀文件操作在窗體的Load事件過(guò)程中完成，寫(xiě)文件操作在命令按鈕的Click事件過(guò)程中完成?！静僮鞑襟E】步驟1：打開(kāi)本題工程文件，在窗體中添加兩個(gè)框架，一個(gè)命令按鈕和4個(gè)單選按鈕。步驟2：為步驟1建立的控件設(shè)置相關(guān)屬性，程序中用到的控件及屬性見(jiàn)表 。步驟3：分析并編寫(xiě)程序代碼。程序提供代碼Private Sub Form Unload(Cancel As Integer)Open For Output As 1Print 1, , , , , Close 1End Sub程序結(jié)束參考答案Private Sub C1_Click() = 我是 If Then = amp。 Else = amp。 End If If Then = amp。 Else = amp。 End If End Sub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。 【舉一反三】可以通過(guò)第43套第二大題第一小題來(lái)進(jìn)行同類(lèi)知識(shí)點(diǎn)練習(xí)。題目三：綜合應(yīng)用題【解題思路】單選按鈕數(shù)組常用于提供唯一選擇，Value屬性值決定每個(gè)單選按鈕的選中狀態(tài)：False為未選中，True為選中，Caption屬性用于設(shè)置單選按鈕的標(biāo)題。本題在For循環(huán)語(yǔ)句(循環(huán)變量k的初值為0，終值應(yīng)為3)逐一檢查每個(gè)單選按鈕是否被選中，用變量n記錄選中單選按鈕的索引號(hào)。然后取消對(duì)當(dāng)前選中單選按鈕的選擇，使單選按鈕數(shù)組中的下一個(gè)按鈕被選中。如果當(dāng)前已經(jīng)選中最后一個(gè)單選按鈕，則將n賦值為0，重新從單選按鈕數(shù)組的第1個(gè)元素開(kāi)始?！静僮鞑襟E】步驟1：打開(kāi)本題工程文件。步驟2：編寫(xiě)程序代碼。參考答案Private Sub Command1_Click() Dim a() As Long Dim i As Integer Dim n As Integer For i = 0 To 1 If Op1(i).Value = True Then n = Val(Op1(i).Caption) Exit For End If Next ReDim a(n) a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i 1) + a(i 2) Next = a(n)End Sub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。 【舉一反三】可以通過(guò)27套第二大題第二小題來(lái)進(jìn)行同類(lèi)知識(shí)點(diǎn)的練習(xí)。第2套題解析題目一：基本操作題(1)【解題思路】通過(guò)標(biāo)簽的Caption和Name屬性設(shè)置標(biāo)題和名稱(chēng)；通過(guò)文本框Name、Height、PasswordChar和Width屬性分別設(shè)置文本框的名稱(chēng)、高度、顯示*字符和寬度；通過(guò)窗體Caption屬性設(shè)置窗體的標(biāo)題密碼窗口。【操作步驟】步驟1：新建一個(gè)窗體，在窗體中添加一個(gè)標(biāo)簽，名稱(chēng)設(shè)置為L(zhǎng)1，將標(biāo)簽的Caption屬性設(shè)置為請(qǐng)輸入密碼。然后再添加一個(gè)文本框，設(shè)置其名稱(chēng)為T(mén)ext1,然后設(shè)置其Height屬性為300，設(shè)置其Width屬性為2000，設(shè)置其PasswordChar屬性為*。最后將Form1的Caption屬性設(shè)置為密碼窗口。步驟2：調(diào)試并運(yùn)行程序。步驟3：,，最后保存工程。【舉一反三】可以通過(guò)第9套第一大題第二小題來(lái)進(jìn)行同類(lèi)知識(shí)點(diǎn)的練習(xí)。(2)【解題思路】通過(guò)圖邊框Name屬性設(shè)置圖片框的名稱(chēng)，運(yùn)用圖片框Print方法，使圖片框上顯示字符，運(yùn)用窗體Print方法，使窗體上顯示字符?！静僮鞑襟E】步驟1：新建一個(gè)窗體，然后在窗體上添加一個(gè)圖片框。步驟2：編寫(xiě)程序代碼。參考答案Private Sub Form_Click()控件屬性設(shè)置值圖片框Name P1 單擊窗體End SubPrivate Sub P1_Click() 單擊圖片框End Sub步驟3：調(diào)試并運(yùn)行程序，,，最后保存工程。 【舉一反三】可以通過(guò)第5套第一大題第二小題來(lái)進(jìn)行同類(lèi)知識(shí)點(diǎn)練習(xí)。題目二：簡(jiǎn)單應(yīng)用題(1)【解題思路】工程文件中已建立全部控件，只需編寫(xiě)事件過(guò)程即可。Timer1控件的Interval屬性用來(lái)控制計(jì)時(shí)器事件發(fā)生的時(shí)間間隔，通過(guò)題意可知，該屬性設(shè)置為100(Interval是以毫秒為單位)。當(dāng)單擊發(fā)射按鈕時(shí)開(kāi)始計(jì)時(shí)，將計(jì)時(shí)器控件的Enabled屬性設(shè)置為T(mén)rue。如果使航天器即P1停止移動(dòng)，則將計(jì)時(shí)器控件的Enabled屬性設(shè)置為False。【操作步驟】步驟1：按題目要求打開(kāi)工程文件，設(shè)置計(jì)時(shí)器屬性,將Enabled屬性設(shè)置為False，并將Interval屬性設(shè)置為100。步驟2：分析并編寫(xiě)程序代碼。程序提供代碼Private Sub C1_Click()39。 = ?End SubPrivate Sub Timer1_Timer() Static a%a = a =+139。 If ＋ P2.? Then , 5 a, , Else39。 = ?End IfEnd Sub程序結(jié)束參考答案第1個(gè)？處填入：True 第2個(gè)？處填入：Height第3個(gè)？處填入：False步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)?！九e一反三】可以通過(guò)第25套第二大題第二小題來(lái)進(jìn)行同類(lèi)知識(shí)點(diǎn)的練習(xí)。(2) 【解題思路】通過(guò)For循環(huán)語(yǔ)句實(shí)現(xiàn)xn()的乘冪運(yùn)算；Click事件過(guò)程中通過(guò)Val()函數(shù)實(shí)現(xiàn)字符類(lèi)型向數(shù)值型的轉(zhuǎn)換，通過(guò)循環(huán)語(yǔ)句及調(diào)用xn()函數(shù)，獲得函數(shù)返回值，實(shí)現(xiàn)表達(dá)式的運(yùn)算結(jié)果；運(yùn)用Call 語(yǔ)句調(diào)用SaveResult函數(shù)對(duì)于結(jié)果進(jìn)行保存，涉及文件的Open、Close和Output操作，最后將結(jié)果保存在文件夾下的 ?！静僮鞑襟E】步驟1：打開(kāi)本題工程文件。步驟2：分析并編寫(xiě)程序代碼。程序提供代碼Private Function xn(a As Single, m As Integer)Dim i As Integertmp = 1For i = 1 To m 39。 tmp = ?Next 39。xn = ?End Function Private Sub Command1_Click()Dim n As IntegerDim i As IntegerDim t As SingleDim s, x As Singlen = Val()x = Val()z = 0For i = 2 To n t = x + i39。 z = z +？Next 39。 = ?Call SaveResultEnd SubPrivate Sub SaveResult()Open amp。 \ For Output As 1 Print 1, Close 1End Sub程序結(jié)束參考答案第1個(gè)？處填入：tmp*a第2個(gè)？處填入：tmp第3個(gè)？處填入：xn(t, i)第4個(gè)？處填入：z步驟3：按照題目要求調(diào)試并運(yùn)行程序。步驟4：關(guān)閉程序后，按照題目要求保存工程和窗體文件。 【舉一反三】可以通過(guò)第22套第二大題第二小題來(lái)進(jìn)行同類(lèi)知識(shí)點(diǎn)練習(xí)。題目三：綜合應(yīng)用題【解題思路】除了1和它本身以外，不再有別的約數(shù)，這種整數(shù)叫做素?cái)?shù)。判別某數(shù)m是否是素?cái)?shù)的經(jīng)典算法是：對(duì)于m，依次判別能否被I(I＝2,3,4，…，m－1)整除，只要有一個(gè)能整除，m就不是素?cái)?shù)，否則m是素?cái)?shù)。本題須統(tǒng)計(jì)數(shù)據(jù)中素?cái)?shù)的個(gè)數(shù)和所有素?cái)?shù)中的最小素?cái)?shù)。自定義函數(shù)過(guò)程prime用來(lái)判斷是否為素?cái)?shù)，返回True則為素?cái)?shù)，反之則為非素?cái)?shù)，通過(guò)對(duì)于返回值的判斷確定素?cái)?shù)，并進(jìn)行個(gè)數(shù)統(tǒng)計(jì)及查找最小值?！静僮鞑襟E】步驟1：打開(kāi)本題工程文件。步驟2：分析并編寫(xiě)程序代碼。程序提供代碼Private arr(100) As IntegerPublic Function prime(x As Integer)k = Int(Sqr(x) + 5)For i ＝ 2 To kIf x Mod i = 0 Then prime = False