1、1程序设计题1、题目：(事件)单击窗体( 响应)用输入框输入一自然数，判断是“正数“、“负数或“零“ ，并根据输入的数用消息框显示“正数“、“负数”或“ 零“。2、题目：(事件)单击窗体。( 响应) 求 200300 之间既能被 3 整除又能被 7 整除的数。并求出所有数之和存入变量 SUM 中3、题目：单击窗体。(响应)已知 S=1+1/4+1/9+1/16+1/25+1/100，结果输出在窗体上。4、题目：(事件)单击窗体。( 响应) 在窗体上打印数列 2/1,3/2,5/3,8/5,13/8的前 10 项，并求其和，将和保存在变量 s 中。5、题目： (事件 )双击窗体。(响应)把一元钞
2、票换成 一分、二分和五分的硬币每种至少有一 枚） ，求出其所有的换法，把结果输出 在窗体上。将所有的换法的数目存入变 量 N 中6、题目： 单击窗体。)求 1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量 S 中7、题目：(事件)单击窗体。( 响应) 生成一个一维数组(10 个数组元素依此为： 15、23、72、43、96、23、3、65、88、17写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量 Max,Min,Aver 中8、题目：(事件)单击窗体。( 响应) 在窗体上输出 100200 之间的所有合数。求出所有数之和存入SU
3、M 中所谓合数是指自然数中能被 1 和本数整除以外,还能被其他数整除的数。9、题目：(事件)单击窗体。( 响应) 求 1020 之间所有素数的乘积并输出在窗体上。将结果存入变量 L 中。10、题目：(事件)单击窗体。( 响应) 求 1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100 的值。将结果存入变量 J 中。11、题目： (事件)单击窗体。( 响应) 如果一个数的真因子之和等于这个数本身，则称这样的数为“完全数” 。例如，整数 28 的真因子为 1、2、4、7、11，其和是 28。因此 28 是一个完全数。请编写一个程序，求出 500 以内最大的完全数。并存入变量 S
4、UM 中。使用 for.next 语句完成程序 1题n = InputBox(“输入一个自然数“)If n 0 Thenresult = “正数“ElseIf n max Thenmax = a(i)End IfIf a(i) a(j) Then imin = jNext jtemp = a(i)a(i) = a(imin)a(imin) = tempNext i13题Dim i As IntegerFor i = 2 To 1000If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 ThenPrint iExit ForEnd IfNext isum
5、 = iIf UCase(n) = “A“ And UCase(n) = “0“ And n = 90 Thenfun = “优秀“ElseIf mark = 80 Thenfun = “良好“ElseIf mark = 70 Thenfun = “中等“ElseIf mark = 60 Thenfun = “及格“Elsefun = “不及格“End If3Private Sub Form_Load()ShowPrint fun(90)NJIT_VBEnd SubPrivate Sub NJIT_VB()Dim i As IntegerDim s As StringDim a(10) As
6、IntegerDim fIn As IntegerDim fOut As IntegerfIn = FreeFileOpen App.Path & “in.dat“ For Input As #fInfOut = FreeFileOpen App.Path & “out.dat“ For Output As #fOutFor i = 1 To 10Line Input #fIn, sa(i) = Val(s)Print #fOut, fun(a(i)NextClose #fInClose #fOutEnd Sub16、题目：编写函数 fun，函数的功能是：当 x 的初值为 10，每年增长率为千
7、分之八，计算多少年以后 x 的值能达到 y，并显示所需年数的值（变量名必须为 n） 。要求使用 Do While . Loop 语句来实现。Private Function fun(y As Single) As LongDim x As Single, n As Long*Program* End *End FunctionPrivate Sub Form_Load()ShowPrint fun(15)NJIT_VBEnd SubPrivate Sub NJIT_VB()Dim i As IntegerDim a(10) As StringDim fIn As IntegerDim fOut
8、 As IntegerfIn = FreeFileOpen App.Path & “in.dat“ For Input As #fInfOut = FreeFileOpen App.Path & “out.dat“ For Output As #fOutFor i = 1 To 10Line Input #fIn, a(i)Print #fOut, Trim(Str(fun(Val(a(i)NextClose #fInClose #fOutEnd Sub17、题目：编写函数 fun，函数的功能是：求从 m 到 n 的乘积并显示，如：m 为 2，n 为 4 时，显示“24“存储连乘的乘积的变量必
9、须为 Product要求使用 For 语句来实现。Private Function fun(m As Integer, n As Integer) As LongDim Product As Double, t As IntegerIf m n Then t = m: m = n: n = t*Program* End *End FunctionPrivate Sub Form_Load()ShowPrint fun(4, 2)NJIT_VBEnd SubPrivate Sub NJIT_VB()Dim i As IntegerDim a(10) As StringDim fIn As Int
10、egerDim fOut As IntegerfIn = FreeFileOpen App.Path & “in.dat“ For Input As #fInfOut = FreeFileOpen App.Path & “out.dat“ For Output As #fOutFor i = 1 To 10 Step 2Line Input #fIn, a(i)Line Input #fIn, a(i + 1)Print #fOut, Trim(Str(fun(Val(a(i), Val(a(i + 1)NextClose #fInClose #fOutEnd Subx = 10n = 0Do
11、 While x 0If s Mod 5 = 0 Thenk = 1Elsek = 0End Iffun = k22题Dim y As DoubleDim i As IntegerFor i = 0 To my = y + 1 / (i + 5)NextFun = y第 1 题运行界面61）名称为“标签”2）文字对齐方式为居中对齐3）背景为透明4）字体名称为黑体，字体大小为 365）高度为 975，宽度为 34956）内容为“喜迎奥运”3、在标签下方添加一个水平滚动条1）最大变化为 1002）最大值为 10003）最小值为 1004、在滚动条下方添加一个文件列表框1）名称为“文件列表”2）只显
12、示后缀名为 jpg 的文件5、在窗体右下角添加一个命令按钮1）名称为“Clear”2）标题为“清除”3）在单击事件里添加代码，去除掉窗体的背景图片3请按照题目要求设计指定的窗体。 （本题有 6 个项目要完成）建立如图 2-12-3 所示界面：1、窗体设置1）名称为“个人介绍”2）标题为“我的个人信息”2、在窗体上方添加一个文本框控件1）文本内容为“个人简历”2）设置文本被锁定3）文本允许多行4）该文本框设置为不可见3、在文本框下添加一个标签控件1）内容右对齐2）标题内容为“所获奖励”3）该标签不可见4、在标签下添加一个组合框控件1）名称为“组合框”2）列表项目依次为“小学” 、 “初中” 、 “高中” 、 “大学”3）列表项目排序属性设置为 True5、添加两个一级菜单，均无子菜单1）第一个一级菜单，名称为 Menu1，标题为“个人简历”2）第二个一级菜单，名称为 Menu2，标题为“所获奖励”3）在 Menu1 的单击事件里添加代码，使文本框可见4）在 Menu2 的单击事件里添加代码，使标签可见6、在窗体右下角添加一个命令按钮1）标题为“清除”图 2-12-2 第 2 题运行界面72）在单击事件里添加代码，清除组合框里的所有项目图 2-12-3 第 3 题运行界面
