VB温习习题.docVIP

PAGE PAGE 7 6题 Dim i, j, k As Integer 6题 Dim i, j, k As Integer For i = 1 To 5 k = 1 For j = 1 To i k = k * j Next s = s + k Next Print (CStr(s)) 1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是正数、负数或零，并根据输入的数用消息框显示正数、负数”或零。 1题n = InputBox( 1题 n = InputBox(输入一个自然数) If n 0 Then result = 正数 ElseIf n 0 Then result = 负数 ElseIf n = 0 Then result = 零 End If MsgBox 输入的数据 n 为： result 3题 Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) 2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 2题Dim i As IntegerFor i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then 2题 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 5题Dim i, j, k As IntegerFor i = 1 To 100 For j = 1 To 50 5题 Dim i, j, k As Integer For i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If ((i + 2 * j + k * 5) = 100) Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k)) n = n + 1 End If Next Next Next 5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 7题 7题 Dim a(9) As Integer Dim i, s As Integer a(0) = 15：a(1) = 23：a(2) = 72 a(3) = 43：a(4) = 96：a(5) = 23 a(6) = 3：a(7) = 65：a(8) = 88 a(9) = 17：max = a(0)：min = a(0) s = 0 For i = 0 To 9 If a(i) max Then max = a(i) End If If a(i) min Then min = a(i) End If s = s + a(i) Next aver = Int(s / 10) Print (CStr(max)) Print (CStr(min)) Print (CStr(aver)) 7、题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为： 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中 8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。 9、题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。 10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。将结果存入变量J中。 11、题目： (事件)单击窗体。(响应)如果一个数的真因子之