《vb60实验五题与答案.docx》由会员分享，可在线阅读，更多相关《vb60实验五题与答案.docx（7页珍藏版）》请在三一办公上搜索。
1、vb60实验五题与答案实验五 专业_ 班级_年级_姓名_学号_ 一、实验目的 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中
2、显示“是完数”或“不是完数”。 说明：完数是指其所有因子和等于它本身的数。如：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、按图示设置各控
3、件，程序运行时，在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(
4、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整除的数。 Private Sub Command1_Click m = Val(Text1.Text): n = Val(Text2.Text) If m n For i = n To m If i Mod 3 = 0 And i Mod 6 0 Then Text3.Text =
5、 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! +
6、 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 Sub 1234N S = 1 + 2 + 3 + 4 + + NPrivate Sub Command1_Click Dim n%, S%, i% n = Val(Text1.Text) For i = 1 To n S = S + i i Next i Text2
7、.Text = S End Sub 7、按图示设置各控件，程序运行时，在Text1中输入一字符串，单击“统计”按钮，在Text2中显示该字符串中数字字符的个数。 Private Sub Command1_Click a = Text1.Text For i = 1 To Len(a) If Asc(Mid(a, i, 1) 47 And Asc(Mid(a, i, 1) 58 Then k = k + 1 End If Next i Text2.Text = k End Sub 8、按图示设置各控件，程序运行时，在Text1中输入一十制数，单击“转换”按钮，在Text2中显示等值的十六进制数。
8、 Private Sub Command1_Click Text2.Text = a = Val(Text1.Text) Do While a 0 temp = a Mod 16 b = IIf(temp 9, Chr(48 + temp), Chr(55 + temp) a = a 16 Text2.Text = b & Text2.Text Loop End Sub 还可以变换成输入一个十六进制数转换为十进制数。 9、按图示设置各控件，程序运行时，在Text1中输入一字符串，在Text2中输入一个字符，单击“删除字符”，把“原始字符串”中删除“指定字符”后的结果显示在Text3中。 Pri
9、vate Sub Command1_Click a = Text1.Text For i = 1 To Len(a) b = Mid(a, i, 1) If b Text2.Text Then Text3.Text = Text3.Text + b End If Next i End Sub 10、按图示设置各控件，程序运行时，在Text1中输入一字符串，在Text2中输入一个字符，单击“逆置”，把“原始字符串”中字符逆置后的结果显示在Text2中。 Private Sub Command1_Click a = Val(Text1.Text) For i = 1 To Len(a) m = M
10、id(s, i, 1) Text2.Text = m & Text2.Text Next i End Sub 11、练习 1）如下程序功能，单击窗口，实现：从键盘上输入若干数值，负数作为输入结束标志，最后输出其中的最大值和最小值，请把下面程序补充完整。 Private Sub Form_Click Dim x As Single, mmax As Single, mmin As Single x = InputBox(x=) mmax = x: mmin = x while x=0 If xmmax Then mmax=x If xmmin Then Mmin=x End If x = Inp
11、utBox(x=) Wend Print mmax,mmin End Sub 2）执行以下程序段后，x的值是。 n = 6: x = 1: i = 1 Do x = x * i: i = i + 1 Loop While i n 3）如下程序段的功能是：输出e=1+1/1!+1/2!+1/n!的近似值,要求累加到最后一项值小于0.000001为止。 Dim e#, t#, n% e = 1: t = 1: n = 1 Do Until 1/t 0.000001 t =t * n e = e + 1/t n = n + 1 Loop Print 自然对数的底e近似值为：, e 4）执行以下程序段
12、后，窗体显示的内容为，i 的值是，j (3)。 Private Sub Form_Click s = 2 For i = 1 To 2 For j = 0 To i s = s + s * j Print s; Spc(2); Next j Print Next i End Sub 5）执行以下程序段后，x的值是，语句“x = x+1”被执行了次。 For i = 1 To 3 x = 0 For j = 1 To 4 x = x + 1 Next j Next i 6）执行以下程序段后，x 和 n 值分别是 和。 x = 0 Do While x 10 x = (x +1) * (x +2) n = n + 1 Loop 7）执行以下程序段的结果是。 n=0 Do n = n+1 Loop Until n = 0
