nbhkdz.com冰点文库

高中信息技术VB会考上机程序题汇总

时间:2013-02-19

信息技术 (选修) 程序题汇总
☆输入 2 个数,实现 2 个数的互换: a=text1.text b=text2.text t=a a=b b=t text3.text=a text4.text=b ☆输入秒数,输出时分秒: 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 & “秒” ☆ 输入一个年份,判断是否是闰年: 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 N=text1.text S=0 For i=1 To N S=S+i Next i Print “S=”;S ☆求 S=1+3+5+??+(2*N -1 ) 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 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 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) 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)) : 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

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 ☆输入 5 个数,输出其中的最大值: Max=inputbox(“输入一个数”) For i=1 to 4 x=inputbox(“输入一个数”) If max<x then Max=x End if Next i

☆输入一个学生的成绩,判断其优(80 以上) , 良(60-80) ,不及格: Score=Text1.text If score>=80 then Print “优” Else if score<60 then Print “良” Else Print “不及格” End if End if ☆ 求 5*6*?*25 的积 Dim I As Integer Dim S As Double S=1 For I = 5 to 25 Step 1 S=S*I Next I Print "求 5*6*?*25 的积:"; S ☆求
2? 3 4 5 6 7 8 9 10 11 ? ? ? ? ? ? ? ? 2 3 4 5 6 7 8 9 10 的值。

☆ 输出以下图形: * ** *** **** ***** For i=1 To 5‘控制行 for j=1 to i ‘控制列 Print “ * ” ; Next j Print ?换行 Next i ☆ 输出九九乘法表: For i=1 To 9 ‘控制行 for j=1 to i ‘控制列 Print i & “×” & j & “ = ” & i*j & “ ” ; Next j Print ?换行 Next i

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 文本框中输出:"大于或 等于"。

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
2

1?
☆求

9 8 7 6 5 ? ? ? ? 10 9 8 7 6

☆在 Text1 输入整数 a、Text2 输入整数 b,判断 a 和
b 的和能否被 3 整除,若能,则在 Text3 文本框中输出 的值。 "能",否则在 Text3 文本框中输出:"不能"

Dim I As Integer Dim S As Double 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
分别输入边长 a 和 b,判断三条边能否构成一个三角形, 如果是,则在 Text3 文本框中输出"能",否则在 Text3 文本框中输出"不能"。

Dim a As Single Dim b As Single a = Text1.Text b = Text2.Text If (a + b) Mod 3 = 0 Then Text3.Text = "能" Else Text3.Text = "不能" End If

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

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 Double 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

3


高中信息技术考试vb程序题及答案_图文.pdf

高中信息技术考试vb程序题及答案_学科竞赛_高中教育_教育专区 暂无评价|0人阅读|0次下载 | 举报文档 高中信息技术考试vb程序题及答案_学科竞赛_高中教育_教育...

高一信息技术会考vb操作题归纳.doc

高一信息技术会考vb操作题归纳 - 要求掌握的典型操作题 1、输入两个数存在相应

高中信息技术学业水平测试 VB操作题.doc

高中信息技术学业水平测试 VB操作题 - Vb 算法 程序题汇总 目录 1、输入

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

高中信息技术会考(VB部分)练习 - 高中信息技术会考 VB 复习题 一、单选题 1. 计算机程序的三种结构是顺序结构、 A.模块结构 2. A.任务 B.循环结构 C.控件 ...

高中信息技术 VB程序的调试 会考复习题.doc

高中信息技术 VB 程序的调试 会考复习题学校:___姓名:___班级:___考号:___ 一、选择题 1.数组排序。点击“产生随机数”按钮,让计算机随机产生 10 个整数...

2016年高中信息技术学业水平考试 VB程序复习题.doc

2016年高中信息技术学业水平考试 VB程序复习题_其它课程_高中教育_教育专区。直击...2015高中信息技术会考题... 102页 5下载券 信息技术会考VB上机编程... ...

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

福建信息技术会考VB程序题汇总 - 信息技术(选修) 程序题汇总 ☆ 输入 2

高中学业水平考试 VB操作题汇总.doc

高中学业水平考试 VB操作题汇总 - Vb 算法 程序题汇总 目录 1、输入 5

信息技术高中会考VB模块操作题题库.doc

信息技术高中会考VB模块操作题题库 - 信息技术高中会考VB模块操作题题库 第1 题 打开“Y:\4619”文件夹中的文件:“d1.vbp”,进行以下操作并保存。 在VB代码...

高中信息技术学业水平考试专题复习VB程序典型错误分析.doc

高中信息技术学业水平考试专题复习VB程序典型错误分析 - 高中会考专题复习Visual Basic 程序调试典型错误分析 VB 中常见的程序调试错误可分为编译错误、实时...

信息会考VB操作题.doc

信息会考VB操作题_其它课程_高中教育_教育专区。信息会考 VB 操作题 A类需界面...信息会考vb上机模拟题1 4页 5下载券 福建信息技术会考VB程序... 3页 1...

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

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

高中信息技术VB专项题(学考).doc

程序运行界 面如图所示: 第6页 VB 专题题 VB 程序如下: Private Sub ...高中信息技术VB会考上机... 3页 1下载券 高中信息技术复习(VB基础... ...

信息技术学业水平测试VB套操作题复习及答案.ppt

信息技术学业水平测试VB套操作题复习及答案_其它课程_高中教育_教育专区。江苏省信息技术学业水平测试VB套操作题复习及答案 VB操作一 Private Sub Command1_Click()...

高一信息技术会考_VB知识点整理.doc

高一信息技术会考_VB知识点整理_其它课程_高中教育_教育专区。高一信息技术 VB ...或称计算机只能识别 机器语言。 3.冯?诺依曼经典性建议:数据和程序都应采用二...

高中信息技术 VB应用程序的界面设计与调试 浏览题阅览....doc

高中信息技术 VB 应用程序的界面设计与调试 浏览题阅览题 会考复习题学校:__

高中信息VB试题.doc

高中信息VB试题 - 高中信息技术会考 VB 复习题 一、单选题 1. 计算机程序的三种结构是顺序结构、 、选择结构。 A.模块结构 B.循环结构 C.多重循环结构 D.IF...

高中信息技术-VB常用的标准函数-浏览题阅览题-会考复习题.doc

学习必备 欢迎下载 高中信息技术 VB 常用的标准函数 浏览题阅览题 会考复习

高中信息VB试题.pdf

高中信息VB试题 - 高中信息技术会考 VB 复习题 一、单选题 1. 计算机程序的三种结构是顺序结构、 A.模块结构 2. A.任务 B.循环结构 C.控件 、选择结构。 ...

高中信息技术 VB程序的创建 浏览题阅览题 会考复习题.doc

高中信息技术 VB 程序的创建 会考复习题学校:___姓名:___班级:___考