实验一简单VB程序设计-sylu
实验1 简单VB程序设计
【实验目的】
1 学习怎样启动和退出VB，熟悉VB的工作环境。
2 学习用属性窗口设置对象属性及用代码设置对象属性的方法。
3 学习如何用对象（窗体和控件）建立界面及在代码编辑器中输入程序代码的基本操作。
4 基本掌握用VB开发应用程序的一般步骤。
【实验环境】
VB6.0 奔腾586
【实验内容】
1. 启动和退出VB
2. 打开和关闭窗口
3. 设置窗体属性
4. 设置控件属性
5. 设计简单界面
6. 开发一个简单的应用程序
【实验步骤】
1. 启动和退出VB
（1）可用以下方法启动VB
法1 用“开始”菜单的“程序”命令。
法2 用“开始”菜单的“运行”命令。
（2）可用以下方法退出VB
法1 单击主窗口右上角的“关闭”按钮。
法2 执行“文件”菜单的“退出”命令。
2. 打开和关闭窗口
（1）打开工程资源管理器窗口
法1 单击工具栏上的“工程资源管理器”按钮。
法2 执行“视图”菜单中的“工程资源管理器”命令。
法3 CTRL+R
（2）打开窗体设计器窗口
法1 执行“视图”菜单中的“对象窗口”命令。
法2 SHIFT+F7
法3 在工程资源管理器窗口中选择要打开的窗体，然后单击该窗口顶部的“查看对象”按钮。（3) 激活属性窗口
法1 按F4键
法2 单击工具栏上的“属性窗口”按钮。
法3 执行“视图”菜单中的“属性窗口”命令。
（4) 关闭窗口
法1 单击窗口右上角的关闭按钮。
法2 ALT+F4
3. 设置窗体属性
（1）激活窗体，打开属性窗口。
（2）在属性窗口中双击“Caption”属性条，输入“窗体属性设置实验”。
（3）在属性窗口中选择“BackColor”属性条，然后单击右端的箭头，在所显示的调色板中
选择一种颜色。
（4）在属性窗口中选择“DrawStyle”属性条，然后单击右端的箭头，在下拉显示的列表中选择“Dot”。
（5）在属性窗口中，把Top，Left，Height，Width属性的值分别设置为500，1000，3000，4000，观察窗体的变化。
4. 设置控件属性
在窗体上建立两个命令按钮(名称)分别为Command1和Command2, Command2按钮的Font属性设置见图1.1,其余各项属性设置用代码实现如下:
Private Sub Form_Click()
Command1.Caption=”确定”
Command1.FontName=”黑体”
Command1.FontSize=2
Command1.Fontbold=True
Command1.FontItalic=True
Command1.FontUnderline=True
Command1.Enabled=False
Command2.Enabled=True
Command2.Caption=”取消”
End Sub
图1.1 Font属性对话框
5. 设计简单界面
设计一个简单计算器面板
步骤如下：
（1）把窗体的Caption属性设置为“简易计数
器”。
（2）在窗体上画一个文本框，把它的Text属性
设置为空白。
（3）在窗体上画16个命令按钮，适当调整其大
小和位置，然后在属性窗口中把它们的属性
分别设置为1，2，3，4，5，6，7，8，9，0，.，
C，+，-，*，/。如图1.2所示。
图1.2 简易计数器
6. 开发一个简单的应用程序
编写一个输入字符进行转换的程序。转换规则是，将其中的大写字母转换成小写字母，小写字母转换成大写字母，空格不转换，其余转换成“*”。
（1）建立界面
在窗体上画两个标签，两个文本框，两个命令按钮，通过属性窗口把两个标签的Caption属性分别设置为“输入字符串”和“转换”，把两个文本框的Text属性设置为空白，把两个命令按钮的Caption属性分别设置为“清屏”和“结束”，将窗体的Caption属性设置为“大小写字母转换”。完成后的界面如图1.3所示。
图1.3 界面设计
（2）编写代码
打开代码窗口，选定文本框1，对该控件编写如下代码：
Private Sub Text1_KeyPress (KeyAscii As Integer)
Dim aa As String * 1
aa = Chr$(KeyAscii)
Select Case aa
Case "A" To "Z"
aa = Chr$(KeyAscii + 32)
Case "a" To "z"
aa = Chr$(KeyAscii - 32)
Case " "
Case Else
aa = "*"
End Select
Text2.Text = Text2.Text & aa
End Sub
分别选定两个命令按钮,编写如下代码:
Private Sub Command1_Click () ‘清屏按钮
Text1.Text=””
Text2.Text=””
End Sub
Sub Command2_Click() ‘结束按钮
End
End Sub
(3)运行程序
解释运行模式：
法1 单击“启动”按钮开始运行程序。
法2 选择“运行”菜单的“启动”命令或按F5键。
编译运行模式：
选择“文件””菜单的“生成…exe”命令。
(4)保存程序
步骤1：选择“文件””菜单的“Form1另存为”命令，在“保存在”文本框选择保存的文件夹，在“文件名”文本框输入文件名。
步骤2：选择“文件””菜单的“工程另存为”命令，在“保存在”文本框选择保存的文件夹，在“文件名”文本框输入文件名。
再次保存时，若以原文件名保存，则利用“保存Form”，“保存工程”命令，也可利用“保存”工具栏按钮。
【实验报告】
开发一个简单的应用程序。
程序要求：在屏幕上开辟一个窗口，窗口的下部有三个按钮，其中左边按钮中标有“显示”，中间按钮中标有“清除”，右边按钮中标有“结束”。当用鼠标单击左边按钮时，屏幕上部的文本框中显示“欢迎使用Visual Basic 6.0”；如果单击中间按钮，则清除文本框中显示的内容；而如果单击右边的按钮，则结束程序。程序结果如下图1.4。
图1.4 程序结果
实验2 VB基本语言
【实验目的】
1 掌握变量，常量的定义规则及VB基本输入输出函数和语句的功能和用法。
2 熟悉选择结构和循环结构程序设计，灵活使用各种控制语句。
3 掌握数组的定义方法，及数组元素的引用，赋值，输入和输出。
【实验环境】
VB6.0 奔腾586
【实验内容】
1. 使用VB基本输入输出函数和语句及控制结构编写程序。
2. 使用数组编写程序。
【实验步骤】
1. 使用VB基本输入输出函数和语句及控制结构编写程序1
程序要求：从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号，成绩，并根据成绩按下面的规定输出对该学生的评语。
成绩 80～100 60～79 50～59 40～49 0～39
评语 Very good Good Fair Poor Fail
程序如下：
Private Sub Form_Click()
n=InputBox(“请输入姓名”)
s=InputBox(“请输入分数”)
If s>=80 Then
Msgbox ”姓名” & n &”,分数” & s & ”,VeryGood”
ElseIf s>=60 And s<=79 Then
Msgbox ”姓名” & n &”,分数”& s & ”, Good”
ElseIf s>=50 And s<=59 Then
Msgbox ”姓名” & n &” ,分数”& s & ”,Fair”
ElseIf s>=40 And s<=49 Then
Msgbox ”姓名” & n &” ,分数” & s & ”, Poor”
ElseIf s>=0 And s<=39 Then
Msgbox ”姓名” & n &” ,分数” & s & ”, Fail”
End If
End Sub
程序运行后，单击窗体，在下图2.1，2.2所示对话框分别输入姓名和成绩，程序将在输出对话框中输出适当的评语。结果如图2.3所示。
图2.1 输入对话框1
图2.2 输入对话框2
图2.3 程序执行结果
2．使用VB基本输入输出函数和语句及控制结构编写程序2
程序要求：在屏幕上开辟一个对话框，对话框的下部有三个按钮，其中左边按钮中标有“是”，中间按钮中标有“否”，右边按钮中标有“取消”（3）。对话框内提示语为“请确认此数据是否正确”，对话框标题“数据检查对话框”，显示“X”图标（16），并把第一个按钮作为默认活动按钮（0）。对话框见图2.4。如果选择“是”，则返回值为6，在信息框中显示6的平方，见图2.5。如果选择“否”，则返回值为7，在信息框中显示“请重新输入”。见图2.6。
程序如下：
Private Sub Form_Click()
Dim msg, title As String
msg = "请确认此数据是否正确"
title = "数据检查对话框"
x = MsgBox(msg, 19, title)
If x = 6 Then
MsgBox (x * x)
ElseIf x = 7 Then
MsgBox ("请重新输入")
End If
End Sub
程序运行后，单击窗体，结果如图2.4所示。
图2.4 对话框
图 2.5 信息框1
图2.6信息框2
3. 使用数组编写程序
程序要求：定义10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即第1元素与第10元素互换，第2元素与第9元素互换…分别输出数组原来各元素的值和对换后各元素的值。
程序如下：
Option Base 1
Private Sub Form_Click()
arr = Array(1, 3, 5, 7, 9, 2, 4, 6, 8, 10)
Print "原来数组:"
For i = 1 To 10
Print arr(i);
Next i
For i = 1 To 5
For j = 6 To 10
t = arr(i)
arr(i) = arr(j)
arr(j) = t
Next j
Next i
Print "对换后的数组"
For i = 1 To 10
Print arr(i);
Next i
End Sub
程序运行后，单击窗体，结果如图2.7所示。
图2.7 程序运行结果
【实验报告】
编写程序，试验Msgbox函数的功能。
程序要求：在屏幕上开辟一个对话框，对话框的下部有三个按钮，其中左边按钮中标有“终止”，中间按钮中标有“重试”，右边按钮中标有“忽略”（2）。对话框内提示语为“Are you continue to？”，对话框标题“功能测试”，显示“？”图标（32），并把第一个按钮作为默认活动按钮（0）。对话框见图2.8。输出函数的返回值，单击终止，打印返回值3，见图2.9；单击重试，打印返回值4，见图2.10；单击忽略，打印返回值5，见图2.11。
图2.8 对话框
图2.9信息框1
图2.10信息框1
图2.11信息框1
实验三常用控件和窗体
【实验目的】
1 掌握常用控件的主要属性、方法、事件。
2 掌握菜单的设计方法和菜单事件过程的编写方法。
【实验内容】
1、单选按钮和复选框
(1)Caption属性为单选按钮和复选框边上的文本标
(2)Alignment属性表示标题（Caption）显示的位置，默认控件按钮在左边，标题显示在右边，
值为0；反之值为1
(3)Value属性用来检查单选按钮和复选框是否被选定。对于单选按钮，属性值为True表示被
选定，False是缺省值，表示未被选定；复选框用属性值0、1、2分别表示未选定、选定和灰色（不允许选）
(4)单选按钮和复选框的主要事件是Click事件。
2、框架
(1)主要作用是将其他控件组合在一起，对一个窗体中的各种功能进行分类，便于识别。
(2)当用框架将一个窗体上的单选按钮分组后，在一组中单选按钮进行的操作不会影响到其他
组的选择。
(3)主要属性是Caption，当该属性为空时，为封闭框架。
(4)框架一般不需要编写事件过程。
3、列表框和组合框
(1)列表框可以选择所需的项目。
(2)组合框是组合了列表框和文本框的特性而形成的一种控件，即科选择所需项目，也可键入
内容。
(3)组合框的类型由Style属性决定，Style值为0，下拉式组合框；Style值为1，简单组合框；
Style值为2，下拉式列表框
(4)列表框和组合框常用方法是：AddItem、RemoveItem和Clear
(5)列表框的主要事件是：Click和DblClick
4、滚动条
(1)水平和垂直两种，可以作输入数据的工具，也可用来观察数据或确定位置。
(2)常用属性：Max、Min、Value、SmallChange和LargeChange
(3)事件：Change和Scroll。
5、时钟控件
按一定时间间隔（Interval）产生一个计时器（Timer）事件的控件。
常用属性：Interval，以0.001秒为单位。
事件：Timer。
6、菜单
1）菜单的使用形式有下拉式和弹出式两种。
2）每一个菜单都是一个控件对象，有Click事件。
3）建立菜单：
(1)在设计状态，选择“工具”菜单下的“菜单编辑器”命令，打开“菜单编辑器”对话框。
(2)在标题栏输入该菜单的文本。
(3)在名称栏中输入程序中要引用该菜单的名称。
(4)设置菜单的属性（复选、有效、可见）和快捷键等。
(5)选菜单层次，重复前三步，建立菜单各项。
(6)在标题栏输入一个连字符“－”来表示菜单的分隔线。
7、多重窗体
1）添加窗体：选中“工程”菜单上的“添加窗体”命令或工具栏上的“添加窗体”按钮。2）启动对象：缺省情况下，第一个创建的窗体被指定为启动对象。
3）语句和方法：
(1)Load语句：Load 窗体名称
(2)Unload语句：Unload 窗体名称
(3)Show方法：窗体名称.Show
(4)Hide方法：窗体名称.Hide
【实验步骤】
1．编写一个登陆程序，如图：
要求姓名是非数值型数据；
密码设为“123456”，在登陆
窗口中显示“*”。当输入不
正确时，显示相关的提示信
息；当输入正确时，登陆窗
口关闭，情况调查窗口显示。
1）控件：2个标签，2个文
本框，2个命令按钮
2）属性设置：
Text2：PasswordChar=
“* ”，Maxlength=6；其余
属性自行设置。
3）程序代码：
Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then
MsgBox "非有效内容", vbRetryCancel + vbExclamation, "提示信息"
Text1.Text = ""
Text1.SetFocus
End If
If Text2.Text <> "123456" Then
MsgBox "密码错误", vbRetryCancel + vbExclamation, "提示信息"
Text2.Text = ""
Text2.SetFocus
Else
Form1.Hide
Form2.Show
End If
End Sub
Private Sub Command2_Click()
End
End Sub
2．编写情况调查程序，界面如下图，文本框中显示复选框中选中的文字内容；用单选按钮来选择文本框内显示文字的字体、大小和颜色；并设置图中所示的菜单
1）控件：需要的控件有两个标签，1个文本框，4个框架，6个单选按钮，3个复选框，1个水平滚定条。
3）程序设计如下：
Dim str1 As String, str2 As String, str3 As String Private Sub Check1_Click()
If Check1.Value = Checked Then
str1 = Check1.Caption + " "
Else
str1 = ""
End If
Text1.Text = str1 + str2 + str3
End Sub
Private Sub Check2_Click()
If Check2.Value = Checked Then
str2 = Check2.Caption + " "
Else
str2 = ""
End If
Text1.Text = str1 + str2 + str3
End Sub
Private Sub Check3_Click()
If Check3.Value = Checked Then
str3 = Check3.Caption + " "
Else
str3 = ""
End If
Text1.Text = str1 + str2 + str3
End Sub
Private Sub Form_Load()
Label1.Font = "楷书"
Label1.FontSize = 18
End Sub
Private Sub HScroll1_Change()
Text1.FontSize = HScroll1.V alue
End Sub
Private Sub Option1_Click()
Text1.FontName = "隶书"
End Sub
Private Sub Option2_Click()
Text1.FontName = "幼圆"
End Sub
Private Sub Option3_Click()
Text1.ForeColor = vbRed
End Sub
Private Sub Option4_Click()
Text1.ForeColor = vbGreen
End Sub
Private Sub Option5_Click()
Text1.FontBold = True
End Sub
Private Sub Option6_Click()
Text1.FontItalic = True
End Sub
菜单中程序代码：
Private Sub fon12_Click()
Text1.FontSize = 12
HScroll1.Value = Text1.FontSize
End Sub
Private Sub fon18_Click()
Text1.FontSize = 18
HScroll1.Value = Text1.FontSize
End Sub
Private Sub fon24_Click()
Text1.FontSize = 24
HScroll1.Value = Text1.FontSize
End Sub
Private Sub fon36_Click()
Text1.FontSize = 36
HScroll1.Value = Text1.FontSize
End Sub
Private Sub fh_Click()
Form2.Hide
Form1.Show
End Sub
Private Sub quit_Click()
End
End Sub
【实验习题】
设计一个简单的设置字体、字形、字体大小的演示程序。要求：窗体中有3个组合框，分别为3种类型的组合框，3个标签，1个框架，1个命令按钮和1个图片框。
实验四数据库系统
【实验目的】
1 学会创建一个简单的数据库
2 了解数据库控件的属性、事件和方法。
【实验内容】
1．会用数据库管理器建立数据库（建立Access数据库）
2．数据控件的属性
(1)Connect属性：指定所连接的数据库类型
(2)DatabaseName属性：指定具体使用数据库的文件名，包括路径名。
(3)RecordSource属性：确定具体可访问的数据，可是个表名。
(4)RecordType属性：确定纪录集类型，如使用Access的MDB数据库，则应选择Table类型。3．数据控件的事件
4．数据控件的方法
5．记录集的属性和方法
6．数据库记录的操作
【实验步骤】
1．设计界面，添加控件：1个Data控件，6个标签，6个文本框
2．建立学生成绩数据库
(1)在VB窗口中，单击“外接程序”菜单中的“可视化数据库管理器”，打开可视化数据库管
理器
(2)在数据库管理器
中，单击“文件”
菜单下“新建”中
“Microsoft
Access/Version 7.0
MDB”命令，打开
“选择要创建的
Microsoft Access数
据库”对话框，在
“文件名”栏输入
数据库文件名“学
生成绩”，选择路
径。
(3)右击数据库窗口中
“Properties”，选择
“新建表”命令。
打开“表结构”对话框，在“表名称”栏输入“学生成绩”。
(4)单击“添加字段”按钮，在打开的对话框中输入名称、类型、大小等，设置一个字段要单
击“确定”按钮。
(5)表建好后，在数据库窗口中“学生成绩”
表名处双击（击右键，选择打开），打开
表格输入窗口，选“添加”按钮，添写
更新各条纪录。
3．设置属性
1）数据库控件Data1
Connect属性：设为Access
DatabaseName属性：学生成绩.mdb，要加路
径（直接选数据库文件就可以）。
RecordSource属性：学生成绩
RecordType属性：0-Table
2）6个文本框
DataSource属性：Data1
DataField属性：从Text1~Text6依次选择学号、姓名…计算机。4）其他控件请根据题来设置。
程序代码如下：
Private Sub Command1_Click()
Data1.Recordset.MoveFirst
End Sub
Private Sub Command2_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
End Sub
Private Sub Command3_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
End Sub
Private Sub Command4_Click()
Data1.Recordset.MoveLast
End Sub
Private Sub Command5_Click()
On Error Resume Next
Command6.Enabled = Not Command6.Enabled
Command7.Enabled = Not Command7.Enabled
Command8.Enabled = Not Command8.Enabled
If Command5.Caption = "新增" Then
Command5.Caption = "确定"
Data1.Recordset.AddNew
Text1.SetFocus
Else
Command5.Caption = "新增"
Data1.Recordset.Update
Data1.Recordset.MoveLast
End If
End Sub
Private Sub Command6_Click()
On Error Resume Next
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
End Sub
Private Sub Command7_Click()
On Error Resume Next
Command6.Enabled = Not Command6.Enabled
Command5.Enabled = Not Command5.Enabled
Command8.Enabled = Not Command8.Enabled
If Command7.Caption = "修改" Then
Command7.Caption = "确定"
Data1.Recordset.Edit
Text1.SetFocus
Else
Command7.Caption = "修改"
Data1.Recordset.Update
End If
End Sub
Private Sub Command8_Click()
Dim m As String
m = InputBox$("输入学号", "查找")
Data1.Recordset.FindFirst "学号='" & m & "'"
If Data1.Recordset.NoMatch Then MsgBox "无此学生！", , "提示"
End Sub
【实验习题】
建立一个小型的图书管理系统，界面自行设计，要求合理、方便。要求有添加、删除、查询功能。图书数据要有编号、书名、购入时间、价钱、简介、状态（是否出借）等。
VB程序设计实验报告
《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 回
VB程序设计实验要求及报告
上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验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课程设计心得体会
三一文库（https://www.docsj.com/doc/b811361582.html,）/心得体会范文/心得体会数据库VB课程设计心得体会 数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇*，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹 并期望与大家共勉。 首先，让我的记忆追溯到大二暑假，在老大的指引下（老大劝我学https://www.docsj.com/doc/b811361582.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课程实验报告
山西财经大学《程序设计（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程序设计的几个简单例子
Option Explicit Private Sub Command1_Click() Dim i%, j%, r! i = Val(Text1.Text) j = Val(Text2.Text) Picture1.Print i; j; Call gysh(i, j) Picture1.Print "最大公约数是" & i r = Val(InputBox("输入半径")) Call S(r) End Sub Public Function gysh(m As Integer, n As Integer) As Integer Dim t% Do t = m Mod n: m = n: n = t Loop While t <> 0 End Function Public function S(r!) Const pi = 3.1415926 S = pi * r ^ 2 MsgBox "圆面积为：" & S End function Public Function 定积分() End Function
Dim a() As Integer, i%, j%, n%, t% Private Sub Command1_Click() Picture1.Print "排序前的数组为：" n = V al(InputBox("请输入一个3到100的整数")) ReDim a(1 To n) Randomize For i = 1 To n a(i) = Int(Rnd * 100) + 1 Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next i End Sub Private Sub Command2_Click() Picture1.Print Picture1.Print "排序后的数组为：" For i = 1 To n - 1 For j = i + 1 To n If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next Next For i = 1 To n Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next End Sub
vb程序设计实验教程习题答案
实验教材实验一 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程序设计教程(第3版)课后实验答案最新版2
1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5
VB实验一 实验报告
实验报告一 课程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 典型结果】
VB学习心得体会
vb学习的心得体会 ————刘师桐 这学期选修了vb这门学科,想从学习中对计算机有更深刻的认知,也对我大学中的2级 考试奠定基础。那么谈谈这学期的学习中对vb的认知与心得体会。 vb全称为visual basic,就是微软公司推出的可视化编程工具msdn之一,就是目前 世界上使用最广泛的程序开发工具。vb提供的就是可视化的开发环境,我们可以象搭积木一样构建出程序的界面,而且vb提供了丰富的控件组,省去了我们自己写代码实现这些效果的麻烦,这样我们就能把更多的精力放在程序功能的实现上,所以vb学起来简单,用起来方便。因此, 我学了vb,并有了如下收获: 1.富业余生活。业余时间到处游手好闲的身影不见了,没事我肯定一动不动的坐在电 脑面前摆弄vb。就是啊,想想以前,真就是一无就是处,一会找人砍大山,一会找人 打游戏,一会就傻傻的坐在小板登上两眼无光,似就是厌倦了红尘。现在生活有了寄 托,就是vb给了我无穷的快乐,让我乐此不疲。 2、多了一门技术。vb就是一门计算机编程语言,也算就是一项知识含量较高的东西。采用的就是可视化程序设计。学习的这段时间,我明白了万事开头难,刚刚开始,遇到些困难没关系,慢慢来。编程就是一个不断学习,不断积累的过程,编程的乐趣也正就是存在于学习的过程中。我们每学一点,就赶快把它用到实际的程序中去,自己多学 多用多实践,水平才能不断提高,这就就是“学以致用”。多瞧多练就是我独门绝技,一般人我不告诉她:多瞧------别人的代码,即使瞧不懂也没关系,可以把这些代码输入到机子里 运行,然后根据运行结果去体会程序的思路与用途。 3、锻炼意志。编程可不就是一项轻松的活,尤其就是一个人开发制作软件时,那工作量 就多了。没有一定的坐功、细心程度及耐性那就是绝对做不到的。有时,把程序做完了需要调试运行,但就是就就是不能达到自已设计的效果与目的,那您得戴上放大镜找啊找啊,也许就就是因为一个符号或一个字母,您就得花上个几个小时,半天,甚至更长。越就是这样越不要灰心,应该放松心态,一点一滴的去查。只要有一颗永不退缩的心,我相信您一定能找到问题所在,最后一定能见到您开心的笑容,也一定能找到成功者的感觉。 通过这个学期的学习,对了vb这种高级语言有了初步的认知,对一些小的程序有了初步 的设计方案,能根据要求设计出想要的程序,锻炼了自己的创造性思维,就是培养逻辑思维的好方法,同时我经常瞧同学设计好的程序代码,包括教材上的例题程序,然后想想别人为什么这么计就能达到效果,我的设计能不能完成更多的功能,这样优秀了自己,帮助了自己,提高了自身 水平,同样,也欣赏了别人,对别人就是赞美,对自己就是帮助,总而言之,这学期的vb课程让 我收获了很多,我对下学期的计算机2级考试很有信心！！！篇二:vb学习心得体会vb学习心得体会 这学期选修了vb这门学科,想从学习中对计算机有更深刻的认知,也对我大学中的2级 考试奠定基础。那么谈谈这学期的学习中对vb的认知与心体会。 通过学习vb我基本学会了编辑一些小程序,掌握了一些基本的知识,得到了以下一些收获: 1.富业余生活。曾经业余时间到处游手好闲的身影不见 了,以前没事我肯定一动不动的坐在电脑面前摆弄电脑。就是啊,想想以前,真就是一无 就是处,一会找人砍大山,一会找人打游戏,一会就傻傻的坐在小板登上两眼无光,似就是厌倦 了红尘。现在有了vb,它给了我无穷的快乐,让我乐此不疲。 2、多了一门技术。vb就是一门计算机编程语言,也算就是一 项知识含量较高的东西。采用的就是可视化程序设计。学习的这段时间,我明白了万事开头难,刚刚开始,遇到些困难没关系,慢慢来。我们每学一点,就赶快把它用到实际的程序中去,自己多学多用多实践,水平才能不断提高,这就就是“学以致用”。只有这样我才呢学有所成 3、锻炼意志。编程可不就是一项轻松的活,尤其就是一个人
《VB程序设计》实验报告
台州学院 《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课程设计心得体会范文 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程序设计实验报告
《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 '复制
完整word版,VB程序设计例题12例
索引 一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。 二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用。） 三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。 四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。单击退出按钮则程序退出。 五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。 六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 七、编程求100以内的全部素数。 八、编程打印钻石图案。 九、输出杨辉三角形。 十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。 十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。 十二、编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如28=1+2+4+7+14就是一个完全数。
VB程序设计学习与实验指导答案
Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.docsj.com/doc/b811361582.html, 第3章Visual Basic 语言基础 1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1
2.mod 3.X=Int(X) And Y=Int(Y) And X*Y>0 4. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0 5.x=Int((99-10+1)*Rnd+10) 6.0 “” 7.空格 8.6，845.30 9. （1）8 （2）1 （3）abcd （4）出错，类型不匹配 （5）False （6）2008-6-29 （7）I likeVB （8）4 （9）4 4 （10）3 4 （11）10 -10 （12）-1 （13）aa （14）3 （15）0 （16）1 （17）C （18）5 （19）8 （20）34.54 （21）中国 （22）上海 （23）VISUAL BASIC （24）visual basic 10. （1）x<-100 or x>100 （2）a=Int(a) And b =Int(b) Or a<0 And b<0 （3）x<=y or x>=z （4）a>0 And a<>Int(a) （5）a=0 xor b=0 （6）Len(S)<10 （7）UCase(S)=S （8）Left(S,1)=”a” And Right(S,1)=”a” （9）Instr(S,”@”)<>0 （10）Trim(S)=S （11）Date=#8/8/2008#
VB程序设计例题程序改错程序填空程序设计
'以下程序段用于输出杨辉三角:结果样式如图1 ' Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【arr(I, 1) = 1】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** 【print arr(I,j)】 Next j Print Next I End Sub Option Explicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!， ' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数' 据错误。X、N都是由用户输入。 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox("Please input a integer value:"))
[心得体会]vb程序设计实验心得4篇
[心得体会]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设计计算器实验报告
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可视化程序设计实例——小时钟 本例专门针对程序设计初学者而设计，尤其适合第一次接触VB的学生学习。通过用VB来设计如图3.39所示的时钟程序，初步感受一下可视化和面向对象的程序设计过程。 图3.39 时钟程序运行效果 小时钟程序中包含窗体控件、标签控件和计时器控件等3个控件。窗体控件是小时钟程序运行时的窗口，标题栏上的标题是“时钟”，在右上角有最小化、最大化和关闭按钮。标签控件可以用来显示文本，本例中用来显示时间，如“9:48:57”。计时器控件每秒一次把计算机的当前系统时间显示到标签控件中，使得小时钟不停地运行。Array启动VB，首先显示“新建工程”对话框（图3.40），在选择“新建”选项卡中的“标 准EXE”项后，单击“打开”按钮，进入VB编程环境，如图3.41所示。 图3.40 “新建工程”对话框
图3.41 VB 可视化编程环境 除了标题栏、菜单栏和标准工具栏外，编程环境中还有工具箱、窗体和属性等窗口。 双击工具箱（图3.42）中的标签控件，在窗体Form1中放置可以显示文本信息的标签控件Label1，见图3.43。时钟的时、分和秒以后就显示在Label1中。拖曳Label1可以移动它，拖曳它的八个控制点，可以改变它的大小。 图3.42 工具箱 图3.43 label1控件 图3.44 计时器控件 双击工具箱中的计时器控件，在窗体Form1中放置计时器控件Timer1，见图3.44。计时器控件以一定的时间周期，调用一个事件。计时器控件只有在设计阶段出现在窗体上，程序运行时是不可见的，它的位置和大小无关紧要。 到目前为止，已经建立了窗体Form1、标签控件Label1和计时器控件Timer1等3个对象。下面，将设置它们的属性。 窗体窗口
vb课程设计报告心得感想模板.doc
vb课程设计报告心得感想 vb课程设计报告心得感想篇1 在课程设计过程中，虽然我对程序设计不是很熟悉，但是通过老师详细的讲解，我按照步骤去做，遇到问题的时候先自己想办法解决，解决不了的就去问同学，问老师，通过这种学习，收获很大，学会了自己解决棘手问题，知道了团结的力量。 刚开始做程序的时候，就是完全按照老师的要求，老师的步骤去做的，结果却发现，怎么运行不了?明明是按照老师的步骤去做的，明明是按照老师的要求去做的，但是就是会遇到一些问题使程序运行不了。开始也没有管那么多，仍然是按照课本上的去做。 第一次，在上机课的时候，我根据老师讲的，在机房里做了一次，但没有做完。于是把东西存在了自己的MP3里面，以便以后上机的时候再来做。但真的没有想到，我的MP3，在一次上电子阅览室的时候，忘了拔了。于是乎，我辛辛苦苦做了一大节课的程序就这样没了。心里真的很不舒服，但是，不舒服归不舒服，这个程序，还是得继续做下去，这么以点点小小的失误不算什么，然后跑到学校机房，继续我的VB程序设计。但由于时间问题，做的还是有点粗糙，还是不免存在一定的问题，比如说开始的时候打开不了文件，总是出现错误，自己总也找不出来，后来请教了一下同学，结果发现时代码的编写出现了错误，把代码改过来之后，程序终于可以打开运行了。然后，检查的时候，又发现查找运行错误，又是代码那里出现的黄色的字样，结果发现，是代码拼写错误，于是，拿着同学的代码对比一下，发现了错误所在之地，然后更正了过来。 经过一番努力，程序终于做完了。 后来，室友看了我的程序，她说运行不了的，就是出现了错误，出现了错误，就应该改过啊，这时的我才恍然大。是错误，那么就要改正的! 于是当天，我就去了学校机房，再一次运行我的程序，仍然出现错误情况，需要调试，我回忆起上课的时候，老师是怎么跟我们讲的，哪里出现了错误，需要怎么样改正。于是，我就耐着性子，一个一个，一个一个得改正，编辑代码，一个一个得检查，终于完成了。完成之后，我在运行一下，一切正常，心里终于舒了一口气。经过这次的VB程序设计，让我知道了更多学习的方法。具体如下：(1)保持良好的学习心态，第一，要有自信，自强，积极主动学习.第二，克服畏难情绪，树立学好程序设计的信心(2)要了解概念：VB程序设计本身并不复杂，变量，函数，条件语句，循环语句等概念较多.要真正能进行程序设计，就要深入理解这些概念.应该重视概念的学习. (3)自己动手编写程序，亲自动手进行程序设计是培养逻辑思维的好方法.因此我们得多动手编写程序，逐渐提高写程序的能力.自己动手，编写一些程