下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、题目:(事件)单击窗体(响应)用输入框输入一自然数,判断是 ”正数”、”负数”或”零”,并根据输入的数用消息框显示”正数”、负数或”零”。n = lnputBox(输入一个自然数)If n 0 Thenresult = 正数Elself n = A And UCase(n) = 0 And n = 90 The nfun = 优秀ElseIf mark = 80 The nfun =良好ElseIf mark = 70 Thenfun = 中等 ElseIf mark = 60 Then fun = 及格 Elsefun = 不及格 End If 题目:编写函数 fun ,函数的功能是:判断一
2、个字符是 字母字符、数字字符还是其他字符,并做相应的显示。 字母字符显示字符串 字母 数字字符显示字符串 数字 其他字符显示字符串 其他 要求使用 Select Case 语句来实现。Private Function fun(n As String) As StringI*Program*I*End*End FunctionSelect Case nCase a To z, A To Zfun = 字母 Case 0 To 9fun = 数字 Case Elsefun = 其他 End Select 题目:编写函数 fun ,函数的功能是:当 x 的初值为 10,每年增长率为千分之八,计算多少
3、年以后x的值能达到y, 并显示所需年数的值(变量名必须为n)。 要求使用 Do While . Loop 语句来实现。x = 10n = 0Do While x y x = x * 1.008 n = n + 1Loop fun = n题目:编写函数 fun,函数的功能是:计算两个正整数的 最大公约数,并显示。如: 两个数为 15、 20,结果显示 5 要求使用 Do . Loop 语句来实现。Dor = m Mod nIf r = 0 Then Exit Don = r Loop fun = n编写函数fun,函数的功能是:求11000以内能同时被m、n整除的数的总和并显示。Sum = 0F
4、or i = 1 To 1000If i Mod m = 0 And i Mod n = 0 ThenSum = Sum + iEnd IfNext ifun = Sum题目:编写函数 fun,函数的功能是:求从m到n的乘积并显示,Product = 1For i = m To nProduct = Product * iNext ifun = Product题目:(事件)单击窗体。(响应)一球从100米高度自由落下,每次落地返回原高度的一半,求第 10次落地时,共经过多少米?并将结果在窗体上输出。Dim j, i As Integers = 0j = 100For i = 2 To 10j
5、= j / 2s = s + 2 * jNexts = 100 + sPrint (CStr(s)题目:(事件)单击窗体。(响应)求岀1000-9999之间具有如下特点的四位数字,它的平方根恰好就是它中间的两位数字,例如,2500开平方为50,恰为2500的中间两位,找岀所有这样的四位数。并求岀所有这样的数的和存入SUM中Dim i As IntegerDim j As IntegerFor i = 1000 To 9999j = Val(Mid(Trim(Str(i), 2, 2)If j 人 2 = i ThenPrint i,sum = sum + iEnd IfNext题目:(事件)双
6、击窗体。(响应)把一元钞票换成一分、二分和五分的硬币(每种至少有一枚),求出其所有的换法,把结果输出在窗体上。将所有的换法的数目存入变量N 中Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20 If (i + 2 * j + k * 5) = 100) ThenPrint (CStr(i)Print (CStr(j)Print (CStr(k)n = n + 1End IfNextNextNext题目: (事件 )双击窗体。(响应)写程序解决百钱买百鸡问题:公鸡3元 1只,母鸡 5 元 1 只,小鸡一元 3
7、只,怎样用 100 元买100 只鸡。把结果输出到窗体上。将答案数存放在变量 N 中Dim i, j, k As IntegerFor i = 1 To 20 母鸡For j = 1 To 33 公鸡For k = 3 To 100 小鸡If (k Mod 3) = 0) And (i * 5 + j * 3 + k / 3) = 100) And (i + j + k) = 100) Then Print (CStr(i)Print (CStr(j)Print (CStr(k)n = n + 1End IfNextNextNext题目: (事件 )单击窗体。(响应)求 1020 之间所有素数
8、的乘积并输出在窗体上。 将结果存入变量 L 中。Dim i As IntegerDim j As IntegerDim b As Booleanl = 1 b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Then b = TrueEnd IfNextIf b = False Thenl = l * iEnd If b = FalseNextPrint Str(l)题目: (事件 )单击窗体。(响应)求 1 - 1/2 + 1/3 - 1/4 + 1/99 - 1/100 的值 将结果存入变量 J 中。Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Thenj = j - 1 / iEnd IfNextPrint j 题目: (事件 )双击窗体。(响应)求 1+2+3+5+8+13+ 前 20项的和,并将结
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 冷藏保鲜库项目投资管理方案
- 电线电缆行业分析报告
- 内科护理工作下半年工作总结
- 学校物资管理情况综合审核
- 城市更新实施方案:住房改造专题分析
- 城市更新的市场前景分析
- 感染科护士年度绩效总结
- 加强药物不良反应监测与报告
- 耳鼻喉科医生下半年总结报告
- 整形美容科医生工作总结分析
- 2023年专利代理人资格考试专利代理实务真题
- 电子元器件培训资料课件
- 智能制造产业专题宣传片文稿
- 企业标准编写模板
- 《正当防卫的防卫限度探究-基于实例分析(论文)7800字》
- 外墙涂料施工方案
- 建档立卡-退役军人信息登记表(基础电子档案)
- 八年级下册道德与法治《公民的基本权利》
- 正规股东的免责书范本
- 高中职业生涯规划-主题班会课件(共23张ppt)
- 新人教版四年级数学租船问题练习附详细答案
评论
0/150
提交评论