Visual Basic实验指导
前言
本课程共安排9个上机实验（36学时），每次实验要求上机之前做好预习及教材上有关内容的复习,对每次上机实验的内容及实验目的要做到心中有数。
每次实验完成后，都要进行小结并写出实验报告。
实验一VB环境和程序设计初步
一、实验目的
1、了解VB系统对计算机软硬件的要求。
2、掌握启动与退出VB的方法。
3、初步掌握菜单栏、工具栏、窗体窗口、工具箱、工程资源管理器窗口和属性窗口的使用。
4、掌握建立、编辑、运行一个简单的VB应用程序的全过程。
5、掌握常用控件（文本框、标签、命令按钮）的应用。
二、实验内容
1、编写一程序，在屏幕上显示”欢迎您使用Visual Basic”，并输入你的名字。
Private Sub Command1_Click()
Label1.Caption = Text1.Text & "欢迎使用visual basic 6.0 !"
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub
2、设计一程序程序，运行结果如下：
附：主要代码：
Private Sub cmdClear_Click()
txtDisplay.Text = ""
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdInput_Click()
txtDisplay.Text = "欢迎来到Visual Basic6.0编程世界"
End Sub
实验二数据类型、运算符和表达式
一、实验目的
1、掌握Visual Basic 6.0数据类型的概念。
2、掌握常量和变量的概念、定义方法和作用域。
3、掌握各种运算符的功能、表达式的构成、表达式中运算符的运算顺序和如何求表达式的
值。
4、掌握常用标准函数的一般形式、功能和用法。
5、 进一步熟悉Visual Basic 6.0集成环境
二、实验内容
本实验先手工求出题中表达式的值，然后在立即窗口中使用Print 方法计算和输出题中各式的值。
1、利用下列式子测试各种运算符的功能。
(1)5.4\10 (2)299Mod (3)35∧
(4))2/1(4-∧
(5)”Visual ”&”Basic ” (6)Not 8>5 (7)3<5 And 5>3 (8)True And False (9)5<3 Or 3>5 (10)5>3 Or False 2、利用下列函数测试常用标准函数的功能。 (1)Int(-1234.5678) (2)Fix(1234.5678) (3)Val(“12.34”)
(4)Cint(1234.5678)
(5)Abs(-100) (6)Sgn(-100) (7)Sqr(sqr(16))
(8)Left(“Visual Basic 6.0”,6)
(9)Mid(“Visual Basic 6.0”,8,5) (10)InStr(1,”Visual
Basic
6.0”,”Basic ”)
(11)String(3,”$”)
(12)Int((100*Rnd)+1)
3、利用下列表达式测试表达式中运算符的运算顺序和求表达式的值。 (1)(3+6)\2
(2)18\4*4.0^
2/1.6
(3)25\3 Mod 3.2*Int(2.5) (4)”xyz ”+”438” (5)”abc ”&”123”&”abc ” (6)349.25+”0.75”=350 (7)”china ”>=”canada ”
(8)”abc ”<=”abc ”&”123”
(9)3*4>4 And 5=5 (10)True Or Not 7-3<=4
实验三 程序基本结构
一、实验目的
1、掌握逻辑表达式的正确书写形式。
2、掌握表达式、赋值语句的正确书写规则。
3、掌握单分支与多分支语句的使用。
4、掌握For语句的使用。
5、掌握Do{While|Untile}...Loop与Do...Loop{While|Untile}两种形式的使用。
6、掌握如何控制循环条件，防止死循环或不循环。
7、掌握常用函数，如用户交互函数InputBox与MsgBox的使用。
二、实验内容
1.设计一个应用程序，窗体上有3个文本框、1个标签框和3个命令按钮，界面设计如图3.9所示。当用户运行应用程序后，在文本框中随意输入三个数据，单击“排序”命令按钮后，将三个数据按照从小到大的顺序重新排列。
图3.9
表3.8 属性设置
对象属性设置
窗体（名称）Form1
Caption 排序
文本框1 （名称）Text1
Text 空白
文本框2 （名称）Text2
Text 空白
文本框3 （名称）Text3
Text 空白
标签框1 （名称）Label1
Caption 排序结果为：命令按钮1 （名称）Command1
Caption 排序命令按钮2 （名称）Command2
Caption 退出命令按钮3 （名称）Command3
Caption 清空参考代码如下：
1．数据输入后的排序操作
Private Sub Command1_Click()
Dim a, b, c As Integer
Dim zjjg As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
c = CInt(Text3.Text)
If a > b Then
zjjg = a
a = b
b = zjjg
End If
If a > c Then
zjjg = a
a = c
c = zjjg
End If
If b > c Then
zjjg = b
b = c
c = zjjg
End If
Label1.Caption = "排序结果为：" & a & "," & b & "," & c End Sub
2．清空操作，用于第2次以后的要排序数据的输入
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
3．结束操作
Private Sub Command2_Click()
End
End Sub
运行后的结果如图3.10所示。
图3.10
2、制作一个计算器
要求：具有计算的基本功能如图
主要代码参考：
Private Sub Form_Load()
t1 = ""
Text2 = ""
t2 = ""
End Sub
Private Sub Command1_Click()
If Text2.Text = "" Then
t1.Text = t1.Text + "1"
Else
t2.Text = t2.Text + "1"
End If
End Sub
Private Sub Command16_Click()
Select Case Text2
Case "+"
result = Val(t1.Text) + Val(t2.Text) Case "-"
result = Val(t1.Text) - Val(t2.Text) Case "*"
result = Val(t1.Text) * Val(t2.Text) Case "/"
result = Val(t1.Text) / Val(t2.Text)
Text2 = ""
t2 = ""
Text1.Text = result
t1.Text = Text1.Text
End Sub
实验四可视化编程和常用控件
实验目的：掌握复选框、单选钮、列表框和组合框的常用属性、事件及典型的使用方法，熟悉滚动条的数值应用，掌握对话框的设计及使用，掌握图片框、图像框的使用及在使用中二者的区别，能够利用计时器进行动画制作。
实验内容：
1、制作一个简单的测试系统如图：
要求：可以选择试题的难度，并自己设计难度。并给出的结果给出判断
参考代码如下：
1 窗体加载
Private Sub Form_Load()
flag = 0
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
2 ok
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text3.Text)
Select Case Text2.Text
Case "+"
re = a + b
Case "-"
re = a - b
Case "*"
re = a * b
Case "/"
re = a / b
End Select
If re = Val(Text4.Text) Then
'MsgBox ("good")
'dim
Image1.Picture = LoadPicture("face05.ico")
Else
'MsgBox ("wrong!")
Image1.Picture = LoadPicture("face04.ico")
End If
End Sub
3 Start命令：
Private Sub Command_start_Click()
Text4 = ""
Image1.Picture = LoadPicture("face01.ico") Dim a As Integer
a = Int(Rnd() * 4)
Select Case Combo1.ListIndex
Case 2
Text1.Text = Int(Rnd() * 100)
If a = 0 Then
Text2.Text = "*"
ElseIf a = 1 Then
Text2.Text = "/"
ElseIf a = 2 Then
Text2.Text = "-"
Else
Text2.Text = "+"
End If
Text3.Text = Int(Rnd() * 100)
Case 1
Text1.Text = Int(Rnd() * 50)
If a = 0 Then
Text2.Text = "*"
ElseIf a = 1 Then
Text2.Text = "/"
ElseIf a = 2 Then
Text2.Text = "-"
Else
Text2.Text = "+"
End If
Text3.Text = Int(Rnd() * 50)
Case Else
Text1.Text = Int(Rnd() * 20)
If a = 0 Then
Text2.Text = "-"
Else
Text2.Text = "+"
End If
Text3.Text = Int(Rnd() * 20)
End Select
Text4.SetFocus
End Sub
2．设计一个应用程序，窗体上由1个文本框、1个命令按钮和4个框架组成，界面设计如图4.39所示。
图4.39
表4.25 属性设置
对象属性设置
窗体（名称）Form1
Caption Form1
文本框1 （名称）Text1
Text 欢迎使用Visual Basic 框架1 （名称）Frame1
Caption 字体
框架2 （名称）Frame2
Caption 大小
框架3 （名称）Frame3
Caption 颜色
框架4 （名称）Frame4
Caption 字形
框架5 （名称）Frame5
Caption 文字效果
（名称）Label3
单选钮1 （名称）Option1
Caption 宋体
单选钮2 （名称）Option2
Caption 隶书
单选钮3 （名称）Option3
Caption 幼圆
单选钮4 （名称）Option4
Caption 18点
单选钮5 （名称）Option5
Caption 20点
单选钮6 （名称）Option6
Caption 22点
单选钮7 （名称）Option7
Caption 蓝色
单选钮8 （名称）Option8
Caption 红色
单选钮9 （名称）Option9
Caption 黄色
单选钮10 （名称）Option10
Caption 普通
单选钮11 （名称）Option11
Caption 粗体
单选钮12 （名称）Option12
Caption 斜体
单选钮13 （名称）Option13
Caption 粗斜体
复选框1 （名称）Check1
Caption 删除线
复选框2 （名称）Check2
Caption 下划线
命令按钮1 （名称）Command1
Caption 退出
参考代码如下：
1．装载窗体
在初始装载窗体时，给出窗口运行的初值
Private Sub Form_Load()
Option1.Value = True
Option4.Value = True
Option7.Value = True
Option12.Value = True
End Sub
2．确定文本框中文字的字体
Private Sub Option1_Click()
If Option1.Value = True Then Text1.FontName = "宋体"
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then Text1.FontName = "隶书"
End Sub
Private Sub Option3_Click()
If Option3.Value = True Then Text1.FontName = "幼圆"
End Sub
3．确定文本框中文字的字号（即字的大小）
Private Sub Option4_Click()
If Option4.Value = True Then Text1.FontSize = 18
End Sub
Private Sub Option5_Click()
If Option5.Value = True Then Text1.FontSize = 20
End Sub
Private Sub Option6_Click()
If Option6.Value = True Then Text1.FontSize = 22
End Sub
4．确定文本框中文字的颜色
Private Sub Option7_Click()
If Option7.Value = True Then Text1.ForeColor = QBColor(9)
End Sub
Private Sub Option8_Click()
If Option8.Value = True Then Text1.ForeColor = QBColor(12)
End Sub
Private Sub Option9_Click()
If Option9.Value = True Then Text1.ForeColor = QBColor(14) End Sub
5．确定文本框中文字的字形
Private Sub Option10_Click()
If Option10.Value = True Then
Text1.FontBold = False
Text1.FontItalic = False
End If
End Sub
Private Sub Option11_Click()
If Option11.Value = True Then
Text1.FontBold = True
Text1.FontItalic = False
End If
End Sub
Private Sub Option12_Click()
If Option12.Value = True Then
Text1.FontBold = False
Text1.FontItalic =True
End If
End Sub
Private Sub Option13_Click()
If Option13.Value = True Then
Text1.FontBold = True
Text1.FontItalic = True
End If
End Sub
6．确定文本框中文字的文字效果
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontStrikethru = True
Else
Text1.FontStrikethru = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub
7．结束操作
Private Sub Command1_Click()
End
End Sub
3．设计一个简单的报到处理窗体，要求界面如图4.40所示，从文本框中输入学生姓名，在“班级”旁边的组合框中选择其所属班级（提供4种默认班级）。然后将学生姓名和班级添加到列表框中。用户可以删除列表框中所选择的项目，也可以把整个列表框清空。
图4.40
表4.26 属性设置
对象属性设置
窗体（名称）Form1
Caption 报到名单录入文本框1 （名称）Text1
Text 空白
组合框1 （名称）Combo1
Text 空白
列表框1 （名称）List1
List 空白
标签框1 （名称）Label1
Caption 姓名
AutoSize True 标签框2 （名称）Label2
Caption 班级
AutoSize True 标签框3 （名称）Label3
Caption 学生列表
AutoSize True 命令按钮1 （名称）Command1
Caption 加入列表命令按钮2 （名称）Command2
Caption 删除列表选项命令按钮3 （名称）Command3
Caption 清空列表命令按钮4 （名称）Command4
Caption 退出参考代码如下：
1．装载窗体
在初始装载窗体时，给出组合框的初始值
Private Sub Form_Load()
Combo1.AddItem "03网络"
Combo1.AddItem "03电商"
Combo1.AddItem "03计维"
Combo1.AddItem "03软件"
Combo1.Text = Combo1.List(0)
End Sub
2．将新报到的学生名单加入列表框
Private Sub Command1_Click()
If (Text1.Text <> "" And Combo1.Text <> "") Then
List1.AddItem Text1.Text + " " + Combo1.Text
Else
MsgBox "必须输入学生姓名"
End If
End Sub
3．根据实际需要，删除选定的列表项
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
End Sub
4．删除全部列表项
Private Sub Command3_Click()
List1.Clear
End Sub
5．结束操作
Private Sub Command4_Click()
End
End Sub
实验五对象编程
实验目的：掌握自定义类的方法
实验内容：创建一个工程并在其中添加一个类模块Class1和一个窗体Form1，共同实现用户输入的一个字符串的逆转。
首先打开一个新的“标准.EXE”工程，建立一个工程名为“工程1”的工程，在“工程”菜单中选中“添加类模块”，插入一个类模块Class1。开始时，该类模块窗口是空白的，我们可以输入相应的类定义代码，如图9.1所示是创建的Class1类模块的代码。
图9.1 类Class1创建窗口
该类定义了一个全局变量Name和一个过程ReverseName，该过程用于逆转Name指定的字符串。
类模块有两个事件：Initialize和Terminate。从类模块的“对象”下拉列表中，选择“类”便在“过程”列表中显示这2个事件的事件名。一般Initialize事件包含了对象创建时所需的所有代码。Terminate事件包含撤销对象后进行清理的所有代码。本例不设计这两个事件过程。
在该工程中添加一个普通的窗体Form1，在其中添加两个标签label1和label2，它们的标题分别为“原来的字符串”和“逆转后字符串”；再添加两个文本框text1和text2；最后添加一个命令按钮command1，其标题为“逆转”，并在该命令按钮上设计如下事件过程：
Private Sub Command1_Click()
Set myobject = New Class1
https://www.doczj.com/doc/187720840.html, = Text1.Text
myobject.ReverseName
Text2.Text = https://www.doczj.com/doc/187720840.html,
End Sub
本窗体的设计屏幕如图9.2所示。启动本工程，出现Form1窗体的屏幕，在文本框text1中输入字符串“0123456789”，然后单击“逆转”命令按钮，则文本框text2中出现字符串“9876543210”，如图9.3所示。
图9.2 Form1窗体设计界面
图9.3 Form1窗体执行界面
实验六菜单、工具栏和对话框的设计
实验目的：掌握下拉式菜单和弹出式菜单的设计方法，掌握菜单事件过程的编写方法。
实验内容：按本章所讲的步骤和方法，设计所要求的菜单系统。
1.设计一个菜单程序，在菜单栏中有“程序”和“附件”两个菜单。其中“程序”菜单中有Word、Excel、PowerPoint三个选项。“附件”菜单中含有“画图”和“游戏”两个选项。当用户选择了某个菜单项时，应能启动相应的程序。设计后的界面如图5．10所示。
图5．10
提示：使用函数：Shell( )
格式：Shell(“文件名”)
功能：执行一个可执行的文件。可带盘符、路径、主文件名、扩展名。
例如：编写“程序”菜单中有Word的单击事件的代码：若Word文件的路径是：d:\program file\Microsoft office\office\winword.exe ，则代码是：
Shell (“d:\program file\Microsoft office\office\winword.exe”)
Excel的文件名：Excel.exe
Powerpoint的文件名：Powerpoint.exe
画图的文件名：Mspaint.exe
纸牌的文件名：Sol.exe
排雷的文件名：Winmine.exe
利用查找方式来查找各自文件名的盘符和路径。
2.建立一个弹出菜单，含有“红色”、“兰色”、“绿色”三个选项，单击相应的选项后，可以改变文本框中文字的颜色。程序运行的结果如图5．11所示。
图5．11
实验七文件处理
实验目的：掌握驱动器、目录及文件列表框属性、事件和方法，熟练完成三者之间的同步操作，并能实现相应的功能。
实验内容：
1．模拟一个文件选择窗体，并能完成下列操作。窗体如图6．6所示。各对象的属性设置如表6．4所示
图6．6
表6．4 属性设置
对象属性设置
窗体（名称）Form1
Caption 文件选择窗体
文件列表框（名称）File1
目录列表框（名称）Dir1
驱动器列表框（名称）Drive1 组合框（名称）Combo1
List *.* *.vpb *.frm
Style 0
Text *.* 标签框1 Caption 文件列表框
（名称）Label1 标签框2 Caption 文件显示类型
（名称）Label2 标签框3 Caption 当前被选择的文件
（名称）Label3 标签框4 Caption 空
（名称）Label4 标签框5 Caption 目录列表
（名称）Label5 标签框6 Caption 驱动器列表
（名称）Label6 标签框7 Caption 当前被搜索目录
（名称）Label7 标签框8 Caption 空
（名称）Label8 命令按钮1 Caption 复制文件
命令按钮2 Caption 重新明名
命令按钮3 Caption 删除文件
命令按钮4 Caption 结束操作
参考代码如下：
1.在窗体的“通用”区将choicedfile 定义为窗体级变量,留作后用。
Dim choicedfile
2.装载窗体
在初始装载窗体时，将当前路径显示在标签框中。
Private Sub Form_Load()
Label8.Caption = Dir1.Path
End Sub
3.确定文件列表框的显示内容
Private Sub Combo1_Click()
File1.Pattern = Combo1.Text
End Sub
4.保持各文件系统控件的同步
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
Label8.Caption = Dir1.Path
End Sub
5.选择文件名
Private Sub File1_Click()
Label4.Caption = File1.FileName
If Right(Dir1.Path, 1) = "\" Then
choicedfile = Dir1.Path + File1.FileName
Else
choicedfile = Dir1.Path + "\" + File1.FileName
End If
End Sub
6.文件复制
Private Sub Command1_Click()
Dim sourfile As String
Dim destfile As String
str2 = "请输入复制的目的文件："
sourfile = choicedfile
destfile = InputBox(str2, "复制文件")
If destfile <> "" Then
FileCopy sourfile, destfile ‘FileCopy 源文件，目标文件End If
End Sub
7.文件重命名
Private Sub Command2_Click()
Dim oldname As String
Dim newname As String
Title = "重新命名"
str0 = "请再输入一遍需要修改的文件名"
str1 = choicedfile + Chr(10) + Chr(13) + str0
str2 = "请输入新文件名"
oldname = InputBox(str1, Title)
msg = "确认被更改的文件名" & oldname
p = MsgBox(msg, 35, "数据检查框")
If p = 6 Then
newname = InputBox(str2, Title)
Name oldname As newname ‘Name 旧文件As 新文件
MsgBox "你的新文件名是：" + newname
End If
End Sub
8.删除文件
Private Sub Command3_Click()
Dim killedfile As String
killedfile = choicedfile
Title = "数据检查框"
msg1 = "你要删除文件:" & killedfile
x = MsgBox(msg1, 35, Title)
If x = 6 Then
Kill killedfile ‘Kill 文件名
End If
End Sub
9.结束操作
Private Sub Command4_Click()
End
End Sub
····················
2 。FSO对象模型编程
试编写如图10.2所示的程序，实现新建文件、新建文件夹、写文件的功能，主要练习FSO对象的引用及使用。
图10.2FSO对象编程示例
步骤：
1、设置界面
2、文件类型组合框中条目的添加是在程序运行时载入，可通过如下代码来实现
Dim sItem As String
sItem = "文本文件(*.txt)"
Combo1.AddItem sItem + Space(20 - Len(sItem)) + "*.txt"
sItem = "所有文件(*.*)"
Combo1.AddItem sItem + Space(20 - Len(sItem)) + "*.*"
Combo1.ListIndex = 0 '默认类型为文本文件
3、新建文件
Dim fName As String
fName = InputBox("请输入文件名", "输入")
If fName = "" Then Exit Sub '若文件名为空，退出过程
sPathName = GetDir '调用获取路径自定义函数fso.CreateTextFile (sPathName & fName) '新建文件
4、新建文件夹
On Error Resume Next
上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验3 选择结构 一、 实验目的 1． 掌握单分支、双分支和多分支条件语句的使用 2． 掌握情况语句的使用及其与多分支条件语句之间的区别。 二、实验要求 1． 在C:\下建立子文件夹“VB 实验3”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件、窗体文件 及可执行文件（），本实验中的第二题，需保存的文件有：工程文件、窗体文件 及可执行文件（），其余实验依此类推。 2． 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 三、 实验内容： 1. 编一程序输入上网的时间并计算上网费用，计算的方法如下： 费用= 50250~102.51030?? ???>≤>≤小时上网时间元，每小时小时上网时间元，每小时小时上网时间元，基数 同时为了鼓励多上网，采用累进计费制，但每月收费最多不超过150元。上网时间在文本框中输入；上网费用在标签中输出，所有控件字体默认、大小为小四。要求使用多分支结构（IF THEN ELSEIF ）编写，效果如图3-1所示。
图3-1 Option Explicit Private Sub Command1_Click() Dim s!, sum! s = Val If s <= 0 Then MsgBox "上网时间不能为负数和零", , "输入错误" Text1 = "" Else If s <= 10 Then sum = 30 ElseIf s > 10 And s <= 50 Then sum = 30 + (s - 10) * ElseIf s > 50 And s <= 60 Then sum = 130 + (s - 50) * 2 Else sum = 150
《VB程序设计》实验单元二 实验报告 专业班级：新闻班姓名: ________________ 学号：—指导教师：完成时间：2013.5 一、实验题目 数组和自定义类型 二、实验环境 Visual Basic6.0 程序软件 三、实验目的 1.掌握数组的声明、数组元素的引用。 2.掌握固定长度数组和动态数组的使用差别。 3.掌握数组常用的操作和常用算法。 4.掌握列表框和组合框的使用。 5.掌握自定义类型及数组的使用。 四、实验内容 1.随机产生30—100 （包括30、100）的10个正整数，求最大值、最小值、平均值，并显示整个数组的只和结果。 2.随机产生20个学生成绩，统计各分数段人数。即0~59、 60~69、 70~79、80~89、90~100,并显示结果。
五、实验步骤 1.打开VB界面，建立工程 2.在窗体窗口设置界面 3?属性窗口控件对象属性设置 4.编写程序代码 5?运行程序及调试 6?程序建立，保存工程文件六、实验结果 第1题：
70 53 57 28 30 77 1 76 81 70最大值81 最小值1 平均值54.3 4 41 86 79 37 96 87 5 94 36 最大值96 最小值4 平均值56.5 52 76 5 59 46 29 62 64 26 27 :最大值76 最小值5 平均值44.6 82 82 58 98 91 22 69 98 24 53最大值98 最小值22 平均值67.7 10 99 67 1 57 10 10 79 28 4 最大值99 最小值1 平均值36. 5 29 38 30 94 97 40 27 16 16 64实验 r Q Forml 回
实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5
（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③
山西财经大学《程序设计（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)
南京工程学院 课程设计说明书（论文）题目打字练习 课程名称VB语言课程设计 院(系、部、中心) 专业 班级 学生姓名 学号 设计地点图书馆基础教学机房 指导教师 设计起止时间：201x年x月x日至201x年x月x日 目录
一、设计任务 (3) 二、方法原理 (3) 三、总体设计思路 (3) 四、程序调试和解决问题 (4) 五、完善及存在的问题 (4) 六、收获体会 (4) 七、意见建议 (4) 八、示例截图 (5) 九、附录1（代码） (6) 十、附录2（主要参考资料） (10) 一、设计任务 1.题目介绍
在计算机及其他数码产品日益普及的今天，人们使用键盘应像用笔写字一样熟练。进行打字练习时熟悉键盘并提高打字速度的好方法。本体要求编制一个打字练习游戏程序，使用户在游戏过程中进行打字练习。 2.功能要求 （1）启动界面如图1 （2）选择难度和速度后，单击“开始”按钮，界面如图1。若选择简单，则落下字母；若选择复杂，单击开始后出现对话框，如图 2.单击确定，开始练习，落下单词。 （2）若用户在字符落到屏幕底部之前敲击了相应的键盘键，则该字符被“击中”然后消失。根据程序速度和难度的设置自动进行积分，实时分数时间正确率掉落个数显示在窗体的上部。 积分规则：正确击中一个字母或一个单词，加一分；反之，不得分，亦不扣分。（4）当游戏者单击“暂停”按钮时，程序停止运行，在单击“开始”按钮，程序继续运行；当单击“退出”按钮时，则弹出对话框（如截图示例3），单击“取消”按钮，程序继续运行，单击“确定”按钮，则弹出对话框（如截图4），此时对话框显示分数，单击“确定”按钮，退出程序。 （5）为了增加视觉效果，每个掉落的字符的颜色随机产生。 二、方法原理 根据题目要求，使用控件数组，用标签标题表示字符，键盘事件的处理判断打字正确与否，随机值的产生方法随机产生字符，用Timer控件属性反映时间、控制字符下落速度。 三、总体设计思路 首先在窗体上画出三个按钮标题分别为开始、暂停、退出。画六个标签分别表示已落字母个数、已花时间、得分与正确率。 画出一个含有五个元素的标签控制数组用以显示字符。 画出两个时间控件，一个用来返回已用时间，一个控制字符下落。 最后编写相关代码
实验报告一 课程VB程序设计实验项目Visual Basic环境 顺序选择程序设计(4学时) 成绩 专业班级 姓名学号实验日期 实验目的 （1）熟悉Visual Basic6.0集成开发环境 （2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握选择控制结构（If、Select case）语句实现程序分支 （4）掌握控制结构相关控件（单选按钮、复选框） （5）能综合运用选择及循环控制结构解决较复杂的问题 实验内容 一、VB环境和顺序结构 【实验1】设计一个简单VB程序（10分） 它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"Visual Basic 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。 实验结果： 【实验1 代码】 【实验1 典型结果】 【实验2】编写程序，其功能为输入三角形的三边，求三角形的面积。计算公式为：
S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c)) （20分） 程序界面如下所示 实验结果： 【实验2 代码】 【实验2 典型结果】 【选做1】单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序）（15分） 实验结果： 【方法1 代码】 【方法1 典型结果】 【方法2 代码】 【方法2 典型结果】
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程序设计实验心得4篇数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇文章，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹并期望与大家共勉。 首先，让我的记忆追溯到大二暑假，在老大的指引下，我接触到Microsoft 公司的.NET产品。那个时候我已经学过vc和asp，因为windows程序设计实验的课的关系，接触过vb，但是没有专门去学他，因为习惯了c++里面的class，int，觉得vb的sub，var 看着就不是很顺心。我是一个好奇心很强的人，突然看到了一个号称“.网络是用于创建下一代应用程序的理想而又现实的开发工具”，而且主推c#语言，由于对c语言的一贯好感，我几乎是立刻对他产生了兴趣。我就开始了对c#的学习，任何语言都不是孤立存在的，所以数据交互是很重要的，暑假的时候我把我们这学期的课本数据库系统概论看了一遍。我记得以前用c语言编程的时候，数据是在内存中申请空间，譬如使用数组等等。很耗费内存空间。这个时候就是数据库站出来的时候啦，于是我又装上了sql serverXX，以前学asp的时候用的是aess，那个时候只是照着人家做，理论是什么也不是很清楚。
通过一个暑假的学习，基本搞清楚了理论方面的东西，具体怎么 用也不是很清楚。但是这为这学期的课程设计打下了铺垫。 来到学校后，随着这学期的数据库课程大赛开始了，我有一个看 法就是我自己应该具备的能力不是我会多少，而是我应该具备快速学会东西的能力。遇到什么就学什么。我们有时候很容易被一些专业名词说吓着，包括什么建模，软件工程，数据分析，数据挖掘等等。我身边就有很多同学被这些纸老虎所唬住，而没有勇气去接触他们，总是说这个太难了之类的退堂鼓的话，他们低估了自己的潜力同时也压抑住了他们自己的好奇心。其实都是纸老虎，又不是什么国家科研难题，只是去用一些工具，发明工具是很难，但是用一个工具就容易多了，just do it！我记得我做这个数据库之前，我们老师说要做好前期分析，我就在网上搜索用什么分析工具好。最后我选择了roseUML 建模工具。在此之前，我脑袋里面没有软件建模的思想，什么UML建模对我而言就是一张空白的纸。但是真正接触后并没有想象的那么难，有什么不懂的上网去搜索，这是一个信息横流的世界，有google，baidu就没有不能解决的知识难题。以及后来的数据库分析的时候用到的powerdesigner也是一样。 开发的时候我想过用什么架构，c/s模式？模式有很多，怎么选择？我就上网搜索现在最流行的架构是什么。结果搜到了MVC架构，就是你啦。我决定用这个架构，不会，没关系，咱学。Just do it！
台州学院 《VB程序设计》实验报告 实验1.1设计一个程序，程序运行的初始界面如图1-1所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。Private Sub Command1_Click() Text1.Text = "欢迎使用VB！" End Sub Private Sub Command2_Click() Text1.Text = "" End Sub Private Sub Command3_Click() End End Sub 实验1.2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。同时要求： （1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）； （2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）； （3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示” Private Sub Command1_Click() Label1.Caption = "你好，张三！" Command1.Enabled = False End Sub Private Sub Command2_Click() Label1.Visible = False Command3.Enabled = True Command2.Enabled = False End Sub Private Sub Command3_Click() Label1.Visible = True Command2.Enabled = True Command3.Enabled = False End Sub 实验2.1 设计一个程序，运行时界面如图2-1所示。当单击“左”、 “右”、“上”、“下”按钮时，标签分别向左、右、上、下移动。 Private Sub Command1_Click() Label1.Left = Label1.Left - 100 End Sub Private Sub Command2_Click() Label1.Left = Label1.Left + 100 End Sub Private Sub Command3_Click() Label1.Top = Label1.Top - 100 End Sub Private Sub Command4_Click() Label1.Top = Label1.Top + 100 End Sub
篇一：vb实习体会 vb实习体会 我对于visualbasic的学习，是从初中开始的。当时舟山市的中考政策有考级加分制度，考出全国二级能加10分。在此诱惑下报名参加培训班，考了两次，第一次笔试未通过，第二次才全通过。虽然考了两次，但是那时候已经能够编出几个没有什么逻辑性可言的小小游戏了。所以这次认识实习，对我来说难度并不大。然而由于选课上面的原因，认识实习和电子实习冲突，导致我没有上过一节认识实习课。所以我的vb水平基本没有什么进步，这个五子棋，也是建立在初中的经验上的。 vb本身也不是很难。尤其在gui编程上能够体现出来。我接触过几种gui的编程，桌面应用里面有swing、qt库的编程，另外还有android和j2me的编程。这些程序在gui开发上面虽然不能说难，但代码量也是很大的（qt和android有可视化辅助设计，稍微好一点）。而微软确实对程序员比较照顾，出了很多的编程方式都比较简易，比如windowsform式的编程，这在vb和c#上体现的非常到位，大大降低了程序员的门槛。值得一提的是，我初中的学校，超过三分之一的人通过了全国计算机等级考试二级vb，可见vb的简单程度。 虽然vb很简单，但说实话我不太喜欢vb。一方面是长期接触类c语法，让我对于类c语法的语言比较偏爱（java、c++、php等）。另一方面是vb是一种windowsonly的语言，可移植性比较差。 而从业界发展的视角来看，随着苹果焕发第二春以及google的崛起，微软的势力开始萎缩。在终端方面，高端智能手机以及平板电脑正悄悄取代个人pc机的地位。而互联网云计算的概念更加使得这些终端设备能够替代传统pc。而微软在这方面几乎可以被称作是惨败的。所以，开发windows桌面应用渐渐显得不入时，况且是用可移植性非常差的vb6来开发。 如果要我选择桌面应用程序开发工具的话，我恐怕会选择c#。它既有 windowsform的编程方式，拥有https://www.doczj.com/doc/187720840.html,的几乎所有的便利特性，而且是类java语法，使得程序员能够非常快的适应。另外，.net的可移植性比较强。c#运行在.net平台上，理论上可以像java那样易于移植，而且在linux上也出现了mono这样的开源版本。而vb6则不行。当然，语言的问题总是微乎其微的。这一次实习最大的收获应该是大致了解了五子棋程序的原理。比如说怎么判断五子连珠等等。虽然没有更上一层楼编出ai，但是总的来说，这是我第一次用vb开发出一个像样点的游戏了。篇二：vb实训个人总结 vb实训个人总结 在这一周的实习中，使我学到了好多书本上没有的知识，更让我对vb有了更深一步的掌握，同时也发现了许多自己在学习方面的不足，取长补短，互相学习，共同进步，我们不但学习了知识，更好的证明了实践是检验真理的唯一标准。培养和提高我们的实际操作和应用能力，在学习vb后，具体的是使我们熟悉并使用各种类和各种vb控件的应用，在编写程序的过程中我们还专门编写了注释以便于修改程序！这些内容使我们更加熟练的应用这门语言，给自己以后能够走上工作岗位打下良好的基础！ 实训的第一天接到任务时我们都觉得有点难度，很有挑战性，毕竟学籍信息管理系统是一个比较系统、完善、功能相对较齐全的管理系统，即使是用户模块也可以完成各种操作，如对用户的查询、添加.删除以及修改等。因此程序编写也十分复杂，工作量较大，编写一定要认真。一个小小的失误都可能使程序出现大的漏洞。而我们只是学了点简单的vb程序编写，没有尝试过这种相对来说比较系统完善的系统。所以在做项目的时候我们倍感压力、更加的团结协作，可即使如此我们还是出现了错误，我们的程序在编写上存在一些漏洞，导致调试时不能正常运行，后经过老师的指导、我们的调整，终于可以完美的运行， 我做的是学籍信息管理系统，但是在编写程序的时候也遇到了很多难懂的问题，有的是实践能力差，有的是对书本上的内容太过于模糊，有的是什么也不知道，当中有说不出口的味道。
《VB程序设计》实验报告 专业：信息管理与信息系统 班级：1502班 学号： 姓名： 日期：2016年12月20日
一、实验题目：记事本程序的设计 二、实验目的 1、掌握菜单编辑器的使用方法。 2、掌握菜单事件的编程方法。 3、初步掌握多窗体程序设计方法。 三、实验内容与步骤 1、实验内容：设计一个记事本程序。 2、界面设计（贴出对象属性表和界面设计图）。 ①在窗体frmPad上添加一个文本框text1，并根据下表修改窗体及控件属性。 对象窗体属性设置 对象名属性值 FrmPad Caption “记事本” Text1 MultiLine True ScrollBars 2-Vertical Text 清空 ②使用菜单编辑器在窗体上建立菜单：选中窗体frmpad后，单击“工具”菜 单的“菜单编辑器”命令，弹出“菜单编辑器“对话框，如下图所示。 ③根据下表设置菜单。 菜单设置 菜单项标题菜单项名称快捷键其他属性编辑mnuEdit ···剪切mnuCut Ctrl+X ···复制mnuCopy Ctrl+C ···粘贴mnuPaste Ctrl+V
文本风格mnuStyle ···粗体（&B）mnuBold "复选"属性为True ···斜体（&I）mnuItalic "复选"属性为True 弹出菜单popMenu "可见"属性为True ···剪切popCut ···复制popCopy ···粘贴popPaste 设计好程序窗体如下图所示。 菜单编辑器
界面设计 3、编写程序代码。 Private Sub Form_Load() Text1.FontSize = 16 Text1.Text = "Visual Basic程序设计" mnuBold.Checked = False mnuItalic.Checked = False End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub '复制
VB程序设计报告 姓名：阮玮娜学号：020******* 设计题：3.诗词欣赏电子书 （一）程序简介 窗体出现后单击打开命令按钮时出现打开对话框，在目录文件中选择作者并按“确定”键。 目录列表框中会出现诗词目录，从列表框中选择要欣赏的诗词则两个文本框中会出现相应的内容和注释与题解。当单击向上（或向下）按钮时列表框中条目会上移（或下移）一个条目，同时两个文本框也会进行相应的变化。 在此程序中我所新增功能是：当诗词条目处在第一个（或最后一个）时，单击向上（或向下）按钮时列表框中条目会自动循环到最后一个（或第一个）条目，同时两个文本框也会进行相应的变化。 （二）程序用到的主要控件：窗体(form)，文本框（textbox）,标签(label)、框架(frame)、列表框(listbox)、命令按钮(commandbutton) （三）程序用到的主要控件，属性，过程： 1．列表框的应用： 用以显示打开的诗词名，其中style属性设为0 2．文本框的应用： 用以显示与“*.cnt”相对应的“*.txt”文件，其中multiline属性设为true, scrollbars 属性设为2 （四）程序的调试和要困难的解决方法： 在程序的编译及调试过程中遇到的最大困难既是如何利用源文件中的*号进行诗词的标示及读写。由于三个诗词文件中并非都是以单个*为一行，不同的样式其判断语句也有相 应的变化。最终的编成语句如程序代码所示。另一个问题是单击右移命令按钮时所激发的 Click事件中若直接使用List1.ListIndex属性值进行条目相加时运行出错，解决方法是定 义一个整型过程级变量int1作为中间量先将List1.ListIndex属性值赋给int1，在对int1 进行加减判断后再将int1值赋给List1.ListIndex从而又一次激发列表框的Click事件 （五）经验心得： 在进行课程设计时首先要对各个控件的常用属性有初步了解及一些属性值的应用条件。其次在编写程序代码时应细心书写，每一个语句的微小错误都有可能使程序无法正常运 行而出错。 在进行VB程序设计的前期，我因为对某些控件的各个属性不很熟悉，只能每每参照教科书，但通过书以及同学老师的帮助，像诗词欣赏电子书这样比较简单的程序设计，使我 从中受益非浅，开阔了程序设计的思路，完备了VB的知识体系，并培养了自己不断探索的 劲头，而且渐渐对VB产生了兴趣。 （六）附件 本题所有的程序代码及注释如下： Public strName As String '公共变量strName用于记录文件路径
专业实践 课 程 设 计 报 告 班级：08计科一班 姓名：*** 学号：*************
学生信息管理系统 1.需求分析: 随着学校的规模不断扩大，学生人数急剧增加，有关学生的各种信息也成倍增长。面对庞大的信息量需要有学生管理系统来提供学生管理工作的效率。通过这样的系统可以做到信息的规范管理，科学统计和快速查询，修改，增加，删除等，从而减少管理方面的工作量。实现学生信息关系的系统化，规范化，自动化，用计算机对学生各种信息进行日常管理。 本系统主要包括学生信息查询和信息添加等功能，来初步实现学生信息的计算机化管理，更多相关功能有待以后慢慢完善。 2.系统功能： 本学生信息管理系统采用的语言是Visual Basic,用SQL Sever 2000数据库完成，有以下功能: (1)有较好的权限管理; (2) 原始数据修改简单方便,支持多条件修改; (3)方便的数据查询，支持多条件查询. 2.1采用Visual Basic有以下特点： 2.1.1可视化编程 Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。 2.1.2结构化程序设计语言 Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。
VB程序设计实验报告 实验三选择结构程序设计 一、实验目的 1. 掌握逻辑表达式的正确书写形式。 2. 掌握单分支与双分支条件语句的使用。 3. 掌握多分支条件语句的使用。 4. 掌握情况语句的使用及与多分支条件语句的区别。 二﹑实验内容 4. 编制程序，计算某个学生奖学金的等级（假定只考虑一等奖），以三门功课成绩m1，m2，m3为评奖依据。奖学金一等奖评定标准如下：(1) 平均分大于95分者。(2) 有两门成绩是100分，且第三门功课成绩不低于80分者。 5. 编一模拟袖珍计算器的完整程序，界面如图2.3.1所示。要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。 6．输入一个数字（1～7），用英文显示对应的星期一～星期日。 提示：用Select语句来实现。 三﹑实验步骤 4，打开VB后，建立一个命令按钮，输入"奖学金评定"，编辑代码如下: Private Sub mand1_Click() Dim m1!, m2!, m3! m1 = InputBox("输入m1 的值") m2 = InputBox("输入m2 的值") m3 = InputBox("输入m3 的值") If (m1 + m2 + m3) / 3 > 95 Or _ (m1 = 100 And m2 = 100 And m3 >= 85 Or _ m1 = 100 And m3 = 100 And m2 >= 85 Or _
m3 = 100 And m2 = 100 And m1 >= 85) Then MsgBox "一等奖学金" Else MsgBox "不是一等奖学金" End If End Sub 5，打开VB后，建立4个Lebel标签，4个Text文本框，2个mand按钮，如上图。编辑代码如下：Private Sub mand1_Click() Select Case Trim(Text3) Case "+" Text4.Text = Val(Text1.Text) + Val(Text2.Text) Case "-" Text4.Text = Val(Text1.Text) - Val(Text2.Text) Case "*" Text4.Text = Val(Text1.Text) * Val(Text2.Text) Case "/" Text4.Text = Val(Text1.Text) / Val(Text2.Text) End Select End Sub Private Sub mand2_Click() End End Sub 6, 打开VB后，建立1个Text文本框，1个mand按钮。代码如下： Private Sub mand1_Click() a = Text1.Text Select Case a Case 1 Print "Monday" Case 2 Print "Tuesday" Case 3 Print "Wednesday" Case 4 Print "Thursday" Case 5 Print "Friday" Case 6 Print "Saturday" Case 7 Print "Sunday" End Select End Sub 四﹑实验总结
VB 设计计算器 实验报告 姓名: 专业: 学号: 二0 一一年十一月七日
设计功能完整的计算器，实现如下图所示按钮（除“ MC，“MR , “MS，“M+ ）及菜单功能，如图： 一、解题思路、分析： 对于我来说，设置一个完整的计算器是一个艰巨的任务，一开始想了一小段时间，自己试着编了一些，但就是无法达到一个完整的计算器，于是，就到网上去下载了一些有关计算 器的程序进行参考分析。首先先定义一些量，比如说前后两个操作数opl、op2，小数点是 否真存在的量DecimalFlag ，操作数个数NumOps上一次按键的类型等。接着对窗体进行初始化，同时设置所有变量为其初始。然后对各个键盘的命令进行编写程序，对0---9按键设 置为一个按键命令组，编写一个程序，同时加减乘除设置一个命令组，也编写一个程序，其 他按键都各自设置为一个命令，分别单独进行编写程序。同时在多个命令中都要对显示器中 的小数点进行分析，看它是否是真实存在。同时对于除法分母是否为0，也要加以考虑。 、源程序: Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastI nput = "NONE" OpFlag ="" Text1.Text = Format(0, "0.") 'Decimal.Captio n = Format(0, ".") End Sub Opti on Explicit Dim Op1, Op2 Dim DecimalFlag As In teger Dim NumOps As In teger Dim LastInput 类型 Dim OpFlag Dim TempReadout ' 窗体的初始化过程 ' 设置所有变量为其初始值 前面输入的操作数 小数点仍然存在吗？ 操作数个数 指示上一次按键事件的 指示未完成的操作
vb课程设计报告心得感想 vb课程设计报告心得感想篇1 在课程设计过程中，虽然我对程序设计不是很熟悉，但是通过老师详细的讲解，我按照步骤去做，遇到问题的时候先自己想办法解决，解决不了的就去问同学，问老师，通过这种学习，收获很大，学会了自己解决棘手问题，知道了团结的力量。 刚开始做程序的时候，就是完全按照老师的要求，老师的步骤去做的，结果却发现，怎么运行不了?明明是按照老师的步骤去做的，明明是按照老师的要求去做的，但是就是会遇到一些问题使程序运行不了。开始也没有管那么多，仍然是按照课本上的去做。 第一次，在上机课的时候，我根据老师讲的，在机房里做了一次，但没有做完。于是把东西存在了自己的MP3里面，以便以后上机的时候再来做。但真的没有想到，我的MP3，在一次上电子阅览室的时候，忘了拔了。于是乎，我辛辛苦苦做了一大节课的程序就这样没了。心里真的很不舒服，但是，不舒服归不舒服，这个程序，还是得继续做下去，这么以点点小小的失误不算什么，然后跑到学校机房，继续我的VB程序设计。但由于时间问题，做的还是有点粗糙，还是不免存在一定的问题，比如说开始的时候打开不了文件，总是出现错误，自己总也找不出来，后来请教了一下同学，结果发现时代码的编写出现了错误，把代码改过来之后，程序终于可以打开运行了。然后，检查的时候，又发现查找运行错误，又是代码那里出现的黄色的字样，结果发现，是代码拼写错误，于是，拿着同学的代码对比一下，发现了错误所在之地，然后更正了过来。 经过一番努力，程序终于做完了。 后来，室友看了我的程序，她说运行不了的，就是出现了错误，出现了错误，就应该改过啊，这时的我才恍然大。是错误，那么就要改正的! 于是当天，我就去了学校机房，再一次运行我的程序，仍然出现错误情况，需要调试，我回忆起上课的时候，老师是怎么跟我们讲的，哪里出现了错误，需要怎么样改正。于是，我就耐着性子，一个一个，一个一个得改正，编辑代码，一个一个得检查，终于完成了。完成之后，我在运行一下，一切正常，心里终于舒了一口气。经过这次的VB程序设计，让我知道了更多学习的方法。具体如下：(1)保持良好的学习心态，第一，要有自信，自强，积极主动学习.第二，克服畏难情绪，树立学好程序设计的信心(2)要了解概念：VB程序设计本身并不复杂，变量，函数，条件语句，循环语句等概念较多.要真正能进行程序设计，就要深入理解这些概念.应该重视概念的学习. (3)自己动手编写程序，亲自动手进行程序设计是培养逻辑思维的好方法.因此我们得多动手编写程序，逐渐提高写程序的能力.自己动手，编写一些程
湖北文理学院 VB程序设计课程实验报告 学院物电学院 专业自动化 班级 1211 学号
姓名王亮 任课教师王福林 实验一、VB控制结构 一、实验目的 1.掌握选择语句的使用 2.掌握循环语句的使用 二、实验内容 1、选择语句 程序1：创建应用程序。要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。 程序2：创建应用程序。要求：单击窗体可弹出一输入框，任意输入一个正整数，在窗体上显示该整数是否为素数的字样。 2、循环语句 程序3：创建应用程序。要求：单击窗体可显示一个由“*”组成的平行四边形图案。 程序4：创建应用程序，其功能是显示所有的水仙花数。 三、实验记录 程序1如下： Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, t As Integer '
定义a,b,c,t为整形变量 Cls '清屏 a = Val(InputBox("请输入第1个数：")) '给a赋值 b = Val(InputBox("请输入第2个数：")) '给b赋值 c = Val(InputBox("请输入第3个数：")) '给c赋值 If a > b Then t = a: a = b: b = t '如果a>b，把a的值赋给t，b的值赋给a，t的值赋给b If b > c Then '嵌套，如果b>c t = b: b = c: c = t '把b的值赋给t，b 的值赋给c，t的值赋给c If a > b Then '再次嵌套，如果a>b t = a '把a的值赋给t a = b 'b的值赋给a b = t 't的值赋给b End If End If Print a; "、"; b; "、"; c '输出 a "、"b;"、"; c End Sub Private Sub Command2_Click() End '退出程序 End Sub 程序2如下： Private Sub Command1_Click() Dim i As Integer, k As Integer, n As Integer '定义整形变量
课程设计报告 课程：Visual Basic 程序设计 课题：文本编辑器（易记本） 专业：计算机信息管理 班级： 学号： 姓名：@一路偏向北 教师： 2011-12-23
一、课程设计目的 通过一学期的Visual Basic 程序设计学习，以及平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。 二、题目及简介 文本编辑器 模仿Windows自带的本文编辑器，要求：做到有下拉式菜单栏，有最基本的文本编辑功能，包括复制、剪切、粘贴、全选、查找；同时拥有文本的管理功能，其中包括新建文本、打开、保存；以及完整的运行退出等系统应用功能，所有操作可选择设定快捷键，更快更方便地使用程序，同时对于一个小程序而言，可给出基本的使用说明以及相关信息。提示：注意使用消息框，以及使用右击弹出式菜单，注意程序的完整性可可用性。
三、设计说明 题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。 本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。 四、源代码（加注释） Dim sfind As String Dim FileType, FiType As String Private Sub Form_Load() = 7500 = 5000 End Sub '设置文本编辑框的位置和大小