...wd......wd......wd...第一套二、編程題〔此題20分，必做〕新建工程，在窗體上創(chuàng)立兩個命令按鈕Command1、Command2，一個標簽Label1。窗體和控件的大小適當、布局合理，命名并保存窗體文件〔5分〕，要求：

(1)在屬性窗口中設置兩個命令按鈕上的文字分別為“改變顏色〞和“改變大小〞，標簽上文字為“計算機等級考試〞，標簽可以自動調整大小以顯示所有文字〔5分〕。

(2)編寫事件過程，運行程序后，單擊“改變顏色〞按鈕，標簽上的文字內容改為“顏色已經改變〞，文字顏色改為藍色〔5分〕。

(3)編寫事件過程，運行程序后，單擊“改變大小〞按鈕，標簽上的文字大小改為28(磅)〔5分〕。

〔20分〕此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面請單擊按鈕上載文件，將你創(chuàng)立的frm文件上載到服務器上PrivateSubCommand1_Click()Label1.ForeColor=&HFF0000Label1.Caption="顏色已經改變"EndSubPrivateSubCommand2_Click()Label1.FontSize=28EndSub三、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕新建工程，根據(jù)題目要求自行設計窗體界面，要求窗體及控件的大小適當、布局合理，命名并保存窗體文件〔7分〕。

編寫事件過程并滿足以下要求：

(1)單擊命令按鈕1，產生100個不大于300的隨機整數(shù)并顯示在列表框1中〔9分〕。

(2)單擊命令按鈕2，在列表框2中顯示上述隨機整數(shù)中前20個奇數(shù)〔9分〕。

〔提示：使用數(shù)組存儲數(shù)據(jù)〕

〔25分〕此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面請單擊按鈕上載文件，將你創(chuàng)立的frm文件上載到服務器上Dima(100)AsIntegerPrivateSubCommand1_Click()Fori=0To100a(i)=Int(Rnd*100)List1.AddItema(i),iNextiEndSubPrivateSubCommand2_Click()DimsAsIntegers=0Fori=0To100Ifa(i)Mod2=1ThenList2.AddItema(i)s=s+1Ifs>=20ThenExitForEndIfNextiEndSub四、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕編寫程序，求下面數(shù)列前30項的和。將結果四舍五入保存4位小數(shù)。

1,-1/3^3,1/5^3,1/7^3,……,(-1)^(n-1)/(2n-1)^3,……

〔其中，^表示冪運算〕

要求：在運行程序時，使用文本框或InputBox函數(shù)輸入n值，并用適當?shù)姆椒ㄝ敵鲞\算結果。〔25分〕此題要求填寫程序的最后運行結果，請將運行結果粘貼到下面的框中。否則，該題以零分計!此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面PrivateSubCommand1_Click()DimsAsDoubleDimnAsIntegern=InputBox("請輸入一個數(shù)")s=0Fori=1Tons=s+(-1)^(i-1)/(2*i-1)^3Nextis=Int(s*10000+0.5)/10000Text1.Text=sEndSub五、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕編寫程序，用二分法求一元非線性方程f(x)=x+cosx-2.8=0在區(qū)間(0，5)上的近似實根r，要求結果保存4位小數(shù)。

要求：在運行程序時，采用適當?shù)姆绞捷敵鲇嬎憬Y果。〔25分〕此題要求填寫程序的最后運行結果，請將運行結果粘貼到下面的框中。否則，該題以零分計!此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面PrivateSubCommand1_Click()DimxAsSingle,x1AsSingle,x2AsSingleDimyAsSingle,y1AsSingle,y2AsSinglex1=0x2=5x=(x1+x2)/2y=x+Cos(x)-2.8WhileAbs(y)>0.00001y1=x1+Cos(x1)-2.8y2=x2+Cos(x2)-2.8Ify1*y<0Thenx2=xIfy2*y<0Thenx1=xx=(x1+x2)/2y=x+Cos(x)-2.8Wendx=Int(x*10000+0.5)/10000PrintxEndSub第二套二、編程題〔此題20分，必做〕新建工程，在窗體上創(chuàng)立一個命令按鈕Command1和一個標簽Label1。窗體和控件的大小適當、布局合理，命名并保存窗體文件〔5分〕，要求：

(1)在屬性窗口中設置命令按鈕上的文字為“改變大小〞，標簽上文字為“改變顏色〞〔5分〕。

(2)編寫事件過程，運行程序后，單擊命令按鈕，適當增加窗體的高度〔5分〕。

(3)編寫事件過程，運行程序后，單擊標簽，將窗體的背風光改為綠色〔5分〕。〔20分〕此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面請單擊按鈕上載文件，將你創(chuàng)立的frm文件上載到服務器上PrivateSubCommand1_Click()Form1.Height=Form1.Height+500EndSubPrivateSubLabel1_Click()Form1.BackColor=&HFF00&EndSub三、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕新建工程，根據(jù)題目要求自行設計窗體界面，要求窗體及控件的大小適當、布局合理，命名并保存窗體文件〔7分〕。

編寫事件過程并滿足以下要求：

(1)聲明一個含10個元素的一維數(shù)組，運行時單擊命令按鈕1，利用InputBox函數(shù)以循環(huán)方式給數(shù)組賦值。〔9分〕。

(2)輸入完成后，單擊命令按鈕2，以適當方式顯示數(shù)組中的元素，并將數(shù)組中后5個數(shù)的平均值顯示在一個文本框中〔9分〕。〔25分〕此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面請單擊按鈕上載文件，將你創(chuàng)立的frm文件上載到服務器上Dima(1To10)AsIntegerPrivateSubCommand1_Click()Fori=1To10a(i)=InputBox("請輸入一個數(shù)")NextiEndSubPrivateSubCommand2_Click()Fori=1To10Printa(i);NextiFori=6To10s=s+a(i)Nextis=s/5Text1.Text=sEndSub四、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕編寫程序，計算并輸出下面數(shù)列前n項(設n=50)的和。

1×2,-2×3,3×4,-4×5,……,(-1)^(n-1)×n×(n+1),……

〔其中，^表示冪運算〕

要求：在運行程序時，使用文本框或InputBox函數(shù)輸入n值，并用適當?shù)姆椒ㄝ敵鲞\算結果。〔25分〕此題要求填寫程序的最后運行結果，請將運行結果粘貼到下面的框中。否則，該題以零分計!此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面PrivateSubCommand1_Click()DimsAsDoubleDimnAsIntegern=InputBox("請輸入一個數(shù)")s=0Fori=1Tons=s+(-1)^(i-1)*i*(i+1)NextiText1.Text=sEndSub五、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕編寫程序，用矩形法求一元函數(shù)f(x)=x^3+2x^2-12x-6〔其中^表示冪運算〕，在區(qū)間[3.5，5]上的積分近似值S，保存2位小數(shù)〔小區(qū)間數(shù)n=15，此參數(shù)不能改動〕。

要求：在運行程序時，使用文本框或InputBox函數(shù)輸入n值，并用適當?shù)姆椒ㄝ敵鲞\算結果。〔25分〕此題要求填寫程序的最后運行結果，請將運行結果粘貼到下面的框中。否則，該題以零分計!此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面PrivateSubCommand1_Click()DimnAsIntegerDimxAsDoubleDimyAsDoubleDimhAsDoubleDimsAsDoublen=InputBox("請輸入?yún)^(qū)間數(shù)")x=3.5h=(5-3.5)/ns=0Fori=1Tony=x^3+2*x^2-12*x-6s=s+y*hx=x+hNextis=Int(s*100+0.5)/100Print"積分為：";sEndSub第三套二、編程題〔此題20分，必做〕新建工程，在窗體上創(chuàng)立一個命令按鈕Command1、一個標簽和三個單項選擇鈕OptionButton1～3。窗體和控件的大小適當、布局合理，命名并保存窗體文件〔5分〕，要求：

(1)在屬性窗口中設置命令按鈕上的文字為“大小〞，標簽上的文字為“字體顏色〞，三個單項選擇鈕上的文字分別為“紅〞、“綠〞、“藍〞〔5分〕。

(2)編寫事件過程，運行程序后，單擊命令按鈕可將標簽文字改變?yōu)?8磅〔5分〕。

(3)編寫事件過程，運行程序后，分別單擊三個單項選擇鈕，可改變標簽文字為紅色、綠色或藍色〔5分〕。〔20分〕此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面請單擊按鈕上載文件，將你創(chuàng)立的frm文件上載到服務器上PrivateSubCommand1_Click()Label1.FontSize=28EndSubPrivateSubOption1_Click(IndexAsInteger)Label1.ForeColor=&HFF&EndSubPrivateSubOption2_Click()Label1.ForeColor=&HFF00&EndSubPrivateSubOption3_Click()Label1.ForeColor=&HFF0000EndSub三、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕新建工程，根據(jù)題目要求自行設計窗體界面，要求窗體及控件的大小適當、布局合理，命名并保存窗體文件〔7分〕。

編寫事件過程并滿足以下要求：

(1)運行時單擊命令按鈕1，產生100個[100,200]之間的隨機整數(shù)并顯示在列表框中〔9分〕。

(2)然后單擊命令按鈕2，在兩個文本框中分別顯示上述數(shù)據(jù)中前10個和后10個數(shù)據(jù)的平均值〔9分〕。〔提示：使用數(shù)組存儲數(shù)據(jù)〕〔25分〕此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面請單擊按鈕上載文件，將你創(chuàng)立的frm文件上載到服務器上Dima(100)AsIntegerPrivateSubCommand1_Click()Fori=1To100a(i)=Int(Rnd*100)+100List1.AddItema(i)NextiEndSubPrivateSubCommand2_Click()Dims1AsSingleDims2AsSingleFori=1To10s1=s1+a(i)Nextis1=s1/10Fori=91To100s2=s2+a(i)Nextis2=s2/10Text1.Text="前10個數(shù)的平均值為："&s1Text2.Text="后10個數(shù)的平均值為："&s2EndSub四、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕編寫程序，計算并輸出下面數(shù)列前35項的和，將結果四舍五入保存4位小數(shù)。

1/2,2/3,3/4,4/5,5/6,6/7,7/8,

……

,n/(n+1),……

要求：在運行程序時，使用文本框或InputBox函數(shù)輸入n值，并用適當?shù)姆椒ㄝ敵鲞\算結果。〔25分〕此題要求填寫程序的最后運行結果，請將運行結果粘貼到下面的框中。否則，該題以零分計!此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面PrivateSubCommand1_Click()DimnAsIntegerDimsAsDoublen=InputBox("請輸入項數(shù)")Fori=1Tons=s+i/(i+1)Nextis=Int(s*10000+0.5)/10000Text1.Text=sEndSub五、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕編寫程序，用牛頓切線法求方程f(x)=x^3+2x^2-14=0〔其中^表示冪運算〕，在區(qū)間(0，5)上的近似實根r，迭代初值自選，要求結果保存4位小數(shù)。〔提示:牛頓切線法的計算公式為x=x-f(x)/f'(x)〕。

要求：在運行程序時，使用文本框或InputBox函數(shù)輸入迭代初值，并用適當?shù)姆椒ㄝ敵鲞\算結果。

〔25分〕此題要求填寫程序的最后運行結果，請將運行結果粘貼到下面的框中。否則，該題以零分計!此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面PrivateSubCommand1_Click()DimxAsDoubleDimy1AsDoubleDimy2AsDoublex=(5-0)/2y1=x^3+2*x^2-14y2=3*x^2+4*xWhileAbs(y1)>0.0001x=x-y1/y2y1=x^3+2*x^2-14y2=3*x^2+4*xWendx=Int(x*10000+0.5)/10000Print"方程的根是："&xEndSub第四套二、編程題〔此題20分，必做〕新建工程，在窗體上創(chuàng)立一個命令按鈕Command1和一個標簽Label1。窗體和控件的大小適當、布局合理，命名并保存窗體文件〔5分〕，要求：

(1)在屬性窗口中設置命令按鈕上的文字為“改變大小〞，標簽上文字為“改變顏色〞〔5分〕。

(2)編寫事件過程，運行程序后，單擊命令按鈕，適當增加窗體的寬度〔5分〕。

(3)編寫事件過程，運行程序后，單擊標簽，將窗體的背風光改為綠色〔5分〕。

〔20分〕此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面請單擊按鈕上載文件，將你創(chuàng)立的frm文件上載到服務器上PrivateSubCommand1_Click()Form1.Width=Form1.Width+500EndSubPrivateSubLabel1_Click()Form1.BackColor=&HFF00&EndSub三、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕新建工程，根據(jù)題目要求自行設計窗體界面，要求窗體及控件的大小適當、布局合理，命名并保存窗體文件〔7分〕。

編寫事件過程并滿足以下要求：

(1)在文本框1中輸入假設干字符，此時應在標簽中同步顯示輸入的內容〔9分〕。

(2)輸入完成后，單擊命令按鈕，在文本框2中顯示輸入字符的個數(shù)，在文本框3中顯示該字符串左邊的10個字符〔9分〕。〔25分〕此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面請單擊按鈕上載文件，將你創(chuàng)立的frm文件上載到服務器上PrivateSubCommand1_Click()Text2.Text=Len(Text1.Text)Text3.Text=Left(Text1.Text,10)EndSubPrivateSubText1_Change()Label1.Caption=Text1.TextEndSub四、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕編寫程序，計算出2000到9990之間所有能同時被11和17整除的整數(shù)之和。

要求：在運行程序時，采用適當?shù)姆绞捷敵鲇嬎憬Y果。

〔25分〕此題要求填寫程序的最后運行結果，請將運行結果粘貼到下面的框中。否則，該題以零分計!此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面PrivateSubCommand1_Click()DimsAsDoubleFori=2000To9990If(iMod11=0)And(iMod17=0)Thens=s+iEndIfNextiPrint"和是："&sEndSub五、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕編寫程序，用牛頓切線法求方程f(x)=3x^3-12x^2+4=0〔其中^表示冪運算〕，在區(qū)間(3,6)上的近似實根r，迭代初值取5，要求結果保存4位小數(shù)。〔提示:牛頓切線法的計算公式為x=x-f(x)/f'(x)〕。

要求：在運行程序時，使用文本框或InputBox函數(shù)輸入迭代初值，并用適當?shù)姆椒ㄝ敵鲞\算結果。

〔25分〕此題要求填寫程序的最后運行結果，請將運行結果粘貼到下面的框中。否則，該題以零分計!此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面PrivateSubCommand1_Click()DimxAsDoubleDimy1AsDoubleDimy2AsDoublex=5y1=3*x^3-12*x^2+4y2=9*x^2-24*xWhileAbs(y1)>0.0001x=x-y1/y2y1=3*x^3-12*x^2+4y2=9*x^2-24*xWendx=Int(x*10000+0.5)/10000Print"方程的根是："&xEndSub第五套二、編程題〔此題20分，必做〕新建工程，在窗體上創(chuàng)立一個命令按鈕Command1，一個標簽Label1。窗體和控件的大小適當、布局合理，命名并保存窗體文件〔5分〕，要求：

(1)在屬性窗口中設置命令按鈕上的文字為“顯示〞，將標簽上的文字去除〔5分〕。

(2)編寫事件過程，運行程序后，單擊“顯示〞按鈕，標簽上顯示“你單擊了[顯示]按鈕〞〔5分〕。

(3)編寫事件過程，運行程序后，每次單擊窗體，命令按鈕向右移動一個按鈕位置〔5分〕。

〔20分〕此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面請單擊按鈕上載文件，將你創(chuàng)立的frm文件上載到服務器上PrivateSubCommand1_Click()Label1.Caption="你單擊了[顯示]按鈕"EndSubPrivateSubForm_Click()Command1.Left=Command1.Left+Command1.WidthEndSub三、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕新建工程，根據(jù)題目要求自行設計窗體界面，要求窗體及控件的大小適當、布局合理，命名并保存窗體文件〔7分〕。

編寫事件過程并滿足以下要求：

(1)聲明一個含10個元素的一維數(shù)組，運行時利用InputBox函數(shù)以循環(huán)方式給數(shù)組賦值。〔9分〕。

(2)輸入完成后，單擊命令按鈕，顯示〔方式不限〕數(shù)組中的元素，并將數(shù)組中前4個元素的平均值輸出到一個文本框中〔9分〕。〔25分〕此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面請單擊按鈕上載文件，將你創(chuàng)立的frm文件上載到服務器上Dima(10)AsIntegerPrivateSubCommand1_Click()Fori=1To10a(i)=InputBox("請輸入數(shù)據(jù)")NextiEndSubPrivateSubCommand2_Click()Fori=1To10Printa(i);NextiFori=1To4s=s+a(i)Nextis=s/4Text1.Text="前4個的平均值為："&sEndSub四、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕編寫程序，計算出3000到7000之間能被7整除但不能被17整除的所有整數(shù)的平方根的和。

要求：運行程序，將結果四舍五入保存4位小數(shù)，并采用適當?shù)姆绞捷敵觥！?5分〕此題要求填寫程序的最后運行結果，請將運行結果粘貼到下面的框中。否則，該題以零分計!此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面PrivateSubCommand1_Click()DimsAsDoubleFori=3000To7000IfiMod7=0AndiMod17<>0Thens=s+Sqr(i)EndIfNextis=Int(s*10000+0.5)/10000Text1.Text="和是："&sEndSub五、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕編寫程序，用二分法求一元非線性方程f(x)=x^3+2x^2-12=0〔其中^表示冪運算〕，在區(qū)間(0，5)上的近似實根r，要求結果保存4位小數(shù)。

要求：在運行程序時，采用適當?shù)姆绞捷敵鲇嬎憬Y果。

〔25分〕此題要求填寫程序的最后運行結果，請將運行結果粘貼到下面的框中。否則，該題以零分計!此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面PrivateSubCommand1_Click()DimxAsSingle,x1AsSingle,x2AsSingleDimyAsSingle,y1AsSingle,y2AsSinglex1=0x2=5x=(x1+x2)/2y=x^3+2*x^2-12WhileAbs(y)>0.00001y1=x1^3+2*x1^2-12y2=x2^3+2*x2^2-12Ify1*y<0Thenx2=xIfy2*y<0Thenx1=xx=(x1+x2)/2y=x^3+2*x^2-12Wendx=Int(x*10000+0.5)/10000Print"方程的根為："&xEndSub第六套二、編程題〔此題20分，必做〕新建工程，在窗體上創(chuàng)立一個命令按鈕Command1，一個標簽Label1。窗體和控件的大小適當、布局合理，命名并保存窗體文件〔5分〕，要求：

(1)在屬性窗口中設置命令按鈕上的文字為“顯示〞，將標簽上的文字去除〔5分〕。

(2)編寫事件過程，運行程序后，單擊“顯示〞按鈕，標簽上顯示“你單擊了[顯示]按鈕〞〔5分〕。

(3)編寫事件過程，運行程序后，每次單擊窗體，命令按鈕向右移動一個按鈕位置〔5分〕。

〔20分〕此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面請單擊按鈕上載文件，將你創(chuàng)立的frm文件上載到服務器上參考第五套三、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕新建工程，根據(jù)題目要求自行設計窗體界面，要求窗體及控件的大小適當、布局合理，命名并保存窗體文件〔7分〕。

編寫事件過程并滿足以下要求：

(1)在文本框1中輸入假設干字符，此時應在標簽中同步顯示輸入的內容〔9分〕。

(2)輸入完成后，單擊命令按鈕，在文本框2中顯示輸入字符的個數(shù)，在文本框3中顯示該字符串左邊的10個字符〔9分〕。〔25分〕此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面請單擊按鈕上載文件，將你創(chuàng)立的frm文件上載到服務器上四、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕編寫程序，計算并輸出下面數(shù)列前n項的和(設n=50，x=0.4)，要求結果保存4位小數(shù)，小數(shù)點后第5位四舍五入。

cos(x)/2,cos(2x)/4,cos(3x)/6,……,cos(nx)/2n,……

〔其中，cos為余弦函數(shù)〕

要求：在運行程序時，使用文本框或InputBox函數(shù)輸入n和x值，并用適當?shù)姆椒ㄝ敵鲞\算結果。〔25分〕此題要求填寫程序的最后運行結果，請將運行結果粘貼到下面的框中。否則，該題以零分計!此題要求填寫源程序，請將你解答此題所寫的源程序粘貼到下面五、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕編寫程序，用矩形法求一元函數(shù)f(x)=x^3+2x^2-12x-6〔其中^表示冪運算〕，在區(qū)間[3.5，5]上的積分近似值S，保存2位小數(shù)〔小區(qū)間數(shù)n=25，此參數(shù)