程序设计题电子版.docVIP

程序设计题电子版 （事件）单击事件。 （响应）生成一个一维数组（10个数组元素依次为15、32、72、43、96、18、3、177、88、17），写程序求出这个数组的最大值、最小值和平均值，并输出在窗体上。将最大值、最小值、平均值分别存入变量Max、Min、Aver中。 答案： Dim a(9) As Integer Dim i, s As Integer a(0) = 15 a(1) = 32 a(2) = 72 a(3) = 43 a(4) = 96 a(5) = 18 a(6) = 3 a(7) = 177 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)) （事件）单击按钮“绘制”。 （响应）利用“@”字符打印如下图字母“T”.要求：字母“T”的横线和竖线分别用一维For循环语句打印，使用Tab（）函数定位。（其中横线有19个“@”字符，竖线有10个“@”字符）。 答案： For i = 1 To 19 Print @; Next i For i = 1 To 10 Print Tab(10); @ Next i （事件）单击窗体 （响应）求200～300之间既能被3整除又能被7整除的数并打印。并求出所有数之和存入变量SUM中并打印。 答案： 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 （事件）单击窗体 （响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8……的前10项，并求其和。 答案： Dim i, j, k, m As Integer s = 0 i = 2 j = 1 For k = 1 To 10 m = j Print (CStr(i)) / (CStr(j)) j = i i = i + m s = s + i / j Next Print s （事件）单击窗体 （响应）求出1000～9999之间具有如下特点的四位数字，它的算数平方根恰好就是它中间的两位数字，例如，2500开平方根为50，恰为2500的中间两位，找出所有这样的四位数并打印。并求出所有这样的数的和存入SUM中。 答案： Dim i, j As Integer For i = 1000 To 9999 j = Val(Mid(Trim(Str(i)), 2, 2)) If j ^ 2 = i Then Print (CStr(i)) Sum = Sum + i End If Next Print Sum （事件）单击窗体 （响应）把一元钞票换成一分、二分和五分的硬币（每种至少一枚），求出其所有的换法，把结果输出到窗体上。把所有的换法的数目存入变量n中。 答案： Dim i, j, k As Integer For i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If (i + j * 2 + k * 5) = 100 Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k)) n = n + 1 End If Next Next Next Print (Cstr(n)) （事件）单击窗体 （响应）写程序解决求百元买白鸡的问题：公鸡3元1只，母鸡5元1只，小鸡1元3只，怎么用100元买100只鸡。把结果输出到窗体上。将答案数存放到变量N中。 答案： Dim i, j, k As Integer For i = 1 To 20 母鸡 For j = 1 To 33 公鸡 For k = 3 To 100 小鸡 If (kmod3 = 0) And (i * 5 + j * 3 + k / 3 = 100) And (i + j + k = 100) Then Print (CStr(i)) Print (CStr(j))