1、题目:（事件）单击窗体（响应)用输入框输入一自然数，判断就是＂正数”、＂负数或＂零”,并根据输入得数用消息框显示”正数"、”负数”或”零".2、题目:（事件）单击窗体。
（响应）求２０0～３0０之间既能被3整除又能被7整除得数.并求出所有数之与存入变量ＳＵＭ中3、题目：单击窗体。
（响应)已知S=1+1/４+１／9+1/1６+1/25+…+1／1０0，结果输出在窗体上。
4、题目：（事件）单击窗体.（响应）在窗体上打印数列２／1，３／2,5/3,8/5，1３/８…得前10项，并求其与，将与保存在变量s中。
5、题目：（事件）双击窗体。
(响应)把一元钞票换成一分、二分与五分得硬币每种至少有一枚)，求出其所有得换法，把结果输出在窗体上。
将所有得换法得数目存入变量N中6、题目:单击窗体。
）求１！+２！＋3!+4！＋5!并将结果输出到窗体上。
结果存入变量S中7、题目:（事件）单击窗体。
（响应)生成一个一维数组（10个数组元素依此为:' １5、23、７2、４3、9６、2３、３、65、88、１7写程序求出这个数组中得最大值、最小值与平均值,并输出在窗体上。
将最大值，最小值,平均值分别存入变量Max，Min，Aver中8、题目:(事件）单击窗体。
（响应)在窗体上输出100～２0０之间得所有合数。
求出所有数之与存入SUＭ中所谓合数就是指自然数中能被1与本数整除以外，还能被其她数整除得数。
９、题目：（事件）单击窗体.(响应）求10～20之间所有素数得乘积并输出在窗体上。
将结果存入变量L中。
1０、题目：(事件）单击窗体。
（响应)求1- 1/2＋1/3 －1/4 +……+ 1／99－1/10０得值。
将结果存入变量J中。
１题ｎ = InputＢoｘ（"输入一个自然数”）If n ＞0 Thenrｅsulｔ = ”正数＂ElseIf n < 0 Ｔhenｒeｓult = ”负数"ElseIf n ＝ 0 Ｔhenresult ＝"零＂End IfMsgＢox "输入得数据”& ｎ＆”为：”＆ rｅsuｌt2题Dｉｍ i As InteｇerFｏｒ i = 201 To 300Ｉf ((i Mod 3） = 0) Aｎｄ((i Mod ７) = 0） TｈenＰrinｔ (CStｒ(i)）sum = ｓum + iEnd IｆＮeｘtＰrint sum3题DiｍｉAｓ Inteｇeｒｓ = 0For i = 1 To 1０s ＝ s + 1 / (i ^ i)NextPrint (s)４题Ｄim i，ｊ, ｋ， m As Integers ＝ 0 :i = 2:j = １For k = 1 To 10s = s ＋ｉ / jｍ＝ jPrｉnt (CSｔｒ(i)） & "／" ＆ＣＳtｒ(j)j = iｉ = i + mＮexｔ5题Ｄｉｍ i, j，ｋAｓＩnｔegｅrFor i = １ To １00Fｏr j = 1 Ｔo 50For k = 1 Tｏ 20If （（i + 2 ＊j ＋ k * 5）＝ 100) ＴｈｅnPrint (CＳｔr(i)）Priｎｔ (CStr（j)）Pｒinｔ（CＳtｒ(k)）n ＝n + １NextNeｘtNｅxt6题Dim ｉ，ｊ， k As IｎtegerFor i = １ Tｏ 5k ＝ 1For j = 1 Tｏ iｋ = ｋ＊ jNexts = s + kＮｅxtＰriｎt （ＣStr（s)）7题Dｉｍａ(９） As IｎtegerDiｍ i, s Ａs Inｔegerａ(0）= １５：a(1) ＝ 23:ａ(2) = ７2ａ（3) ＝ 43:a(4） = 96：a（５） = ２3ａ(6) = 3：a（7）＝65:a（８) = 88a(9）= 17：ｍax = a(０)：ｍin ＝ a（0)s = ０For ｉ= 0 Ｔo ９If a（i）＞max Thenmax ＝ a(i)Eｎd IfIf a(ｉ）〈ｍiｎ Thenmｉn = a(ｉ)Eｎd Ｉfｓ＝ s ＋ a(i)Ｎeｘtaveｒ＝ Iｎt(s ／10)Print （ＣStr(mａx))Prｉｎｔ（CSｔr(ｍin)）Print （CStｒ（aver））8题Dim i, j, ｓ As InteｇerFor ｉ= 100 Tｏ 200For j ＝ 2 To Sqr(i）If （ｉ Mod j) = 0 ThenPrint (CStr（i))sum = suｍ+ iExｉt FｏｒEnｄＩｆＮextNｅxtPｒint ｓum9题Dｉｍ i%，j％,b As Booｌeａｎl = 1：b = FalseFor i = 10 Ｔo 20Fｏr j = 2 To i — 2If i Ｍod j = ０ Tｈenb = TrｕeEnd IfNｅxtIf b = False Thｅnl ＝ l ＊ iＥnd Iｆb = ＦaｌseNextPｒint Str（l)１0题Diｍ i AｓＩｎteｇｅrFor i = 1 To 100If i Mod 2 ＝ 1 Ｔhenj = j + １/ iEｌｓｅIf ｉＭｏd 2 ＝ 0 Thenj = j －１ / iEnd IfＮexｔＰrｉｎt j11、题目:（事件）单击窗体.(响应）如果一个数得真因子之与等于这个数本身，则称这样得数为“完全数”。
例如,整数28得真因子为１、2、4、7、11,其与就是28。
因此2８就是一个完全数。
请编写一个程序，求出5０0以内最大得完全数。
并存入变量SUＭ中。
使用for、、、neｘt语句完成程序12、题目：应用选择法对数组A按升序排列13、题目：单击窗体。
求一个数，它除3余2，除5余3，除7余２，请将满足上面条件得最小数保存到suｍ变量中.使用for、、、next语句完成程序.14、题目:编写函数fｕｎ,函数得功能就是：判断一个字符就是字母字符、数字字符还就是其她字符，并做相应得显示。
字母字符显示字符串”字母＂，数字字符显示字符串”数字”，其她字符显示字符串"其她",要求使用IF语句来实现.Ｐｒivate Funcｔioｎfun（n As Sｔrｉｎg) AｓString’＊＊**＊＊***＊Proｇram＊＊***＊＊*＊＊’＊*＊***＊＊＊* Ｅnd *＊*＊＊**＊＊＊Ｅnd FunctionPrｉｖatｅSub Form_Loaｄ()ShoｗPrｉntｆuｎ（”A")Ｐrｉnt fun("9＂)Prｉnt ｆun（”&”)ＮJIT_VBEnｄＳubPrｉvate SuｂNJＩT_VB（）Dim i Ａs IntｅgerＤｉm l Ａs IｎtegｅrDiｍa（10) As Sｔrinｇ* １ＤiｍfInＡs IntegeｒDim fＯut ＡsＩntｅgerfＩn= FreeFileOpen Apｐ、Ｐａｔh ＆"\ｉｎ、ｄat” For InpｕtＡs#fInfOut ＝ＦreeFilｅＯpen Ａpp、Path ＆"\out、dat” ForＯutpｕt As ＃fOutFor i＝ 1 To 10ＬiｎｅInput #fIn, ａ(i)Print #ｆOｕt，fuｎ（a(i))NｅｘtCｌose #ｆInClose#ｆOutEnd Sub15、题目:编写函数ｆｕｎ,函数得功能就是：根据一个百分制成绩mark（整数）,显示对应五级制得评定.条件如下:＇mark大于等于９0显示＂优秀"’mａrk小于90且大于等于８0显示＂良好"'ｍarｋ小于８0且大于等于70显示"中等"’mark小于7０且大于等于60显示"及格＂＇mａrk小于60显示”不及格”＇要求使用IF语句来实现。
Privaｔe Fuｎcｔｉon ｆｕn（marｋAs Ｉnteｇeｒ）Ａs Strｉｎg'＊*＊＊＊＊＊*＊＊Prｏgram＊*＊**＊＊*＊＊'＊＊*＊****＊* Enｄ＊*＊*＊*＊＊*＊Eｎd FunctｉonPｒｉvaｔe SuｂForm＿Load()SｈoｗＰrint fuｎ（90）NJＩT_VBEnd SubＰrivａtｅSub NJIT＿ＶB（）Ｄim i As ＩnｔegerDim s As ＳtriｎgDim a（１0) As ＩｎtｅgerＤｉm ｆIn AｓＩntegerＤiｍfOut As ＩnｔeｇerfIn= FrｅeFileOpｅn Ａpｐ、Ｐａth ＆＂\iｎ、dat＂FoｒInput Aｓ＃fInfＯut= FreeＦｉlｅOpen App、Patｈ＆＂＼out、dａt＂Ｆｏr Oｕｔｐut Aｓ＃ｆOｕtFor i= 1 To 10Ｌｉne Inpｕt ＃ｆＩn，sａ（i）＝Vａl(s)Prinｔ＃fOｕｔ, fun（a（i))NeｘtClｏse ＃ｆInCｌoｓe #fOutEnｄSuｂ16、题目：编写函数fuｎ，函数得功能就是：当ｘ得初值为10,每年增长率为千分之八，计算多少年以后x得值能达到ｙ,并显示所需年数得值（变量名必须为n).＇要求使用Do Whiｌe 、、、Loｏp语句来实现。
Ｐrivate Funｃtiｏn fｕn(ｙAs Single) As LoｎgＤｉｍｘAs Siｎgle, n AｓＬｏng＇＊*＊＊＊＊***＊Proｇｒam＊*＊＊＊****＊'＊**＊****＊* Enｄ＊*＊＊*＊***＊EｎｄＦuｎctionPｒiｖａtｅSub Form＿Load（）ShowPrinｔfun（15)NJIT_VBＥｎd ＳｕbPrivaｔe SuｂNJIT_VB()Dｉｍi AｓInｔegeｒDim a（1０）As ＳtrｉngＤiｍfIｎAｓＩntegｅrDim fOｕｔＡs InteｇｅrfIｎ= FreeFileＯｐｅｎAｐp、Path ＆"\iｎ、dat” Ｆor ＩnpuｔAs #fIｎfOut =ＦｒｅｅFilｅOpｅn Apｐ、Paｔｈ& ”＼ｏut、dａt＂For Output As #ｆOutFｏr i= 1 Ｔｏ10Ｌｉne Inpｕｔ＃fＩｎ, a(i)Pｒｉｎｔ#fOut, Trim(Sｔr(ｆun（Ｖaｌ（ａ(i））））)ＮextClose #fInCｌose ＃fＯｕtEnｄSub1７、题目:编写函数fｕn，函数得功能就是：求从ｍ到ｎ得乘积并显示，’如:m为2,ｎ为4时,显示＂24＂＇存储连乘得乘积得变量必须为Prodｕｃt'要求使用For语句来实现。