VB顺序结构编程练习题(2)解答a
VB顺序结构编程练习题(2)参考解答
1、有一个“就是它”的猜数游戏，步骤如下：
请你任意输入一个三位数，在这三位数后重复一遍，得到一个六位数，467→467467。把这个数连续除以7，11，13，最后的商就是你输入的三位数。请编程加以验证。
x=val(inputbox(“请输入一个三位数：x”))
y=x*1000+x
y=y/7
y=y/11
y=y/13
print ”x=”;x,”y=”;y
2、某学校开运动会，要在正六边形的操场的周围插上彩旗。如果每边插a面彩旗(包括每个角上的彩旗)，a变量数可由键盘输入，问总共需要多少面彩旗?
a=val(inputbox(“每边插旗数：”))
s=6*a-6
print ”正六边形的操场每边插彩旗面数为：”;a
print ”总共需要彩旗面数为：”;s
3、计算图形的周长和面积．
c=(48+36)*2
s=48*12+24*24
print ”图形的周长为：”;c
print ”图形的面积为：”;s
4、编写求下列自然数等差数列之和的程序，数列的首项和末项由键盘输入。
4+5+6+7+8+9+10+11+12+13+14+15
等差数列的求和公式自己从网上或从数学手册查找，当然也可自己推导。
sx = Val(InputBox("输入等差数列的首项："))
mx = Val(InputBox("输入等差数列的末项："))
n = mx - sx + 1
s = (sx + mx) * n / 2
print "自然数等差数列："
print "首项="; sx, "末项="; mx
print "该自然数等差数列的和为："; s
{等差数列的和=(首项+末项)×项数／2)} number=last-first+1;
5、输入一个学生的情况，包括学号(用整数表示)、姓名(用第一个字母表示)、语文成绩和数学成绩，然后输出学号、姓名、总分和语数外三门课的平均成绩（保留两位小数）。
xh = V al(InputBox("请输入学号："))
xm = InputBox("请输入姓名：")
yw = Val(InputBox("请输入语文成绩："))
sx = Val(InputBox("请输入数学成绩："))
yy = Val(InputBox("请输入英语成绩："))
zf = sx + yw + yy
jf = Int(zf / 3 * 100 + 0.5) / 100
Print "====成绩单===="
Print " 学号："; xh
Print " 姓名："; xm
Print " 语文："; yw
Print " 数学："; sx
Print " 英语："; yy
Print " 总分："; zf
Print " 均分："; jf
Print "================"
6、输入三条边的整数值a、b、c，输出该三边构成的三角形的面积。
a=val(inputbox(“A边：”))
b=val(inputbox(“B边：”))
c=val(inputbox(“C边：”))
p=(a+b+c)/2
s=sqr(p*(p-a)*(p-b)*(p-c))
print “该三角形面积：”;s
7、输入一个三位整数，输出该三位数的各位数字之和，以及它的反序数。
x = Val(InputBox("请输入一个三位数：x"))
b = x \ 100
s = x \ 10 Mod 10
g = x Mod 10
Sum = b + s + g
fxs = g * 100 + s * 10 + b
Print "三位数X："; x
Print "三位数码和：sum="; Sum
Print "X的反序数：fxs="; fxs
8、三个小朋友做游戏，第一个人把自己的糖果等分为三份，多余的吃掉，一份留给自己，另两份分别给其他两位；接下来，第二个人也仿照第一做法做了一遍，最后第三个人也如前面的人一样做了一遍。请输出三人做完游戏后各自的糖果数。(三人刚开始时各自的糖果数用键盘输入)。
a=val(inputbox(“A糖果数：”))
b=val(inputbox(“B糖果数：”))
c=val(inputbox(“C糖果数：”))
print “游戏前：”
print “a=”;a,”b=”;b,”c=”;c
a=a\3 : b=b+a : c=c+a
b=b\3 : a=a+b : c=c+b
c=c\3 : a=a+c : b=b+c
print “游戏后：”
print “a=”;a,”b=”;b,”c=”;c
9、输入一元二次方程的三个系数(b2>4ac)，输出该方程的二个实数根。
a=val(inputbox(“A：”))
b=val(inputbox(“B：”))
c=val(inputbox(“C：”))
print “标准一元二次方程的系数A、B、C：”
print “a=”;a,”b=”;b,”c=”;c
d=b*b-4*a*c
x1=(-b-sqr(d))/(2*a)
x2=(-b+sqr(d))/(2*a)
print “该一元二次方程的根为：”
print “x1=”;x1,”x2=”;x2
10、输入两个整数给A,B两个变量，编程交换A,B两个变量的值，并输出。(用两种以上方法)。
a = Val(InputBox("A："))
b = Val(InputBox("B："))
Print "交换前：", "A="; a, "B="; b
c = a: a = b: b = c
Print "交换后：", "A="; a, "B="; b
或
a = Val(InputBox("A："))
b = Val(InputBox("B："))
Print "交换前：", "A="; a, "B="; b
a = a+b:
b =a-b: a = a-b
Print "交换后：", "A="; a, "B="; b
或
a = Val(InputBox("A："))
b = Val(InputBox("B："))
Print "交换前：", "A="; a, "B="; b
a = a*b:
b =a/b: a = a/b
Print "交换后：", "A="; a, "B="; b
VB程序设计习题
练习一 一、选择题 1、下面列出的程序设计语言中（A ）是面向问题的语言。 A、机器语言 B、汇编语言 C、高级语言 D、0、1二进制语言 解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言 2、下面列出的程序设计语言中（C ）不是面向对象的语言。 A、C B、C++ C、Java D、VB 3、下列（D ）不属于VB 6.0的版本。 A、学习版 B、专业版 C、企业版 D、共享版 解释：VB6.0共有三个版本：标准版、专业版、企业版。而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。 二、填空题 1、从程序设计语言发展过程的角度来分类，计算机程序设计语言分：机器语言、汇编语言和高级语言。 2、VB 6.0采用了面向对象、事件驱动（可视化编程）的编程机制。 3、启动VB 6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。 练习二 一、选择题 1、如果窗体对象的名称为Forma1，Backcolor是窗体对象的一个属性，用来设置窗体的背景色，那么设置窗体背景色为蓝色的语句正确的是（ A ） A、Forma1.Backcolor=vbBlue B、Backcolor= vbBlue C、Forma1 =vbBlue D、Forma1′s Backcolor is vbBlue. 2、下面方法中，不能打开编码编辑器的是（D） A、单击“视图”菜单中的“代码窗口”命令。 B、双击窗体设计器的窗体或控件。 C、双击窗体设计器的窗体或控件，单击工程资源管理器中的“查看代码”按钮。 D、双击窗体设计器的窗体或控件，单击标准工具栏中的“代码窗口”按钮。 3 、保存VB应用程序时，下列方法中正确的是（Ａ） A、先保存窗体文件，再保存工程文件。 B、先保存工程文件，再保存窗体文件 C、直接保存窗体文件，系统会自动按顺序先保存窗体文件再保存工程文件。 D、直接保存窗体文件，系统会自动按顺序先保存工程文件再保存窗体文件。 二、填空题 1、VB工程文件的扩展名是工程文件(*.vbp)，窗体文件的扩展名是窗体文件(*.frm)。 2、选中工程资源管理器中的窗体对象，再单击按钮可打开窗体设计器。 3、在VB中，按下工具栏中的“启动”按钮或
《VB选择结构程序设计》教学设计
《VB选择结构程序设计》教学设计 山东省临清市第二中学吴焕英 【案例背景】 高中信息技术新课程的实施，其课程目标定位于全面提升学生的信息素养，其课程的设置从知识与技能、过程与方法、情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何更有效地开展新课程教学，成为老师们迫切需要解决的问题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 算法与程序设计是普通高中信息技术课程中选修模块之一，本模块旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “选择结构”是教育科学出版社出版的高级中学课程标准实验教科书、算法与程序设计第二章第三节的内容，共分三课时，本课为第二课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法，这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适应信息社会的公民。 因此本节课的目标有以下几项：
VB程序设计的常用算法填空题
VB程序设计的常用算法 例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。 将程序编写在一个GetTJput过程中，代码如下： Public Sub GetTJput() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer '产生100个[0，99]范围内的随机整数，每行10个打印出来 For i = 1 To If a(i) < 10 Then Form1.Print Space(2); a(i); Else Form1.Print Space(1); a(i); End If If Then Next i '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来For i = 1 To 100 p = a(i) Mod 10 ' 求个位上的数字 If p = 0 Then p = 10 Next i Form1.Print "统计结果" For i = 1 To 10 p = i If i = 10 Then p = 0 Form1.Print "个位数为" + Str(p) + "共" + Str(x(i)) + "个" Next i End Sub 二、求两个整数的最大公约数、最小公倍数 m=inputBox("m=") n=inputBox("n=") nm=n*m If m < n Then r=m mod n Do While m=n n=r
【vb选择结构程序设计】选择结构程序设计
【vb选择结构程序设计】选择结构程序设 计 [1]教学目的： 1、让学生了解选择结构程序 2、掌握逻辑量的概念 3、掌握关系表达式和逻辑表达式 4、了解IF 语句 [2]教学重点：选择结构程序和关系表达及逻辑表达式 [3]教学难点：选择结构程序的掌握 [4]教学方法：引入法 [5]教学工具： [6]教学内容： 教师活动 学生活动 引入： 例子1、从键盘输入一个数，如果是正数则输出这个数，否则输出信息“这个数是负数”。 例子2、用程序编写一个求学生的六门课程六课程的的平均成绩和总分的程序。 例子3、用程序编写一个二元一次方程的根（△>=0） 例子4、把10个职工的工资和打印出来
提问5：如果求1+2+3+4+5+……+100的和怎么办呢？ 提问6：如果求一个班所有学生的六门课程的平均成绩 提问7：如果所求方程的没有实根又怎么办呢？ 提问8：如果要我们打印100个职工的工资又怎么办呢？ 老师得出答案：这就不是顺序结构程序所能解决了。我们在前面已经学过选择结构，提醒学生回忆一下选择结构的流程图图略： 为了能很好的掌握选择程序结构的设计，先了解一些选择程序的基础。 学生做1 学生做2： 学生做3： 学生做4： 学生回答5 学生回答6 学生回答7 学生回答8 一、关系表达式和逻辑表达式 1、逻辑量的概念 逻辑量：在QBASIC中用-1，0，即真和假的表达法。 何时用到：在关系表达式中和逻辑表达式中用到。 当结构为真时是-1，结果是假时为0
例1：X+Y>Z当成立时为真即为-1， 当不成立时为假，即为0 例2：在例中： IFX>0 THEN PRINT X 2、关系运算符和关系表达式 关系：即运算量的关系。六种。>= 关系表达式：即用关系运算符把运算量联接起来的式子。例：A>B, X>=Y, MN等。例：X=Z 注意：赋值符号和关系符号要区分开。 LET A=5 B=A PRINT B=A，B，A 3、逻辑运算符号和逻辑表达式 逻辑运算符：NOT非AND与OR或 1）NOT即对某个运算量的逻辑值取反。 如：A>B为真时，则 NOT A 等于假 程序： A=3 B=4 PRINT A，B，NOTA>B,NOT AB THEN PRINT A
VB循环语句教案设计
浙教版高一信息技术VB循环语句教学设计 省象山中学章婷红 315700 zthddsina. 一、设计思想 本节课以一个小游戏导入，引导学生在解决游戏问题的过程中去探索其背后隐藏的算法思想，一个基本的程序结构――循环结构。学会使用循环语句是编程的基本功，因此本课对提高学生的阅读程序和编写代码能力有着非常实在的意义。循环语句是三种基本语句中难度最大的一个，为了降低学习难度，提高学生的兴趣，我用烧杯和量筒来比喻循环语句中累加器和累加量，使学生快速地理解了累加器的作用，并能正确算出这类程序的运行结果。会读程序之后还要会写，挑选一个好的例子非常重要，我选择了算麦粒画棋盘这个实例，既有经典的计算问题又有直观的画图功能，学生学习积极性比较高。任务的设置由算麦粒的填写部分语句到画棋盘的完全自己编写代码，对学生的要求逐步加深。 二、教材分析 本节容选自教育《算法与程序设计》第四章第三节。 循环语句是程序三种基本语句之一，是学习程序设计的基础，同时也是后面六种算法的重要组成部分。《课程标准》和《学科教学指导意见》对本课的要：理解循环语句的作用，掌握循环语句的使用方法。要求学生能从问题出发，用循环语句编写程序，实现简单的算法。《学科教学指导意见》中三种语句的总课时建议为三课时。我考虑到循环语句是三种语句中难度最大的一个，并且要学习for 和do两种语句，后面六个算法中也基本上都要用到循环语句，所以非常重要。因此循环语句我安排了2课时，本节为第1课时，主要容为for语句，第2课时为do语句及循环综合实例。 三、学情分析 在此之前学生已经学习了算法的流程图、VB基础知识和基本操作及两种语句：赋值语句和选择语句，基本掌握了VB的编程环境。对于for语句，我的要学生先学会读程序，即计算出程序的运行结果，尤其要比较熟练地掌握累加器的作用。在此基本上还要能根据实例编写简单的循环结构的程序。对于读程序，大部分学生能模仿老师的例题分析完成计算。而根据实例编写程序，最主要的是找
VB程序设计知识点归纳
第一章 1 从功能上讲，Visual Basic 6.0有3种版本，即：学习版、专业版、企业版 2 与传统的程序设计语言相比，Visual Basic最突出的特点是事件驱动编程机制。 3 Visual Basic 6.0集成环境的主窗口中含有标题栏、菜单栏、工具栏 4用标准工具栏中的工具按钮不能执行的操作是打印源程序。 5关于Visual Basic"方法"的概念错误的是方法是对事件的响应 6在Visual Basic中，称对象的数据为属性 7Visual Basic应用程序可以用解释方式执行也可以用编译方式执行 第二章 1 计时器控件的Interval属性用于设置Timer事件发生的时间间隔，为了暂时关闭计时器，应把该计时器的Enabled 属性设置为False ，如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于1000 2 利用Ctrl + G操作可以打开立即窗口。 3 假定窗体上有一个标签，名为Lable1。为了使该标签透明并且没有边框，则正确的属性设置为：Lable1.BackStyle = 0 Lable1.BorderStyle = 0 4在设计阶段，当双击窗体上的某个控件时，所打开的窗口是代码窗口 5 在Visual Basic中，窗体文件的扩展名为FRM 6 窗体的Name属性指定窗体的名称，用来标识一个窗体 7 改变控件在窗体中的上下位置，应修改该控件的属性是Top 8 表示滚动条控件取值范围最大值的属性是Max 9 如果要改变窗体的标题，则需要设置的属性是Caption 10 在文本框（Text）中，通过ForeColor属性来设置字体颜色 11 若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置Passwordchar属性值 为* 12 能够改变复选框中背景颜色的属性是Backcolor 13 图片框是不具有Picture属性的对象 14 窗体的Name属性指定窗体的名称，用来标识一个窗体 15 要想返回文本框中输入的内容则可利用text属性进行编程 第三章 1用于从字符串左边截取字符的函数是Left( )，设a="Visual Basic"，使b="Basic"的语句是b=Left(a,8,5)。 2下列符号中哪个是VB程序中合法的变量名：A ab7 B 7ab C If D a*bc （A）数字开头，关键字，* 3X是小于100的非负数，用VB表达式表达正确的是0<=X and X<100 4设有如下变量声明Dim TestDate As Date 为变量TestDate正确赋值的表达方式是 TextDate=#1/1/200 2# 5表达式4 + 5 \ 6 * 7 / 8 Mod 9的值是5，设a=3,b=5，则表达式(a>b)Or(b>0)值为真。5/5.25 为1 如果除数与被除数不是整数时，系统会自动对其进行取整运算，取整是有规律的：如果整数部分为偶数，大于 0.5的就进位，小于等于0.5的就直接把小数去掉，5舍6入；如果整数部分为奇数，4舍5入。例如： 5\2.5等价于5\2 5\2.6等价于5\3 6函数String(n，"str")的功能是返回由n个字符组成的字符串 7设有如下声明： Dim X As Integer 如果Sgn(X) 的值为-1，则X的值是小于0的数Sgn(3-5)=-1 Sgn(5-3)=1 8Integer类型的数据由2字节组成，Long类型的数据由4字节组成。 9已知X＜Y，A＞B，正确表示它们之间关系的式子是Sgn(Y-X)-Sgn(A-B)=-2 10在一个有①逻辑运算②算术运算及③关系运算混合在一起的表达式(无括号)中，其运算顺序为②③①
VB选择结构程序设计教学案例
VB选择结构程序设计教学案例 摘要："选择结构"是高等教育出版社出版的中等职业学校计算机应用与软件技术专业教学用书,程序控制结构中的选择结构是第四章第三节的内容,共分三课时,本课为第一课时，主要内容是用选择结构编写简单的程序 关键词：程序设计 《VB选择结构程序设计》教学案例 江山职教中心计算机组吴建浩 【案例背景】 中等职业学校的Visual Basic程序设计是让学生学会一种较为简单的程序设计语言，其课程的设置从知识与技能，过程与方法，情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何进行更有效地开展新课程教学，成为老师们迫切认识的话题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。 【教材分析】 程序控制结构是中等职业学校计算机专业中必修模块之一，本模块旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “选择结构”是高等教育出版社出版的中等职业学校计算机应用与软件技术专业教
学用书,程序控制结构中的选择结构是第四章第三节的内容,共分三课时,本课为第一课时.主要内容是用选择结构编写简单的程序。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高二的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法、这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适应信息社会的公民。 因此本节课的目标有以下几项： 1、知识与技能：（1）掌握分支选择结构实现条件判断控制。 （2）能够运用分支选择结构设计编制程序解决问题。 （3）培养学生的逻辑思维能力，促进学生对问题解决方法的理解。 2、情感态度：通过趣味性教学，使同学们保持高涨的学习兴趣，在操作的同时获得成功的喜悦。 【教学重点难点】 教学重点：让学生学会使用VB语言的If分支语句，掌握分支判断程序结构，来解决实际问题，并且培养学生的探索、创新能力。 教学难点：对解决问题的方法和步骤的理解，并能根据实际问题写出程序代码。 教学关键点：利用学生已经掌握的数学知识，引导学生综合VB的三种程序结构，努力发挥学生的研究性学习能力，培养学生创造性思维和综合运用知识的能力。 【教学过程】
VB程序设计FORNEXT循环结构教学设计
《VB程序设计For…Next循环结构》教学设计 江苏省武进高级中学现代教育技术组吴涛 一、教学目标设计 本课内容的学习建立在学生已经学习过第五节《分支结构》的基础上，结合程序设计的三种基本结构，重点介绍循环结构For…Next展开的。在前面几节的学习中，问题比较简单，算法也不复杂，不画流程图也能比较清楚的描述出来。引入分支结构后，需要根据条件的真假，从两条路径中选择一条执行，算法逐渐复杂，流程图愈发显得重要，所以在介绍循环结构处理问题时时一定要配以流程图介绍。 本课内容设计很多程序的分析，以及讨论程序执行结果，如果在教室里面上，写板书的时间就浪费了，但如果用多媒体演示教学，学生只有简单的理性和感性认识，而学生的实践操作这一环就缺少了，相应认知效果就不明显了，利用网络课件，学生可以自己浏览学习，自主下载认知分析。所以本课必须以课本知识为依托，以网络课件为辅助，以问题为导思，来培养学生的创新精神，提高学生自主学习的能力。故制定具体的学习目标如下： 认知目标：1.掌握For-Next语句的格式和功能；2.理解For-Next语句的执行过程； 3.结合分支结构的内容学会使用For-Next语句实现计数循环。 能力目标：1.培养学生利用网络作为工具，并在网络环境下自主学习的能力；2.培养学生提出问题、分析问题、解决问题的综合能力和创造性思维能力。 二、本课内容及重点、难点分析 作为程序设计循环结构的For…Next语句，其格式、功能、执行过程、执行结果、并利用它来解决问题、编制简单程序都是本课内容。 学习重点：学会For…Next的格式及其含义，理解由For…Next编写的程序的过程、结果。 学习难点：For…Next的格式及其含义，由For…Next编写简单的程序。 三、教学对象分析 1、高二年级的学生已经在高一时学习过在网络环境下浏览、搜索、下载等知识，但很久不接触网络，操作已经生疏了，所以事先要对学生进行实际操作的针对性训练，能把网络上的文字数据下载到本地计算机上，如把VB程序段复制粘贴到VB程序环境中执行看结果等等。 2、分支结构的内容只有上过一次课，所以要求学生事先对上次课的内容做好充分
vb选择结构教案
卓资县职业中学实训学案 班级_____姓名_________科目： VB 程序设计主备：闫森审核：日期： 课题：选择结构程序设计实际应用（2） 实验目的： 1、掌握If语句的使用。 2、掌握Select Case语句的使用。 实验内容与过程 说第一步：独学（请同学们独立完成以下任务） 知识回顾： 1、单分支条件语句格式：①IF <表达式> THEN 语句块 End If ②IF <表达式> THEN 语句块 2、双分支条件语句格式： IF <表达式> THEN 语句块1 Else 语句块2 End If 任务1(基本设计题) 题目：一般网络游戏只允许成年人进入，你来编写一个根据 明 ： 本 节 课 只 完 成 任 务 1 和 任 务 2 的 题 目 要 求 及 问 年龄判断是否成年的小程序。（规定成年人年龄>18周岁） 请你根据题意，利用双分支条件语句格式2种方法（单行和 多行）编写程序代码，并上机测试。 设计界面如下： 编写程序代码：
题 。课后作业下次实训务必完成。第二步：合作（问题）探究（对学、群学） 任 务 2. （ 提 高 设 计 题） 在 “ 神州号”程序中，需要判断飞船飞行状况。当飞船速度继续 加大时，飞船将达到第二宇宙、第三宇宙速度（见下表）试 编写程序，输入不同的飞船速度V，判断它的各种飞行状况， 显示出来 飞船速度V 单位 （km/s） 飞行状况情况 程序界面如下： 补充程序代码： Private Sub command1_click() Dim V AS single, n AS integer V= VAL(InputBox(“SPEED=”,”输入速度”)) <=V< 1--Move around Earth飞船绕 地球做匀速圆周运动 1 11 19<=V< 2--Move around SUN飞船离开 地球的控制 ,围绕太阳转 2 V> 3--Break gravitate of solar 飞船挣脱太阳引力飞出太阳 系 3 其它警告出错信息0
VB中循环结构之Do While-Loop、Do Loop-While语句
课题：第6课循环结构之Do While-Loop、Do Loop-While语句第课时课型：新授授课时间 教学目标 知识与技能 1、了解循环的概念，理解循环结构的基本思想 2、掌握Do While Loop、Do Loop Until语句的基本结构及区别 3、理解Do While Loop、Do Loop Until语句的执行过程 4、尝试采用循环结构编写简单的程序，解决实际问题 过程与方法通过讲解分析、实践探究、归纳，逐步深化对循环思想和执行过程的理。情感态度与价值观 通过学习运用循环结构处理解决问题，培养学生应用循环思想解决实际问题 的思路和能力。 教学重点1、理解循环结构的基本思想 2、理解Do While Loop、Do Loop Until语句的执行过程 教学难点根据需要采用循环结构解决问题，并提炼出Do While Loop、Do Loop Until语句的基本结构学生理解Do While Loop、Do Loop Until语句的执行过程 教学 准备 几个以Do While Loop、Do Loop Until语句组成的不同功能的程序 教学过程设计 教学内容师生教学活动设计 备注栏 （学生笔记栏） 一、设疑导入（3分钟） 同学们，上节课我们学习了For Next语句，并且用For Next语句编写了“显示乘法口诀表”我们都知道要让计算机重复做一件事时，可以使用循环结构。像我们上节课当中知道乘法表是从一一得一到九九八十一的循环次数。而在现实生活中却有很多问题是事先不知道循环次数的。例如：甲同学每天都坚持写读书笔记300字，问：甲同学多长时间可以写完读书笔记30 万字？心算：一天300，十天3000,100天30000,10000天30万字。可见一件小事要是坚持做，可以完成多么宏大的工程。乙同学，也坚持每天写读书笔记300字，但是他对自己的要求要高一些，第二天总比前一天多写10个字，问乙同学多长时间读书笔记的字数可以超过30万字?心算！@#￥%&*（乱了！）像这样的例子我们事先也不知道是多少天，算起来也烦心，但是如果交给VB 先生的话，就很简单。下面让我们进入今天的主题——循环结构之Do While-Loop、Do Loop-While语句。 二、探索新知（4分钟）
VB编程常用代码 大一练习专用
A,B,C排序由大到小 Dim a As Single,b As Single,c As Single a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) If b>a Then d=a:a=b:b=d End If If c>a Then d=a:a=c:c=d End If If c>b Then d=b:b=c:c=d End If Text4.Text=a Text5.Text=b Text6.Text=c End Sub Private Sub Command2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" Text5.Text="" Text6.Text="" End Sub 计算a+b Private Sub Command1_Click() Text4.Text=Val(Text2.Text)+Val(Text3.Text) Text1.Text="欢迎新同学" End Sub 清除
Private Sub Command2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" End Sub 奇偶数显示器 显示 Private Sub Command1_Click() Dim a As Integer a=Val(Text1.Text) If a/2=Int(a/2)Then Text2.Text="您输入的数是偶数" Else Text2.Text="您输入的数是奇数" End If End Sub 清除 Private Sub Command2_Click() Text1.Text="" Text2.Text="" End Sub 奇偶数判断 Dim a,b As Integer Dim result As Integer a=Val(InputBox("请输入一个整数","数的输入",300,400)) b=Val(InputBox("请输入一个整数","数的输入",300,400)) If a/2=Int(a/2)Then result=MsgBox("您输入的数:"&a&"是一个偶数",1,"判断结果") Form1.Print rusult Else m="您输入的数:"&a&"是一个奇数" result=MsgBox("您输入的数:"&a&"是一个奇数",1,"判断结果") Form1.Print result End If If b/2=Int(b/2)Then result=MsgBox("您输入的数:"&b&"是一个偶数",1,"判断结果") Form1.Print rusult Else result=MsgBox("您输入的数:"&b&"是一个奇数",1,"判断结果")
VB程序设计期末复习题
《V i s u a l B a s i c程序设计》期末复习题 一、单项选择题 1．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。 A．按过程顺序执行B．从主程序开始执行 C．事件驱动D．按模块顺序执行 2．与传统的设计语言相比，Visual Basic最突出的特点是（） A．程序开发环境B．结构化程序设计 C．程序调试技术D．事件驱动的编程机制 3．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。 A．缺少.frm窗体文件B．该可执行文件有病毒 C．运行的机器上无VB系统D．以上原因都不对 4. Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。 A．设计模式B．编写代码模式 C．执行模式D．中断模式 5．后缀为.bas的文件表示（）。 A．工程文件 B．窗体文件 C．窗体二进制数据文件 D．标准类模块文件 6．工程文件的扩展名是（）。 A．.vbp B．.frm C．.bas D．.frx 7．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。 A．时钟控件B．图像框C．框架D．通用对话框 8.以下叙述中错误的是（）。
A．一个工程中可以包含多个窗体文件 B．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 C．在一个窗体文件中用Private定义的通用过程能被其它窗体调用 D．全局变量必须在标准模块中定义 9．要在窗体Form1内显示“欢迎您！”，使用的语句是（） A．Form.caption="欢迎您!" B．Form1.caption="欢迎您!" C．Form. print "欢迎您!" D．Form1.print "欢迎您!" 10．决定标签内显示内容的属性是（） A．Name B．Text C．Caption D．Alignment 11．要设置命令按钮的背景图形，必须设置的两个属性是（） A．Caption和Picture B．Style和Picture C．Style和Icon D．Value和Icon 12．将数据项“China”添加到列表框List1中成为第一项，应使用的语句是（）A．List1.AddItem"China" B．List1.AddItem"1,China" C．List1.AddItem"China",0 D．List1.AddItem"China",1 13．在VB中，下列各项合法的变量名是（）。 A．Integer B．ab-c C．2abc D． a_bc 14．在VB中，下列合法的变量名是（） A．4EF B．integer C．E-F D．E_F 15．如果要在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（）属性。 A．PasswordChar B． Caption C．Text D．Locked
实验四、VB 选择结构程序设计
实验四、选择结构程序设计 实验目的： 1、了解选择结构的结构特点 2、掌握IF条件语句的使用方法 3、掌握Case语句的使用方法 实验内容： 例1、税务部门征收所得税，规定如下（用IF语句实现）： ①当收入为200 元以内（含200元）时，免征； ②当收入为200 ~ 400 元（含400元）时，将超过200 元的部分纳税3% ； ③当收入为400 ~ 5000元（不含5000元）时，将超过400 元的部分纳税4% ； ④当收入为5000 元或5000元以上时，将超过400元的部分纳税5% 。 程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如图4.1 所示。 图4.1 提示： 因为该程序的条件分支较多，故可采用多分支的条件语句进行编写。 多分支条件语句格式如下： If 条件1 Then 语句块1 【ElseIf 条件2 Then 语句块2 】 【ElseIf 条件3 Then 语句块3】 …… 【Else 语句块n+1】 End If 例2 将上题用SELECT CASE 多分支结构设计。 提示：Case语句的一般格式为 Select Case 测试表达式 Case 表达式列表1 【语句块1】 【Case 表达式列表1
【语句块1】】 …… 【Case Else 【语句块1】】 End Select 【上机参考练习题】 要求：利用空余时间设计调试出来，并将设计方法及代码写入试验报告。 1.（基本设计题）在购买某物品时，若所花的的钱x 在下述范围内，所付钱Y 按对应折扣支付： 提示：此例可以多分支结构或者选择结构实现，注意计算公式和条件表达式的正确书写。 图4.2 2.（基本设计题）编一程序根据上网时间计算上网费用，同时为了鼓励多上网，每月收费最多不超过150 元。计算的方法如下： 图 4.3 提示：此题用可以用多分支结构或者选择结构实现，但请特别注意有个条件“每月收费最多不超过150 元” 3.（基本设计题）输入一个数字(1－7) ，用英文显示对应的星期一到星期日。 提示：用Select Case语句来实现。 4.（提高设计题）编一模拟袖珍计算器的完整程序，界面如图4.4 所示。要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。 提示： (1) 为了程序运行正确，对存放操作符的文本框Text3 ，应使用trim(Text3) 函数，去除运算符两边的空格。 (2) 根据存放操作符的文本框利用Select Case 语句实现。
VB程序设计的常用算法教案.doc
VB程序设计的常用算法教案 算法（algorithm）：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。 一、计数、求和、求阶乘等简单算法 此类问题都要使用循环，要注意根据问题确定循环变量的初值、终值或结束条件，更要注意用来表示计数、和、阶乘的变量的初值。 例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。 本题使用数组来处理，用数组a(1 to 100)存放产生的确100个随机整数，数组x(1 to 10)来存放个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。即个位是1的个数存放在x(1)中，个位是2的个数存放在x(2)中，......个位是0的个数存放在x(10)。 将程序编写在一个gettjput过程中，代码如下： public sub gettjput() dim a(1 to 100) as integer
dim x(1 to 10) as integer dim i as integer, p as integer '产生100个[0，99]范围内的随机整数，每行10个打印出来 for i = 1 to 100 a(i) = int(rnd * 100) if a(i) < 10 then form1.print space(2); a(i); else form1.print space(1); a(i); end if if i mod 10 = 0 then form1.print next i '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来 for i = 1 to 100 p = a(i) mod 10 ' 求个位上的数字 if p = 0 then p = 10 x(p) = x(p) + 1 next i form1.print "统计结果"
VB条件判断结构程序设计教学案
《VB条件判断结构程序设计》教学案例 职高一计算机王攀【案例背景】 职业高中计算机课程的实施，其课程目标定位于全面提升学生的计算机专业知识，其课程的设置从知识与技能，过程与方法，情感态度与价值观三个方面实施这个课程目标。然而面对学生素质的薄弱，要求教师要结合简单的生活实例，引导学生进行探索式学习，问题从简单的生活实例入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 控制结构是《VisualBasic语言程序设计基础》中最重要的章节之一，本节主要研究最基本的条件判断结构，旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “条件判断结构”是《VisualBasic语言程序设计基础》第七章第一节的内容，共分三课时，本课为第一课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法、这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适
VB程序设计试题及答案(一)-vb程序设计答案
VB程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII 码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3
VB程序设计的常用算法
VB程序设计的常用算法 算法（Algorithm）：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。 一、计数、求和、求阶乘等简单算法 此类问题都要使用循环，要注意根据问题确定循环变量的初值、终值或结束条件，更要注意用来表示计数、和、阶乘的变量的初值。 例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。 本题使用数组来处理，用数组a(1 to 100)存放产生的确100个随机整数，数组x(1 to 10)来存放个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。即个位是1的个数存放在x(1)中，个位是2的个数存放在x(2)中，……个位是0的个数存放在x(10)。 将程序编写在一个GetTJput过程中，代码如下： Public Sub GetTJput() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer '产生100个[0，99]范围内的随机整数，每行10个打印出来 For i = 1 To 100 a(i) = Int(Rnd * 100) If a(i) < 10 Then Form1.Print Space(2); a(i); Else Form1.Print Space(1); a(i); End If If i Mod 10 = 0 Then Form1.Print Next i '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来 For i = 1 To 100 p = a(i) Mod 10 ' 求个位上的数字 If p = 0 Then p = 10 x(p) = x(p) + 1 Next i Form1.Print "统计结果" For i = 1 To 10 p = i If i = 10 Then p = 0 Form1.Print "个位数为" + Str(p) + "共" + Str(x(i)) + "个" Next i End Sub 二、求两个整数的最大公约数、最小公倍数 分析：求最大公约数的算法思想：(最小公倍数=两个整数之积/最大公约数) (1) 对于已知两数m，n，使得m>n； (2) m除以n得余数r； (3) 若r=0，则n为求得的最大公约数，算法结束；否则执行(4)； (4) m←n，n←r，再重复执行(2)。 例如:求m=14 ,n=6的最大公约数. m n r