练习题第六章

练习题第六章6-1Private Sub Command1_Click()s1 = 0For k = 1 To 100s1 = s1 + kNext ks2 = 0For k = 1 To 50s2 = s2 + k ^ 2Next ks3 = 0For k = 1 To 10s3 = s3 + 1 / kNext kLabel1.Caption = Format(s1 + s2 + s3, "0.0000") End Sub6-2Private Sub Command1_Click()n = Val(Text1.Text)s = 0k = 2For i = 1 To 2 * n - 1 Step 2s = s + (-1) ^ k * 1 / ik = k + 1Next is = 4 * s'或'For i = 1 To n' s = s + 4 * (-1) ^ (i + 1) * 1 / (2 * i - 1)'Next iText2.Text = Format(s, "0.0000")End Sub6-3Private Sub Command1_Click()a = Val(InputBox("请输入A"))n = Val(InputBox("请输入N"))Sum = 0Item = 0For j = 1 To nItem = Item * 10 + aSum = Sum + ItemNext jText1.Text = SumEnd Sub6-4Private Sub Form_Click()a = 2b = 1s = 0For i = 1 To 20s = s + a / bc = aa = a + bb = cNext i'或'c = a / b'For i = 1 To 20' s = s + c' c = 1 / c + 1'Next iMsgBox "和为:" & sEnd Sub6-5Private Sub Command1_Click()n = Val(Text1.Text)f = 1For i = 1 To nf = f * (2 * i - 1)Next iLabel2.Caption = fEnd Sub6-6Private Sub Command1_Click()For i = 3 To 100 Step 2Text1.Text = Text1.Text & Str(i) & Chr(13) & Chr(10) Next iEnd Sub6-7Private Sub Form_Click()For k = 100 To 200If k Mod 4 = 2 And k Mod 5 = 3 And k Mod 6 = 0 ThenPrint "球的个数为："; kEnd IfNext kEnd Sub6-8Private Sub Command1_Click()For i = 1 To 9999s1 = Format(i)l = Len(s1)s2 = Format(i ^ 2)If Right(s2, l) = s1 ThenText1.Text = Text1.Text & Str(i)End IfNext iEnd Sub6-9Private Sub Command1_Click()a = 1 '累乘积b = 1Do While a <= 400000a = a * bb = b + 2Loop'或'While a <= 400000' a = a * b' b = b + 2'Wend'或'Do Until a > 400000' a = a * b' b = b + 2'Loop'不建议使用for...next'For i = 1 To 10 ' 预估上界要大些' a = a * (2 * i - 1)' If a > 400000 Then Exit For'Next i'a = a / (b - 2) '求小于400000的最大值Text1.Text = aEnd Sub6-10Private Sub Command1_Click()m = 0n = 0Do While m < 100000n = n + 1m = m + n ^ nLoopm = m - n ^ nText1.Text = mEnd Sub6-11Private Sub Command1_Click()S = 0For i = 1 To 100S1 = 0For j = 1 To iS1 = S1 + jNext jS = S + 1 / S1Next iText1.Text = SEnd Sub6-12'双重循环实现Private Sub Command1_Click()S = 0For i = 1 To 20'寻找所有累加项的共同规律----阶乘'每个阶乘从1开始累乘得到----内重循环S1 = 1For j = 1 To iS1 = S1 * jNext jS = S + S1Next iText1.Text = SEnd Sub'单重循环实现'Private Sub Command1_Click()' S = 0' S1 = 1' For i = 1 To 20'寻找前后2个累加项之间关系的规律'后一项= 前一项* 最后一个数（i值）' S1 = S1 * i' S = S + S1' Next i' Text1.Text = S'End Sub6-13Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer Dim s1 As Integer, s2 As Integer' For a = 1 To 9' For b = 0 To 9' For c = 0 To 9' s1 = 100 * a + 10 * b + c' s2 = a ^ 3 + b ^ 3 + c ^ 3' If s1 = s2 Then' Print s1;' End If' Next c, b, a'或'For i = 100 To 999' a = i \ 100' b = (i - a * 100) \ 10' c = i Mod 10' If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i'Next i'或For i = 100 To 999ii = Trim(Str(i))a = Val(Left(ii, 1))b = Val(Mid(ii, 2, 1))c = Val(Right(ii, 1))If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print iNext i6-14Private Sub Command1_Click()For i = 1 To 1000Sum = 0For j = 1 To i - 1If i Mod j = 0 ThenSum = Sum + jEnd IfNext jIf i = Sum Then Print iNext iEnd Sub6-15Dim n As IntegerPrivate Sub Command1_Click()n = Val(InputBox("请输入行数"))ClsFor i = 1 To nPrint Tab(i); String(n, "*");Next iEnd SubPrivate Sub Command2_Click()n = Val(InputBox("请输入行数"))ClsFor a = 1 To nPrint Tab(n + 1 - a); '找出输出起始位置与行号a的关系For b = 1 To 2 * a - 1 '找出输出星号个数与行号a的关系Print "*";Next bNext aEnd Sub'Private Sub Command3_Click()' n = Val(InputBox("请输入行数"))' Cls' For a = n To 1 Step -1' Print Tab(n + 1 - a);' For b = (2 * a - 1) To 1 Step -1' Print "*";' Next b' Next a'或Private Sub Command3_Click()n = Val(InputBox("请输入行数"))ClsFor a = 1 To nPrint Tab(a);For b = 1 To 2 * n - (2 * a - 1)Print "*";Next bNext aEnd SubPrivate Sub Command4_Click()n = Val(InputBox("请输入行数"))ClsFor i = 1 To nPrint Tab(i);'左边三角形一行For j = 1 To 2 * (n + 1 - i) - 1Print "*";Next j'左右三角形间空格Print Spc(2);'右边三角形一行For k = 1 To 2 * i - 1Print "*";Next k'Print '换行(可以不写，因为下一个循环时，tab（i）指定位置小于当前位置，自动换下一行)Next iEnd Sub6-16Private Sub Command1_Click()s = 1t = 1x = Val(InputBox("请输入X值"))For i = 1 To 20t = t * x / is = s + tNext iText2.Text = Format(s, "0.0000000000")End Sub'或双重循环实现'Private Sub Command1_Click()' s = 1' x = Val(InputBox("请输入X值"))' For i = 1 To 20' t = 1 或ss=1' For j = 1 To i For j = 1 To i' t = t * x / j ss=ss*j' Next j Next j' t=x^i/ss' s = s + t' Next i' Text2.Text = Format(s, "0.0000000000")'End Sub'或Do。