程序设计题1、题目:(事件）单击窗体(响应）用输入框输入一自然数,判断是”正数”、"负数或”零"，并根据输入的数用消息框显示”正数＂、"负数”或＂零”。2、题目:(事件）单击窗体。(响应)求 200～300 之间既能被３整除又能被 7 整除的数。并求出所有数之和存入变量Ｓ UM 中3、题目:单击窗体。（响应）已知 S=1+１/4＋1／9+1/１６+1／25+…+1/1 ０ 0，成果输出在窗体上.4、题目:（事件）单击窗体。(响应)在窗体上打印数列２/1,３/2，5/3,８／５,13／8…的前 10 项,并求其和，将和保留在变量 s 中。5、题目：(事件）双击窗体。（响应）把一元现金换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法,把成果输出在窗体上。将所有的换法的数目存入变量 N 中６、题目:单击窗体.）求 1!＋2！+3！＋4!+5！并将成果输出到窗体上。成果存入变量Ｓ中7、题目:(事件)单击窗体．（响应)生成一种一维数组(10 个数组元素依此为:’ 15、23、72、43、96、23、３、65、８ 8、１７写程序求出这个数组中的最大值、最小值和平均值,并输出在窗体上。将最大值，最小值，平均值分别存入变量 Ma ｘ,Ｍ in，Ａ ver 中8、题目：（事件)单击窗体.（响应）在窗体上输出 10 ０~２ 0 ０之间的所有合数。求出所有数之和存入Ｓ UM 中所谓合数是指自然数中能被 1 和本数整除以外，还能被其他数整除的数。9、题目:（事件)单击窗体。(响应)求１ 0~20 之间所有素数的乘积并输出在窗体上。将成果存入变量Ｌ中。10、题目:(事件)单击窗体。(响应）求1 － 1/2 ＋ 1／3 － １/4 + …… + 1/99 - 1/10０的值。将成果存入变量Ｊ中.１题ｎ ＝ InputBox("输入一种自然数")If n > ０ Ｔhｅn result = ＂正数”ElseIf n < 0 Then reｓulｔ = ”负数”ElｓeＩf n = 0 Ｔhen rｅsｕlt = ”零”End ＩfMsｇBox ”输入的数据” ＆ ｎ & "为:" ＆ result2题Dim i As InteｇｅrＦoｒ i ＝ 201 Ｔo 3０0 Iｆ （(i Mod ３) = 0) Ａnd ((i Moｄ ７） = ０） Tｈen Prｉnt (ＣStr（i)) ｓuｍ = ｓum + i Enｄ IfＮextPrｉnt sum３题Dim i Ａｓ Intｅgｅｒｓ = 0Foｒ ｉ ＝ １ To 1０ s = s + 1 / （i ^ i)NextＰrint （ｓ）4题Dｉm ｉ， j， k, m As Intｅgers = 0 :i = 2:j = 1For k = 1 To １0 s = ｓ + i ／ j m = j Priｎt ...
