实验报告二
实验目的
（1）掌握分支结构（if、if else、select case）语句
（2）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句
（3）掌握循环嵌套结构
（4）掌握素数算法
（5）能综合运用循环控制结构解决较复杂的问题
实验内容
一、选择结构程序设计
【实验3-1】编写一个“系统登录”程序，对用户输入的账号和密码进行检验。（10分）要求：
①账号不超过6位数，密码为4位字符，本题的密码假设为“majq”。
②账号中不能有非数字字符，可以通过IsNumeric函数对文本框中的输入内容进行测试。
③密码输入时，屏幕上不能显示输入字符，以“*”代替。
④当输入不正确时，显示提示信息。若单击“重试”按钮，则清除原输入内容，焦点定位在原输入的文本框中，重新输入；若单击“取消”按钮，则停止程序的运行。
⑤密码检验运行界面和输入密码错误显示的信息分别如图3-2和图3-3所示。
图3-2 密码检验运行界面图3-3 输入密码错误显示信息掌握简单if语句的使用
实验结果：
【请将你的代码粘贴到下面】
Private Sub Command1_Click()
Dim i As Integer
If text2.T ext = "majq" Then
MsgBox "输入正确"
Else
i = MsgBox("密码错误", 5 + vbExclamation, "输入密码")
If i <> 4 Then
End
Else
text2.T ext = ""
text2.SetFocus
End If
End If
End Sub
Private Sub Command2_Click()
T ext1.T ext = ""
text2.T ext = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
T ext1.T ext = ""
text2.T ext = ""
End Sub
Private Sub T ext1_LostFocus()
If IsNumeric(T ext1) = False Then
MsgBox "账号有非数字字符", vbExclamation, "输入账号" T ext1.T ext = ""
T ext1.SetFocus
End If
End Sub
【请将你的典型结果的截图粘贴到下面】
【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分）
①当收入为200 元以内（含200元）时，免征；
②当收入为200 ~ 400 元（含400元）时，将超过200 元的部分纳税3% ；
③当收入为400 ~ 5000元（不含5000元）时，将超过400 元的部分纳税4% ；
④当收入为5000 元或5000元以上时，将超过400元的部分纳税5% 。
程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示，要求
纳税程序界面
掌握多分支if语句的使用，可自行用select语句改写。
实验结果：
【请将你的代码粘贴到下面】
Private Sub Form_Load()
Dim x As Integer
Dim y As Single
x = Val(InputBox("输入收入"))
If x <= 200 Then
y = 0
ElseIf x <= 400 Then
y = (x - 200) * 0.03
ElseIf x < 5000 Then
y = (x - 400) * 0.04
Else
y = (x - 400) * 0.05
End If
Print "收入为"; x; "应纳税为："; y
End Sub
【请将你的典型结果的截图粘贴到下面】
【实验3-3】猜数游戏
程序自动产生一个[1，100]内的正整数，要用户猜，用户猜的值与被猜值的差距用“*”号个数表示，“*”越少表示差得越远，“*”越多表示相差越近。（用select case语句实现）（10分）
界面设计参见下图:。
猜数游戏界面
掌握select case语句的使用，可自行用if语句改写。
实验结果：
【请将你的代码粘贴到下面】
Dim N As Integer
Private Sub Command1_Click()
Dim d As Integer
d = Abs(Val(T ext1.T ext) - N)
Print N
Select Case d
Case Is = 0
ds = "你猜对了！真聪明！！"
Case 1 T o 2
ds = "* * * * * *"
Case 3 T o 5
ds = "* * * * *"
Case 6 T o 10
ds = "* * * *"
Case 11 T o 20
ds = "* * *"
Case 21 T o 50
ds = "* *"
Case Else
ds = "*"
End Select
MsgBox ds
End Sub
Private Sub Form_Load() Randomize Timer
N = Int(100 * Rnd + 1)
End Sub
【请将你的典型结果的截图粘贴到下面】
二、循环结构程序设计
【实验3-4】求自然数N 的阶乘N！，运行结果如下图所示（10分）
求阶乘界面
掌握for语句的使用方法，可用其它循环语句编写、对比。
实验结果：
【请将你的代码粘贴到下面】
Private Sub Command1_Click()
Dim n As Integer
Dim a As Integer
Dim s As Double
n = Val(T ext1.T ext)
s = 1
For a = 1 T o n
s = s * a
Next a
T ext2.T ext = s
End Sub
【请将你的典型结果的截图粘贴到下面】
【实验3-5】编程实现如图5-2所示的打印效果（10分）
打印菱形界面
掌握多重循环程序设计，可自行扩展称为等边三角形、直角三角形。实验结果：
【请将你的代码粘贴到下面】
Private Sub Command1_Click()
Dim n As Integer
Dim a As Integer
Dim b As Integer
n = InputBox("输入图案偶数行")
For a = 1 T o n / 2
For b = 1 T o 2 * a - 1
Print T ab(40 - a + b); "*";
Next b
Next a
For a = n / 2 T o 1 Step -1
For b = 1 T o 2 * a - 1
Print T ab(40 - a + b); "*";
Next b
Next a
End Sub
【请将你的典型结果的截图粘贴到下面】
【实验3-6】素数问题：计算小于1000且最靠近1000的10个素数之和。（10分）掌握素数算法，可用其它循环语句编写、对比。
实验结果：
【请将你的代码粘贴到下面】
Private Sub Form_Click()
Dim a As Integer, b As Integer, nums As Integer, total As Integer Dim flag As Boolean
a = 1000
Print "这10个素数分别是："
While nums < 10
flag = True
For b = 2 T o Sqr(a)
If a Mod b = 0 Then
flag = False
Exit For
End If
Next b
If flag = True Then
nums = nums + 1
total = total + a
Print a;
End If
a = a - 1
Wend
Print "这10个素数的总和" & total
End Sub
【请将你的典型结果的截图粘贴到下面】
三、常见程序设计
【实验3-7】编写一个简易计算器编写程序计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+…当第i项的值<10-5时计算结束结束。（10分）
掌握Do…loop语句的使用
实验结果：
【请将你的代码粘贴到下面】
Private Sub Command1_Click()
Dim i As Long
Dim a As Double
Dim s As Double
Dim stp As Integer
stp = 1
i = 1
Do While True
If 1 / i < 10 ^ -5 Then Exit Do
a = 1 / i
s = s + a
i = i + stp
stp = stp + 1
Loop
Print s
End Sub
【请将你的典型结果的截图粘贴到下面】
【实验3-8】将200~300之间的素数输出到列表框中。（10分）
掌握素数算法
实验结果：
【请将你的代码粘贴到下面】
Private Sub command1_Click()
For x = 200 T o 300
t = 2
Do Until x Mod t = 0
t = t + 1
Loop
If x = t Then List1.AddItem x
Next x
End Sub
【请将你的典型结果的截图粘贴到下面】
【实验3-9】编写程序，在窗体上输出上三角形式的九九乘法表。（10分）
掌握多重For循环程序设计
实验结果：
【请将你的代码粘贴到下面】
Private Sub Form_Click()
For i = 1 T o 9
For j = 1 T o i
Print j; "*"; i; "="; i * j;
Next j
Next i
End Sub【请将你的典型结果的截图粘贴到下面】
【实验3-10】任意输入一个或者多个英文句子，统计这些句子中的单词数量。（10分）
根据实际问题，找出解决方案，结合循环和分支结构语句，解决问题。
提示：有很多种方法可以解决这个问题，注意特殊情况。
实验结果：
【请将你的代码粘贴到下面】
Private Sub Command1_Click()
Dim x As Integer, c As String, n As Integer
Dim f As Boolean
For x = 1 T o Len(T ext1.T ext)
c = UCase(Mid(T ext1.T ext, x, 1))
If c >= "A" And c <= "z" Then
f = True
Else
If f = True Then n = n + 1
f = False
End If
Next x
T ext2.T ext = n
End Sub
【请将你的典型结果的截图粘贴到下面】
实验小结
1.遇到的问题：
一些代码功能不能全部知道，在书写代码的过程中会感觉比较模糊。还有代码的格式还需要更多的练习。
2.对课程的建议：
老师应该多让我们实践一下还有就是在课堂上多举例。我们在下学期会考VB，希望老师能多给我们一些应试方面的教育。
VB实验报告 实验一、VB控制结构 [实验目的] 1.掌握选择语句的使用 2.掌握循环语句的使用 [实验内容] 一、VB编程基础 练习：在应用程序的代码窗口中分别输入以下四段代码，当程序运行 时在窗体上单击，分别会发生什么情况，为什么？ ①Private Sub Form_Click() I = 10 Print I End Sub ②Private Sub Form_Click() Dim I% I = 10 Print I End Sub ③Option Explicit Private Sub Form_Click() I = 10 Print I End Sub ④Option Explicit Private Sub Form_Click() Dim I% I = 10 Print I
End Sub 第一个程序运行的结果是： 点击一次窗体便会出现一个“10” 第二个程序的运行结果是： 也是点击一次窗体出现一个“10” 第三个程序运行的结果是：无法运行，显示变量未定义第四个程序运行的结果是：
在应用程序的代码窗口中分别输入以下两段代码，当程序运行时在窗体上反复单击，分别会发生什么情况，为什么？ Private Sub Form_Click() Dim n As Integer n = n + 1 Print n End Sub Private Sub Form_Click() Static n As Integer n = n + 1 Print n End Sub 第一个程序运行结果是： 第二个程序运行的结果是：
二、选择语句 程序1：创建应用程序。要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。 Private Sub Text1_Change() Dim X1 As Single, X2 As Single, X3 As Single, Temp As Single '定义x1,x2,x3,temp X1 = CSng(InputBox("请输入第1个数：", "输入数据")) '弹出请求输入数据x1的文本框 X2 = CSng(InputBox("请输入第2个数：", "输入数据")) '弹出请求输入数据x2的文本框 X3 = CSng(InputBox("请输入第3个数：", "输入数据")) '弹出请求输入数据x3的文本框 If X1 > X2 Then Temp = X1: X1 = X2: X2 = Temp '比较x1,x2,若x1大于x2将两值交换 End If If X1 > X3 Then Temp = X1: X1 = X3: X3 = Temp '比较x1,x3,若x1大于x3将两值交换 End If If X2 > X3 Then Temp = X3: X3 = X2: X2 = Temp '比较x2,x3,若x2大于x3将两值交换 End If Print: Print Print "输出结果：" ’在屏幕上输出“输出结果：” Print Print x1,x2,x3 ’在屏幕上输出x1,x2,x3 End Sub
台州学院 《VB程序设计》实验报告实验八：图形的绘制 班级：14制药3班 学号： 姓名： 实验日期：2015.6.5
一、实验目的和要求 1．掌握Visual Basic 容器坐标系的设计方法； 2．熟练掌握Pset、Line和Circle方法的格式及其使用； 3．掌握与图形有关的常用属性，方法。 二、实验主要仪器和设备 计算机一台，Windows XP / Win7操作系统，Visual Basic环境。 三、实验内容 实验8.1 下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中将显示各公司销售额的圆饼图（如图8-1所示）。要求：在文本框中只能输入数字字符；在圆饼图中分别用红、绿、篮色显示A、B、C公司的扇区填充色。 图8-1 程序运行时的界面 四、实验原始纪录 实验8.1 程序的界面设计。
程序代码。 Const pi = 3.1415926 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer a = Text1.Text b = Text2.Text c = Text3.Text d = a + b + c Picture1.FillStyle = 0 Picture1.FillColor = vbRed Picture1.Circle (2000, 2000), 1000, vbBlack, -2 * pi, -(a / d) * pi * 2 Picture1.FillColor = vbGreen Picture1.Circle (2000, 2000), 1000, vbBlack, -(a / d) * pi * 2, -((a + b) / d) * pi * 2 Picture1.FillColor = vbBlue Picture1.Circle (2000, 2000), 1000, vbBlack, -((a + b) / d) * pi * 2, -pi * 2 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub 五、实验结果及分析 实验8.1运行结果。
三一文库（https://www.doczj.com/doc/171291936.html,）/心得体会范文/心得体会数据库VB课程设计心得体会 数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇*，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹 并期望与大家共勉。 首先，让我的记忆追溯到大二暑假，在老大的指引下（老大劝我学https://www.doczj.com/doc/171291936.html,），我接触到microsoft公司的.net产品。那个时候我已经学过vc和asp，因为windows程序设计实验的课的关系，接触过vb，但是没有专门去学他，因为习惯了c++里面的class，int，觉得vb的sub，var看着就不是很顺心。我是一个好奇心很强的人，突然看到了一个号称“.net是用于创建下一代应用程序的理想而又现实的开发工具”，而且主推c#语言，由于对c语言的一贯好感，我几乎是立刻对他产生了兴趣。我就开始了对c#的学习，任何语言都不是孤立存在的，所以数据交互是很重要的，暑假的时候我把我们这学期的课本数据库系统概论看了一遍。我记得以前用c语言编程的时候，数据是在内存中申请空间，譬如
使用数组等等。很耗费内存空间。这个时候就是数据库站出来的时候啦，于是我又装上了sqlserverxx，以前学asp的时候用的是access，那个时候只是照着人家做，理论是什么也不是很清楚。 通过一个暑假的学习，基本搞清楚了理论方面的东西，具体怎么用也不是很清楚。但是这为这学期的课程设计打下了铺垫。 来到学校后，随着这学期的数据库课程大赛开始了，我有一个看法就是我自己应该具备的能力不是我会多少，而是我应该具备快速学会东西的能力。遇到什么就学什么。我们有时候很容易被一些专业名词说吓着，包括什么建模，软件工程，数据分析，数据挖掘等等。我身边就有很多同学被这些纸老虎所唬住，而没有勇气去接触他们，总是说这个太难了之类的退堂鼓的话，他们低估了自己的潜力同时也压抑住了他们自己的好奇心。其实都是纸老虎，又不是什么国家科研难题，只是去用一些工具，发明工具是很难，但是用一个工具就容易多了，justdoit！我记得我做这个数据库之前，我们老师说要做好前期分析，我就在网上搜索用什么分析工具好。最后我选择了roseuml建模工具。在此之前，我脑袋里面没有软件建模的思想，什么uml建模对我而言就是一张空白的纸。但是真正接触后并没有想象的那么难，有什么不懂的上网去搜索，这是一个信息横流的世界，有google，baidu就没有不能解决的知识难题。以及后来的数据库分析的时候用到的powerdesigner也是一样。
VB语言程序设计课程设计报告 系 (部) 专业班级 学生姓名 学号/序号 指导教师 完成时间
图书管理系统 一、功能描述 使用VB6.0中各种控件的常用属性和事件、数组的各种操作以及数据库的相关操作（数据库的建立、编辑、查找、删除等），建立了这个简易的图书管理系统，方便图书管理人员对图书的管理。用户可以通过此系统的添加、删除，还回，借出等功能对书籍信息、书籍流通进行编辑同时也可以通过直接输入想要查询的书籍信息来获得书籍的流通及库存等相关信息。 二、概要设计 1、系统功能模块框图设计 首先程序运行，出现一个MDI主窗体，里面分别有登录，书籍信息管理系统，退出三个菜单选项，登录前，管理按钮不可用，当正确输入用户名以及密码以后，点管理按钮，图书管理窗体显示，用户可对图书信息进行管理。 2、数据库设计 创建一个数据库为mydb.mdb，该数据库共包含3张表，分别为“书籍信息表”、“图书归还表”和“图书借出表”，表结构如下：
书籍信息表：图书编号、图书名、作者、出版社、数量、出版日期、价格 图1. 书籍信息表 图书归还表：图书编号、图书名、作者、出版社、数量、图书是否损坏、借出日期、归还日期； 图2. 图书归还表 图书借出表：图书编号、图书名、作者、出版社、借出数量、借出时间、联系电话、借出期限、借出者姓名。 图3. 图书借出表
三、详细设计 1、MDI主界面 用户登录模块中登录与取消两按钮，单击登录会进入系统进行下一步的操作，用户名文本框与数据库相连接，当在用户名文本框输入用户名后点击登录按钮后，会在数据库中进行查询看数据库中是否会有该用户名，且该用户名的密码是否与密码框中输入的相同，如果相同会进入系统，如果不存在该用户名或密码与用户名不相匹配，则会提示“密码错误”，用户名文本框会得到焦点，让重新输入。 （1）窗体截图（如图5.1） 图1 MDI主界面
实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____
实验一 VB环境和创建一个简单的VB程序 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。 二．实验内容： 1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图所示。 图实验1-1 运行界面 三．实验结果：对象属性设置 对象属性属性值说明 caption我的第一个vb程序窗体Form1 caption请输入姓名标签Label1 text““文本框Text1 caption显示命令按钮Command1 caption清除命令按钮Command2 四．实验思考： 1.标签label控件设置的属性代码有哪些 =“请输入姓名” =24 =True 2.两个按钮所使用的是什么事件代码分别是什么 Private Sub Command1_Click() =“姓名”
实验二简单程序设计数据类型及常用内部函数的简单应用 一．实验目的： 1．掌握Visual Basic数据类型的基本概念。 2．掌握用Visual Basic的各种运算符及表达式。 3．学习使用Visual Basic内部函数和数据输入、输出方法。 4．掌握命令按钮、文本框和标签。 5．设计顺序程序。 二．实验内容： 1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。转换公式是：C= 5 / 9(F - 32)。F为华氏温度，C为摄氏温度。 2.用三种除法运算（/ 、\、Mod）做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。 图2-1 图2-2 三．实验结果：对象属性设置 1.温度转换 对象属性属性值说明 Form1Caption Inputbox与msgbox窗体
学生成绩处理设计报告 一、设计思路 1.要达到的目的 学习VB程序设计的方法，充分体会VB在程序设计方面的强大功能和特点，培养运用VB解决实际问题的能力。通过本次课程设计，使学生进一步巩固课堂上学到的知识，能利用VB中的基本控件和数组编写一个小的应用软件—学生成绩处理。 2.关键问题的解决 ①设计程序界面 ②选取ProgressBar 控件 ③添加TXT文件 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 Dim data(100, 3) As String Dim num As Integer Private Sub Command1_Click(Index As Integer) Close #1 Select Case Index Case 0 Open "d:\成绩.txt" For Append As #1 Dim flag As Boolean For i = 0 To 3 If Text1(i) = "" Then MsgBox "请确认学号,姓名,分数都已输入", vbOKOnly, "提示" flag = True
Next If Not flag Then Write #1, Text1(0).Text; Text1(1).Text; Val(Text1(2).Text); Val(Text1(3).Text) MsgBox "添加成功" End If Case 1 Picture1.Cls Dim StrLine As String, a() As String Dim x As Integer, b As Integer Open "D:\成绩.txt" For Input As #1 i = 0 Do While Not EOF(1) Line Input #1, StrLine If StrLine <> "" Then a() = Split(StrLine, ",") For j = 0 To 3 data(i, j) = a(j) Next End If i = i + 1 Loop num = i For x = 0 To num For j = 0 To 3 Picture1.Print data(x, j) + " "; Next Picture1.Print Next Case 2 Picture2.Cls Open "d:\成绩.txt" For Input As #1 While Not EOF(1) Line Input #1, StrLine ss = ss + StrLine + vbCrLf Wend Picture2.Print ss End Select Close #1 End Sub Private Sub Form_Load() Open "D:\成绩.txt" For Append As #1
成绩南京工程学院课程设计报告（论文） 题目排序演示 课程名称程序设计基础---VB 院（系、部、中心）先进制造技术工程中心 专业机械制造及其自动化 班级D机加工091 学生姓名钱丽 学号231090406 设计地点图书馆A307 指导教师黄陈蓉 设计起止时间： 2011 年 1月4 日至 2011 年 1月 6日
目录 一、设计任务 (3) 二、总体设计思路 (4) 三、画出程序总体框图 (4) 四、系统的调试 (6) 五、收获体会 (8) 六、源代码 (9) 七、主要参考资料 (23)
一、设计任务 （1）程序启动后，显示主界面。首先单击“产生10个随机数”按钮来产生10个随机数，并显示在10个文本框中；然后选择一种“演示模式”和“排序方式”，其中演示模式可以直接给出排序结果，也可以通过动画动态演示整个排序过程，排序方式可以按从小到大顺序，也可以按从大到小顺序排序。 （2）在主窗口的空白区单击鼠标右键，弹出快捷菜单。从中选择“排序算法”命令，打开对话框，从中选择一种排序方式，单击不同排序方式时，“算法描述”中简要介绍了这种算法。单击“确定”按钮返回到主窗口，主窗口中最上方框架控件的标题文字显示当前所选的排序算法。 （3）设置完毕，单击“开始排序”按钮（此按钮在生成数据之前是不可用的），启动排序过程。若选择了动画方式，红色背景的文本框表示当前正在比较的元素，黄色的代表已排序的元素，2个运动的文本框表示交换过程。在排序过程中可以调节水平滚动条的位置来控制演示过程的速度。排序结束后程序以消息框的形式报告数据交换的次数。可以使用快捷菜单中的“将数据写入文件”命令将排序后的数据保存到“data.txt”中覆盖原有内容。 （4）选择窗口主菜单中的“颜色设置”命令，主窗口扩大，底部显示“颜色设置”框架，可以对“文本背景色”、“文本前景色”、“已排序元素色”和“交换结点色”进行设置。再选择此命令，窗口恢复到原来的大小。（5）选择主菜单中的“退出”命令可退出本程序，程序显示消息对话
山西财经大学《程序设计（VB+Acces）》实验报告 ＊＊＊＊年＊月＊＊日实验题目1选择结构程序设计 选课课号2015-2016-2-N081002S00-08034- 学院 ＊＊＊＊＊ 学院 班 级 ＊＊＊＊＊＊＊ 姓名＊＊＊ 学 号 ＊＊＊＊＊＊＊＊＊ 理论课教师李平珍 上机指 导教师 李平珍 实验目的及要求： 1．掌握条件表达式和分支语句 2．正确使用If．．．Then．．．Else和If．．．Then．．．ElseIf等语句3．使用选择性控件实现程序应用 编写以下程序段： 求一元二次方程ax2+bx+c=0的根 设计一个四则运算计算器 实验的详细操作步骤、程序代码及运行截图： 一． Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim R1 As Single, R2 As Single A = Val B = Val
If B ^ 2 - 4 * A * C < 0 Then MsgBox "该方程无解." ElseIf B ^ 2 - 4 * A * C = 0 Then R1 = -B / 2 / A MsgBox "该方程仅有一个根为" & R1 & "." Else R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A) R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A) MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "." End If End Sub 二． Private Sub cmdCal-Click() Dim x1 As Single,sign As String,x2 As Single X1=Val(txtA):sign=txtB:x2=Val(txtC)
沈阳航空航天大学 课程设计任务书 学院：机电工程学院专业：机械设计制造及其自动化班级：94060106 学号：2009040601204 题目：简单的汽车站售票系统 一、课程设计时间 2011年3月14日~20日（第二周），共计一周。 二、课程设计内容 假设每天“沈阳→植物园”有4个班次的汽车，具体的数据如下： 班次发车时间载客量已售票数 1 06:40 50 0 2 09:30 40 0 3 13:00 40 0 4 16:00 40 0 数据保存在文本文件或Access数据库中，请你为售票员开发一个程序，实现每天的“沈阳→植物园”的售票、退票等业务。要求：售票时按旅客要求选择班次，如果某个班次已过了发车时间，则该班次今天不再售票，如果某个班次的票已售完，则也不能再售票。 用户界面中的菜单至少应包括“售票”、“退票”、“显示当前售票情况”、“退出”4项。 三、课程设计要求 程序质量： ?贯彻事件驱动的程序设计思想。 ?用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 ?代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： ?课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语
目录 需求分析 (4) 设计分析 (4) 技术要点 (6) 主要界面截图 (7) 总结 (9) 完整的源程序 (10) 参考文献 (15)
需求分析 介于乘客买票十分麻烦，需要开发一套自动的售票系统，实现乘客自主的买票，退票，查询，为乘客创造方便。 设计分析 （1）概述： 本次设计涉及到数据库系统，SQL查询语言，ADO数据控件技术，实现了用户买票，退票，售票查询等功能，并且在售票界面，根据时间判断车次是否已经发车，且在查询系统中可以显示售票情况。 （2）总体设计： 汽车站售票系统应该有一个主界面，在主界面下，应该有售票界面，退票界面和查询界面。 （3）详细设计：
本科实验报告 课程名称：人机界面程序设计基础 实验项目：一、VB环境和可视化编程基础实验地点： 专业班级：学号： 学生姓名： 指导教师：李何 年月日
一、实验目的和要求 1、掌握启动与退出Visual Basic的方法。 2、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。 3、掌握定义变量、常量的方法；了解运算符和表达式的使用；熟悉内部函数。 4、掌握基本控件的应用。 二、实验内容和原理 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。 2、使用Print方法，掌握“，”和“；”的区别；以及Spc（n）函数、Tab(n)函数、属性Current X和Current Y的定位输出。 3、编写一程序，在标签上实时显示系统时间，系统时间要求00:00:00AM/PM格式 提示：使用Timer控件、Format函数和Now函数。 4、对教材上例4-13进行改动，用输入框函数完成输入，用消息框函数显示结果。 5、使用Len()函数、LenB()函数、Rnd函数和Randomize语句、Shell函数，并对运行结果进行分析。 三、主要仪器设备 计算机
四、实验步骤 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。 打开VB软件，建立标准exe，在窗体设计器中添加Command1，更名为“按钮” 添加text1，删掉名称。 双击按钮，编写程序如图
大学学生实验报告 开课学院及实验室：地理科学学院2014年4月1日
表A_1 对象属性设置 控件名属性 Form1 Caption=”实验A_1” Label1 Caption=”欢迎学习VisualBasic”;Font属性:字号为二号,字体为隶书 Label2 Caption=”请输入你的”Font属性:字体为楷体,有下划线 Text1 Text1=”” Command1 Caption=”” Label3 Caption=””,BorderStyle=1 ④窗体界面设计如图1： 图1 实验A_1窗体界面设计 ⑤代码设计如图2： 图2实验A_1代码设计 （3）实验结果
①运行结果如图3： 图3实验A_1运行结果 ②保存文件如图4： 图4实验A_1文件保存 A_2 （1）实验容：模仿教材例1.1，将事件过程自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。各控件及属性窗口的设置参见表格A.2，背景图形文件可以选择自己喜欢的，按钮上的图标通过Windows 搜索功能查找。以Sy1-2为项目名保存。 （2）实验步骤： ①创建一个“标准EXE”工程； ②在窗体上添加标签Label1、命令按钮Command1和Command2及Timer1； ③设置对象属性；
表A_2 对象属性设置 控件名属性 Form1 Caption=”实验A_2”;Picture:为你喜欢的图片 Label1 Caption=”我开始学习程序设计”;Fontsize=36 Command1 Caption=””;Style=1;Piciture=”clock02.ico”;ToolTipText=” 自动” Command2 Caption=””;Style=1;Piciture=”key04.ico”;ToolTipText=” 手动” Timer1 Internal=0 ④窗体界面设计如图5： 图5 实验A_2窗体界面设计 ⑤代码设计如图6：
V B程序设计课程设计 报告 HEN system office room 【HEN16H-HENS2AHENS8Q8-HENH1688】
《VB程序设计》 课程设计报告（2016 — 2017 学年第 1 学期） 题目：排序演示 学院：经济与管理学院 班级：物流管理1502 学号： 姓名： 指导教师：阮冰 时间：起 2017年1月3日止 1月6日
一、课程设计基本信息 课程代码：05190124 课程名称：计算机基础课程设计 课程英文名称: Computer-based Course Design 课程所属单位（院（系）、教研室）：数学与计算机学院计算机基础课程群 课程面向专业：生物科学类、制药工程、制药工程(生物制药)、药物制 剂、物流管理 课程类型：必修课 先修课程：大学计算机基础通识选修课程、Visual Basic程序设计课程学分：1 总学时：16 二、课程设计目标 掌握所学语言程序设计的方法，熟悉所学语言的开发环境及调试过程，熟悉所学语言中的数据类型，数据结构、语句结构、运算方法，巩固和加深对理论课中知识的理解，提高学生对所学知识的综合运用能力。通过综合设计要求达到下列基本技能： 1．培养查阅参考资料、手册的自学能力，通过独立思考深入钻研问题，学会自己分析、解决问题。 2．通过对所选题目方案分析比较，确立方案，编制与调试程序，初步掌握程序设计的方法，能熟练调试程序。 3．系统设计编程简练，可用，功能全面，并有一定的容错能力。用户界面良好，有较好的输出功能。在完成课题基本要求后，具有创新型设计，具有一定的实用价值。 4．根据个人的设计调试过程，撰写设计报告。 三、课程设计内容 利用已掌握的VB程序设计语言基础，以及面向对象的程序设计方法、事件驱动的编程方式，进行应用程序和系统的开发设计。在强化巩固已有编程知识基础之上，训练新的设计与编程思路，通过综合应用所学知识设计、编制、调试实用的Visual Basic程序。 四、课程设计要求 1.要求每个同学都要认真对待，积极参与。 2.课程设计结束时，提交完成的所有源程序、相关文件和可执行文件。同 时填写并完成《课程设计报告册》。 3.不符合要求的程序、设计报告、抄袭的设计报告或源程序代码、在设计 中完全未参与的将作不及格处理。 五、考核方式
vb课程设计心得体会范文 vb课程设计心得体会范文 vb课程设计心得体会范文1 经过近一个月的设计与制作，我们组的《20xx世界杯观战指南》终于完成了，现将过程中遇到的问题、获得的体会记录如下。 这次数据库课程设计中我主要负责用户登录、注册及数据库维护方面的设计。 1.Delphi是一款功能很强大的软件，其控件之多超出了我的想象，因此在运用时要借助很多资料。要学会查找和利用现有资料来解决问题 2.在设计中用到了很多SQL语句，因此对SQL及程序语句地掌握也是必不可少的。 3.后期的软件制作都是以前期的工作为基础的，因此在前期的需求分析及数据库设计阶段要认真、细致。 4.我们是三个人的小组，在设计过程要互相协调，合作。这样才能充分发挥每个人的作用。 vb课程设计心得体会范文2 首先了解到VB的特点，VB是在原来的Basic语言基础上发展而来的。Visual指的是可视的图形用户界面开发方法。不需编写大量代码去描述界面元素的外观和位置，只要把预先建立的对象添加到屏
幕上的某点即可。如果使用者诸多PAINT之类的绘图程序，则实际上已经掌握了创建用户界面的必要技巧。 BASIC指的是B语言，一种在计算机技术发展历史上应用得最为广泛的语言之一。VB在原来BASIC语言的基础上进一步发展至今包含了数百条语句，函数及关键词，其中很多和WINDOWS GUI有直接关系，VB不仅是可视语言，而且是面向对象的编程语言。其特点是概念多，实践性强，涉及面广。 之后，了解到一些基本的概念，含义。例如类，就是创建对象实例的模板包含了创建的属性描述和行为特征的定义。而此中的对象又是类的一个实例，继承了类的属性，方法，而VB中长用的对象有窗体，控件等。但我们在建立之前必须清楚对象的三要素:属性，方法和事件。而建立程序的步骤大致可分为: (1)启动程序，装载和显示窗体。 (2)窗体等待事件的发生。 (3)事件发生时，执行对应的事件发生过程。 (4)再重复(2)(3)的过程(5)最后直接遇到“END”结束语句结束程序的运行或按“结束”强行停止程序的运行。 再用VB创建一个应用程序，第一步骤是创建窗体，它是用户与应用程序进行交互操作的可视部分，窗体是创建界面的基本构造模块，也是创建应用程序所使用的对象。而后必要设置窗体的属性，从而构出窗体的外观，设置好的窗体，窗体就作为对象，能够对其定义的事件作出响应，这也是所谓的窗体事件，而窗体事件又包括窗体本
VB实验报告(含答案)
实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____
实验一 VB环境和创建一个简单的VB程序 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般 功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用 程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、 事件和方法。 二．实验内容： 1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
实验二简单程序设计数据类型及常用内部函数的简单应用 一．实验目的： 1．掌握Visual Basic数据类型的基本概念。 2．掌握用Visual Basic的各种运算符及表达式。 3．学习使用Visual Basic内部函数和数据输入、输出方法。 4．掌握命令按钮、文本框和标签。 5．设计顺序程序。 二．实验内容： 1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏 温度，用msgbox输出转换后的摄氏温度。转换 公式是：C= 5 / 9(F - 32)。F为华氏温度，C 为摄氏温度。 2.用三种除法运算（/ 、\、Mod）做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。
通过几周对ＶＢ的学习，使我增加了对ＶＢ课程的了解． 首先了解到ＶＢ的特点，ＶＢ是在原来的Ｂasic语言基础上发展而来的．Ｖisual指的是可视的图形用户界面开发方法.不需编写大量代码去描述界面元素的外观和位置,只要把预先建立的对象添加到屏幕上的某点即可.如果使用者诸多PAINT之类的绘图程序,则实际上已经掌握了创建用户界面的必要技巧.BASIC指的是B语言,一种在计算机技术发展历史上应用得最为广泛的语言之一.VB在原来BASIC语言的基础上进一步发展至今包含了数百条语句,函数及关键词,其中很多和WINDOWS GUI有直接关系,VB不仅是可视语言,而且是面向对象的编程语言.其特点是概念多,实践性强,涉及面广. 之后,了解到一些基本的概念,含义.例如类,就是创建对象实例的模板包含了创建的属性描述和行为特征的定义.而此中的对象又是类的一个实例,继承了类的属性,方法,而VB中长用的对象有窗体,控件等.但我们在建立之前必须清楚对象的三要素:属性,方法和事件.而建立程序的步骤大致可分为:(1)启动程序,装载和显示窗体.(2)窗体等待事件的发生.(3)事件发生时,执行对应的事件发生过程.(4)再重复(2)(3)的过程(5)最后直接遇到"END"结束语句结束程序的运行或按"结束"强行停止程序的运行. 再用VB创建一个应用程序,第一步骤是创建窗体,它是用户与应用程序进行交互操作的可视部分,窗体是创建界面的基本构造模块,也是创建应用程序所使用的对象.而后必要设置窗体的属性,从而构出窗体的外观,设置好的窗体,窗体就作为对象,能够对其定义的事件作出响应,这也是所谓的窗体事件,而窗体事件又包括窗体本身事件,键盘事件和鼠标事件.在了解窗体基本知识就还应了解VB的语言基础,其中包括了代码模块(窗体模块,标准模块,类模块),注释,分行和续行,数据类节(字节型,逻辑型,数值型,日期型),变量与常数,运算符与表达式,数组,控制结构,子过程和函数.同时,为了编程,我们还应培养良好的编程习惯,首先是对象,变量及过程的命名约定,然结构化编码约定. 在VB中创建应用程序之际也就是和对象打交道之时,对象是代码和数据的组合,可以作为一个单位来处理,对象可以是应用程序的一部分,比如可以是控件,窗体,或数据访问对象.控件也是对象中的一种,主要用来获取用户的输入信息和显示输出信息.应用程序中可用的控件包括文本框,命令按扭和列表框.而通过另外一些控件可以访问其他应用程序并处理数据. VB程序设计同时可设计出一个更好的菜单系统,这样就可以使用户了解到更大量有关应用程序设计和结构的信息,精心规划菜单与工具栏有助于提高应用程序的可用性.同时在基于WINDOWS的应用程序中,对话框被用来提示应用程序继续运行所需的数据或者用户显示信息.对话框是一种特殊类型的窗体对象,在VB中按对话框的创建有三种类型的对话框,他们是
课程编号：B080103140 https://www.doczj.com/doc/171291936.html,程序设计 实验报告 东北大学软件学院
1.实验目的 （1）练习https://www.doczj.com/doc/171291936.html,的控件的综合运用。熟悉https://www.doczj.com/doc/171291936.html,的集成开发环境，掌握https://www.doczj.com/doc/171291936.html, 编程技巧和开发过程。 （2）训练学生对https://www.doczj.com/doc/171291936.html,的基本语句、控件、文件等的综合运用。 2.实验内容 （1）https://www.doczj.com/doc/171291936.html,控件综合应用。 （2）https://www.doczj.com/doc/171291936.html,文件操作——具体的名称（需要替换并变为黑色）。 3.程序中使用的控件及其命名 把程序中用到的控件类型及对应的名称以表格的形式给出，表格的行数可以根据需要进行扩充。 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。 注意说明文字需要删除，不能保留在文档中。 （1）实验1的控件及命名 （2）实验2的控件及命名 4.系统实现与调试 把主要实现的功能用语言进行描述，并给出调试时的截图（主要是功能验证的截图，在结算时，是否能正确的找零等） 如果包含图片，图片要居中，而且图片的高度不能超过页面高度的1/3。 （1）实验1的系统实现与调试 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。 注意说明文字需要删除，不能保留在文档中。
（2）实验2的系统实现与调试 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。注意说明文字需要删除，不能保留在文档中。 5.创新点及存在问题 列举出主要的创新点和存在的问题。正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。注意说明文字需要删除，不能保留在文档中。 6.实验总结 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。注意说明文字需要删除，不能保留在文档中。
福建农林大学计算机与信息学院(计算机公共基础二级课程) 实验报告 课程名称：Visual Basic 程序设计 姓名：邹丽平 学院: 食品科学学院 专业：食品科学与工程 年级：2010级 学号：102258016001 指导老师：黄红兵 职称：讲师 2012 年5 月20 日
实验项目列表
福建农林大学计算机与信息学院实验报告 学院：食品科学学院专业：食品科学与工程年级： 2010级 姓名：邹丽平学号： 102258016001 实验室号__宝玲楼304___计算机号 01 实验时间： 2012.3.5 指导教师签字：黄红兵成绩： 报告退发（订正、重做） 实验一 VB环境和简单应用程序设计 一、实验目的和要求 1.了解Visual Basic系统对计算机软件、硬件的要求。 2.掌握启动与退出Visual Basic的方法。 3.熟悉visual basic的集成开发环境（IDE）。 4.掌握建立、编辑、运行和保存一个简单visual basic应用程序的全过程。 5.了解基本控件（窗体、标签、文本框、命令按钮）的简单应用。 二、实验内容 1.启动Visual Basic 6.0，熟悉其集成开发环境。 2.按图1-1在标题为“第一个应用程序”的窗体Form1上画两个标题分别为“欢迎您使用Visual Basic”和“请输入您的姓名”的标签（ Label1和Label2），Label1的字体为隶书，并且其能根据文本大小自动调整尺寸，Label2的字型为倾斜；然后再设计一个初始文本为空的文本框Text1. 图1-1 运行界面 3.按图1-2在标题为“命令按钮设置”的窗体Form1上画三个标题分别为“禁止用C3”、“允许用C3”和“C3”的命令按钮（C1、C2和C3）。运行时，如果单击“禁止用C3”按钮，则C3按钮无效（如图10-2所示）；如果单击“允许用C3”按钮，则C3按钮有效。 图1-2 运行界面 4.按图1-3在标题为“文本复制”的窗体Form1上画两个文本框（Text1和
基于ＶＢ６.０饭店点菜系统设计 单位分院(系) 专业 学号 学生姓名 指导教师 完成日期 2011年 8 月 31日
摘要 进行点菜是饭店为顾客服务的重要环节之一。传统的点菜环节由于是手工操作，工作量大且容易出错。随着计算机和网络技术的迅速发展，越来越多的饭店、酒店都拥有自己的点菜系统，制作一个方便、快捷的点菜系统能使点菜环节显得更加美观且便于操作。 饭店点菜系统技术基础是VB6.0，它有许多优点，例如：“编写一次、随处运行”的特性、方便存取数据的数据库, 使用者只需在窗体上进行操作而不用关心程序代码等等。饭店点菜系统提供给顾客一个用来满足高可用性、高可靠性以及可扩展性的应用需求的软件，给饭店点菜提供了良好的机制、使饭店的工作流程更加顺利。 本文基于VB6.0，采用多窗体结构,设计并实现了顾客在饭店消费时的点菜、结账、抽奖、留言及工作人员管理等多项功能。 本文首先介绍了软件设计涉及的相关技术，围绕VB6.0的相关技术进行软件的解释。其次，介绍了饭店点菜系统的总体分析与设计，包括需求分析、功能模块分析和数据库设计。最后，对于主要功能进行了实现，并作了详细描述，主要采用图片与代码结合的方式详细地叙述了系统功能的实现。 关键词：文件、数据库、控件使用、图片载入
目录 1.选题的意义................................................... 2.系统功能分析。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 2.1系统概述。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 2.2系统的组成及各模块的功能 ........................................... 2 .3系统运行环境。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。3．系统设计 ................................................... 3.1总体结构设计....................................................... 3.2数据库设计......................................................... 4．系统实现 ................................................... 4.1点菜系统的设计与实现 ............................................... 4.2管理系统模块的设计与实现 ........................................... 5．总结....................................................... 5.1总结................................................................ 5.2致谢词 ............................................................. 5.3存在的主要问题...................................................... 参考文献......................................................