『易坊知识库摘要_教育相关|VB程序设计考试题库——考试专用[教育相关]』2、题目：(事件)单击窗体。(响应)求200300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+1/100，结果输出在窗体上。...

【教育相关|VB程序设计考试题库——考试专用[教育相关]】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之间的所有合数 。
求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数 。
9、题目：(事件)单击窗体 。
(响应)求10 。

3、20之间所有素数的乘积并输出在窗体上 。
将结果存入变量L中 。
10、题目：(事件)单击窗体 。
(响应)求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100的值 。
将结果存入变量J中 。
1题n = InputBox(输入一个自然数)If n 0 Thenresult = 正数ElseIf n max Thenmax = a(i)End IfIf a(i) n Then t = m: m = n: n = t*Program* End *End FunctionPrivate Sub Form_Load()ShowPrint fun(4, 2)NJIT_VBEnd SubPrivate 。

4、 Sub NJIT_VB()Dim i As IntegerDim a(10) As StringDim 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 10 Step 2Line Input #fIn, a(i)Line Input #fIn, a(i + 1)Print #fOut, Trim(Str(fun(Val(a(i) 。

5、, Val(a(i + 1)NextClose #fInClose #fOutEnd Sub18、题目：编写函数fun ， 函数的功能是：判断一个数是否为素数 。
并显示相应提示 。
如：该数为素数时 ， 显示素数；该数为非素数时 ， 显示非素数要求使用For语句来实现 ， 用布尔型变量flag作为该数是否为素数的标志 ， 注意：不得使用Goto语句 。
Private Function fun(m As Long) As StringDim flag As Boolean*Program* End *End FunctionPrivate Sub Form_Load()ShowPrint fun(225)NJIT_VBEn 。

6、d SubPrivate Sub NJIT_VB()Dim i As IntegerDim a(10) As StringDim 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 10 Step 1Line Input #fIn, a(i)Print #fOut, fun(Val(a(i)NextClose #fInClose #f 。

7、OutEnd SubNextClose #fInClose #fOutEnd Sub19、题目：编写函数fun ， 函数的功能是：求1100以内能被m整除或能被n整除的数的总和并显示 。
如：m为15 ， n为11时 ， 显示810 ， 存储总和的变量必须为Sum ， 要求使用For语句来实现 。
Private Function fun(m As Integer, n As Integer) As LongDim Sum As Long*Program* End *End FunctionPrivate Sub Form_Load()Show16题x = 10n = 0Do While x = 90 Thenfun = 。

8、 优秀ElseIf mark = 80 Thenfun = 良好ElseIf mark = 70 Thenfun = 中等ElseIf mark = 60 Thenfun = 及格Elsefun = 不及格End IfDim a(10) As String20题Dim s, i As IntegerFor i = 2 To n - 1If n Mod i = 0 Thens = s + iEnd IfNextFun = sDim fIn As IntegerDim fOut As IntegerfIn = FreeFileOpen App.Path & in.dat For Input As。

9、#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 Sub20、题目：编写函数fun ， 函数的功能是：计算并输出给定整数n的所有因子之和（不包括1与自身） 。
规定n的值不大于1000? 例如：n的值为855时 ， 应输出704 。
21、题目：编写函 。

10、数fun其功能是:判断一个整数w的各位数字平方之和能否被5整除 , 可以被5整除则返回1 , 否则返回022、题目：编写函数fun其功能是：根据整型形参m ， 计算如下公式的值:y=1/5+1/6+1/7+1/8+1/9+1/10.+1/(m+5)求：函数中用到的中间变量必须声明为Single类型 。
11题Dim i As Integerdim s as integerFor i = 500 To 1 Step -1s = iFor j = i - 1 To 1 Step -1If i Mod j = 0 Thens = s - jEnd IfNext jIf s = 0 ThenExit ForE 。

来源：(未知)

【学习资料】网址：/a/2021/0318/0021715238.html

标题：教育相关|VB程序设计考试题库——考试专用[教育相关]