VB上机实验指导书

实验的总体要求与方法

实验是巩固课堂所学知识、掌握可视化程序设计的方法、提高分析问题和解决问题能力的最重要的途径。因此明确实验目的、内容与要求、实验步骤及实验规则，一方面有助于实验任务的顺利完成，另一方面也有利于养成严谨科学的作风。每个实验都要遵循认真预习准备、认真做好实验、认真写好实验报告三个阶段进行。

1．实验的基本目的

（1）通过实验熟悉面向对象程序设计的基本概念。

（2）通过实验熟练掌握利用VB进行可视化程序设计的基本方法。

（3）通过实验掌握应用程序的调试方法，加强应用能力的训练与培养，从而具有

计一般应用程序和解决事务管理问题的能力。

2．实验的基本要求

（1）上机实验之前，应认真预习有关实验内容及相应教材。

（2）实验过程中应记录实验中的有关数据（包括出错信息等），以便课后进行分析。

（3）所有实验都应具备下列条件：

①硬件：IBM PC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。

②软件：操作系统为中文Windows 95/98或Windows 2000 Professional,开发环境为Visual Basic 6.0 中文企业版。

（4）除非特别指明，约定每个实验的相关窗体文件或模块文件都存放在“D:＼VBsy”

文件夹下（自己可以新建一个），窗体文件的命名规则为“frmSy_xx_xx.frm”，

模块文件的命名规则为“Sy_xx_xx.bas”，如实验二第１题的窗体文件命名为

“frmSy_2_1.frm”。

（5）上机时要遵守实验室的规章制度，爱护实验设备。

３．实验报告

每个实验结束后都应写出实验报告，报告中应包括下列内容：

（１）实验目的

（２）实验内容与要求

（３）实验步骤

（４）实验结果及分析讨论、实验心得体会等。

实验一熟悉vb的开发环境、程序设计的基本步骤

【实验目的】

1．熟悉Visual Basic 6.0集成开发环境。

2. 学习怎样启动和退出VB

3．掌握开发一个简单程序的基本步骤。

4．掌握简单代码的编写。

【实验内容】

1．启动和退出VB

2．开发一个简单程序。

3．将Visual Basic工程编译生成可执行文件。

【实验要求及操作步骤】

一、启动和退出VB

1、进入VB集成开发环境

要进入VB应用程序，首先要运行VB的集成开发环境。启动VB的方法如下：

[方法1]

◇单击任务栏上的“开始”按钮；

◇选择“程序”文件夹，接着选取“Microsoft Visual Basic 6.0中文版”文件夹，再选取“Microsoft Visual Basic 6.0中文版”项，如图1-1所示；

图1-1 启动VB的方法1

◇单击鼠标左键。

[方法2]

◇单击任务栏上的“开始”按钮；

◇选择“程序”文件夹；

◇使用“Windows 资源按理器”查找VB可执行文件 VB6.exe；

◇双击图标。

[方法3]

◇在桌面创建一个VB快捷键；

◇双击该快捷键。

VB启动后，出现VB6.0的“新建工程”对话框（图１-2）单击“打开”按钮，带有一个窗体的新工程将被创建，并可以看到VB集成开发环境的界面，如图1-3所示。有的系统启动后可直接进入图1-3所示的界面。

图1-2 VB6.0的“新建工程”对话框

图1-3 VB的集成开发环境窗口

1、退出VB方法：

（1）单击主窗口右上角的“关闭”按钮。

（2）执行“文件”菜单中的“退出”命令。

（3）按Alt+Q键。

二、开发一个简单程序

要求：新建一工程，在窗体（Form）上添加一个标签（Label），当单击窗体时标签（Label）显示“床前明月光”。

实验步骤：

（1）新建工程

在桌面上双击Microsoft Visual Basic 6.0快捷方式图标，系统进入Visual Basic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准EXE”（即标准工程）。单击“打开”按钮，Visual Basic 6.0进入设计模式。如图1－4所示。

图1－4“新建工程”对话框

单击“文件”菜单，选择“新建工程”菜单项，也可进入设计模式。

（2）设计界面

在系统提供的名为Form1的窗体上进行界面设计。单击工具箱上的标签（Label）控件，在窗体上添加标签的位置处按下鼠标左键，并拖动，调整虚框的大小，松开鼠标，就将标签控件添加到窗体上。初始界面如图1－5所示。

图1－5初始界面

（3）设置属性

如表1－1所示。

设置属性后的界面如图1－6所示。

图1－6设置属性后的界面图1－7第一个程序（4）编写程序代码

Private Sub Form_Click( )

Label1.Caption = "床前明月光"

End Sub

（5）运行程序

运行VB程序有三种方法：①单击工具栏上的“启动”按钮；②从“运行”菜单中选择“启动”菜单项；③按F5键。

例如，单击工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图1－7所示。

（6）保存程序

单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件（例如窗体文件名为“实验一.frm”），然后保存工程文件（例如工程文件名为“实验一.vbp”）。

三、将Visual Basic工程编译生成可执行文件

单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe文件。

退出Visual Basic集成开发环境，双击实验一.exe文件，则实验一.exe文件就可直接运行。

实验二命令按钮、文本框和标签

【实验目的】

1．掌握命令按钮、文本框和标签常用属性值的设置方法。

2．学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。

3．掌握命令按钮的主要事件的使用。

【实验内容】

1．利用命令按钮、文本框和标签判断密码是否正确。

2．建立应用程序，对两个文本框中输入的内容进行交换。

【实验要求与步骤】

1．实验内容

要求:在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”；在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。

步骤：

（1）设计界面

在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面如图2－1所示。

图2－1初始界面图2－2设置属性后的界面

（2）设置属性

设置属性后的界面如图2－2所示。

表2－1属性设置

（3）编写程序代码

Private Sub Command1_Click()

If Text1.Text=“goodbaby”Then

Label2.Caption=“欢迎使用本系统！”

Else

Label2.Caption=“密码错误！请重新输入密码！”

End If

End Sub

Private Sub Command2_Click()

End

End Sub

（4）运行程序

①在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”。运行结果如图2－3所示。

图2－3 输入的密码正确

②在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。运行结果如图2－4所示。

图2－4 输入的密码错误

2．实验内容

（1）设计界面

在窗体上放置两个Label 控件、两个TextBox控件和三个CommandButton控件。初界面如图2－5所示。

图2－5 初始界面图2—6 属性设置后的界面

（2）属性设置

设置属性后的界面如图2－6所示。

表2－2属性设置

对象属性名称属性值

Form1 Caption 交换

Label1 Caption输入第1个数

Label2 Caption输入第2个数

Text1 Text 空

Text2 Text空

Command1

Name CmdChange Caption交换Default Ture

Command2

Name CmdClear Caption清空

Command3

Name CmdExit Caption退出

（3）编写程序代码

Option Explicit

Private Sub CmdChange_Click( ) Dim temp As Integer

temp=Text1.Text

Text1.Text=Text2.Text

Text2.Text=temp

End Sub

Private Sub CmdExit_Click( )

Unload Me

End Sub

Private Sub CMdCLear_Click( )

Text1.Text=””

Text2.Text=””

Text1.SetFocus

End Sub

(4) 运行程序

执行结果如图2-7（a）、（b）所示。单击“清空”按钮并再数入数据，进行交换。

图2-7（a）交换前的界面图2-7（b）单击交换后的界面

实验三表达式、InputBox函数和MsgBox语句

【实验目的】

1．掌握表达式的构成和如何求表达式的值。

2．掌握赋值语句的使用。

3．掌握InputBox函数的使用。

4．掌握MsgBox语句的使用。

【实验内容】

1.利用InputBox函数和MsgBox语句求圆的周长。

2.利用InputBox函数输入三角形的三边的长度a,b,c,计算三角形的面积并显示在窗体上。

【实验步骤与指导】

1．实验内容

(1) 设计界面

在窗体上添加一个命令按钮。初始界面如图3－1所示。

图3－1 初始界面图3－2 设置属性后的界面

(2)．设置属性

设置属性后的界面如图3－2所示。

(3)．编写程序代码

Private Sub Command1_Click( )

Const pi = 3.14159

Dim r As Single, s As String, s2 As String

Dim zhouchang As Single

s = InputBox("请输入半径", "输入半径", 1)

r = Val(s)

zhouchang = 2 * pi * r

s2 = "半径=" + s + ",圆的周长=" + Str(zhouchang)

MsgBox s2, 64, "确认窗口"

End Sub

(4)．运行程序

单击工具栏上的“启动”按钮，进入运行模式。单击“计算圆的周长”命令按钮，在输入框中输入圆的半径（例如，输入“2”），在消息框中输出半径和计算出来的圆的周长，如图3－3所示。

(a)

(b) (c)

图3－3 计算圆的周长

2．实验内容

(1)．设计界面

初始界面如图3－4所示。

(2)．设置属性

表3－1 属性设置

对象属性属性值

Form1Caption求三角形的面积

图3-4 初始界面

(3)．编写程序代码

Private Sub Form_click()

Dim a As Single, b As Single, c As Single

Dim s As Single, p As Single

a = InputBox("请输入三角形的边a：", "输入")

b = InputBox("请输入三角形的边b：", "输入")

c = InputBox("请输入三角形的边c：", "输入")

If (a + b <= c Or a + c <= b Or b + c <= a) Or (Abs(a - b) >= c Or Abs(a - c) >= b Or Abs(b - c) >= a) Then

MsgBox ("你输入的数据有误！")

Else

p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c))

Print "三角形的面积为："; s

End If

End Sub

（4）运行程序

如图3—5（a）（b）（c）（d）所示

(a) (b)

（c）（d）

图3－5 计算三角形的面积

实验四选择结构

【实验目的】

1．掌握逻辑表达式的正确书写形式。

2．掌握单分支与双分支条件语句的用法，熟悉If….Then…..Else语句。

3．掌握选择结构中多条件，多分支程序的用法，熟悉Select Case语句。

【实验内容】

1.编写程序，利用文本框检查用户密码。提示：可以用文本框的PasswordChar属性来隐蔽用户输入的字符。提示：设密码是“123456”，利用文本框的PasswordChar属性可以隐蔽用户输入的字符。

2．输入一个数字（0-6），用中英文显示星期几。提示：用多条件多分支选择语句Select Case来解决。

【实验步骤与指导】

1．实验内容

（1）建立用户界面。

（2）设置对象属性。

表4－1 属性设置

（3）编写事件代码。

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then '回车字符的Ascii为13

If Text1.Text = "123456" Then

Label1.Caption = "欢迎使用本系统！"

Else

Label1.Caption = "对不起，密码错！"

End If

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

End If

End Sub

（4）运行程序

程序输出界面如图4－1，图4－2所示。

图4－1 验证密码正确图4－2 验证密码不正确2．实验内容

（1）建立用户界面。参考图4－3所示。

图4－3 界面设计

（2）设置对象属性。

表4－2 属性设置

（3）编写事件代码。

Private Sub Command1_Click()

Dim n As Integer, m As String

n = Val(Text1.Text)

Select Case n

Case 1

m = "星期一（Monday）"

Case 2

m = "星期二（Tuesday）"

Case 3

m = "星期三（Wednesday）"

Case 4

m = "星期四（Thursday）"

Case 5

m = "星期五（Friday）"

Case 6

m = "星期六（Saturday）"

Case 0

m = "星期日（Sunday）"

Case Else

m = "重新输入"

End Select

Label2.Caption = m

End Sub

程序输出界面如图4－4所示。

图4－4 程序运行结果

实验五循环结构

【实验目的】

1．掌握For语句的使用。

2．掌握Do语句的使用。

3．掌握如何控制循环条件，防止死循环或不循环。

【实验内容】

1.利用For循环求S=1+(1+2)+(1+2+3)＋．．．+(1+2+3+．．．+n)的值。提示：本题是先进行内循环累加，再进行外循环累加，因此需要两个累加器．也可用一个循环来实现．括号内每累加一个数，就往S中累加一次。

2．输入一个正整数，利用“当型”循环判断是否素数。提示：“素数”是除了1和该数本身，不能被任何整数整除的数，判断一个自然数是否素数，只要依次2～n用做除数去除n，若n不能被其中任何一个数整除，则n为素数。

【实验步骤与指导】

1．实验内容

（1）建立用户界面。

（2）设置对象属性。参考图5－1所示。

图5－1 属性设置图5－2 程序运行结果（3）编写事件代码。

Private Sub Command1_Click( )

Dim n As Integer, i As Integer, j As Integer, s As Long

n = Val(Text1.Text)

j = 0: s = 0

For i = 1 To n

j = j + i

s = s + j

Next i

Label2.Caption = "和数S=" & Str(s)

Text1.SelLength = Len(Text1.Text)

End Sub

（4）运行程序

程序输出界面如图5－2所示。

2．实验内容

（1）建立用户界面。参考图5－3所示。

图5－3 界面设计（2）设置对象属性。

（3）编写事件代码。

Private Sub Text1_GotFocus( )

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

End Sub

Private Sub Command1_Click()

Dim n As Long

Select Case V al(Text1.Text)

Case Is < 3

MsgBox "请输入一个大于2的整数", vbInformation + vbOKOnly, "注意"

Case Is > 2147483647

MsgBox "该数太大", vbInformation + vbOKOnly, "注意"

Case Else

n = Val(Text1.Text)

s = 0

i = 2

Do While i <= Sqr(n) And s = 0

If n Mod i = 0 Then

s = 1

Else: i = i + 1

End If

Loop

If s = 0 Then

a = "是一个素数"

Else

a = "不是一个素数"

End If

Label1.Caption = Str(n) & a

End Select

Text1.SetFocus

End Sub

（4）运行程序

程序运行结果如图5－4所示。

图5－4 程序运行结果

实验六 Sub过程

【实验目的】

1．掌握Sub过程的定义。

2．掌握Sub过程的调用。

3．掌握Sub过程参数传递规则。

【实验内容】

编写一个求阶乘的过程，调用该过程求4！和6！。

【实验步骤与指导】

1．设计界面

在窗体上添加两个命令按钮和两个标签。初始界面如图6－1所示。

图6－1 初始界面图6－2 设置属性后的界面2．设置属性

表6－1 属性设置

设置属性后的界面如图6－2所示。

3．编写程序代码

vb实验教程答案

第一章 答案： 一、单项选择题 1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C 二、判断题 1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T 第二章 一、单项选择题 1. B 2. D 3. A 4. D 5. B 6.A 7. D 8. D 9. D 10. A 11. A 12. A 13. C 14. C 15. A 16. C 17. A 18. D 19. A 20. D 21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B 31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A 41. D 二、判断题 1. True 2. True 3. False 4. False 5. False 6. False 7. False 第三章 一、单项选择题 1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A 16.C 17.B 二、判断题 1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F 11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F . 第四章 一、单项选择题 1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A 21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D 二、判断题 1.F 2.T 3.F 4.F 5.T 6.F 7.T 三、操作题 1.参考代码： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Dim sum As Integer For i = 2 To 10000 sum = 0 For j = 1 To i / 2 k = i Mod j If 0 = k Then sum = sum + j End If Next j

VB上机综合测试题(十五套)

VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分） 二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分） 三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）

答案： 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() End Sub

VB实验指导书_理论综合练习题_答案(完结版).doc

第二部分综合练习 理论练习一 一单选 1-5 CDCCB 640ABDCD 11-15 CCBBD 16-20 DBCBA 二多选 1 ABCE 2CE 3 BCE 4 ADE 5 ABCD 6ABCDE 7ACD8ABCDE 9 ABC 10ABCDE 三判断 1-5 X V X V V6-10 V X V V V 四填空 1 x=int(Rnd*101)End If avg=s/8 2 i=l to 10Right(str(i),l)或Right(str(i mod 10)) 3 m*n/GCD(m,n)GCD(b, a mod b) 4 Exit For i & “是素数”Next i 五阅读程序 1-4 DDCB 六程序设计 1 Option Base 1 Private Sub Form_click() Dim a( 10) Cis createdata a() sort a()

Fori= ITo 10 Print a(i); Next i End Sub Sub createdata(a()) Fori = ITo 10 a(i) = Int(Rnd * 101) Next i End Sub Sub sort(a()) For i = 1 To 9 Forj = 1 To 10-i If a(j) > a(j + l)Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i End Sub 2 Private Type ks no As String * 8 Bscj As Integer Sjcj As Integer End Type Dim student As ks Private Sub Form_Load() Open "c:\ksxx.dat" For Random As#l Len = Len(student) End Sub Private Sub cmdadd_Click() student.no = Text 1.Text student.Bscj = Val(Text2.Text) student.Sjcj = Vai (Tex t3.Text) lastrecord = LOF( 1) / Len(student) + 1 Put # 1, lastrecord, student Textl.Text = Text2.Text = ”” Text3.Text =" End Sub Private Sub cmdquit_Click() Close #1 End 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全部上机练习题

VB上机练习题3 1、实验教材P9 (1) 2、实验教材P9 (2) 3、实验教材P9 (3) 4、在窗体上设计一个标签，要求标签有边框，当程序运行时标签中显示内容为“验证性实验”，窗体的背景颜色为“黄色”，当单击标签时，显示的内容水平居中对齐，双击标签时，标签的背景透明。 5、按照下面窗体的式样设计窗体界面，然后编写程序代码实现下面的加法器功能：当程序运行时单击“出题”按钮，分别在文本框Text1和Text2中随机出[10—90]之间的两位整数（提示：用随机函数Rnd），当单击“=”按钮时，在文本框Text3中显示计算的结果，单击“清除”按钮时，三个文本框中的内容全部清除。 VB上机练习题4 1、设a=2, b=3, c=4, d=5, 求下列表达式的值，将答案写在每题的后面。 (1) a+c < b+d (2) a+b <> c+d (3) a > b AND c<=d (4) b < c AND d>a (5) a < c OR d<=b (6) a > b OR c<=d (7)NOT a>b OR c>=d (8)3>2*b OR a=c AND b <> c OR c< d 2、将下列数学式子写成vb表达式，将答案写在每题的后面。 (1) 5+(a+b)2 (2)e2+2 (3)2a(7+b) (4)8e3ln2 (5) (6) 3、将答案写在每题的后面。 (1) (2)print chr(97) (3)print Asc(“B”)

(4)print Asc(“def”) (5)print Sqr(2) (6) print sgn(2) 4、写出下列程序的运行结果，将答案写在每题的后面。 设ab$=”ABCDEF” (1)Print Left(ab$ , 4) (2)Print Mid(ab$ , 2, 4) (3)print Right(ab$ , 4) (4)print Len(ab$) 5、按照运算符的运算顺序(函数>算术运算符>关系运算符>逻辑运算符) 计算表达式的值：10\ 97 / Asc(“a”)*(18.7 mod 4)+Int(8.7-5.5) 6、产生[10，100]区间内的随机整数使用________________________语句？ 7、实验教程P10 （6）。 8、编写程序，要求程序运行时在四个文本框中分别任意输入相应的信息（见下图），当单 击“计算”按钮时在窗体中按照下图格式输出此人相应的信息及总分和平均分，平均分保留两位小数（用Format（S，“###.##”）函数实现）。单击“清除”按钮时清除四个文本框中的内容及窗体中显示的信息。单击“结束”按钮时结束运行。运行界面如下图。（可参考实验教程P16 例2-1） 9、编写程序，要求程序运行时单击“生成”按钮在窗体中输出指定范围内的（范围在程 序运行时由两个文本框任意输入）3个随机整数和这三个随机整数和的平方根，平方根保留两位小数（用Format（S，“###.##”）函数实现）。单击“清除”按钮时清除两个文本框中的内容及窗体中显示的红色信息。单击“结束”按钮时结束运行。运行界面如下图。

2015VB实验指导书

计算机程序设计基础（VB）实验指导书主编：刘华伟 单位：信息工程学院

实验报告要求：每次实验要求写实验报告（word电子版），包括实验名称，实验目的，实验内容，所有主要界面（需把界面图贴上,用截图工具）和所有源程序（将代码复制粘贴到word报告里），每次上机课后的周五理论课对上机题目进行讲解，每次上机实验报告要求在上机内结束前提交，如果没做完最迟当天内提交给教师信箱458007844@https://www.wendangku.net/doc/df11780867.html, 只能用自己的邮箱在这个时间段提交。 提交格式：邮件名和word文件名均为： 公141班张三000000第1次作业 第一次上机课要做实验指导书中前两次实验的内容，将两次上机的实验报告都写在同一个word文档里提交。以后每次上机均做一次实验的内容。

实验一VB6.0环境和程序设计初步 一、实验目的 1．学会使用VB开发环境。 2．学会建立、编辑、运行一个简单的VB应用程序的全过程。 3．掌握变量的概念及使用。 4．通过程序实践结合课堂例子，理解类、对象的概念，掌握属性、事件、方法的应用。 二、实验内容： 1．熟悉VB开发环境的标题栏、菜单栏、工具栏、窗体窗口、属性窗口、工程资源管理器窗口、代码窗口、立即窗口、窗体布局窗口、工具箱窗口的位置以及用法。（此题不需要写实验报告） 2．编写一个四则运算的功能，在界面上输入两个数，并设置加减乘除四个按钮，点击不同的按钮，显示不同的运算结果。 步骤： （1）建立用户界面的对象。 （2）对象属性的设置。 （3）对象事件过程及编程。 （4）保存和运行程序

实验二选择结构程序设计 一、实验目的 1．掌握逻辑表达式的正确书写形式。 2．掌握单分支与双分支语句的使用。 3．掌握多分支条件语句的使用。 4．掌握情况语句的使用与多分支条件语句的区别。 二、实验内容 1．P272实验C的1，2题，界面按自己思路设计。其中第1题要求用两种方法实现。 2．在界面上输入4个数，求最大值和最小值并显示，要求用两种方法实现。提示：先编写求最大值的程序，然后再编写求最小值的程序。 3．输入三门功课的成绩，评定某个学生是否得奖学金。 评奖学金标准如下： 平均分大于95分或两门100分第三门不低于80分。

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练习题(上机)含答案

第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else

ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。

Vb上机实验答案

第一题 1.制作如图所示窗体界面。（用真实的姓名、班级及学号） 2.使时间每隔1秒刷新一次 3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大 值 4.在列表框中输入20、22、24、26、28 Private Sub Command1_Click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("please input a number") Next i mmax = a(1) For i = 1 To 5 If a(i) > mmax Then mmax = a(i) End If Next i MsgBox mmax End Sub Private Sub Timer1_Timer() Label2.Caption = Time End Sub 第二题 1.两个文本框里输入两个数字从而确定一个范围。 2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和， 结果显示在label3中。 https://www.wendangku.net/doc/df11780867.html,bel3的背景色每隔1.5秒蓝红交替。

Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text s = 0 For i = a To b If a Mod 3 = 0 Or b Mod 5 = 0 Then Label3.Caption = Label3.Caption & i & "," s = s + i * i End If Next i Label3.Caption = s End Sub Private Sub Timer1_Timer() If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End If End Sub 第三题 1、单击按钮，在文本框中显示1到终值的所有整数的平方和 2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数 Private Sub Command1_Click()

VB课后实验6答案

实验6 数组 6-1 Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10) As Integer, t As Integer Print "交换前数据：" For i = 1 To 10 a(i) = ……‘生成20-80之间的随机数 Print ……;‘注意这里用分号，表示在一行上紧密输出各数组元素的值， ‘如不用分号和逗号，则分行输出各数组元素的值。 Next i Print ‘输出空行,表示后面的输出换到新的一行。 For i = 1 To 10 \ 2 ‘这里必须是10\2，表示交换5次，即可实现两两数据交换（第一' 个和最后一个的交换，第二个和第九个的交换，以此类推） ‘以下实现数据交换，必须通过第三个变量实现两两数据交换 t = a(i) a(i) = a(10 - i + 1) a(10 - i + 1) = t Next i Print "交换后数据：" ‘必须单独做循环输出数据，不能放在上面的循环里输出，因为上 面循环只有5次，只能输出5个元素。 For i = 1 To 10 Print ……; Next i End Sub 6-2 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, aver As Integer Dim max As Integer, imax As Integer Dim min As Integer, imin As Integer, sum As Integer Print "输入评委的评分" ‘①输入数组元素 For i = 1 To 10 a(i) =…… if a(i)<5 or a(i)>10 then ‘出错信息 ‘i控制变量作何处理？ endif

VB上机实验题

(截止目前所有上机实验及代码。不用画窗体界面，只写题目和代码。填写实验报告也是复习的过程，请务必认真！ ．．．．．．) 实验一：第二章 ⒈在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”，BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。程序运行后，界面如图所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。 Private sub command1_click() Label1.visible=false Command1.caption=label1.caption End sub ⒉在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“输入信息”、一个文本框， 名称为Text1，Text属性为空白、一个命令按钮，名称为Command1，标题为“显示”。然后编写命令按钮的Click事件过程。程序运行后，在文本框输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框的内容。要求程序中不得使用任何变量。 上机代码：Private sub command1_click() Label1.visible=false Text1.visible=false Print text1.text End sub ⒊在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，再画两个命令按钮，名 称分别为Command1和Command2，标题分别为“复制”和“删除”。程序运行时，在Text1中输入一串字符，并用鼠标拖曳的方法选择几个字符，然后分别单击“复制”按钮，则被选中的字符被复制到Text2中；若单击“删除”按钮，则被选中的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。

南京工业大学VB实验指导知识点与课前练习答案

第五章 实验5-1 知识点 1．数组与普通变量得区别在于数组是一组具有相同类型的有序变量的集合；而变量之间相互独立，没有内在的联系，并与其所在的位置无关。 2．VB中可以通过Dim,private,public,static这几个语句定义数组，他们之间得区别在于所定义的数组作用域不同。Static语句用于过程中，定义静态数组；private语句用于模块的通用声明处，定义模块级数组；public语句用于标准模块的声明处，定义全局数组；Dim 语句既可以用于过程中，定义局部数组，也可以用于模块的通用声明处，定义模块级数组。3．语句option base 1 Dim b(3) as integer 定义了3个数组元素，分别是b(1)，b(2)和b(3)，这两个b(3)的区别在于前者是定义数组使用的数组说明符，后者是数组元素b(3). 4. VB中的二维数组在存放的时候是按列_存储的。 5.常见的数组函数及语句有哪些？他们的功能各是什么？ Lbound函数，用于返回数组某维的维下界的值； Ubound函数，用于返回数组某维的维下界的值； Erase语句，功能有二，一是重新初始化固定大小数组的元素，二是释放动态数组的存储空间 Option base n 语句，用于说明数组的维下界从n开始计数 For-each-next语句，用于数组或对象集合中的每个元素重复执行一组语句。 6.For-each-next语句与For-next语句的区别在于前者专门用于数组或对象集合中的每个元素，而后者多用于普通变量。 课前练习 1.①13 ②6 ③15 ④105 ⑤9 ⑥44 2．option base语句和redim语句。 3.33 4. 12 5 实验5-2 知识点 1.数组元素 2.数组元素的本质是变量，但是与之不同的是数组元素是有序的，通过改变下标就可以访问不同的数组元素。 3.数组元素赋值的方法有： ①用赋值语句给数组元素赋值②通过循环逐一给数组元素赋值③用inputbox函数给数组元素赋值④用array函数给数组赋值 课前练习 1. D 2.LSP HXF BGJ 3. 1 5 9

VB程序设计教程第四版课后答案

vb 课后习题答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述 VB 的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述 VB 的安装过程。 答：①向光驱中放入VB 安装光盘； ②计算机将运行自动安装程序，若没有，执行VB 目录下的Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动 VB。 答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击； ②双击桌面上的VB6.0 快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动VB； 第二章习题参考答案 一、选择题： 1-10、 DCACD BCBBC 11-20、 BADCA BBAAB 21-29、 AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6． Form_Click 第三章习题参考答案 一、选择题

1、B 2、 C 3、 A 4、B 5、 A 6、 C 7、 C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日 期型、对象型、变体型。 String、 Byte、 Integer 、 Long、 Single、 Double、 Currency、 Boolean 、Date、 Object 、 Variant 2、双引号 (英文 )、# 3、 ASCII、1 、2 4、 public 、通用、 Dim、 Static、Private、 Static 5、 &、 +、+ 6、 Now()、 Time 、日期型 三、解答题 1、(3) 2、 (1 ) 3、（ 1）常量（关键字）（ 2）字符型常量（ 3）逻辑型常量（ 4）变量（ 5）字符串常量（ 6）变量 （7）字符串常量（ 8）变量（ 9）日期型常量（题目应是 #11/16/1999# ）（ 10）数值型常量（单精度） 4、31 5、（ 1） (1+y/x)/(1-y/x) （2） x^3+3*x*y/(2-y) （3） sqr(abs(a*b-c^3)) （ 4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 7、（ 1） 13 （ 2） 17 （3） #1999-11-12# （ 4） zxy123ABC 8、（ 1） 19 （ 2） 8.16666666666667 （3） 5． 25 （4） 2 9、（ 1） -4 （2） 2 . 82842712474619 （ 3） -3 （ 4） 49 （5）” hello （”6）He 7）16 （ 8）“-459.65 ”（ 9） 5 10、（ 4） 11、（ 2） 12、（ 4） 第四章习题参考答案 一、选择题： 1—7: DAABBCD 二、填空题 1． 500.00% 2．将字号扩大为原来的二倍 3． B 三、编程题（略） 1．文本框、标签和命令按钮的名称分别为text1 、 label1、 command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption=text1.text End Sub

VB上机实验三(2012-3-26)

《Visual Basic语言》上机实验三 实验名称：数据类型、运算符和表达式 一、实验目的 1.掌握Visual Basic的数据类型和变量定义方法。 2.正确使用Visual Basic的运算符和表达式。 3.掌握Visual Basic常用函数的使用方法。 二、背景知识 1．Visual Basic的数据类型 Visual Basic提供了丰富的数据类型，所有的数据都具有数据类型，如果数据的数值和数据类型不匹配，就会出现错误或者造成内存空间的浪费。Visual Basic将数据类型分为标准数据类型和自定义类型。 标准数据类型包括数值型数据类型、非数值型数据类型和变体数据类型。其中数值型数据类型包括整型、长整型、单精度型、双精度型、货币型、字节型等；非数值类型包括日期型、逻辑型（布尔型）、字符串型和对象型数据类型。 除了以上标准数据类型外，用户还可以根据需要自定义数据类型，称为自定义类型。2．Visual Basic变量的声明 变量用来在程序运行期间临时存储数据。变量名、类型、值称为变量的三要素。变量名表示的是变量在内存中的地址，类型决定了变量在内存中的存储方式和所占内存单元的大小，值指的是变量名所对应内存单元的存储内容。 所谓声明一个变量，就是先将变量的有关信息（变量名和变量的数据类型）告诉程序。变量的声明方式有三种： （1）显式声明：用Dim、Static、Public、Private等声明语句显式声明变量及类型。（2）隐式声明：Visual Basic允许用户在编写应用程序时，不声明变量而直接使用，系统临时为新变量分配存储空间并使用。所有隐式声明的变量都是为变体类型Variant。系统根据程序中赋予变量的值来自动调整变量的类型。 （3）强制类型声明：在程序中用到的变量必须事先声明，要达到此目的，方法是在窗体模块或标准模块的“通用－声明”部分写上语句：Option Explicit，也可以在“工具”菜单中选取“选项”命令，然后在打开的对话框中单击“编辑器”选项卡，再复选“要求变量声明”选项，这样系统就会在新模块中自动插入Option Explicit语句。 3．运算符及优先级 （1）不同类型运算符优先级别如下： 算术运算符＞字符串运算符＞关系运算符＞逻辑运算符 （2）相同类型运算符优先级别如下： ①算术运算符：乘方（^）＞负号（-）＞乘除（*、/）＞整除（\）＞求余（Mod）＞加减（+、-） ②字符串运算符:优先级别相同 ③关系运算符:所有关系运算符优先级别相同 ④逻辑运算符:逻辑非（Not）＞逻辑与（And）＞逻辑或（Or） 4．Visual Basic的表达式 表达式是指用运算符或圆括号将运算元素连接起来的一个有意义的式子。 （1）表达式的类型

VB程序设计教程实验指导与习题解答上机答案

程序代码 Private Sub Command1_Click() End Sub Private Sub Command2_Click() = True End Sub Private Sub Command3_Click() = True End Sub Private Sub Command4_Click() = 10 = False = False End Sub 初始窗口：单机放大之后窗口：单机下划线之后窗口：单击加粗之后窗口： 自测2 单击还原之后窗口：

Private Sub Command1_Click() Label1 = "visual basic" Text1 = " 程序设计题" End Sub Private Sub Command2_Click() Text1 = "visual basic" Label1 = " 程序设计题" End Sub 初始窗口：单击显示之后窗口：单击交换之后的窗口：自测题3 Private Sub Command1_Click() End Sub Private Sub Command2_Click() = + 30 End Sub = + 20 = 1 初始窗口：

单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：自测题4 程序代码 Private Sub Command1_Click() = "VB 学习" Print"简单的VB程序设计" End Sub Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub Private Sub Command3_Click() End End Sub 初始化窗口：单击显示之后的窗口：单击清除之后的窗口： 自测题5 单击退出之后的窗口：

VB实验二 实验答案

实验报告二 实验目的 （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语句的使用 实验结果： 【请将你的代码粘贴到下面】

【请将你的典型结果的截图粘贴到下面】 【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分） ①当收入为200 元以内（含200元）时，免征； ②当收入为200 ~ 400 元（含400元）时，将超过200 元的部分纳税3% ； ③当收入为400 ~ 5000元（不含5000元）时，将超过400 元的部分纳税4% ； ④当收入为5000 元或5000元以上时，将超过400元的部分纳税5% 。 程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示，要求 纳税程序界面 掌握多分支if语句的使用，可自行用select语句改写。 实验结果： 【请将你的代码粘贴到下面】 【请将你的典型结果的截图粘贴到下面】 【实验3-3】猜数游戏 程序自动产生一个[1，100]内的正整数，要用户猜，用户猜的值与被猜值的差距用“*”号个数表示，“*”越少表示差得越远，“*”越多表示相差越近。（用select case语句实现）

(完整版)VB上机练习题

1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。 单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。单击C3按钮结束程序运行。 Private Sub Command1_Click() Text1.Font = 黑体 End Sub Private Sub Command2_Click() Text1.ForeColor = vbRed Text2.ForeColor = vbBlue End Sub Private Sub Command3_Click() End End Sub 2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。 Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbRed End Sub Private Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbGreen End Sub Private Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End Sub Private Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub 3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。 Private Sub Command1_Click() Text1.Text = "" Text2 Text1

VB实训指导书

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、掌握各种运算符的功能、表达式的构成、表达式中运算符的运算顺序和如何求表达式的 值。

vb实验编程答案

实验教程 实验三顺序结构程序设计编程题参考答案（第47页） 1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox分别进行输入，使用Print 方法输出。 2. 输入圆的半径，输出其周长、面积。要求使用TextBox控件进行输入，使用Label控件输出。 3. 输入一元二次方程ax2+bx+c=0 的系数a、b、c，输出两个实根。要求使用TextBox控件分别进行输入，使用Label控件输出。 实验四选择结构程序设计编程题参考答案（第58页） 1. 输入一个，判断其是否能同时被3和7整除。 2. 输入三个数，输出其中的最大值。 6. 编程及输出分段函数的值。由键盘输入t的值，计算y的值 7. B；20～29 为青年，输出B； 50 8. 输入年份，输出对应的属相。已知1984年为鼠年，要求使用Select Case语句实现。实验五循环结构程序设计编程题参考答案（第77页） 1.编写程序，求s=1×2×3 + 2×3×4 + … + n×(n+1) ×(n+2)的值，n由程序输入。 Y=

2.有一个分数序列 ，求出这个序列前 20项的和。 3. 求∑= 10 1 ! n n （即1！+2！+3！+…+10！） 4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。 5. 输出所有的“水仙花数”。“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，371是一个水仙花数，因为371=33+73+13 6. 打印如图所示的乘法表 实验六定长数组的使用编程题参考答案（第96页） 1.定义一个包含10个数组元素的数组a，为其数组元素分别赋值为2、4、6、8、…20，并输出。 2. 输入十个评委的分数，去掉最高分和最低分后，计算最后的平均分并输出。 3.输入5个学生的姓名与一门课程的成绩，按成绩的升序输出姓名和成绩。分别使用比较 ,... 13 21 , 8 13 , 5 8 , 3 5 , 2 3 , 1 2