v b实用案例50例
实验报告11
实验报告2：
实验题目1：设计窗体。参考界面如下：
运行前运行后
要求：
1）在窗体上添加一个标签，通过属性窗囗设置标签格式：
Caption：字体格式 Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框） Backstyle：0—Tansparent（背景透明）
2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。
提示：字号FontSize、加粗FontBold、下划线FontUnderline
实验题目1源程序代码：
Private Sub Command1_Click()
Label1.FontSize = 30
End Sub
Private Sub Command2_Click()
Label1.FontBold = true
End Sub
Private Sub Command3_Click()
Label1.FontUnderline = True
End Sub
实验题目2：设计一个计算器。参考界面如下：
要求：
1）实现算术运算（+、-、*、/）的功能；
2）实现清除和结束的功能；
3）实现清除后，将焦点移到第一个文本框中。
实验题目2源程序代码：
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text) End Sub
Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text) End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下：
要求：没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按钮才可用。
说明：设计时先将计算均分的命令按钮的Enabled属性设置为false。
实验题目3源程序代码：
Private Sub Command1_Click()
Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Text5.Text = Val(Text4.Text) / 3
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
实验题目4：设计界面，编写程序计算圆的周长和面积。参考界面如下：
要求：
①设置窗体的标题为“计算圆的周长和面积”。
②“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。
③“清除”命令按钮的功能：将三个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
实验题目4源程序代码：
Private Sub Command1_Click()
Dim r As Double, s As Double
Const pi = 3.1415926
r = Val(Text1.Text)
s = pi * r * r
c = 2 * pi * r
Text2.Text = Str(c)
Text3.Text = Str(s)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
实验题目5：设计界面，编写程序验证算术运算符的功能。参考界面如下：
要求：
①设置窗体的标题为“验证算术运算符”。
②“计算”命令按钮的功能：计算两个数的除、整除和取余。
③“清除”命令按钮的功能：将五个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
实验题目5源程序代码：
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Text4.Text = Val(Text1.Text) \ Val(Text2.Text)
Text5.Text = Val(Text1.Text) Mod Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
实验题目6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。参考界面如下：
要求：
①设置窗体的标题为“分离三位数”。
②“分离”命令按钮的功能：分离出一个三位数的个位、十位、百位上的数字。
③“清除”命令按钮的功能：将四个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
实验题目6源程序代码：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
Text4.Text = Str(a \ 100)
Text3.Text = Str((a Mod 100) \ 10)
Text2.Text = Str(a Mod 10)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
实验题目7：输入一个三位数，将它按逆序输出。参考界面如下：
要求此题用两种解法：
第一种解法：将文本框中的数据按字符型数据进行处理，用函数实现；
第二种解法：将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用mod、\、*、+等运算符）。
实验题目7源程序代码：
第一种解法：
Private Sub Command1_Click()
Dim a As String, b As String, c As String, d As String
a = Trim(Text1.Text)
b = Left(a, 1)
c = Mid(a, 2, 1)
d = Right(a, 1)
Text2.Text = d & c & b
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
第二种解法：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
a = Val(Text1.Text)
b = a \ 100
c = (a Mo
d 100) \ 10
d = a Mod 10
Text2.Text = Str(d * 100 + c * 10 + b)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
实验题目8：输入两个数，将这两个数交换。
要求：不允许使用第三个文本框，可以借助一个中间变量。实验题目8源程序代码：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a
a = b
b = c
Text1.Text = Str(a)
Text2.Text = Str(b)
End Sub
实验题目9：设计文本编辑窗体。
复制按钮的功能：
移动按钮的功能：
提示：文本框的SelText属性表示选定的内容。
要求：文本框可以多行输入。
说明：设计时先将文本框的multiline属性设置为true。实验题目9源程序代码：
Private Sub Command1_Click()
Text2.Text = Text1.SelText
End Sub
Private Sub Command2_Click()
Text2.Text = Text1.SelText
Text1.SelText = ""
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command4_Click()
End
End Sub
实验报告3：
实验题目1：编写程序计算某个学生三门课程的平均成绩。
要求：
（1）单击“计算”命令按钮，输入学生的成绩并在文本框中显示该学生的平均分。（调用三次inputbox函数输入三门课程的成绩，并用三个内存变量保存成绩）
提示：如a表示一门课程的成绩，则调用inputbox函数输入为：
a=val(inputbox("请输入第一门课的成绩"))
（2）单击“结束”命令按钮结束程序运行。
界面如下：
实验题目1源程序代码：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
a = Val(InputBox("请输入第一门成绩"))
b = Val(InputBox("请输入第二门成绩"))
c = Val(InputBox("请输入第三门成绩"))
d = (a + b + c) / 3
Text1.Text = d
End Sub
实验题目2：编写程序计算长方体的体积。
要求：
（1）单击“计算”命令按钮，输入长方体的长、宽和高（调用三次inputbox 函数输入，并用三个内存变量保存），计算出长方体的体积后通过输出对话框
输出（调用MsgBox函数，输出框的标题为“计算长方体的面积”。）输出对话框参考界面如下：
（2）单击“结束”命令按钮结束程序运行。
实验题目2源程序代码：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, v As Integer
a = Val(InputBox("请输入长方体的长"))
b = Val(InputBox("请输入长方体的宽"))
c = Val(InputBox("请输入长方体的高"))
v = a * b * c
MsgBox "长方体的体积为：" & v, , "计算长方形的体积"
End Sub
Private Sub Command2_Click()
end
End Sub
实验报告4：
实验题目1：编写程序求出四个数中的最小数。
实验题目1源程序代码：
Private Sub Command1_Click()
Dim a!, b!, c!, d!, min!
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = Val(Text4)
min = a
If b < min Then min = b
If c < min Then min = c
If d < min Then min = b
Label1 = "最小的数是：" & min
End Sub
实验题目2：编写程序判断某个数是否是水仙花数。
要求：用inputbox函数输入一个数，将结果输出在窗体上。
提示：水仙花数是一个三位数，这个三位数各个位上数字的立方和等于它本身。
实验题目2源程序代码：
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
d = InputBox("请输入一个三位数", "判断水仙花数")
a = d \ 100
b = (d Mod 100) \ 10
c =
d Mod 10
If d = a ^ 3 + b ^ 3 + c ^ 3 Then
Print True
Else
Print False
End If
End Sub
实验题目3：编写程序，实现数字和英文单词的对应。
提示：在文本框1中输入0到6之间的整数，在文本框2中显示对应的星期英文单词。
实验题目3源程序代码：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
If a = 0 Then
Text2.Text = "sunday"
ElseIf a = 1 Then
Text2.Text = "monday"
ElseIf a = 2 Then
Text2.Text = "tuesday"
ElseIf a = 3 Then
Text2.Text = "wednesday"
ElseIf a = 4 Then
Text2.Text = "thursday"
ElseIf a = 5 Then
Text2.Text = "friday"
ElseIf a = 6 Then
Text2.Text = "saturday"
End If
End Sub
实验题目4：设计程序，判断从键盘上输入的某个字符为哪类字符。（大写字母、小写字母、数字字符或其他字符）
要求：用select case语句实现。
提示：字符输入在一个文本框中，字符类别信息显示在标签上。将文本框的maxlength属性设置为1，则一次只能输入一个字符。
实验题目4源程序代码：
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Select Case a
Case "a" To "z"
Label1.Caption = "它是小写字母"
Case "A" To "Z"
Label1.Caption = "它是大写字母"
Case "0" To "9"
Label1.Caption = "它是数字字符"
Case Else
Label1.Caption = "其他字符"
End Select
End Sub
实验题目5：设计一个简单的文本编辑器，可以实现文本的简单格式化操作。
具体要求如下：
（1）可以设置字号，包括10、20、30号
（2）可以设置字体，包括宋体、隶书、幼圆
（3）可以设置字型，包括加粗、倾斜、下划线
（4）可以设置字的颜色，包括红色、绿色、蓝色
实验题目5源程序代码：
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.fontbold = false
End If
End Sub
Private Sub Check2_Click()
If Check2.Value =1 Then
Text1.FontItalic = True
Else
Text1.fontitalic = false End If
End Sub
Private Sub Check3_Click() If Check3.Value =1 Then Text1.FontUnderline = True Else
Text1.fontunderline = false End If
End Sub
Private Sub Option1_Click() Text1.FontSize = 10
End Sub
Private Sub Option2_Click() Text1.FontSize = 20
End Sub
Private Sub Option3_Click() Text1.FontSize = 30
End Sub
Private Sub Option4_Click() Text1.FontName = "宋体" End Sub
Private Sub Option5_Click() Text1.FontName = "隶书" End Sub
Private Sub Option6_Click()
《VB选择结构程序设计》教学设计 山东省临清市第二中学吴焕英 【案例背景】 高中信息技术新课程的实施，其课程目标定位于全面提升学生的信息素养，其课程的设置从知识与技能、过程与方法、情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何更有效地开展新课程教学，成为老师们迫切需要解决的问题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的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
一、导入到Xls文件并打印 Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim a,fso a=HMIRuntime.Tags("fileName").Read Set fso = CreateObject("scripting.filesystemobject") If fso.FileExists("C:\Model.xls") Then Dim objExcelApp Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = False objExcelApp.Workbooks.Open "C:\Model.xls" objExcelApp.Cells(2, 3).Value = HMIRuntime.Tags("NewTag1_1").read objExcelApp.Cells(4, 5).Value = HMIRuntime.Tags("NewTag1_2").read objExcelApp.Cells(6, 7).Value = HMIRuntime.Tags("NewTag1_3").read objExcelApp.Cells(8, 9).Value = HMIRuntime.Tags("NewTag1_4").read objExcelApp.Cells(10, 11).Value = HMIRuntime.Tags("NewTag1_5").read objExcelApp.ActiveWorkbook.SaveAs("C:\Report\"&CStr(a)&".xls") objExcelApp.ActiveWorkbook.PrintOut
1.定义一些变量 Public IniFileName As String, vbNullString As String, maxSize As Long, section1 As String, section2 As String 2.初始话这些变量 Public Function initial() IniFileName = App.Path & "" & "config.ini" vbNullString = "" maxSize = 255 section1 = "basics" section2 = "others" temp_str = String(255, 0) '建立缓冲区 End Function 3.声明INI函数 Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As String, _ ByVal nDefault As Long, _ ByVal lpFileName As String) As Long Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long, _ ByVal lpFileName As String) As Long Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpString As Any, _ ByVal lpFileName As String) As Long 4.调用函数 dim source as string
VB选择结构程序设计教学案例 摘要："选择结构"是高等教育出版社出版的中等职业学校计算机应用与软件技术专业教学用书,程序控制结构中的选择结构是第四章第三节的内容,共分三课时,本课为第一课时，主要内容是用选择结构编写简单的程序 关键词：程序设计 《VB选择结构程序设计》教学案例 江山职教中心计算机组吴建浩 【案例背景】 中等职业学校的Visual Basic程序设计是让学生学会一种较为简单的程序设计语言，其课程的设置从知识与技能，过程与方法，情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何进行更有效地开展新课程教学，成为老师们迫切认识的话题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。 【教材分析】 程序控制结构是中等职业学校计算机专业中必修模块之一，本模块旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “选择结构”是高等教育出版社出版的中等职业学校计算机应用与软件技术专业教
学用书,程序控制结构中的选择结构是第四章第三节的内容,共分三课时,本课为第一课时.主要内容是用选择结构编写简单的程序。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高二的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法、这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适应信息社会的公民。 因此本节课的目标有以下几项： 1、知识与技能：（1）掌握分支选择结构实现条件判断控制。 （2）能够运用分支选择结构设计编制程序解决问题。 （3）培养学生的逻辑思维能力，促进学生对问题解决方法的理解。 2、情感态度：通过趣味性教学，使同学们保持高涨的学习兴趣，在操作的同时获得成功的喜悦。 【教学重点难点】 教学重点：让学生学会使用VB语言的If分支语句，掌握分支判断程序结构，来解决实际问题，并且培养学生的探索、创新能力。 教学难点：对解决问题的方法和步骤的理解，并能根据实际问题写出程序代码。 教学关键点：利用学生已经掌握的数学知识，引导学生综合VB的三种程序结构，努力发挥学生的研究性学习能力，培养学生创造性思维和综合运用知识的能力。 【教学过程】
用VB编写一个密码解锁界面 我也是刚开始学VB语言，VB语言很强大，有别于其它语言，操作性很强，是很富有创造性的电脑语言。 下面是我看了两天书后编写的一个小程序： 功能是能建立两个窗口，一个密码窗口，一个为修改密码窗口。当密码输入正确后才能打开或者做一些事情，点击修改密码跳往第二个界面，修改成功后以修改的密码为解锁密码。中间有错误提示和误操作提示。 ①先建立一个小窗口，如下图： 帐号一的“textbox”编号为“text1”，后面一次类推，command指令为1。 ②程序的编写 Text1： 初始帐号为“07823”，如果可以的话可以给加入更多的功能，比如记忆多个账户和多对密码之类的等等。
2、text2 3、command1 初始密码为“1234”，open函数可以打开文件，自己可以设置文件路径。 4、command2 跳往第二个界面，隐藏第一界面。 5、初始指令 6、全局变量 全局变量本界面可以修改、其它界面可以调用的变量。
②建立第二个窗口 Text的序号从上到下依次顺序排列，command的命令一次从左到右排列 ③第二个窗口的程序编写 1、Text1： Private Sub Text1_LostFocus() Dim b As Integer Dim pw_1 As String, pw_2 As String pw_2 = Form1.m pw_1 = Text1.Text If pw_1 <> pw_2 Then b = MsgBox("密码错误", 5 + vbExclamation, "错误提示") End If End Sub 2、text2： Private Sub Text2_LostFocus() If Text2.Text = "" Then MsgBox "新密码不能为空" End If End Sub 3、text3： Private Sub Text3_LostFocus() If Text2.Text <> Text3.Text Then MsgBox "两次输入密码不一样" Text2.Text = "" Text3.Text = "" Text2.SetFocus End If End Sub
卓资县职业中学实训学案 班级_____姓名_________科目： 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基础教程 第1课…………VB基础 第2课…………标签控件 第3课…………文本框 第4课…………命令按钮 第5课…………图片框 第6课…………复选框 第7课…………单选按钮I 第8课…………单选按钮II 第9课…………定时器 第10课…………音乐播放器 本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途 美丽的校园…… VB程序设计基础 一、程序设计是指为计算机编制一些软件和程序。学习的目的是理解计算机的工作方式和运行的方式。 VB是经典的编程设计语言，也是基础语言之一，简单易学，功能强大，深受广大初学者的喜爱。 VB是运行在Windows视窗操作系统上，设计程序的思想在于在窗口中放置对象和针对对象设计代码。
（一）启动VB：单击“开始”－“程序”－“Microsoft Visual Basic6.0 中文版”选择“标准EXE”，单击“打开”进入窗口。 （二）VB窗口 1、标题栏：在最上面蓝色标题是“工程1－...”，是我们当前正在设计的程序，被称作“工程1”。 2、菜单栏：菜单栏在第二行，包含一组菜单，菜单中有各种命令，我们应该理解操作计算机就是向计算机提供一系列的指令。 （1）“文件”菜单，要求记住“保存”命令，VB要保存两次，注意保存文件到自己的文件夹中。（本书中双引号当中均是指操作命令） （2）“视图”菜单，显示各个窗口，如果一个窗口找不着了，就到这个菜单中找出来。 （3）“运行”菜单，第一个“启动”命令要记住，可以运行我们的程序。 3、工具栏：第三行是工具栏，工具栏是一些最常用的命令，而且是用图标表示的，因而便于形象记忆和操作，要求记住“启动”按钮。（在视窗操作系统中，我们不仅要会认识文字说明，还要特别留意图标含义。） 4、工作区：工作区占据窗口的绝大部分，从左向右包括工具箱、窗体、和属性窗口。 （1）工具箱：在工作区的左侧，包含许多编程用到的基本对象，被称作“控件”。 （2）窗体：中间的灰色的窗口，是我们设计的程序的基本框架，所有的对象都放在这个窗口当中。 （3）小窗口：在右侧有三个纵向排列的窗口。 ①最上面是工程窗口，上边有三个按钮，中间的按钮是显示对象窗口； ②下面是属性窗口，属性是一个对象的名称、大小、颜色等等； ③最下面是布局窗口，里面显示程序运行时的位置，拖动里面的小框可以改变程序的显示位置。 4、下面修改窗体的属性，在右侧的属性窗口中找到Caption项，在它右边的格子里点一下鼠标左键，然后输入“窗体”两个字，观察一下工作区中的窗体的标题是否已经改变，Caption是设置一个应用程序的窗口标题，再在属性窗口
VB经典案例 1输入3个数，输出最大的数 X=val(text1) y=val(text2) z=val(text3) if x>=y then if x>=z then print x else print z end if else if y>=z then print y end if 2有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 a=val(text1) b=val(text2) c=val(text3) If b*b-4*a*c>=0 then print “有实根” else print “无实根” end if 3输入一个成绩，若大于等于60，则用消息框显示“恭喜！成绩通
过！”，若小于60，则弹出消息框显示“抱歉！成绩没有通过！”N=val (text1) if n>=60 then msgbox”恭喜！成绩通过!” else msgbox “抱歉！成绩没有通过！” end if 4输入一年份，判断它是否为闰年，并显示有关信息(判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除） y=val(text 1) if y mod 4 =0 and y mod 100 = 0 then print “y是闰年” else print y “不是闰年’” end if 5输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。 If mark >=90 then grade= ‘优’ else If mark >=80 then grade =‘良’ else If mark >=70 then grade =‘中’ else If mark >=60 then grade =‘及格’ else grade=”不及格”
1.下列所述不是软件特点的是（A） A.软件是有形的 B.软件不存在磨损和消耗问题 C.软件开发成本高 D.软件没有明显的制作过程 2.软件工程的出现主要是由于（C） A.程序设计方法学的影响 B.其他工程学科的影响 C.软件危机的出现 D.计算机的发展 3.以下（C）不是软件危机的表现形式 A.开发的软件不满足用户的需要 B.开发的软件可维护性差 C.开发的软件价格便宜 D.开发的软件可靠性差 4.软件工程的目的是（C) A.建造大型的软件系统 B.开发的软件可维护性差 C.软泥吉安质量的保证 D.研究软件开发的远离 5.下列所述不是软件组成的是（D） A.程序 B.数据 C.界面 D.文档 6.下列对“计算机软件”描述正确的是（A） A.是计算机系统的组成部分 B.不能作为商品参加交易 C.是在计算机硬件设备生产过程中生产出来的 D.之存在语计算机系统工作时 7.软件工程的方法的产生源于软件危机，下列（D)是产生软件危机的内在原因 A.软件的复杂性 B.软件维护困难C软件成本太高. D.软件质量难保证 8.软件工程方法的提出源于软件危机，其目的应该是最终解决软件的（D）问题 A.软件危机 B.质量保证 C.开发效率 D.生产工程化 9.软件工程学中除重视软件开发的研究外，另以重要组成内容是软件的（A）和过程改进 A.项目管理 B.成本核算 C.人员培训 D.工具开发 10.软件工程设计软件开发技术和项目管理等方面内容，下述内容中（D)不属于开发技术的范畴 A.软件开发方法 B.软件开发工具 C.软件工程环境 D.软件工程经济 二、填空题 1.软件工程的目的是成功的建造大型的软件系统，主要内容是开打软件开发技术、软件项目管理和软件质量管理。 2.螺旋式开发模型主要是针对风险比较大的项目而设计的 3.由于软件产生的复杂性和高成本，使大型软件产生出了很多问题，即出现软件危机，软件工程正是为了克服它而提出的一种概念及相关方法和技术。 4.增量模型假设需求可以分段，成为一系列增量产品，每一增量可以分别开发。 5.喷泉模型比较适合用于面向对象的开发方法。 三、判断题 1.软件开发方法的主要目的是克服软件手工生产带来的问题，使软件开发能进入工程化和规范化的环境（Y） 2.软件工程的提出起源于软件危机，其目的书最终解决软件的生产工程化（Y） 3.软件工程改进也是软件工程的范畴（Y）
VB教程网https://www.doczj.com/doc/9c1797819.html,/VBjc/Vb.HTM
编写趣味撞球小游戏 文章来源：沐风经典文章作者：佚名 Visual Basic是一个功能强大的工具，它有一大特点就是易学易用，下面我们就通过写一个“趣味撞球”的程序来初步体会一下。 首先启动VB5，新建一个标准的EXE工程。此时可以看到，工程包括一个Form1框体。在Form1边框的右下角按住鼠标左键不放，拖动鼠标把Form1的面积改为适当大小，比如6930×4320。再在属性框中把Form1的ScaleMode 属性改为3－Pixel，表明我们将以像素为我们的坐标计算单位，把Form1的StartUpPosition 属性设为2－CenterScreen，使运行时窗体出现在屏幕正中。 现在，在控件面板上选取CommandButton（命令按钮）控件，为Form1添加Command1和Command2两个按钮控件，把它们的大小设为121×25，再在属性框中把Command1的Caption填为“＆GO”，把Command2的Caption填为“＆QUIT”，并把Command1放到框体的右上角，把Command2放到框体的右下角。 然后，在控件面板上选取Timer（时钟）控件，为Form1添加一个Timer1时钟控件。再在属性框中把它的Enabled属性改为False，Interval属性改为50，前一个值表示该时钟控件是否激活，后一个值决定该时钟控件产生Timer事件的间隔时间，我们将用它来控制小球的移动频率。 到此为止，我们已经完成了全部的界面设计工作。接下来要做的全部工作就是填入程序
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()
实验四、选择结构程序设计 实验目的： 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基础教程 第1课…………VB基础 第2课…………标签控件 第3课…………文本框 第4课…………命令按钮 第5课…………图片框 第6课…………复选框 第7课…………单选按钮I 第8课…………单选按钮II 第9课…………定时器 第10课…………音乐播放器 本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途 美丽的校园…… VB程序设计基础 一、程序设计是指为计算机编制一些软件和程序。学习的目的是理解计算机的工作方式和运行的方式。 VB是经典的编程设计语言，也是基础语言之一，简单易学，功能强大，深受广大初学者的喜爱。 VB是运行在Windows视窗操作系统上，设计程序的思想在于在窗口中放置对象和针对对象设计代码。 （一）启动VB：单击“开始”－“程序”－“Microsoft Visual Basic 6.0 中文版”选择“标准EXE”，单击“打开”进入窗口。 （二）VB窗口 1、标题栏：在最上面蓝色标题是“工程1－...”，是我们当前正在设计的程序，被称作“工程1”。 2、菜单栏：菜单栏在第二行，包含一组菜单，菜单中有各种命令，我们应该理解操作计算机就是向计算机提供一系列的指令。 （1）“文件”菜单，要求记住“保存”命令，VB要保存两次，注意保存文件到自己的文件夹中。（本书中双引号当中均是指操作命令） （2）“视图”菜单，显示各个窗口，如果一个窗口找不着了，就到这个菜单中找出来。 （3）“运行”菜单，第一个“启动”命令要记住，可以运行我们的程序。 3、工具栏：第三行是工具栏，工具栏是一些最常用的命令，而且是用图标表示的，因而便于形象记忆和操作，要求记住“启动”按钮。（在视窗操作系统中，我们不仅要会认识文字说明，还要特别留意图标含义。） 4、工作区：工作区占据窗口的绝大部分，从左向右包括工具箱、窗体、和属性窗口。 （1）工具箱：在工作区的左侧，包含许多编程用到的基本对象，被称作“控件”。 （2）窗体：中间的灰色的窗口，是我们设计的程序的基本框架，所有的对象都放在这个窗口当中。 （3）小窗口：在右侧有三个纵向排列的窗口。 ①最上面是工程窗口，上边有三个按钮，中间的按钮是显示对象窗口； ②下面是属性窗口，属性是一个对象的名称、大小、颜色等等；
《VB条件判断结构程序设计》教学案例 职高一计算机王攀【案例背景】 职业高中计算机课程的实施，其课程目标定位于全面提升学生的计算机专业知识，其课程的设置从知识与技能，过程与方法，情感态度与价值观三个方面实施这个课程目标。然而面对学生素质的薄弱，要求教师要结合简单的生活实例，引导学生进行探索式学习，问题从简单的生活实例入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 控制结构是《VisualBasic语言程序设计基础》中最重要的章节之一，本节主要研究最基本的条件判断结构，旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “条件判断结构”是《VisualBasic语言程序设计基础》第七章第一节的内容，共分三课时，本课为第一课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法、这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适
第一章认识VB6 第一节VB简介 一、Visual Basic是什么？ Visual Basic,简称VB，是Microsoft公司推出的一种Windows应用程序开发工具。是当今世界上使用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB都是最快速、最简便的方法。 何谓Visual Basic？“Visual”指的是采用可视化的开发图形用户界面（GUI）的方法，一般不需要编写大量代码去描述界面元素的外观和位置，而只要把需要的控件拖放到屏幕上的相应位置即可；“Basic”指的是BASIC语言，因为VB是在原有的BASIC语言的基础上发展起来的，至今包含了数百条语句、函数及关键词，其中很多和Windows GUI 有直接关系。专业人员可以用Visual Basic 实现其它任何Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。 VB提供了学习版、专业版和企业版，用以满足不同的开发需要。学习版使编程人员很容易地开发Windows和Windows NT的应用程序；专业版为专业编程人员提供了功能完备的开发工具；企业版允许专业人员以小组的形式来创建强健的分布式应用程序。 二、能用Visual Basic 干什么呢？ Visual Basic 所做的很多事情一点也不简单。它是一种强大的语言，即您所能想到的编程任务，它基本都能完成。从设计新型的用户界面到利用其它应用程序的对象；从处理文字图象到使用数据库；从开发个人或小组使用的小工具，到大型企业应用系统，甚至通过Internet 的遍及全球分布式应用程序，都可在Visual Basic 提供的工具中各取所需。 VB是微软公司的一种通用程序设计语言，包含在Microsoft Excel、Microsoft Access 等众多Windows应用软件种的VBA都使用V B语言，以供用户二次开发；目前制作网页使用较多的VBScript脚本语言也是VB的子集。 利用VB的数据访问特性，用户可以对包括Microsoft SQL Server和其他企业数据库在内的大部分数据库格式创建数据库和前端应用程序，以及可调整的服务器端部件。利用ActiveX(TM)技术，VB可使用如Microsoft Word、Microsoft Excel及其他Windows应用程序提供的功能，甚至可直接使用VB专业版和企业版创建的应用程序对象。 三、关于V B语言的前景 在目前各种编程语言共存的时代，VB会不会落伍呢？当然不会了。 从1991年VB诞生之日起到现在已经有七个版本了（最新.NET版）这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手， 对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 我们这些所谓的VB 程序员总算可以放心了，VB不会落后于时代，毕竟它是使用人数
实验报告1略。 实验报告2： 实验题目1：设计窗体。参考界面如下： 运行前运行后 要求： 1）在窗体上添加一个标签，通过属性窗囗设置标签格式： Caption：字体格式Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明） 2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。 提示：字号FontSize、加粗FontBold、下划线FontUnderline 实验题目1源程序代码： Private Sub Command1_Click() Label1.FontSize = 30 End Sub Private Sub Command2_Click() Label1.FontBold = true End Sub Private Sub Command3_Click() Label1.FontUnderline = True End Sub 实验题目2：设计一个计算器。参考界面如下：
要求： 1）实现算术运算（+、-、*、/）的功能； 2）实现清除和结束的功能； 3）实现清除后，将焦点移到第一个文本框中。 实验题目2源程序代码： Private Sub Command1_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Command2_Click() Text3.Text = Val(Text1.Text) - Val(Text2.Text) End Sub Private Sub Command3_Click() Text3.Text = Val(Text1.Text) * Val(Text2.Text) End Sub Private Sub Command4_Click() Text3.Text = Val(Text1.Text) / Val(Text2.Text) End Sub 实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下：
VB 经典案例 1输入3 个数，输出最大的数 X=val(text1) y=val(text2) z=val(text3) if x>=y then if x>=z then print x else print z end if else if y>=z then print y end if 2有一元二次方程：aX2+bX+c=0 ,依次输入a, b, c,判断此方程是否有实根 a=val(text1) b=val(text2) c=val(text3) If b*b-4*a*c>=0 then print 有实根” else print 无实根” end if 3 输入一个成绩,若大于等于60,则用消息框显示“恭喜！成绩通过！”,若小于60,则弹出消息框显示“抱歉！成绩没有通过！” N=val (text1) if n>=60 then msgbox 恭喜”！成绩通过!” else msgbox “抱歉！成绩没有通过！” end if 4 输入一年份,判断它是否为闰年,并显示有关信息(判断闰年的条件是：年份能被 4 整除但不能被100整除,或者能被400整除) y=val(text 1) if y mod 4 =0 and y mod 100 = 0 then print 是闰年” else print y “不是闰年'” end if 5输入学生的百分制成绩，转换输出为五级制成绩，90?100分转换为优秀，80?89转换为 良好，70?79转换为中等，60?69转换为及格，0?60转换为不及格。 If mark >=90 then grade= ‘优' else If mark >=80 then grade = ‘良' else If mark >=70 then grade = ‘中' else If mark >=60 then grade = ‘及格' else grade= 不及”格” 6随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。 n=int(r n d *900+100) dim x%,a%,b%,c% a=x mod 10 b=int((x mod 100)/10) c=int(x/100 ) print x;a*100+b*10+c 7 输入两个整数，求它们的最大公约数。 Function gcd %(by val m%,by val n%) if m