1、實(shí)驗(yàn)五專業(yè) _ 班級(jí) _年級(jí) _姓名 _學(xué)號(hào) _一、實(shí)驗(yàn)?zāi)康?、熟練使用三種循環(huán)結(jié)構(gòu)1） For 循環(huán)For = To Step Next 2） Do 循環(huán)格式一格式二格式三格式四Do While Do Until DoDoLoopLoopLoop While Loop Until 3 ） While 循環(huán)While Wend2、掌握幾個(gè)常用算法數(shù)列求和、級(jí)數(shù)求和、求最大公約數(shù)及最小公倍數(shù)、數(shù)制轉(zhuǎn)換、求階乘閏年、素?cái)?shù)、水仙花數(shù)、自然數(shù)對(duì)等判斷二、實(shí)驗(yàn)內(nèi)容1、按圖示設(shè)置各控件，程序運(yùn)行時(shí)，在 Text1 中輸入一正整數(shù)，單擊“判斷”按鈕，在標(biāo)簽控件 Label1 中顯示“是完數(shù)”或“不是完數(shù)”

2、。說(shuō)明：完數(shù)是指其所有因子和等于它本身的數(shù)。如：28，1+2+4+7+14=28；所以28 為完數(shù)。（類似的有：判斷素?cái)?shù)、求各位數(shù)字之和、水仙花數(shù)、自然數(shù)對(duì)）Pr i vat e Sub Command1_Cl i ck( )Di m sum AsI nt eger , i As I nt egera =Val ( Text 1. Text )Fori= 1 Toa - 1I fa Mod i= 0 Then sum = sum + iNextiDebug. Pr i ntsumI f sum = aThen Label 1. Capt i on = 完數(shù)El se Label 1. Capt

3、 i on = 非完數(shù)End Sub2、按圖示設(shè)置各控件，程序運(yùn)行時(shí)，在 Text1 中輸入一正整數(shù) N 的值，單擊“計(jì)算階乘”按鈕，在 Text2 中顯示 N！的值。Pr i vat e Sub Command1_Cl i ck( )Di m s%= Val ( Text 1. Text ) s = 1For i = 1 To a s = s * iNextText 2. Text= sEnd Sub3、按圖示設(shè)置各控件，程序運(yùn)行時(shí)，在Text1中輸入一正整數(shù)N 的值，單擊“計(jì)算” ，在Text2 中顯示所有 1 ， N 之間平方根為整數(shù)的數(shù)。Pr i vat e Sub Command1_

4、Cl i ck( )a = Val ( Text 1. Text )Fori= 1 To aI fI nt ( Sqr ( i ) ) = Sqr ( i )ThenText 2. Text= Text 2. Text& i& End I fNextiEnd Sub4、按圖示設(shè)置各控件，程序運(yùn)行時(shí)，在 Text1 中輸入一正整數(shù) M的值，在 Text2 中輸入一正整數(shù) N 的值，單擊 “計(jì)算”，在 Text3 中顯示所有 M,N 之間能被 3 整除，但不能被 6 整除的數(shù)。（類似求所有 M,N 之間能被 3 整除，但不能被 6 整除的數(shù)之和；還有可以改為： “除 5 余 2”、“偶數(shù)”、“奇數(shù)

5、”、“閏年”之類等等）Pr i vat e Sub Command1_Cl i ck( )m = Val ( Text 1. Text ) :n = Val ( Text 2. Text )I fm nFori= n To mI fi Mod 3= 0 And i Mod 6 0ThenText 3. Text=Text 3. Text & i& End I fNextiEndSub5、按圖示設(shè)置各控件，程序運(yùn)行時(shí)，在Text1 中輸入一正整數(shù)N 的值，單擊“ S=”按鈕，在 Text2 中顯示 :S=1-1/2+1/3 1/4+ + (-1)N+1/N的值。Pr i vat e Sub Co

6、mmand1_Cl i ck( )Di m n%,S! ,i %= Val ( Text 1. Text ) For i = 1 To nS = S + ( - 1) ( i + 1) / iNextiText 2. Text= SEnd Sub6、把上題中的表達(dá)式改為：S =1 + 1/1! + 1/2! + 1/3! + 1/4! +Pr i vat e Sub Command1_Cl i ck( )Di m n%,S! ,i %,t %+ 1/N!= Val ( Text 1. Text ) t = 1: S = 1Fori=1Tont =t*iS =S +1/ tNextiText2.

7、Text=SEndSubS=11+2 2+3 3+4 4+ +NNPr i vat e Sub Command1_Cl i ck( )Di m n%,S%,i %= Val ( Text 1. Text ) For i = 1 To nS = S + i iNextiText 2. Text= SEnd Sub7、按圖示設(shè)置各控件，程序運(yùn)行時(shí)， 在 Text1 中輸入一字符串， 單擊“統(tǒng)計(jì)” 按鈕，在 Text2中顯示該字符串中數(shù)字字符（大寫(xiě)字符、小寫(xiě)字符）的個(gè)數(shù)。Pr i vat eSubCommand1_Cl i ck( )a =Text 1. TextFori=1 To Len( a)I

8、 fAsc( Mi d( a, i , 1) ) 47 And Asc( Mi d( a, i , 1) ) 58 Thenk=k +1EndI fNextiText2. Text= kEndSub8、按圖示設(shè)置各控件， 程序運(yùn)行時(shí)， 在 Text1 中輸入一十制數(shù)， 單擊“轉(zhuǎn)換” 按鈕，在 Text2 中顯示等值的十六進(jìn)制數(shù)。Pr i vat eSub Command1_Cl i ck( )Text2. Text = a =Val ( Text 1. Text )Do Whi l e a 0t emp = a Mod 16b =I I f ( t emp 9, Chr ( 48 + t em

9、p) , Chr ( 55+ t emp) )a =a16Text2. Text = b& Text 2. TextLoopEndSub還可以變換成輸入一個(gè)十六進(jìn)制數(shù)轉(zhuǎn)換為十進(jìn)制數(shù)。9、按圖示設(shè)置各控件，程序運(yùn)行時(shí)，在 Text1中輸入一字符串，在 Text2中輸入一個(gè)字符，單擊“刪除字符” ，把“原始字符串”中刪除“指定字符”后的結(jié)果顯示在Text3 中。Pr i vat e Sub Command1_Cl i ck( )a =Text 1. TextFori= 1 To Len( a)b= Mi d( a, i , 1)I fb Text 2. Text ThenText 3. Text

10、= Text 3. Text + bEnd I fNextiEndSub10、按圖示設(shè)置各控件， 程序運(yùn)行時(shí)， 在 Text1中輸入一字符串， 在 Text2中輸入一個(gè)字符，單擊“逆置” ，把“原始字符串”中字符逆置后的結(jié)果顯示在Text2 中。Pr i vat eSub Command1_Cl i ck( )a =Val (Text 1.Text )Fori =1 ToLen( a)m =Mi d( s,i , 1)Text2. Text= m & Text 2. TextNextiEndSub11、練習(xí)1）如下程序功能，單擊窗口，實(shí)現(xiàn)：從鍵盤(pán)上輸入若干數(shù)值，負(fù)數(shù)作為輸入結(jié)束標(biāo)志，最后輸出其

11、中的最大值和最小值，請(qǐng)把下面程序補(bǔ)充完整。Private Sub Form_Click()Dim x As Single, mmax As Single, mmin As Singlex = InputBox(x=)mmax = x: mmin = xwhilex=0Ifxmmax ThenIf xmmin ThenMmin=xmmax=xEnd Ifx = InputBox(x=)WendPrintmmax,mminEnd Sub2）執(zhí)行以下程序段后，x 的值是（120）。n = 6: x = 1: i = 1Dox = x * i:i = i + 1Loop While i n3）如下程序

12、段的功能是：輸出e=1+1/1!+1/2!+小于 0.000001 為止。Dim e#, t#, n%e =1: t = 1: n = 1Do Until1/t 0.000001t =t * ne = e + 1/tn = n + 1LoopPrint 自然對(duì)數(shù)的底e 近似值為： , e +1/n! 的近似值, 要求累加到最后一項(xiàng)值4）執(zhí)行以下程序段后，窗體顯示的內(nèi)容為（244824）， i的值是（3）， j (3) 。Private Sub Form_Click()s = 2For i = 1 To 2For j = 0 To is = s + s * jPrint s; Spc(2);Next jPrintNext iEnd Sub5）執(zhí)行以下程序段后，x 的值是（4 ），語(yǔ)句“ x = x+1”被執(zhí)