教育资源为主的文档平台

当前位置: 查字典文档网> 所有文档分类> 资格考试> IT认证> VB程序设计题复习二

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
二年级下册数学第二课
人教版二年级下册数学