计算机word专业报告,计算机专业VB验报告word文档.doc

计算机专业VB验报告word文档

江 西 科 技 师 范 学 院

实 验 报 告

课 程:Visual Basic程序设计

系 别

班 级

学 号

姓 名

报

告

规

格

一实验目的

二实验原理

三实验仪器四实验方法及步骤

实验记录及数据处理

误差分析及问题讨论

实验1: VB界面使用及一般步骤

目的 ：熟悉VB界面窗口及运用VB程序设计的一般步骤

要求：在VB开发平台上进行第一个程序开发

内容：在VB开发平台上编程：1、按上课的例题编制一个简单加法器。

2、编写代码：进行“5+3”、“5*3”计算并利用Print方法输出结果。

Option Explicit

Dim a%,b%

Private Sub Command1_Click()

a = 5

b = 3

Print a; "+"; b; "="; a + b

Print a; "*"; b; "="; a * b

End Sub

实验二

实验目的：

进一步熟悉命令按钮、窗体、标签控件；掌握表达式的概念和熟练使用。实验要求：

1练习使用命令按钮、窗体、标签的常用属性。实验内容：

制作一个登录对话框，再将窗体、命令按钮的图标、背景、前景等设置自己喜欢的形式。

Option Explicit

Private Sub Command1_Click()

Dim i As Integer

If Text2.Text <> "Gong" Then

i = MsgBox("密码错误", 5 + vbExclamation, "警告")

If i <> 4 Then

End

Else

Text2.Text = ""

Text2.SetFocus

End If

End If

End Sub

Private Sub Text1_LostFocus()

If Not IsNumeric(Text1.Text) Then

MsgBox "帐号必须为数字", , "警告"

Text1.Text = ""

Text1.SetFocus

End If

End

Sub

实验 3

实验目的：

练习常用控件：窗体、标签、命令按钮

验证算术运算符、字符运算符、比较运算符、逻辑运算符

实验要求：利用窗体、命令按钮、标签、文本框及Print方法验证运算符

将上课的示例在VB平台下实验。

Option Explicit

Dim x !,y!,z!

Private Sub Command1_Click()

x = Val(txtfirst.Text)

y = Val(txtsecond.Text)

z = x + y

txtresult.Text = Str(z)

End Sub

Private Sub Command2_Click()

x = Val(txtfirst.Text)

y = Val(txtsecond.Text)

z = x - y

txtresult.Text = Str(z)

End Sub

Private Sub Command3_Click()

x = Val(txtfirst.Text)

y = Val(txtsecond.Text)

z = x * y

txtresult.Text = Str(z)

End Sub

Private Sub Command4_Click()

x = Val(txtFistr.Text)

y = Val(txtsecond.Text)

z = x / y

txtresult.Text = Str(z)

End Sub

Private Sub Command5_Click()

txtfirst.Text = ""

txtsecond.Text = ""

txtresult.Text = ""

txtfirst.SetFocus

End Sub

实验四 顺序结构和选择结构初步

实验目的：练习程序设计结构化设计中顺序结构

实验要求：在以前学习的基础上，理解掌握顺序结构的概念。

实验内容：

1、已知a、b二个变量，将二个变量的