vb6.0实验五题与答案

1、实验五专业 _ 班级 _年级 _姓名 _学号 _一、实验目的1、熟练使用三种循环结构1） For 循环For = To Step Next 2） Do 循环格式一格式二格式三格式四Do While Do Until DoDoLoopLoopLoop While Loop Until 3 ） While 循环While Wend2、掌握几个常用算法数列求和、级数求和、求最大公约数及最小公倍数、数制转换、求阶乘闰年、素数、水仙花数、自然数对等判断二、实验内容1、按图示设置各控件，程序运行时，在 Text1 中输入一正整数，单击“判断”按钮，在标签控件 Label1 中显示“是完数”或“不是完数”

2、。说明：完数是指其所有因子和等于它本身的数。如：28，1+2+4+7+14=28；所以28 为完数。（类似的有：判断素数、求各位数字之和、水仙花数、自然数对）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 = 完数El se Label 1. Capt

3、 i on = 非完数End Sub2、按图示设置各控件，程序运行时，在 Text1 中输入一正整数 N 的值，单击“计算阶乘”按钮，在 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、按图示设置各控件，程序运行时，在Text1中输入一正整数N 的值，单击“计算” ，在Text2 中显示所有 1 ， N 之间平方根为整数的数。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、按图示设置各控件，程序运行时，在 Text1 中输入一正整数 M的值，在 Text2 中输入一正整数 N 的值，单击 “计算”，在 Text3 中显示所有 M,N 之间能被 3 整除，但不能被 6 整除的数。（类似求所有 M,N 之间能被 3 整除，但不能被 6 整除的数之和；还有可以改为： “除 5 余 2”、“偶数”、“奇数

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、按图示设置各控件，程序运行时，在Text1 中输入一正整数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、把上题中的表达式改为：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、按图示设置各控件，程序运行时， 在 Text1 中输入一字符串， 单击“统计” 按钮，在 Text2中显示该字符串中数字字符（大写字符、小写字符）的个数。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、按图示设置各控件， 程序运行时， 在 Text1 中输入一十制数， 单击“转换” 按钮，在 Text2 中显示等值的十六进制数。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还可以变换成输入一个十六进制数转换为十进制数。9、按图示设置各控件，程序运行时，在 Text1中输入一字符串，在 Text2中输入一个字符，单击“删除字符” ，把“原始字符串”中删除“指定字符”后的结果显示在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、按图示设置各控件， 程序运行时， 在 Text1中输入一字符串， 在 Text2中输入一个字符，单击“逆置” ，把“原始字符串”中字符逆置后的结果显示在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、练习1）如下程序功能，单击窗口，实现：从键盘上输入若干数值，负数作为输入结束标志，最后输出其

11、中的最大值和最小值，请把下面程序补充完整。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）执行以下程序段后，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 自然对数的底e 近似值为： , e +1/n! 的近似值, 要求累加到最后一项值4）执行以下程序段后，窗体显示的内容为（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）执行以下程序段后，x 的值是（4 ），语句“ x = x+1”被执