vb6.0实验五题与答案.docVIP

实验五 专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的 1、熟练使用三种循环结构 1）For循环 For 循环变量=初值 To 终值 [Step 步长] 循环体语句序列 Next [循环变量] 2）Do循环 格式一 格式二 格式三 格式四 Do While 条件 循环体语句序列 Loop Do Until 条件 循环体语句序列 Loop Do 循环体语句序列 Loop While 条件 Do 循环体语句序列 Loop Until 条件 3）While循环 While 条件 循环体语句序列 Wend 2、掌握几个常用算法 数列求和、级数求和、求最大公约数及最小公倍数、数制转换、求阶乘 闰年、素数、水仙花数、自然数对等判断 二、实验内容 1、按图示设置各控件，程序运行时，在Text1中输入一正整数，单击“判断”按钮，在标签控件Label1中显示“是完数”或“不是完数”。 说明：完数是指其所有因子和等于它本身的数。如：28，1+2+4+7+14=28；所以28为完数。（类似的有：判断素数、求各位数字之和、水仙花数、自然数对） Private Sub Command1_Click() Dim sum As Integer, i As Integer a = Val(Text1.Text) For i = 1 To a - 1 If a Mod i = 0 Then sum = sum + i Next i Debug.Print sum If sum = a Then Label1.Caption = 完数 Else Label1.Caption = 非完数 End Sub 2、按图示设置各控件，程序运行时，在Text1中输入一正整数N的值，单击“计算阶乘”按钮，在Text2中显示N！的值。 Private Sub Command1_Click() Dim s% a = Val(Text1.Text) s = 1 For i = 1 To a s = s * i Next Text2.Text = s End Sub 3、按图示设置各控件，程序运行时，在Text1中输入一正整数N的值，单击“计算”，在Text2中显示所有[1，N]之间平方根为整数的数。 Private Sub Command1_Click() a = Val(Text1.Text) For i = 1 To a If Int(Sqr(i)) = Sqr(i) Then Text2.Text = Text2.Text i End If Next i End Sub 4、按图示设置各控件，程序运行时，在Text1中输入一正整数M的值，在Text2中输入一正整数N的值，单击“计算”，在Text3中显示所有[M,N]之间能被3整除，但不能被6整除的数。（类似求所有[M,N]之间能被3整除，但不能被6整除的数之和；还有可以改为：“除5余2”、“偶数”、“奇数”、“闰年”之类等等） Private Sub Command1_Click() m = Val(Text1.Text): n = Val(Text2.Text) If m n Then t = m: m = n: n = t 确保mn For i = n To m If i Mod 3 = 0 And i Mod 6 0 Then Text3.Text = Text3.Text i End If Next i End Sub 5、按图示设置各控件，程序运行时，在Text1中输入一正整数N的值，单击“S=”按钮，在Text2中显示: S = 1 - 1/2 + 1/3 – 1/4 + … + (-1)N+1/N 的值。 Private Sub Command1_Click() Dim n%, S!, i% n = Val(Text1.Text) For i = 1 To n S = S + (-1) ^ (i + 1) / i Next i Text2.Text = S End Sub 6、把上题中的表达式改为： S =1 + 1/1! + 1/2! + 1/3! + 1/4! + … + 1/N! Private Sub Command1_Click() Dim n%, S!, i%, t% n = Val(Text1.Text) t = 1: S = 1 For i = 1 To n t = t * i S = S + 1 / t Next i Text2.Text = S End