当前位置:首页 >> 其它课程 >> 福建信息技术会考VB程序题汇总

福建信息技术会考VB程序题汇总


信息技术(选修) 程序题汇总
☆ 输入 2 个数,实现 2 个数的互换: Dim a as single,b as single,t as single a=text1.text b=text2.text t=a a=b b=t text3.text=a text4.text=b ☆求 S=1+3+5+??+(2*N -1 ) Dim N as integer , s as integer N=text1.text S=0 For i=1 To (2*N -1) step 2 S=S+i Next i Print “S=”;S ☆ 求 S=1-2+3-4??+N Dim N as integer , s as integer N=text1.text S=0 For i=1 To N S=S+I *(-1)^ ( i+1 ) Next i Print “S=”;S ☆ 求 S=1+1/2+1/3+??+1/N Dim N as integer , s as integer N=text1.text S=0 For i=1 To N S=S+ 1/ i Next i Print “S=”;S ☆ 求 S=1/2+2/3+3/4??+N/(N+1) Dim N as integer , s as integer N=text1.text S=0 For i=1 To N S=S+ i/ (i+1) Next i Print “S=”;S ☆ 输入三角形三边,判断能否构成三角形,如可以则 输出面积, 否则输出 “不能构成三角形 设三边是 a,b,c, “, q=(a+b+c)/2,则面积 s=sqr(q*(q-a)(q-b)(q-c)) : Dim a as single, b as single, c as single Dim q as single,s as single a=text1.text b=text2.text c=text3.text q=(a+b+c)/2 if (a+b)>c and (b+c)>a and (a+c)>b then s=sqr(q*(q-a)(q-b)(q-c)) text4.text = “三角形面积是” & s else text4.text = “不能构成三角形” end if

☆ 输入一个两位整数,十位和个位数值互换后输出: Dim x as integer Dim ge as integer, shi as integer x=text1.text shi=x\10 ge=x mod 10 text2.text=ge*10+shi

☆ 输入秒数,输出时分秒: Dim a as integer Dim h as integer, m as integer,s as integer a=text1.text h=a\3600 ?计算小时部分 m=(a-3600*h) \60 或 m=(a mod 3600) \60 ?计算分钟部分 s=a mod 60 ?计算秒部分 text2.text=h & “小时” & m & “分” & m & “秒”

☆ 输入一个年份, 判断是否是闰年(年份能被 400 整除 或者 年份能被 4 整除但不被 100 整除): Dim y as integer y=text1.text If (y mod 4=0 and y mod 100<>0 ) or y mod 400=0 then Text2.text=”是闰年” Else Text2.text=”非闰年” End if

☆求 S=1+2+3+??+N Dim N as integer , s as integer N=text1.text S=0 For i=1 To N S=S+i Next i Print “S=”;S

1

☆统计 100 以内能被 3 整除的数的个数: Dim n as integer n=0 For i=1 to 100 If i mod 3 = 0 then n=n+1 ?n 当作计数器,符合条件就+1 end if next i print n

☆求

2?

3 4 5 6 7 8 9 10 11 ? ? ? ? ? ? ? ? 2 3 4 5 6 7 8 9 10 的值。

Dim I As Integer Dim S As Double S=0 For I = 1 To 10 Step 1 S = S + (I + 1) / I Next I Print "2+3/2+4/3+5/4+6/5+…+11/10 ="; S ☆ 在 Text1 输入整数 a、Text2 输入整数 b,判断 a 和 b 的差是
否比 50 小,若比 50 小,则在 Text3 文本框中输出"小于",否则 在 Text3 文本框中输出:"大于或等于"。

☆输入 5 个数,输出其中的最大值: Dim max as single,x a single Max=inputbox(“输入一个数”) For i=1 to 4 x=inputbox(“输入一个数”) If max<x then Max=x End if Next i

Print max

☆ 输入一个学生的成绩,判断其优(80 以上) ,良 (60-80) ,不及格: Dim score as single Score=Text1.text If score>=80 then Print “优” Else if score<60 then Print “不及格” Else Print “良” End if End if

Dim a As Integer Dim b As Integer a = Text1.Text b = Text1.Text If Abs(a - b) < 50 Then Text3.Text = "小于" Else Text3.Text = "大于或等于" end if

☆求

1?

9 8 7 6 5 ? ? ? ? 10 9 8 7 6 的值。

Dim I As Integer Dim S As single S=1 For I = 10 To 6 Step -1 S = S - (I - 1) / I Next I Print "1-9/10-8/9-7/8-6/7-5/6 ="; S ☆已知三角形一条边 C 的长度为 5,在 Text1、Text2 分别输入

☆ 求 5*6*?*25 的积 Dim I As Integer Dim S As long S=1 For I = 5 to 25 Step 1 S=S*I Next I Print "求 5*6*?*25 的积:"; S

边长 a 和 b,判断三条边能否构成一个三角形, 如果是, 则在 Text3 文本框中输出"能",否则在 Text3 文本框中输出"不能"。

Dim a As Single Dim b As Single a = Text1.Text b = Text2.Text If a + b > 5 And a + 5 > b And b + 5 > a Then Text3.Text = "能" Else Text3.Text = "不能" End If

2

☆求

1?

1 1 1 1 1 1 1 1 1 ? ? ? ? ? ? ? ? 2 3 4 5 6 7 8 9 10 的值。

Dim i As Integer Dim S As single S =0 For i = 1 To 10 Step 1 S =S+1 / i Next I Print "1+1/2+1/3+1/4+1/5+…+1/10="; S ☆在 Text1 输入整数 a、Text2 输入整数 b,判断 a 和 b 的和能
否被 3 整除, 若能, 则在 Text3 文本框中输出"能", 否则在 Text3 文本框中输出:"不能"

☆ 输入一个数,判断它其是否是整数。 (Fix(x)取整) Dim x As single X=text1.text If fix(x)=x Then Text3.Text = "整数" Else Text3.Text = "不是整数" End If

Dim a As integer Dim b As integer a = Text1.Text b = Text2.Text If (a + b) Mod 3 = 0 Then Text3.Text = "能" Else Text3.Text = "不能" End If ☆ 求 5+10+15+??50 的和 Dim S As integer S =0 For i = 50 To 5 Step -5 S =S+i Next I Text3.text=S ☆ 输入一个整数,判断它的奇偶性 Dim x As integer X=text1.text If x mod 2=0 Then Text3.Text = "偶数" Else Text3.Text = "奇数" End If

☆输入两个正整数,求他们的公约数并输出 Dim x As Integer, y As Integer x = Text1.Text y = Text2.Text For i = 2 To x If x Mod i = 0 And y Mod i = 0 Then Print i End If Next i

☆输入两个正整数,求他们的最大公约数并输出 Dim x As Integer, y As Integer, max As Integer x = Text1.Text y = Text2.Text max = 0 For i = 2 To x If x Mod i = 0 And y Mod i = 0 Then max = i End If Next i Print max ☆求一元二次方程式 ax2+bx+c=0 的解,a、b、c 从键盘 输入。

3


更多相关文档:

2014年福建省信息技术会考必修复习试题汇总

2014年福建省信息技术会考必修复习试题汇总_其它课程_高中教育_教育专区。针对2014年福建省信息学业考试大纲汇总模拟试题208题(不含答案) ...

信息技术会考VB程序综合题

信息技术会考VB程序综合题_金融/投资_经管营销_专业资料。备战会考 信息技术会考 VB 程序综合题 1、典型题例:打开"考生文件夹\152"文件夹中的文件:"工程 1.vbp...

2014年1月福建省信息技术会考《算法与程序设计》真题

2014年1月福建省信息技术会考《算法与程序设计》真题_其它课程_高中教育_教育...d 对应的VB表达式是 A B C D 答案: C 第50题 A a+b/c+d a+b/(c...

信息技术会考知识梳理(含VB)

72页 免费 高一信息技术会考vb操作题... 3页 免费喜欢此文档的还喜欢 高中化学...(2)“存储程序思想”:把预先编制的程序存储在计算机中,让计算机自动执行。 34....

信息技术会考操作题大全

信息技术高中会考操作题WORD、 EXCEL、VB、PS等并有...(3) 对所有数据进行分流汇总,分类字段为“基金公司...(即福建右边的单元格) 走到编辑栏(工具栏下面)...

高中信息技术会考(VB部分)练习

高中信息技术会考(VB部分)练习_其它课程_高中教育_教育专区。高中信息技术会考 VB 复习题一、单选题 1. 计算机程序的三种结构是顺序结构、 A.模块结构 2. A.任...

高中信息技术会考(VB部分)

计算机程序的三种结构是顺序结构、 A 高中信息技术会考 VB 复习题一、单选题 B B A D D C D A B A B C C B B C B B B C C A B C C C C...

信息技术会考模拟题汇总

信息技术会考模拟题汇总_其它课程_高中教育_教育专区。四川省普通高中信息技术学业...)( 16. 程序设计语言是指人们编制程序所使用的计算机语言,VB 是低级语言。 )...

高中学业水平考试 VB操作题

Vb 算法 程序题汇总目录 1、输入 5 个数并排序(选择排序) 2、判读输入的三条边能否构成三角形 3、图形打印 (倒三角) 4、判断是否为闰年 5、产生随机数 6...

2013年1月福建省信息技术会考《算法与程序设计》模块

2013年1月福建省信息技术会考《算法与程序设计》模块_其它课程_高中教育_教育专区...第3题 新建一个VB工程,工程文件名称为:“工程1.vbp”,并添加一个窗体文件: ...
更多相关标签:
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com