【正文】 ****** For k = 1 To 939。 j * k。 Next k PrintNext jEnd Sub答案 【學(xué)生答案】Print Tab(i * 6)。i。 j * k?！緟⒖即鸢浮縋rint Tab(k*6)。 。【程序改錯(cuò)】39。題目：下面程序可輸出如下圖形：39。 ***39。 *******39。Option ExplicitPrivate Sub Form_Click()Dim m As Integer, n As Integer, s As String, i As Integer, j As Integern = 4m = 1s = *For i = 5 To 1 Step 1 39。 Next j Print 39。**********ERROR********** m = m 1Next i答案 【學(xué)生答案】Print Spc(n)【參考答案】Print Spc(n)。?Spc(n)?！緦W(xué)生答案】n = n + 1【參考答案】n=n1n=1+n【學(xué)生答案】m = m 1【參考答案】m=m+17.39。Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As IntegerFor i = 101 To 299 k = Int(Sqr(i) For n = 2 To k If i Mod n = 0 Then 39。**********ERROR********** If n k Then Print i。**********ERROR**********Next n39。從鍵盤輸入三個(gè)整數(shù)，從其中找出最大值并輸出到窗口Private Sub Form_Click()Dim a%, b%, c%, max%a = Val(InputBox(請(qǐng)輸入一個(gè)整數(shù)))b = Val(InputBox(請(qǐng)輸入一個(gè)整數(shù)))c = Val(InputBox(請(qǐng)輸入一個(gè)整數(shù)))max=a39。**********FILL********** ________End If39。 、。 、。 中最大值是。 、。 、。 中最大值是。39。**********FILL********** If _____ Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p r Else x1 = p x2 = p39。 x1, x2=。**********FILL**********_____ q = Sqr(d) / (2 * a) Print x1=。 +。 i, x2=。 。 iEnd If答案 【學(xué)生答案】If _____ Then【參考答案】d0【學(xué)生答案】_____【參考答案】End ifEnd Ifend if【學(xué)生答案】_____【參考答案】elseElseELSE3.39。即優(yōu)秀（90100）、良好（8089）、中等（7079）、39。Private Sub Form_Click()Dim score%, n1%, n2%, n3%, n4%, n5%msg = 請(qǐng)輸入分?jǐn)?shù)（1結(jié)束）msgtitile = 輸入數(shù)據(jù)score = Val(InputBox(msg, msgtitle))39。**********FILL********** Select Case _____ Case Is = 90 n1 = n1 + 1 Case Is = 80 n2 = n2 + 1 Case Is = 70 n3 = n3 + 1 Case Is = 60 n4 = n4 + 1 Case Else n5 = n5 + 139。公因數(shù)和最小公倍數(shù)。**********FILL**********If _____ Then temp = num1: num1 = num2: num2 = tempEnd Ifa = num1b = num239。**********FILL********** _____LoopPrint 最大公因數(shù)為：。 num1 * num2 / a答案 【學(xué)生答案】If _____ Then【參考答案】num1num2num2num1【學(xué)生答案】Do While _____【參考答案】b0b00btemp0temp00tempNot b=0Not 0=b【學(xué)生答案】_____【參考答案】b=temp5．39。39。**********FILL**********Do While i = k And _____39。**********FILL********** _____End IfLoopIf swit = 0 Then Print n。 不是素?cái)?shù)End IfEnd Sub答案 【學(xué)生答案】Do While i = k And _____【參考答案】swit=0【學(xué)生答案】If _____ Then【參考答案】n Mod i = 0n \ i = n / in / i = int ( n / i)【學(xué)生答案】_____【參考答案】i = i + 16．題目：從鍵盤上輸入一串字符，以?結(jié)束，統(tǒng)計(jì)輸入字符中的39。Private Sub Form_Click()Dim ch$, n1%, n2%, n3%n1 = 0n2 = 0n3 = 0ch = InputBox(請(qǐng)輸入一個(gè)字符)39。**********FILL********** Case _____ n2 = n2 + 1 Case 0 To 9 n3 = n3 + 1 End Selectch = InputBox(請(qǐng)輸入一個(gè)字符)39。請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，單擊移動(dòng)按鈕，文本框水平移動(dòng)到窗體的最左端如圖2所示。注意：完成題目后，必須保存工程后再關(guān)閉。窗體的標(biāo)題為字體修改；其中包括一名稱為L(zhǎng)abel1,標(biāo)題為請(qǐng)輸入文字的標(biāo)簽； 一名稱為Text1，內(nèi)容為空的文本框； 名稱為Command1,標(biāo)題為隸書，名稱為Command2,標(biāo)題為黑體的兩個(gè)命令按鈕。提示：不能使用任何變量！ 【事件】Private Sub Command2_Click() 標(biāo)準(zhǔn)答案： = 黑體 學(xué)生答案：【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Caption=隸書 學(xué)生答案：Caption=【事件評(píng)分】 錯(cuò)誤 【事件】Private Sub Command1_Click() 標(biāo)準(zhǔn)答案： = 隸書 學(xué)生答案：【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Caption=請(qǐng)輸入文字 學(xué)生答案：Caption= 三 在名稱為Form1的窗體上建立一個(gè)名稱為L(zhǎng)ist1的列表框。 【事件】Private Sub Form_Load() 標(biāo)準(zhǔn)答案： AAA 學(xué)生答案：【事件評(píng)分】 錯(cuò)誤 【事件】Private Sub List1_Click() 標(biāo)準(zhǔn)答案： 四 在名稱為Form1的窗體上建立一個(gè)水平滾動(dòng)條，名稱為HS1，其最大值為100，最小值為0。 編寫適當(dāng)?shù)氖录^(guò)程，要求程序運(yùn)行后， 如果單擊顯示1命令按鈕，則標(biāo)簽可見(jiàn)并顯示字符串a(chǎn)aa； 如果單擊顯示2命令按鈕，則標(biāo)簽可見(jiàn)并顯示字符串bbb。程序開始運(yùn)行時(shí)界面如圖1所示 標(biāo)準(zhǔn)答案：Caption=顯示1 學(xué)生答案：Caption=【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Visible=0 39。請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，如果單擊隱藏按鈕，則文本框消失； 如果單擊顯示按鈕，則文本框顯示出來(lái)，如圖1和圖2所示。 【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Name=c2 學(xué)生答案：Name=【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Caption=顯示 學(xué)生答案：Caption=【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Name=c1 學(xué)生答案：Name=【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Caption=隱藏 學(xué)生答案：Caption=【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Visible=0 39。要求程序運(yùn)行后，在文本框輸入幾個(gè)字符，單擊輸出按鈕，則在窗體上顯示文本框中的文字。 控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Name=Cmd1 學(xué)生答案：Name=【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Caption=輸出 學(xué)生答案：Caption=【事件評(píng)分】 錯(cuò)誤 【事件】Private Sub Cmd1_Click() 標(biāo)準(zhǔn)答案： Print 學(xué)生答案：八 在名為Form1的窗體上畫一個(gè)框架，名稱為Frm1，標(biāo)題為框架，高度為2500，寬度為4000，框架內(nèi)建立一文本框，距左邊框600，距框架的上邊框1200，文本框中的初始內(nèi)容設(shè)置為文本框，如圖所示。 【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Name=Frm1 學(xué)生答案：Name=【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Height=2500 學(xué)生答案：Height=【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Width=4000 學(xué)生答案：Width=【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Left=600 學(xué)生答案：Left=【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Text=文本框 學(xué)生答案：Text=【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Top=1200 學(xué)生答案：Top=九 界面中窗體的標(biāo)題為：密碼的顯示； 窗體中包括兩個(gè)文本框，他們的名稱分別為passtxt和showtxt,其中： passtxt用于密碼輸入，當(dāng)在其中輸入信息時(shí)，顯示為*； showtxt文本框，在程序運(yùn)行時(shí)不能用，只能顯示密碼。提示：不能使用任何變量，不能使用默認(rèn)屬性！ 窗體屬性評(píng)分】 錯(cuò)誤 【窗體】 標(biāo)準(zhǔn)答案：Caption=密碼的顯示 學(xué)生答案：Caption=Form1【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Name=showtxt 學(xué)生答案：Name=【控件屬性評(píng)分】 錯(cuò)誤 【控件】 標(biāo)準(zhǔn)答案：Enabled=0 39。程序運(yùn)行后，如果單擊顯示命令按鈕，則在窗體上顯示呵呵，小菜一碟！，如圖11所示。注意：完成后必須保存，然后再關(guān)閉