【正文】 nteger, m As IntegerDim n As Integer, m1 As Integer, m2 As Integer,num num=val(inputbox(“請輸入要驗(yàn)證的整數(shù)范圍最大值(MAX)”)) For i = 6 To num Step 2 For j = 3 To i k = （ Int(Sqr(j)) ） For m = 2 To k If j Mod m = 0 Then (Exit For) Next m If m k Then n = i j m1 =( Int(Sqr(n)) ) For m2 = 2 To m1 If n Mod m2 = 0 Then （Exit for） Next m2 If (m2 m1 ) Then Print i。 =。 j。 +。 n。 , End If Next j Print Next i End Sub2. 從計(jì)算機(jī)輸入三個(gè)數(shù),找出中間數(shù)Private Sub FindMidNum( ) X=INPUTBOX(“PLEASE INPUT THE FIRST NUMBER”) Y=INPUTBOX(“PLEASE INPUT THE SECOND NUMBER) Z=INPUTBOX(“PLESSE INPUT THE THIRD NUMBER) IF (XY ) THENA=XX=YY=A ENDIF IF (Y=Z ) THENPRINT Y ELSEIF (X=Z ) THENPRINT Z ELSEPRINT XENDIF End Sub3. [程序說明] 由輸入對話框輸入n（設(shè)n為大于零且小于30的自然數(shù)），計(jì)算下列表達(dá)式的值，并在標(biāo)簽框Label1上顯示。[程序]Private Sub Form_Click( ) Dim n As Integer,sum as Double,k As Integer n=Val(InputBox(“n=”,”請輸入自然數(shù)n(n0 且n30)”)) Do (While n=0 or n=30) n=val(InputBox(“n=”,”請重輸入”)) Loop Sum=0 (k=0) do k=k+1 sum= (sum+1/(k*(k+1))) Loop Until k=n =”Sum=”+Str(sum)End Sub一、判斷共10題（共計(jì)10分）第1題Shape控件和Line控件可以在窗體中移動(dòng),因此它們具有Move方法. 答案：N第2題Visual Basic程序的運(yùn)行可以從Main()過程啟動(dòng),也可以從某個(gè)窗體啟動(dòng). 答案：Y第3題圖片框的屬性Enabled設(shè)置為FALSE, 圖片框上的控件仍可響應(yīng)用戶操作. 答案：N第4題若已在窗體中加入了一個(gè)通用對話框:要求在運(yùn)行時(shí),通過ShowOpen打開對話框時(shí),只顯示擴(kuò)展名為 DOC 的文件,則對通用對話框的 Filter的屬性設(shè)置應(yīng)該是: (*.DOC)| ( .DOC) . N第5題設(shè)計(jì)菜單中每一個(gè)菜單項(xiàng)分別是一個(gè)控件,每個(gè)控件都有自己的名字. 答案：Y. 答案：N第7題圖片框的Move方法不僅可以移動(dòng)圖片框,而且還可以改變該圖片框的大小,同時(shí)也會(huì)改變該圖片框有關(guān)屬性的值. 答案：N第8題當(dāng)窗體的ScaleTop=0,ScaleLeft=0時(shí),這個(gè)窗體Top和Left值也是0. 答案：N第9題框架控件和形狀控件都不能響應(yīng)用戶的鼠標(biāo)的單擊事件. 答案：Y第10題通用對話框只能用SHOW方法進(jìn)行調(diào)用. 答案：N二、單項(xiàng)選擇共10題（共計(jì)10分）第1題用戶可以通過設(shè)置菜單項(xiàng)的()屬性值為FALSE來使該菜單項(xiàng)不可見.A:Hide B:Checked C:Visible D:Enabled 答案：C第2題定時(shí)器的Interval屬性以()為單位指定Timer事件之間的時(shí)間間隔.A:分 B:秒 C:毫秒 D:微秒 答案：C第3題要在圖片框P1中打印字符串 HowAreYou ,應(yīng)使用語句().A:= HowAreYou B:=LoadPicture( HowAreYou )C: HowAreYou D:Print HowAreYou 答案：C第4題下列關(guān)于設(shè)置控件屬性的敘述正確的是().A:用戶必須設(shè)置屬性值 B:所有的屬性值都可以由用戶隨意設(shè)定C:屬性值不必一一重新設(shè)置 D:不同控件的屬性項(xiàng)都完全一樣 答案：C第5題啟動(dòng)VisualBasic后,系統(tǒng)為用戶新建的工程起一個(gè)名為()的臨時(shí)名稱.A:工程1 B:窗體1 C:工程 D:窗體 答案：A第6題設(shè)a=10,b=5,c=1,執(zhí)行語句Printabc后,窗體上顯示的是().A:True B:False C:1 D:出錯(cuò)信息 答案：B第7題MSGBOX函數(shù)中有4個(gè)參數(shù),其中必須寫明的參數(shù)是().A:指定對話框中顯示按鈕的數(shù)目 B:設(shè)置對話框標(biāo)題 C:提示信息 D:所有參數(shù)都是可選的 C第8題應(yīng)用程序設(shè)計(jì)完成后,應(yīng)將程序保存,保存的過程是().A:只保存窗體文件即可 B:只保存工程文件即可 C:先保存工程文件,之后保存窗體文件D:先保存窗體文件(或標(biāo)準(zhǔn)模塊文件),之后還要保存工程文件 答案：D第9題改變控件在窗體中的左右位置應(yīng)修改該控件的()屬性.A:Top B:Left C:Width D:Right 答案：B第10題VB認(rèn)為下面()組變量是同一個(gè)變量.A:A1和a1 B:SUM和SUMMARY C:AVER和AVERAGE D:A1和A_1 答案：A三、程序填空共3題（共計(jì)30分）第1題39?！境绦蛱羁铡?9。功能：以下程序的功能如(圖1)。39。Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox( 請輸入a的值 )b = InputBox( 請輸入b的值 )c = InputBox( 請輸入c的值 )d = b * b 4 * a * cp = b / (2 * a)If d = 0 Then39。**********SPACE********** If 【?】 Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p r Else x1 = p x2 = p39。**********SPACE********** 【?】 Print x1= 。 x1, x2= 。 x239。**********SPACE**********【?】 q = Sqr(d) / (2 * a) Print x1= 。 p。 + 。 q。 i , x2= 。 p。 。 q。 iEnd IfEnd Sub答案： 1). d 0 或 0 d 2). End If 3). Else第2題39?！境绦蛱羁铡?9。功能：完成程序，使程序輸出值為 1539。Private Sub Command1_Click() 39。**********SPACE********** Dim i, j, x,【?】 As Integer For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 39。**********SPACE********** For 【?】 = 1 To 2 39。**********SPACE********** x = x + 【?】 Next k Next j Next i Print xEnd Sub答案： 1). k 2). k 3). 6第3題39。【程序填空】39。功能：用輸入對話框輸入x，根據(jù)如圖公式計(jì)算對應(yīng)的y，39。 在窗體上輸出y的值。39。Private Sub Command1_Click()39。**********SPACE********** Dim x As Single, 【?】 As Single 39。**********SPACE********** x = Val(【?】( Please input x : , 輸入X的值 )) If x = 10 Then 39。**********SPACE********** 【?】 ElseIf x 10 Then 39。**********SPACE********** y = Sqr(x) 【?】 Else y = 2 * x ^ 3 + 6 End If Print yEnd Sub答案： 1). y 2). InputBox 3). y = 0 4). + Sin(x)四、程序改錯(cuò)共3題（共計(jì)30分）第1題39?！境绦蚋腻e(cuò)】39。題目:設(shè)窗體中有圖片框Pic1，現(xiàn)要求在其中繪制10個(gè)同心圓，39。 。39。Option ExplicitPrivate Sub Command1_Click() Dim X As Integer Dim Y As Integer Dim I As Integer Dim rad(9) As Integer X = / 2 Y = / 2 39。**********FOUND********** For I = 1 To 9 rad(I) = 500 * Rnd Next I I = 9 39。**********FOUND********** Do Until I 1 (X, Y), rad(I), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) 39。**********FOUND********** I = I + 1Loop SavePicture , End Sub答案： 1). for i=0 to 9 或 for i=0 to 9 step 1 2). Do Until I 0 或 do until 0i 3). I = I 1 或 i=1+i第2題39。【程序改錯(cuò)】39。題目：從計(jì)算機(jī)輸入三個(gè)數(shù) , 找出中間數(shù)39。Option ExplicitPrivate Sub FindMidNum() Dim x As Integer, y As Integer, z As Integer, A As Integer x = InputBox( PLEASE INPUT THE FIRST NUMBER ) y = InputBox( PLEASE INPUT THE SECOND NUMBER )