VB編程題和詳細(xì)參考題答案

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

(1)在屬性窗口中設(shè)置兩個(gè)命令按鈕上的文字分別為“改變顏色〞和“改變大小〞，標(biāo)簽上文字為“計(jì)算機(jī)等級(jí)考試〞，標(biāo)簽可以自動(dòng)調(diào)整大小以顯示所有文字〔5分〕。

(2)編寫事件過程，運(yùn)行程序后，單擊“改變顏色〞按鈕，標(biāo)簽上的文字內(nèi)容改為“顏色已經(jīng)改變〞，文字顏色改為藍(lán)色〔5分〕。

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

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

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

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

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

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

〔25分〕此題要求填寫源程序，請(qǐng)將你解答此題所寫的源程序粘貼到下面請(qǐng)單擊按鈕上載文件，將你創(chuàng)立的frm文件上載到服務(wù)器上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項(xiàng)的和。將結(jié)果四舍五入保存4位小數(shù)。

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

〔其中，^表示冪運(yùn)算〕

要求：在運(yùn)行程序時(shí)，使用文本框或InputBox函數(shù)輸入n值，并用適當(dāng)?shù)姆椒ㄝ敵鲞\(yùn)算結(jié)果?！?5分〕此題要求填寫程序的最后運(yùn)行結(jié)果，請(qǐng)將運(yùn)行結(jié)果粘貼到下面的框中。否則，該題以零分計(jì)!此題要求填寫源程序，請(qǐng)將你解答此題所寫的源程序粘貼到下面PrivateSubCommand1_Click()DimsAsDoubleDimnAsIntegern=InputBox("請(qǐng)輸入一個(gè)數(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)上的近似實(shí)根r，要求結(jié)果保存4位小數(shù)。

要求：在運(yùn)行程序時(shí)，采用適當(dāng)?shù)姆绞捷敵鲇?jì)算結(jié)果?！?5分〕此題要求填寫程序的最后運(yùn)行結(jié)果，請(qǐng)將運(yùn)行結(jié)果粘貼到下面的框中。否則，該題以零分計(jì)!此題要求填寫源程序，請(qǐng)將你解答此題所寫的源程序粘貼到下面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)立一個(gè)命令按鈕Command1和一個(gè)標(biāo)簽Label1。窗體和控件的大小適當(dāng)、布局合理，命名并保存窗體文件〔5分〕，要求：

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

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

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

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

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

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

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

〔其中，^表示冪運(yùn)算〕

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

要求：在運(yùn)行程序時(shí)，使用文本框或InputBox函數(shù)輸入n值，并用適當(dāng)?shù)姆椒ㄝ敵鲞\(yùn)算結(jié)果?！?5分〕此題要求填寫程序的最后運(yùn)行結(jié)果，請(qǐng)將運(yùn)行結(jié)果粘貼到下面的框中。否則，該題以零分計(jì)!此題要求填寫源程序，請(qǐng)將你解答此題所寫的源程序粘貼到下面PrivateSubCommand1_Click()DimnAsIntegerDimxAsDoubleDimyAsDoubleDimhAsDoubleDimsAsDoublen=InputBox("請(qǐng)輸入?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)立一個(gè)命令按鈕Command1、一個(gè)標(biāo)簽和三個(gè)單項(xiàng)選擇鈕OptionButton1～3。窗體和控件的大小適當(dāng)、布局合理，命名并保存窗體文件〔5分〕，要求：

(1)在屬性窗口中設(shè)置命令按鈕上的文字為“大小〞，標(biāo)簽上的文字為“字體顏色〞，三個(gè)單項(xiàng)選擇鈕上的文字分別為“紅〞、“綠〞、“藍(lán)〞〔5分〕。

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

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

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

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

(2)然后單擊命令按鈕2，在兩個(gè)文本框中分別顯示上述數(shù)據(jù)中前10個(gè)和后10個(gè)數(shù)據(jù)的平均值〔9分〕?！蔡崾荆菏褂脭?shù)組存儲(chǔ)數(shù)據(jù)〕〔25分〕此題要求填寫源程序，請(qǐng)將你解答此題所寫的源程序粘貼到下面請(qǐng)單擊按鈕上載文件，將你創(chuàng)立的frm文件上載到服務(wù)器上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個(gè)數(shù)的平均值為："&s1Text2.Text="后10個(gè)數(shù)的平均值為："&s2EndSub四、編程題〔此題25分，第三、四、五題選做兩道，多做按前兩道算〕編寫程序，計(jì)算并輸出下面數(shù)列前35項(xiàng)的和，將結(jié)果四舍五入保存4位小數(shù)。

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

……

,n/(n+1),……

要求：在運(yùn)行程序時(shí)，使用文本框或InputBox函數(shù)輸入n值，并用適當(dāng)?shù)姆椒ㄝ敵鲞\(yùn)算結(jié)果?！?5分〕此題要求填寫程序的最后運(yùn)行結(jié)果，請(qǐng)將運(yùn)行結(jié)果粘貼到下面的框中。否則，該題以零分計(jì)!此題要求填寫源程序，請(qǐng)將你解答此題所寫的源程序粘貼到下面PrivateSubCommand1_Click()DimnAsIntegerDimsAsDoublen=InputBox("請(qǐng)輸入項(xiàng)數(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〔其中^表示冪運(yùn)算〕，在區(qū)間(0，5)上的近似實(shí)根r，迭代初值自選，要求結(jié)果保存4位小數(shù)?！蔡崾?牛頓切線法的計(jì)算公式為x=x-f(x)/f'(x)〕。

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

〔25分〕此題要求填寫程序的最后運(yùn)行結(jié)果，請(qǐng)將運(yùn)行結(jié)果粘貼到下面的框中。否則，該題以零分計(jì)!此題要求填寫源程序，請(qǐng)將你解答此題所寫的源程序粘貼到下面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)立一個(gè)命令按鈕Command1和一個(gè)標(biāo)簽Label1。窗體和控件的大小適當(dāng)、布局合理，命名并保存窗體文件〔5分〕，要求：

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

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

(3)編寫事件過程，運(yùn)行程序后，單擊標(biāo)簽，將窗體的背風(fēng)光改為綠色〔5分〕。

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

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

(1)在文本框1中輸入假設(shè)干字符，此時(shí)應(yīng)在標(biāo)簽中同步顯示輸入的內(nèi)容〔9分〕。

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

要求：在運(yùn)行程序時(shí)，采用適當(dāng)?shù)姆绞捷敵鲇?jì)算結(jié)果。

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

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

〔25分〕此題要求填寫程序的最后運(yùn)行結(jié)果，請(qǐng)將運(yùn)行結(jié)果粘貼到下面的框中。否則，該題以零分計(jì)!此題要求填寫源程序，請(qǐng)將你解答此題所寫的源程序粘貼到下面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)立一個(gè)命令按鈕Command1，一個(gè)標(biāo)簽Label1。窗體和控件的大小適當(dāng)、布局合理，命名并保存窗體文件〔5分〕，要求：

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

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

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

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

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

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

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

要求：運(yùn)行程序，將結(jié)果四舍五入保存4位小數(shù)，并采用適當(dāng)?shù)姆绞捷敵觥！?5分〕此題要求填寫程序的最后運(yùn)行結(jié)果，請(qǐng)將運(yùn)行結(jié)果粘貼到下面的框中。否則，該題以零分計(jì)!此題要求填寫源程序，請(qǐng)將你解答此題所寫的源程序粘貼到下面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〔其中^表示冪運(yùn)算〕，在區(qū)間(0，5)上的近似實(shí)根r，要求結(jié)果保存4位小數(shù)。

要求：在運(yùn)行程序時(shí)，采用適當(dāng)?shù)姆绞捷敵鲇?jì)算結(jié)果。

〔25分〕此題要求填寫程序的最后運(yùn)行結(jié)果，請(qǐng)將運(yùn)行結(jié)果粘貼到下面的框中。否則，該題以零分計(jì)!此題要求填寫源程序，請(qǐng)將你解答此題所寫的源程序粘貼到下面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)立一個(gè)命令按鈕Command1，一個(gè)標(biāo)簽Label1。窗體和控件的大小適當(dāng)、布局合理，命名并保存窗體文件〔5分〕，要求：

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

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

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

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

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

(1)在文本框1中輸入假設(shè)干字符，此時(shí)應(yīng)在標(biāo)簽中同步顯示輸入的內(nèi)容〔9分〕。

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

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

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

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