滚动字幕 VB程序设计

制作文字动画（滚动字幕）

题目要求：设计一个可以上下滚动的字幕，并可随机更换字幕内容，字幕中字体要有闪烁效果

流程图：

界面：

代码：

Private Sub Check1_Click()

If Check1.V alue = 1 Then

Timer2.Enabled = True

Else

If Check1.V alue = 0 Then

Timer2.Enabled = False

End If

End If

End Sub

Private Sub Check2_Click()

If Check2.V alue = 1 Then

WindowState = 2

Else

If Check2.V alue = 0 Then

WindowState = 0

End If

End If

End Sub

Private Sub Check3_Click(Index As Integer) Select Case Index

Case 0

Timer1(0).Enabled = True

Case 1

Timer1(1).Enabled = True

End Select

End Sub

Private Sub Combo1_Click()

If Combo1.Text = "黑色" Then

Label1.ForeColor = vbBlack

Else

If Combo1.Text = "绿色" Then

Label1.ForeColor = vbGreen

Else

If Combo1.Text = "蓝色" Then

Label1.ForeColor = vbBlue

Else

If Combo1.Text = "青色" Then

Label1.ForeColor = vbCyan

Else

If Combo1.Text = "红色" Then

Label1.ForeColor = vbRed

Else

If Combo1.Text = "黄色" Then

Label1.ForeColor = vbY ellow

Else

If Combo1.Text = "紫色" Then

Label1.ForeColor = QBColor(9) + QBColor(4) End If

End If

End If

End If

End If

End If

End If

End Sub

Private Sub Combo2_Click()

If Combo2.Text = "黑色" Then

BackColor = vbBlack

Else

If Combo2.Text = "绿色" Then

BackColor = vbGreen

Else

If Combo2.Text = "蓝色" Then

BackColor = vbBlue

Else

If Combo2.Text = "青色" Then

BackColor = vbCyan

Else

If Combo2.Text = "红色" Then

BackColor = vbRed

Else

If Combo2.Text = "黄色" Then

BackColor = vbY ellow

Else

If Combo2.Text = "紫色" Then

BackColor = QBColor(9) + QBColor(4)

End If

End If

End If

End If

End If

End If

End If

End Sub

Private Sub Command1_Click(Index As Integer) Select Case Index

Case 0

Label1.Caption = "春晓作者：孟浩然" + Chr(13) + "春眠不觉晓，" + Chr(13) + "处处闻啼鸟。" + Chr(13) + "夜来风雨声，" + Chr(13) + "花落知多少？" _

+ Chr(13) + Chr(13) + "鹿柴作者：王维" + Chr(13) + "空山不见人，" + Chr(13) + "但闻人语响。" + Chr(13) + "返影入深林，" + Chr(13) + "复照青苔上。" + Chr(13) _

+ Chr(13) + "相思作者: 王维" + Chr(13) + "红豆生南国，" + Chr(13) + "春来发几枝。" + Chr(13) + "愿君多采撷，" + Chr(13) + "此物最相思。" + Chr(13) + Chr(13) _

+ "杂诗作者：王维" + Chr(13) + "君自故乡来，" + Chr(13) + "应知故乡事。" + Chr(13) + "来日绮窗前，" + Chr(13) + "寒梅著花未。" + Chr(13) + Chr(13) _

+ "终南望余雪作者：祖咏" + Chr(13) + "终南阴岭秀，" + Chr(13) + "积雪浮云端。" + Chr(13) + "林表明霁色，" + Chr(13) + "城中增暮寒。" + Chr(13) + Chr(13)

Case 1

Label1.Caption = "秋词刘禹锡" + Chr(13) + "自古逢秋多寂寥，" + Chr(13) + "我言秋日胜春朝。" + Chr(13) + "晴空一鹤排云上，" + Chr(13) + "便引诗情到碧霄。" + Chr(13) + Chr(13) _ + "江畔独步寻花作者：杜甫" + Chr(13) + "黄四娘家花满溪，" + Chr(13) + "千朵万朵压枝低。" + Chr(13) + "留连戏蝶时时舞，" + Chr(13) + "自在娇莺恰恰啼。" _

+ Chr(13) + Chr(13) + "早发白帝城李白" + Chr(13) + "朝辞白帝彩云间，" + Chr(13) + "千里江陵一日还。" + Chr(13) + "两岸猿声啼不住，" + Chr(13) + "轻舟已过万重山。" _

+ Chr(13) + Chr(13) + "清明作者：杜牧" + Chr(13) + "清明时节雨纷纷，" + Chr(13) + "路上行人欲断魂。" + Chr(13) + "借问酒家何处有？" + Chr(13) + "牧童遥指杏花村。" _

+ Chr(13) + Chr(13) + "九月九日忆山东兄弟作者：王维" + Chr(13) + "独在异乡为异客，" + Chr(13) + "每逢佳节倍思亲。" + Chr(13) + "遥知兄弟登高处，" + Chr(13) + _

"遍插茱萸少一人。"

Case 2

Label1.Caption = "弹琴作者：刘长卿" + Chr(13) + "泠泠七弦上，" + Chr(13) + "静听松风寒。" + Chr(13) + "古调虽自爱，" + Chr(13) + "今人多不弹。" + Chr(13) + Chr(13) + _

"新嫁娘作者：王建" + Chr(13) + "三日入厨下，" + Chr(13) + "洗手作羹汤。" + Chr(13) + "未谙姑食性，" + Chr(13) + "先遣小姑尝。" + Chr(13) + Chr(13) + "寻隐者不遇作者：贾岛" _ + Chr(13) + "松下问童子，" + Chr(13) + "言师采药去。" + Chr(13) + "只在此山中，" + Chr(13) + "云深不知处。" + Chr(13) + Chr(13) + "春怨作者：金昌绪" + Chr(13) + "打起黄莺儿，" _ + Chr(13) + "莫教枝上啼。" + Chr(13) + "啼时惊妾梦，" + Chr(13) + "不得到辽西。" + Chr(13) + "行宫作者：元稹" + Chr(13) + "寥落古行宫，" + Chr(13) + "宫花寂寞红。" + Chr(13) + _ "白头宫女在，" + Chr(13) + "闲坐说玄宗。"

Case 3

Label1.Caption = "黄鹤楼作者：崔颢" + Chr(13) + "昔人已乘黄鹤去，" + Chr(13) + "此地空余黄鹤楼。" + Chr(13) + "黄鹤一去不复返，" + Chr(13) + "白云千载空悠悠。" + Chr(13) + _ "晴川历历汉阳树，" + Chr(13) + "芳草萋萋鹦鹉洲。" + Chr(13) + "日暮乡关何处是，" + Chr(13) + "烟波江上使人愁。" + Chr(13) + Chr(13) + "锦瑟作者：李商隐" + Chr(13) + "锦瑟无端五十弦，" _

+ Chr(13) + "一弦一柱思华年?" + Chr(13) + "庄生晓梦迷蝴蝶，" + Chr(13) + "望帝春心托杜鹃。" + Chr(13) + "沧海月明珠有泪，" + Chr(13) + "蓝田日暖玉生烟。" + Chr(13) + "此情可待成追忆，" _

+ Chr(13) + "只是当时已惘然。" + Chr(13) + Chr(13) + "贫女作者：秦韬玉" + Chr(13) + "蓬门未识绮罗香，" + Chr(13) + "拟托良媒益自伤。" + Chr(13) + "谁爱风流高格调，" + Chr(13) + "共怜时世敛梳妆。" _

+ Chr(13) + "敢将十指夸针巧，" + Chr(13) + "不把双眉斗画长。" + Chr(13) + "苦恨年年压金线，" + Chr(13) + "为他人作嫁衣裳。" + Chr(13) + Chr(13) + "苏武庙作者：温庭筠" + Chr(13) + _

Chr(13) + "苏武魂销汉使前，" + Chr(13) + "古祠高树两茫然。" + Chr(13) + "云边雁断胡天月，" + Chr(13) + "陇上羊归塞草烟。" + Chr(13) + "回日楼台非甲帐，" + Chr(13) + "去时冠剑是丁年。" _

+ Chr(13) + "茂陵不见封侯印," + Chr(13) + "空向秋波哭逝川。"

Case 4

Label1.Caption = "1.一只公鹿,它走着走着,越走越快," _

+ Chr(13) + "最后它变成了高速公路(鹿)!!!! " _

+ Chr(13) + "2.两只番茄过马路,一辆汽车" _

+ Chr(13) + "飞驰而过,其中一只闪避不及被压扁,另一个" _

+ Chr(13) + "番茄指着被压扁的番茄大笑道:挖哈哈哈,番茄酱…" _

+ Chr(13) + "3.有只鸭子叫小黄，一天他被车撞到，他就" _

+ Chr(13) + "大叫一声：「呱！」从此他就变成小黄瓜了!! " _

+ Chr(13) + "4.火柴棍突然觉得头很痒，就伸手挠，" _

+ Chr(13) + "挠着挠着就把自己烧死了…" + Chr(13) + _

"5.台湾什么时候会想要统一？买方便面的时候" _

+ Chr(13) + "6.如何让饮料变大杯？答：念大悲咒" _

+ Chr(13) + "7.有个小偷上别人家偷东西，进屋后看" _

+ Chr(13) + "到屋里没人，但是很穷，就留下200块钱走了…" _

+ Chr(13) + "8.有一天一跟火柴跌倒了，把头摔破了" + Chr(13) + _

"就去医院包扎，结果出来后就变成了一根棉签!!! " + Chr(13) + _

"有一天绿豆自杀从5楼跳下来，流了很多血，变成了红豆；" _

+ Chr(13) + "一直流脓，又变成了黄豆；伤口结了疤，最后成了黑豆。"

Case 5

Label1.Caption = "含有一组反义词的成语" + Chr(13) + _

"前呼后拥" + Chr(13) + "东倒西歪" + Chr(13) + "眼高手低" + Chr(13) + _

"口是心非" + Chr(13) + "头重脚轻" + Chr(13) + "有头无尾" + Chr(13) + _

"前倨后恭" + Chr(13) + "东逃西散" + Chr(13) + "南辕北辙" + Chr(13) + _

"左顾右盼" + Chr(13) + "积少成多" + Chr(13) + "同甘共苦" + Chr(13) + _

"半信半疑" + Chr(13) + "大材小用" + Chr(13) + "先人后己" + Chr(13) + _

"有口无心" + Chr(13) + "天经地义" + Chr(13) + "弄假成真" + Chr(13) + _

"举足轻重" + Chr(13) + "南腔北调" + Chr(13) + "声东击西" + Chr(13) + _

"转危为安" + Chr(13) + "东倒西歪" + Chr(13) + "反败为胜" + Chr(13) + _

"以少胜多" + Chr(13) + "由此及彼"

Case 6

Label1.Caption = "名言警句" + Chr(13) + _

"不戚戚于贫贱，不汲汲于富贵。- 陶渊明" + Chr(13) + _

Chr(13) + "生活的理想，就是为了理想的生活。-张闻天" + Chr(13) + _

Chr(13) + "君子喻于义，小人喻于利。-孔丘" _

+ Chr(13) + Chr(13) + "生活就是战斗。-柯罗连科" _

+ Chr(13) + Chr(13) + "为了生活中努力发挥自己的作用，热爱人生吧。-罗丹" _

+ Chr(13) + Chr(13) + "过去属于死神，未来属于你自己。-雪莱" _

+ Chr(13) + Chr(13) + "希望是厄运的忠实的姐妹。-普希金" _

+ Chr(13) + Chr(13) + "宿命论是那些缺乏意志力的弱者的借口。-罗曼·罗兰" _

+ Chr(13) + Chr(13) + "一个能思想的人，才是一个力量无边的人。-巴尔扎克" _

+ Chr(13) + Chr(13) + "毫无理想而又优柔寡断是一种可悲的心理。-培根" _

+ Chr(13) + Chr(13) + "贫不足羞，可羞是贫而无志。-吕坤"

Case 7

Label1.Caption = "《世界上最遥远的距离》--[印度]泰戈尔" _

+ Chr(13) + "世界上最遥远的距离" _

+ Chr(13) + "不是生与死" _

+ Chr(13) + "而是我就站在你面前你却不知道我爱你" _

+ Chr(13) + Chr(13) + "世界上最遥远的距离" _

+ Chr(13) + "不是我就站在你面前你却不知道我爱你" _

+ Chr(13) + "而是明明知道彼此相爱却不能在一起" _

+ Chr(13) + Chr(13) + "世界上最遥远的距离" _

+ Chr(13) + "不是明明知道彼此相爱却不能在一起" _

+ Chr(13) + "而是明明无法抵挡这股想念却还是故意" _

+ Chr(13) + "装作丝毫没有把你放在心里" _

+ Chr(13) + Chr(13) + "世界上最遥远的距离" _

+ Chr(13) + "不是明明无法抵挡这股想念却还是故意" _

+ Chr(13) + "装作丝毫没有把你放在心里" _

+ Chr(13) + "而是用自己冷漠的心对爱你的人掘了" _

+ Chr(13) + "一条无法跨越的沟渠" _

+ Chr(13) + Chr(13) + "《断章》--卞之琳" _

+ Chr(13) + "你站在桥上看风景，" _

+ Chr(13) + "看风景的人在楼上看你?" _

+ Chr(13) + "明月装饰了你的窗子，" _

+ Chr(13) + "你装饰了别人的梦? " _

+ Chr(13) + Chr(13) + "《乡愁》--席慕蓉" + Chr(13) + "故乡的歌是一支清远的笛" _

+ Chr(13) + "总在有月亮的晚上响起" + Chr(13) + "故乡的面貌却是一种模糊的怅惘" _ + Chr(13) + "仿佛雾里的挥手别离" + Chr(13) + "离别后" _

+ Chr(13) + "乡愁是一棵没有年轮的树" + Chr(13) + " 永不老去"

Case 8

Label1.Caption = "文字动画"

Label1.FontSize = 25

BackColor = &H8000000F

Label1.ForeColor = &H80000012

Combo1.Text = "未选择"

Combo2.Text = "未选择"

Timer1(0).Enabled = False

Timer1(1).Enabled = False

Timer2.Enabled = False

Check1.V alue = 0

Check2.V alue = 0

HScroll1.V alue = 1

Timer1(0).Interval = 200

Timer1(1).Interval = 200

Timer2.Interval = 1000

End Select

End Sub

Private Sub Command2_Click()

Timer1(0).Enabled = False

Timer1(1).Enabled = False

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Label1.AutoSize = True

Label1.Top = Picture1.Height '本行代码如果不要，程序启动及显示字幕文字Combo1.Text = "未选择"

Combo2.Text = "未选择"

Label1 = "文字动画"

Label1.FontSize = 25

Combo1.AddItem "黑色"

Combo1.AddItem "绿色"

Combo1.AddItem "蓝色"

Combo1.AddItem "青色"

Combo1.AddItem "红色"

Combo1.AddItem "黄色"

Combo1.AddItem "紫色"

Combo2.AddItem "黑色"

Combo2.AddItem "绿色"

Combo2.AddItem "蓝色"

Combo2.AddItem "青色"

Combo2.AddItem "红色"

Combo2.AddItem "黄色"

Combo2.AddItem "紫色"

Timer1(0).Interval = 100

Timer1(1).Interval = 100

Timer2.Interval = 1000

Timer1(0).Enabled = False

Timer1(1).Enabled = False

Timer2.Enabled = False

Text1 = "请直接在此输入文字字幕"

End Sub

Private Sub Option2_Click(Index As Integer)

Select Case Index

Label1.FontName = "幼圆"

Case 1

Label1.FontName = "隶书"

Case 2

Label1.FontName = "华文彩云"

Case 3

Label1.FontName = "黑体"

End Select

End Sub

Private Sub Option1_Click(Index As Integer)

Select Case Index

Case 0

Label1.FontSize = 35

Case 1

Label1.FontSize = 15

End Select

End Sub

Private Sub Option3_Click(Index As Integer)

Select Case Index

Case 0

Timer1(0).Enabled = True

Timer1(1).Enabled = False

Case 1

Timer1(1).Enabled = True

Timer1(0).Enabled = False

End Select

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Text1.Text = "" Then

m = MsgBox("文字字幕不能为空", vbExclamation, "提示") Else: Label1.Caption = Text1.Text

Text1.Text = ""

End If

End If

End Sub

Private Sub Text1_LostFocus()

Text1.Text = "请直接在此输入文字字幕"

End Sub

Private Sub Timer1_Timer(Index As Integer)

Select Case Index

Label1.Top = Label1.Top - 90

If Label1.Top + Form1.Height < 0 Then Label1.Top = Picture1.Height

End If

Case 1

Label1.Top = Label1.Top + 90

If Label1.Top > Form1.Height Then Label1.Top = 0

End If

End Select

End Sub

Private Sub Timer2_Timer() Randomize

Dim R, G, B As String

R = 255 * Rnd

G = 255 * Rnd

B = 255 * Rnd

Label1.ForeColor = RGB(R, G, B)

End Sub

Private Sub Timer3_Timer()

Label1.Top = Label1.Top + 80

If Label1.Top > Form1.Height Then Label1.Top = 0

End Sub

手把手Flash滚动文字制作

按以下步骤制作flash滚动文字、循环图片(多幅)、flash文字特效： 如果按此步骤有问题请联系Jun.wang@https://www.wendangku.net/doc/eb5138437.html, 滚动文字 1.打开Macromedia flash，新建flash文档，设定文档的大小像素和帧频，这里设定为宽： 840px，高138px，帧频为5 2.文件—导入—导入到库，选择一张合适的图片做底图，宽和高为840X138即可。这时可 在右边的库栏中看到刚刚导入的图片。 3.点击库栏中的图片拖到舞台上来，在下方输入x和y的值均为0，按enter来对齐图片， 点击图片，选择分离。 4.点击默认的图层1处，插入图层，新建一个图层2。

5.点击图层2的第一帧处—点击右侧的文本工具(A)，在合适的位置插入文字，下方属性 可修改文字的字体、字号、颜色等参数。 6.在图层2的第50帧处，点击鼠标右键插入关键帧。50帧可选，帧的数目越大，滚动文 字的速度就越慢。 7.在1到50帧的任意一帧处点鼠标右键创建补间动画。

8.点击图层1的第50帧处，点击鼠标右键插入帧。 9.点击图层2的第一帧处将文字移动到图片的最右侧，点击图片的第50帧处将文字移动 到图片的最右侧。为了使文字滚动过程中不会上下移动位置，最好使用键盘来移动文字，使得文字的高度相同。 10.按Enter看效果，完成，如果滚动速度过慢或者过快，可以移动第50帧到更高的帧数。 11.文件—导出—导出影片，另存为一个swf文件，完成。

循环图片： 1.以四张图片循环为例，准备好四张170X205的图片。 2.打开Macromedia flash，新建flash文档，设定文档的大小像素和帧频，这里设定为宽： 170px，高205px，帧频为5 3.插入—新建元件，名字默认为元件1，属性选择“图形”。 4.文件—导入—导入到舞台—选择第一张170X205的图片。 5.重复第三步和第四步，依次把四个元件创建好，四幅图片导入到舞台。 6.点击场景1，此时从右侧可以看到四幅图片均已被导入到场景中来。 7.点击第一幅图片，将它拖到舞台上来，x和y值设定为0和0。 8.点击第10帧处，鼠标右键插入空白关键帧，将第二幅图片拖到舞台上来，x和y值设定

《VB选择结构程序设计》教学设计

《VB选择结构程序设计》教学设计 山东省临清市第二中学吴焕英 【案例背景】 高中信息技术新课程的实施，其课程目标定位于全面提升学生的信息素养，其课程的设置从知识与技能、过程与方法、情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何更有效地开展新课程教学，成为老师们迫切需要解决的问题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 算法与程序设计是普通高中信息技术课程中选修模块之一，本模块旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “选择结构”是教育科学出版社出版的高级中学课程标准实验教科书、算法与程序设计第二章第三节的内容，共分三课时，本课为第二课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法，这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适应信息社会的公民。 因此本节课的目标有以下几项：

程序设计语言VB_习题集(含答案)

《程序设计语言VB》课程习题集 一、单选题 1.Visual Basic是一种面向（）的程序设计语言。 A.用户 B.事件 C.程序 D.对象 2.在Visual Basic6.0中规定工程文件的扩展名是（）。 A.vbp B.for C.frm D.bas 3.Visual Basic6.0中规定窗体文件的扩展名是（）。 A.for B.frm C.vbp D.bas 4.如何使一个标签或按钮控件在运行时不可用（）。 A.把它的Visible属性设置成False B.把它的Visible属性设置成True C.把它的Enabled属性设置成False D.把它的Enabled属性设置成True 5.控件的字体可在属性窗口的（）属性中调整？ A.Font B.Color C.Text D.Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。 A.Value B.Cancel C.Default D.Enabled 7.在VB中，记录对象数据的是（）。 A.方法 B.事件 C.属性

8.在文本框上显示文本的属性是（）。 A.Value B.Text C.Print D.Enabled 9.InputBox函数返回值的类型为（）。 A.字符串 B.数值 C.变体 D.数值或字符串（视输入的数据而定） 10.设有语句：a=InputBox("请输入数值:","输入示例","100")程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。 A.字符串"20" B.字符串"120" C.默认值100 D.数值120 11.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 https://www.wendangku.net/doc/eb5138437.html,bel控件 B.TextBox控件 C.Timer控件 https://www.wendangku.net/doc/eb5138437.html,mandButton控件 12.语句PRINT"25*4"的输出结果是（）。 A.25*4 B."100" C.100 D.出现错误信息 13.只能用来显示字符信息的控件是（）。 A.文本框 B.标签框 C.图片框 D.图像框 14.下列可作为Visual Basic变量名的是（）。 A.A%A B.4A C.?xy D.Stemp 15.下列哪个符号不能作为VB中的变量名（）。 A.timefly

用flash制作漂亮的数学课件

用flash制作漂亮的数学课件 Ppt有很好看的模板、艺术字以及简单动画效果，但无法演示互动性较强的操作或较复杂的动画，其插入flash动画、视频功能又会使课件风格不统一，而且无法象flash文件那样可以非常容易地借助网络进行资源高效利用。如何在flash中实现ppt的功能呢？如何在flash 中做出简洁漂亮易用的模板和艺术字呢？ 这里我以课件《简单的三角恒等变换》为例来与大家分享flash幻灯片模板和艺术字的制作方法，希望对刚刚开始用flash开发课件的老师们有所帮助。 一、基本模板制作： 这里，我们先设置出课件幻灯片的基本模板，新建flash文档，将“图层1”双击命名为“动作”。新建三个层，分别命名为“文字”、“按钮”和“背景”，拖拽“背景”层到最下方，“动作”层在最上方。以方便日后做别的课件时也看得懂。 1．设置“动作”图层 在“动作”图层第1帧插入命令“stop”，右击该帧选择“复制帧”，在该图层第2帧右击选择“粘贴帧”，再在该图层第3帧右击选择“粘贴帧”……以此类推将20帧全部加入命令“stop”。在第1帧stop命令后继续插入fscommand("fullscreen", "true"); fscommand("showmenu", "false");这样“动作”图层就设置完成了，课件被打开时全屏显示，只要有播放或转到哪一帧的命令被执行，课件就可以停在该帧。 2．设置“按钮”图层 在“按钮”图层第20帧右击选择“插入帧”命令，该图层1到20帧全变成灰色，现在我们是对整个图层的所有帧进行操作。选择“窗口”=>“公用库”，在舞台左下脚、中下部和右下脚拖出一个自己喜欢的按钮并调整到合适的大小，在按钮上或附近分别写上“后退”、“回顾”和“继续”并在按钮上分别加入命令goto并在脚本助手中分别选择“前一帧”、“帧编号1”和“后一帧”，用鼠标单击“on（release）”选择脚本助手中的复选框“按press” 和“按键”并分别按键盘上 的“z”、“x”和空格键，然 后去掉“释放release”，以此 来设置成按下相应按钮或用 空格键和“x”、“z”键来控 制幻灯片的顺序播放。到此， 一个简单的按钮图层就完成 了。 3．设置“背景”图层 在“百度”中搜索“卡通桌面”并选择“图片”，挑选画面简单的背景图片下载，单击背景图层第1帧，在主菜单中选择“文件”=>“导入”=>“导入到舞台”将图片导入并在下方“属性”面板中设置成舞台的大小（默认设置成550、400、0、0）。如果你找到一幅很适合教学内容而且会动的gif图片，切记在主菜单中选择“文件”=>“导入”=>“导入到库”将图片导入到库中，然后在从“库”面板中将对应的影片剪辑拖出来。

【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程序设计 一、判断题 1、同一Form窗体中的各控件可以相互重叠,其显示的上下层次的次序不可以调整。( X ) 2、一个对象的若能识别多个事件,我们只能对其中一个事件编程( ) 3、单选按钮与复选框对象的Value属性类型不同,且只能取值True与False。( √ ) 4、事件过程由某个用户事件或系统事件触发执行,它不能被其她过程调用。( ) 5、图片框的Move方法不仅可以移动图片框,而且还可以改变该图片框的大小,同时也会改变该图片框有关属性的值。( √ ) 6、“A=B=C”就是一个合法的Visual Basic语句。( ) 7、当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时,组合框会自动把这一条目添加到它的列表框中。( ) 8、 Visual Basic程序的运行可以从 Main()过程启动,也可以从某个窗体启动。( √ ) 9、在图片框中放置的控件既可以在该图片框内移动,也可以移出该图片框外。( ) 10、对于文件系统控件,当驱动器控件Drivel中的驱动器符改变时,文件夹列表控件Dir1中显示的文件夹也作相应的改变,可以在Drive1中的Change事件中使用如下命令。Dir1、Path＝ Drive1、 Drive( √ ) 11、滚动条控件可作为用户输入数据的一种方法。( √ ) 12、单选按钮控件与复选框控件都具有Value属性,它们的作用完全相同。( ) 13、静态变量就是一种局部变量,当原过程再次被执行时,静态变量的初值就是上一次过程调用后的值。( √ ) 14、 Visual Basic提供的几种标准坐标系统的原点都就是在绘图区域的左上角,如果要把坐标原点放在其她位置,则需使用自定义坐标系统。( √ ) 15.注释语句REM可自成一语句。( √ ) 16、用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该菜单控件时,触发KeyPress( ) 17、组合框兼有文本框与列表框两者的功能,用户可以通过键人文本或选择列表中的项目来进行选择。( √ ) 18、当定时器控件的Interval属性值设置为0时,会连续不断地激发Timer事件。( ) 19.执行程序 x=0:for I=2 to 10 step –2:x=x+10:next I后x的值为0。( √ ) 2、句“FontName="宋体" ”与“Form1、FontName="宋体" ”的作用完全相同,无一例外。( ) 21局变量只能在窗体的通用区内用Public或global定义。( ) 22、在盘驱动器列表框Drivel的Change事件过程中,代码Dirl、 Path＝Drivel 、 Drive 的作用就是:当Drivel的驱动器改变时,Dirl的目录列表随不同驱动器作相应改变。( √ ) 23.直到型循环至少能执行一次循环体。( √ )

VB选择结构程序设计教学案例

VB选择结构程序设计教学案例 摘要："选择结构"是高等教育出版社出版的中等职业学校计算机应用与软件技术专业教学用书,程序控制结构中的选择结构是第四章第三节的内容,共分三课时,本课为第一课时，主要内容是用选择结构编写简单的程序 关键词：程序设计 《VB选择结构程序设计》教学案例 江山职教中心计算机组吴建浩 【案例背景】 中等职业学校的Visual Basic程序设计是让学生学会一种较为简单的程序设计语言，其课程的设置从知识与技能，过程与方法，情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何进行更有效地开展新课程教学，成为老师们迫切认识的话题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。 【教材分析】 程序控制结构是中等职业学校计算机专业中必修模块之一，本模块旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “选择结构”是高等教育出版社出版的中等职业学校计算机应用与软件技术专业教

学用书,程序控制结构中的选择结构是第四章第三节的内容,共分三课时,本课为第一课时.主要内容是用选择结构编写简单的程序。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高二的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法、这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适应信息社会的公民。 因此本节课的目标有以下几项： 1、知识与技能：（1）掌握分支选择结构实现条件判断控制。 （2）能够运用分支选择结构设计编制程序解决问题。 （3）培养学生的逻辑思维能力，促进学生对问题解决方法的理解。 2、情感态度：通过趣味性教学，使同学们保持高涨的学习兴趣，在操作的同时获得成功的喜悦。 【教学重点难点】 教学重点：让学生学会使用VB语言的If分支语句，掌握分支判断程序结构，来解决实际问题，并且培养学生的探索、创新能力。 教学难点：对解决问题的方法和步骤的理解，并能根据实际问题写出程序代码。 教学关键点：利用学生已经掌握的数学知识，引导学生综合VB的三种程序结构，努力发挥学生的研究性学习能力，培养学生创造性思维和综合运用知识的能力。 【教学过程】

VB语言程序设计

VB语言程序设计 《VB语言程序设计》课程实验教学大纲 一、制定实验教学大纲的依据 根据本校《2004级本科指导性培养计划》和《VB语言程序设计》课程教学大纲制定。 二、本实验课在专业人才培养中的地位和作用 《VB语言程序设计》课程是非计算机专业的一门公共基础课，是一门实践性和实用性都非常强的课程。其主要任务是使学生掌握程序设计的思想、方法和技巧，为应用程序开发打好必要的基础。实验课是本课程重要的教学环节,其目的是使学生掌握VB程序设计的开发环境的基本操作，以及设计图形用户界面的一般方法和技巧，重点掌握程序设计的基本思想和方法。通过接受基本实验技能的训练，提高学生的动手能力和分析、解决问题的能力。 三、本实验课程讲授的基本实验理论 1、对象的概念，常用控件的设置方法和用户界面的设计技巧。 2、变量、数据类型等概念及顺序、选择、循环三大结构的程序设计。 3、数组、过程的概念和基本操作，熟悉一些常用算法。 四、本实验课学生应达到的能力 1、熟悉Visual Basic的程序设计集成开发环境，掌握图形用户界面的一般设计方法和技巧，掌握常用控件的设置方法和其相关事件的应用。 2、掌握条件语句、循环语句、数组和过程的使用，能够运用所学语言解决实际问题，熟悉一些常用算法。

3、掌握程序调试技术，当程序出错时，有能力很快地判断出错误位置和出错原因，并且能很快排除这些错误，使程序能正确运行，培养分析问题、解决问题的能力。 4、加深课堂讲授和书本内容的理解及对语法规则的理解，达到灵活运用和培养程序设计能力的目的。 5、培养良好的程序设计风格。 五、学时、教学文件 学时:本课程总学时为56学时，其中实验为20学时，占总学时的35.7%。 教学文件:教材《Visual Basic程序设计简明教程(第二版)》实验部分;实验报告学生自拟。 要求学生实验前预习实验内容，并编写出源程序或给出初步的解决方案。指导教师应概述实验的设计思想和方法等，具体实验步骤和编写、调试程序由学生独立完成。 六、实验考核办法与成绩评定 1、实验考核每次依据预习、实验完成情况、纪律等综合给出实验成绩。未参加实验者或实验成绩不 合格者，本课程不予通过。 2、实验成绩占该课程总成绩的10%。 七、仪器设备及注意事项 仪器设备:微型计算机、Visual Basic 6.0软件 注意事项:注意保护设备 八、实验项目的设置及学时分配 序号实验项目学时实验类型要求适用专业 1 熟悉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语言程序设计基础》课程教学大纲.

《VB语言程序设计基础》课程教学大纲 课程编号：0806606506 课程名称：VB语言程序设计基础 英文名称：Visual Basic Language Programming Design 课程类型：专业选修课 总学时：24 讲课学时：14 上机学时：10 学分：1.5 适用对象：电气工程及自动化专业电网监控技术方向 先修课程：《大学计算机基础》、《C语言程序设计》 一、课程性质、目的和任务 本课程是电气工程及自动化专业电网监控技术方向的一门专业选修课，是一门实用性强、面向程序开发与应用的重要的专业课程。随着面向对象的程序设计方法日益成熟，人们考虑将各种图形界面和图像元素作为"对象"预先进行定义，用户在开发时只需直接调用。Visual Basic正是基于这种思想产生的一种Windows应用程序开发工具。它具备易学易用的特点，且功能相当强大，它还拥有非常庞大的Windows应用程序开发用户群。通过本课程的学习，要求学生掌握VB语言的结构及开发环境，程序设计方法与基本数据结构，掌握已有控件与函数的调用方法；通过上机实践培养学生分析具体问题、解决实际问题的能力，为其它编程工具的学习以及今后的基于专业的系统开发打下坚实的基础。 二、教学基本要求 本课程是理论与实践并重的课程，要求学生既要掌握基础理论知识，又要掌握操作计算机和运行程序的基本技能；能够熟练运用VB6.0集成开发环境编制具有中等难度的应用程序，在实践中培养独立分析问题和解决问题的能力。 本课程的基本要求如下： 1．了解VB的特点，掌握在VB集成开发环境中编辑、编译、运行、调试程序的全过程，具备较强的程序调试能力。 2．掌握VB语言的基本语法成分和面向对象程序设计方法。 3．掌握VB 常用控件的使用方法。 4．掌握VB 的用户界面、菜单与多文档界面设计方法。 本课程让学生既掌握了结构化程序设计方法又学会面向对象的编程思想，在实际应用中将两者有机结合。 三、教学内容及要求 1．Visual Basic 程序设计概述 （1）了解VB的发展，功能及特点，了解VB的安装和启动过程。 （2）掌握VB集成开发环境。 2．简单的VB程序设计 （1）掌握对象的概念。

VB语言程序设计

第一题 设计程序，从文本框中输入一个整数n（n<500），单击“处理”按钮是产生3个1~n 的随机整数，并分别显示在3个标签中。 程序如下： Private Sub Form_Load() ‘加载 Dim n As Integer, a As Integer ‘定义随机变量 Dim b As Integer, c As Integer Randomize ‘使rnd函数产生不同序列的随机数 n = Val(InputBox("请输入一个正整数n（n<500）")) 'inputbox函数产生对话框供用户输入数值 a = Int(n * Rnd) ‘在小于n的数随机选取一树值“下同” b = Int(n * Rnd) c = Int(n * Rnd) Label1.Caption = a ‘随机选取的数值n显示在标签上面“下同” Label2.Caption = b Label3.Caption = c End Sub ‘结束运行

第二题 设计程序，在窗体上建立5个文本框和1个命令按钮，利用4个文本框输入4个数，单击命乏按钮进行处理，求出这4个数中的最大数显示在第5个文本框中 [提示]①数值的数据类型可以定义为单精度型；②可以参考例4.2的处理方法；也可以分两组数（2个数为一组）进行比较，再从两组数中的较大数中求出最大数. 程序如下： Private Sub Command1_Click() '执行 Dim m As Single, a As Single '定义变量为单精度 Dim b As Single, c As Single Dim d As Single a = Val(Text1.Text) '为变量赋值 b = Val(Text2.Text) c = Val(Text3.Text)

vb程序设计实例

vb程序设计实例 2009-5-22 15:37 提问者：淘淘的某在|悬赏分：20 |浏览次数：1688次 编写程序，设银行定期存款的年利率为：1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法： ①存一次5年期； ②存一次3年期，一次2年期； ③存一次3年期，两次1年期； ④存两次2年期，一次1年期； ⑤存一次2年期，三次1年期； ⑥存五次1年期. 分别计算各种存法5年后到期的本息合计，如图所示 2009-5-22 17:06 最佳答案 Private Sub Form_Activate() '1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法： Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288 Dim x As Double x = Val(InputBox("")) Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5) Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2) Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1) Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1) Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1) Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1) End Sub Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double ss = a + a * c * b End Function Private Sub Form_Load()

《VB语言程序设计》习题参考答案

《VB语言程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y) (3) a*a–3*a*b/(3+a) (4) x^(3/8)+Sqr(y*y+4*a*a/(x+y^3))

实验四、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条件判断结构程序设计教学案

《VB条件判断结构程序设计》教学案例 职高一计算机王攀【案例背景】 职业高中计算机课程的实施，其课程目标定位于全面提升学生的计算机专业知识，其课程的设置从知识与技能，过程与方法，情感态度与价值观三个方面实施这个课程目标。然而面对学生素质的薄弱，要求教师要结合简单的生活实例，引导学生进行探索式学习，问题从简单的生活实例入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 控制结构是《VisualBasic语言程序设计基础》中最重要的章节之一，本节主要研究最基本的条件判断结构，旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “条件判断结构”是《VisualBasic语言程序设计基础》第七章第一节的内容，共分三课时，本课为第一课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法、这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适

VB语言程序设计

VB语言程序设计 (1/44) VB支持自定义数据类型,在某程序中我们定义了如下类型Type Student number As string name As String age As Integer End Type ?针对上述定义,如下几项用法正确的是:( )正确答案：B ?A https://www.wendangku.net/doc/eb5138437.html,="张三" ?B Dim s As Student https://www.wendangku.net/doc/eb5138437.html,＝"张红" ?C Dim s As Type Student https://www.wendangku.net/doc/eb5138437.html,="张三" ?D Dim s As Type https://www.wendangku.net/doc/eb5138437.html,="张三" (2/44) ?以下能够触发文本框Change事件的操作是( )正确答案：D ?A 文本框失去焦点 ?B 文本框获得焦点 ?C 设置文本框的焦点

?D 改变文本框的内容 (3/44) ?下面程序运行后输出的结果是( ) 正确答案：B DIM C1,C2 C1="CHINA" C2=STRING$(2, C1) PRINT Left(C1,1) + C2 移除错题 ?A CHI ?B CCC ?C INA ?D AAA (4/44) ?设窗体上有一个文本框,名称为text1,程序运行后,要求该文本框不能接受键盘输入,但能输出信息,以下属性设置正确的是:正确答案：B ?A text1.maxlength=0 ?B text1.enabled=flase ?C text1.visible=flase ?D text1.width=0

(5/44) ?用于返回窗体可用区域宽度的属性是( )正确答案：A ?A ScaleWidth ?B ScaleLeft ?C ScaleHeight ?D ScaleTop (6/44) ?Visual Basic提供的On Error Resume next错误陷阱语句表示( )正确答案：C ?A 当发生错误时，使程序转跳到语句标号为0的程序块 ?B 当发生错误时，不使用错误处理程序块 ?C 当发生错误时，忽略错误行，继续执行下一语句 ?D 当发生错误时，终止本过程执行，继续执行下一过程 (7/44) 为了检测到用户按下键盘上的所有键,应该使用的键盘事件为( ) ?正确答案：C ?A KeyPress ?B

怎样在动态图片上添加文字

怎样在动态图片上添加文字 在动态图片上添加文字有很多种方法，《Adobe Photoshop》以及《Macromedia Flash 》等大型专业软件都可以轻而易举在动态图片上添加文字，只可惜这种软件掌握起来比较困难。不过，我们可以利用软件《Ulead GIF Animator 5.11》，同样可以设计出大型专业软件所做出的效果。上面的动态标题图，就是利用了这个软件制作的，其效果应该还算可以。当然，掌握这个软件相对于大型专业软件来说，就显得容易的多了。 首先，我们安装软件《Ulead GIF Animator 5.11》，然后，启动这个软件。下面的图片就是这个软件启动以后的界面。 在软件界面里我们点击“打开一个现有的图像文件”按钮。

随后，在你的目标盘里找一张现有的动态图片。我在这里选用的一张动态图片的文件名是“50-48”。“50-48”是我预先制作保存好的一张动态图片。

文件名为“50-48”的动态图片。 软件加载了动态图片后，就会在最下面显示帧数，其帧数为38帧。现在，我们来单击一下第38帧，随后，第38帧就会变成了蓝色。

变成蓝色以后，我们点击“删除帧”按钮（见下图），就可以将此帧删除。连续单击“删除帧”按钮，就会从最后面的一帧依次删除你不需要的帧。我在这里连续单击“删除帧”两次，共删除了两帧，只保留了36帧。如果，不删除也无所谓。只是想通过以上描述，希望我们可以灵活地掌握“删除帧”这个按

钮的功能。 删除不需要的帧以后，回过头来，我们从左侧单击第一帧使其变成蓝色。切记，“单击第一帧使其变成蓝色”这句话很重要，不然，编辑的文字就无法在36帧之内显示。 随后，点击按钮“添加文本条”，见下图。

VB语言程序设计试题库

VB程序设计 一、判断题 1. 同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。（ X ） 2. 一个对象的若能识别多个事件，我们只能对其中一个事件编程（ ） 3. 单选按钮与复选框对象的Value属性类型不同，且只能取值True和False。（√） 4. 事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。（ ） 5. 图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框有关属性的值。（√） 6. “A=B=C”是一个合法的Visual Basic语句。（ ） 7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。（ ） 8. Visual Basic程序的运行可以从 Main（）过程启动，也可以从某个窗体启动。（√） 9. 在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。（ ） 10. 对于文件系统控件，当驱动器控件Drivel中的驱动器符改变时，文件夹列表控件Dir1中显示的文件夹也作相应的改变，可以在Drive1中的Change事件中使用如下命令。Dir1. Path＝ Drive1. Drive（√） 11. 滚动条控件可作为用户输入数据的一种方法。（√） 12. 单选按钮控件和复选框控件都具有Value属性，它们的作用完全相同。（ ） 13. 静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。（√） 14. Visual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其他位置，则需使用自定义坐标系统。（√） 15．注释语句REM可自成一语句。（√） 16. 用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发 KeyPress （ ） 17. 组合框兼有文本框和列表框两者的功能，用户可以通过键人文本或选择列表中的项目来进行选择。（√） 18. 当定时器控件的Interval属性值设置为0时，会连续不断地激发Timer事件。（ ）19．执行程序 x=0:for I=2 to 10 step –2:x=x+10:next I后x的值为0。（√） 2.句“FontName="宋体" ”与“Form1.FontName="宋体" ”的作用完全相同，无一例外。（ ） 21局变量只能在窗体的通用区内用Public或global定义。（ ） 22. 在盘驱动器列表框Drivel的Change事件过程中，代码Dirl. Path＝Drivel . Drive 的作用是：当Drivel的驱动器改变时，Dirl的目录列表随不同驱动器作相应改变。（√）

flash制作滚动字幕

在Flash中图层与图层之间的关系不仅是上面图层挡住下面的图层，而且还是互相制约的，其中遮罩层与被遮罩层的关系就是这样的。这里通过一个简单的例子“滚动字幕”，来加以说明。 做动画之前，我们先来看一下遮罩的原理：遮罩层的对象形状就是被遮罩层的可见区域。说+明白了这一点，在实际操作中，我们可以利用遮罩实现很多精美的动画效果。 本实例如图所示，一段优美的诗文从舞台的右侧缓缓进入，到达舞台合适位置时自动消失。 下面就来介绍具体的做法。 （1）启动Flash8，新建Flash文档，在时间轴上将图层1改名为“背景”，如图2所示： 图2

（2）选择菜单栏“文件→导入→导入到舞台”命令，找到我们事先准备好的图片，将其导入到舞台。如图3所示： 图3 由于图片有些大，我们可以在对齐面板中单击相对于舞台按钮，然后选择匹配大小中的匹配宽和高，再选择对齐中的和。此时背景层已经完成，将其加锁。 （3）新建图层2，命名为“文字”。此时时间轴如图4所示： 图4

（4）选择工具栏中文字工具，在舞台上单击输入文字，此时文字的属性面板如图5所示。文字输入之后，单击工具栏中的选择图标，选中文字后把它移至舞台的右侧。如图6所示： 图5 图6 （5）在背景层第168帧处单击右键，插入帧。在文字层第84帧单击右键，插入关键帧。把舞台上的文字移到舞台中，移动文字的同时按住Shift键可以水平移动。此时舞台上显示如图7：

图7 （6）选择文字层1－84帧之间任意一帧，单击右键创建补间动画。在该层第168帧单击右键插入关键帧。把文字继续向左移（要同时按住Shift键来拖移文字，注意和前一位置的关系，文字整体应在前一位置的左侧）至如图8所示位置，在84－168帧之间任意一帧，单击右键创建补间动画。 图8 此时时间轴如图9：