VB程序设计题复习二
上传者:汪金刚|上传时间:2015-05-04|密次下载
VB程序设计题复习二
程序设计
〖第1题〗『程序设计』(5分)(题号:148)
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:(事件)单击窗体。
' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量L中。
'-------------------------------------------------
'注意:请在指定的事件内编写代码。
'-------------------------------------------------
答案:----------------------
Dim i As Integer
Dim j As Integer
Dim b As Boolean
l = 1
b = False
For i = 10 To 20
For j = 2 To i - 2
If i Mod j = 0 Then
b = True
End If
Next
If b = False Then
l = l * i
End If
b = False
Next
Print Str(l)
----------------------
〖第2题〗『程序设计』(5分)(题号:150)
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:(事件)单击窗体。
' (响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。 ' 将结果存入变量J中。
'-------------------------------------------------
'注意:请在指定的事件内编写代码。
'-------------------------------------------------
1
答案:----------------------
Dim i As Integer
For i = 1 To 100
If i Mod 2 = 1 Then
j = j + 1 / i
ElseIf i Mod 2 = 0 Then
j = j - 1 / i
End If
Next
Print j
----------------------
〖第3题〗『程序设计』(5分)(题号:131)
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:(事件)单击窗体。
' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100, ' 结果输出在窗体上。
'-------------------------------------------------
'将结果存入变量S中
'-------------------------------------------------
答案:----------------------
Dim i As Integer
s = 0
For i = 1 To 10
s = s + 1 / (i ^ i)
Next
Print (s)
----------------------
〖第4题〗『程序设计』(5分)(题号:152)
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:(事件)双击窗体。
' (响应)求1+2+3+5+8+13+……前20项的和,并将结' 果在窗体上输出。将结果存入变量SUM中。
'-------------------------------------------------
2
'注意:请在指定的事件内编写代码。
'-------------------------------------------------
答案:----------------------
Dim i As Integer
Dim j(1 To 20) As Integer
For i = 1 To 20
If i < 3 Then
j(i) = i
Else
j(i) = j(i - 1) + j(i - 2)
End If
sum = sum + j(i)
Next
Print sum
----------------------
〖第5题〗『程序设计』(5分)(题号:157)
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:(事件)单击窗体。
' (响应)求10!的值,并将结果输出到窗体上。' 将结果存入变量SUM中。 '-------------------------------------------------
'注意:请在指定的事件内编写代码。
'-------------------------------------------------
答案:----------------------
Dim i As Integer
sum = 1
For i = 1 To 10
sum = sum * i
Next
Print sum
----------------------
〖第6题〗『程序设计』(5分)(题号:489)
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目: (事件)单击窗体。
' (响应)已知sum=1-1/3!+1/5!-1/7!+1/9!, 3
' 请将sum结果值输出到窗体上。
' 使用do while...loop语句完成程序 '-------------------------------------------------
'注意:请在指定的事件内编写代码。
'-------------------------------------------------
答案:----------------------
Dim i As Integer
Dim n As Integer
i = 1
p = 1
Do While i <= 10
p = p * i
If i Mod 2 = 1 Then
n = n + 1
sum = sum + (-1) ^ (n - 1) / p
End If
i = i + 1
Loop
Print sum
----------------------
〖第7题〗『程序设计』(5分)(题号:154)
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:(事件)单击窗体。
' (响应)求100以内偶数的和,并将结果输出在窗体上。' 将结果存入变量SUM中
'-------------------------------------------------
'注意:请在指定的事件内编写代码。
'-------------------------------------------------
答案:----------------------
Dim i As Integer
For i = 1 To 100
If i Mod 2 = 0 Then
sum = sum + i
End If
Next
Print sum
----------------------
〖第8题〗『程序设计』(5分)(题号:134)
'-------------------------------------------------
4
'【程序设计】
'-------------------------------------------------
'题目:(事件)双击窗体。
' (响应)s=20+21+22+…+263,求s的值,并将结果
' 存储到变量S中。
'-------------------------------------------------
'注意:请在指定的事件内编写代码。
'-------------------------------------------------
答案:----------------------
Dim i As Integer
i = 20
While i <= 263
s = s + i
i = i + 1
Wend
Print (CStr(s))
----------------------
〖第9题〗『程序设计』(5分)(题号:142)
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:(事件)单击窗体。
' (响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果, ' 并将结果输出到窗体上。
' 将结果存入变量M中
'-------------------------------------------------
'注意:请在指定的事件内编写代码。
'-------------------------------------------------
答案:----------------------
Dim i, j As Integer
Dim s As Long
For i = 10 To 15
s = 1
For j = i To i + 2
s = s * j
Next
m = m + s
Next Print (CStr(m))
〖第1题〗『程序设计』(5分)(题号:149)
5
下载文档
热门试卷
- 2016年四川省内江市中考化学试卷
- 广西钦州市高新区2017届高三11月月考政治试卷
- 浙江省湖州市2016-2017学年高一上学期期中考试政治试卷
- 浙江省湖州市2016-2017学年高二上学期期中考试政治试卷
- 辽宁省铁岭市协作体2017届高三上学期第三次联考政治试卷
- 广西钦州市钦州港区2016-2017学年高二11月月考政治试卷
- 广西钦州市钦州港区2017届高三11月月考政治试卷
- 广西钦州市钦州港区2016-2017学年高一11月月考政治试卷
- 广西钦州市高新区2016-2017学年高二11月月考政治试卷
- 广西钦州市高新区2016-2017学年高一11月月考政治试卷
- 山东省滨州市三校2017届第一学期阶段测试初三英语试题
- 四川省成都七中2017届高三一诊模拟考试文科综合试卷
- 2017届普通高等学校招生全国统一考试模拟试题(附答案)
- 重庆市永川中学高2017级上期12月月考语文试题
- 江西宜春三中2017届高三第一学期第二次月考文科综合试题
- 内蒙古赤峰二中2017届高三上学期第三次月考英语试题
- 2017年六年级(上)数学期末考试卷
- 2017人教版小学英语三年级上期末笔试题
- 江苏省常州西藏民族中学2016-2017学年九年级思想品德第一学期第二次阶段测试试卷
- 重庆市九龙坡区七校2016-2017学年上期八年级素质测查(二)语文学科试题卷
- 江苏省无锡市钱桥中学2016年12月八年级语文阶段性测试卷
- 江苏省无锡市钱桥中学2016-2017学年七年级英语12月阶段检测试卷
- 山东省邹城市第八中学2016-2017学年八年级12月物理第4章试题(无答案)
- 【人教版】河北省2015-2016学年度九年级上期末语文试题卷(附答案)
- 四川省简阳市阳安中学2016年12月高二月考英语试卷
- 四川省成都龙泉中学高三上学期2016年12月月考试题文科综合能力测试
- 安徽省滁州中学2016—2017学年度第一学期12月月考高三英语试卷
- 山东省武城县第二中学2016.12高一年级上学期第二次月考历史试题(必修一第四、五单元)
- 福建省四地六校联考2016-2017学年上学期第三次月考高三化学试卷
- 甘肃省武威第二十三中学2016—2017学年度八年级第一学期12月月考生物试卷
网友关注
- 2015下半年天津公务员考试申论真题
- 2015天津公务员面试备考每日一练(10月28日)
- 2015天津公务员面试备考每日一练(10月21日)
- 2015下半年天津公务员考试行测真题—判断推理
- 2016天津公务员面试热点模拟题:全面放开二孩制度
- 天津公务员考试行测模拟题--言语理解与表达(二)
- 2015下半年天津公务员考试申论真题答案要点
- 天津公务员考试行测备考资料分析:计算题速算方法练习题(二)
- 2015年下半年天津公务员考试行测真题-判断推理
- 天津公务员面试真题(四)
- 天津公务员考试行测模拟题--定义判断(一)
- 行测在线测试:2016天津公务员考试行测模拟试卷
- 天津公务员考试行测模拟题--言语理解与表达(四)
- 天津公务员考试行测备考数学运算:两项基本原则练习题(二)
- 行测言语理解 选词填空练习题
- 天津公务员面试真题(二)
- 2015下半年天津公务员考试行测真题—常识判断
- 天津公务员考试行测真题特色题型盘点(一)
- 2015天津公务员面试备考每日一练(10月27日)
- 天津公务员考试行测备考数学运算:两项基本原则练习题(一)
- 天津公务员考试行测模拟题--定义判断(二)
- 2015天津公务员面试备考每日一练(10月22日)
- 天津公务员考试行测备考资料分析:计算题速算方法练习题(一)
- 天津公务员考试行测模拟题--数学运算
- 天津公务员面试真题
- 天津公务员考试行测模拟题--数字推理
- 天津公务员考试行测备考数学运算:植树问题练习题
- 天津公务员面试真题(三)
- 2015天津公务员面试备考每日一练(10月26日)
- 天津公务员考试行测模拟题--言语理解与表达(一)
网友关注视频
- 30.3 由不共线三点的坐标确定二次函数_第一课时(市一等奖)(冀教版九年级下册)_T144342
- 北师大版数学四年级下册第三单元第四节街心广场
- 小学英语单词
- 化学九年级下册全册同步 人教版 第22集 酸和碱的中和反应(一)
- 外研版英语三起6年级下册(14版)Module3 Unit1
- 七年级英语下册 上海牛津版 Unit5
- 外研版八年级英语下学期 Module3
- 【部编】人教版语文七年级下册《过松源晨炊漆公店(其五)》优质课教学视频+PPT课件+教案,江苏省
- 冀教版小学数学二年级下册第二单元《租船问题》
- 外研版英语七年级下册module3 unit1第二课时
- 8.练习八_第一课时(特等奖)(苏教版三年级上册)_T142692
- 冀教版英语五年级下册第二课课程解读
- 苏教版二年级下册数学《认识东、南、西、北》
- 河南省名校课堂七年级下册英语第一课(2020年2月10日)
- 冀教版小学数学二年级下册第二单元《余数和除数的关系》
- 北师大版数学 四年级下册 第三单元 第二节 小数点搬家
- 《空中课堂》二年级下册 数学第一单元第1课时
- 飞翔英语—冀教版(三起)英语三年级下册Lesson 2 Cats and Dogs
- 【部编】人教版语文七年级下册《泊秦淮》优质课教学视频+PPT课件+教案,天津市
- 3.2 数学二年级下册第二单元 表内除法(一)整理和复习 李菲菲
- 二年级下册数学第三课 搭一搭⚖⚖
- 沪教版八年级下册数学练习册一次函数复习题B组(P11)
- 【部编】人教版语文七年级下册《泊秦淮》优质课教学视频+PPT课件+教案,辽宁省
- 每天日常投篮练习第一天森哥打卡上脚 Nike PG 2 如何调整运球跳投手感?
- 19 爱护鸟类_第一课时(二等奖)(桂美版二年级下册)_T502436
- 沪教版牛津小学英语(深圳用) 五年级下册 Unit 12
- 沪教版八年级下册数学练习册20.4(2)一次函数的应用2P8
- 冀教版小学数学二年级下册1
- 二年级下册数学第二课
- 人教版二年级下册数学
精品推荐
- 2016-2017学年高一语文人教版必修一+模块学业水平检测试题(含答案)
- 广西钦州市高新区2017届高三11月月考政治试卷
- 浙江省湖州市2016-2017学年高一上学期期中考试政治试卷
- 浙江省湖州市2016-2017学年高二上学期期中考试政治试卷
- 辽宁省铁岭市协作体2017届高三上学期第三次联考政治试卷
- 广西钦州市钦州港区2016-2017学年高二11月月考政治试卷
- 广西钦州市钦州港区2017届高三11月月考政治试卷
- 广西钦州市钦州港区2016-2017学年高一11月月考政治试卷
- 广西钦州市高新区2016-2017学年高二11月月考政治试卷
- 广西钦州市高新区2016-2017学年高一11月月考政治试卷
分类导航
- 互联网
- 电脑基础知识
- 计算机软件及应用
- 计算机硬件及网络
- 计算机应用/办公自动化
- .NET
- 数据结构与算法
- Java
- SEO
- C/C++资料
- linux/Unix相关
- 手机开发
- UML理论/建模
- 并行计算/云计算
- 嵌入式开发
- windows相关
- 软件工程
- 管理信息系统
- 开发文档
- 图形图像
- 网络与通信
- 网络信息安全
- 电子支付
- Labview
- matlab
- 网络资源
- Python
- Delphi/Perl
- 评测
- Flash/Flex
- CSS/Script
- 计算机原理
- PHP资料
- 数据挖掘与模式识别
- Web服务
- 数据库
- Visual Basic
- 电子商务
- 服务器
- 搜索引擎优化
- 存储
- 架构
- 行业软件
- 人工智能
- 计算机辅助设计
- 多媒体
- 软件测试
- 计算机硬件与维护
- 网站策划/UE
- 网页设计/UI
- 网吧管理