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的值

Y=

t2 t<1 t2-1 1≤t<2 t2-2t+1 2≤t<3 t2+4t-17 t≥3

7. 输入年龄，输出所处人群：9岁以下为儿童，输出A；10～19为少年，输出B；20～29为青年，输出B；30～49为中年，输出B； 50以上为老年，输出E；要求使用Select Case语句实现。

8. 输入年份，输出对应的属相。已知1984年为鼠年，要求使用Select Case语句实现。 实验五 循环结构程序设计编程题参考答案 （第77页）

1. 编写

实验教程

实验三 顺序结构程序设计编程题参考答案 （第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的值

Y=

t2 t<1 t2-1 1≤t<2 t2-2t+1 2≤t<3 t2+4t-17 t≥3

7. 输入年龄，输出所处人群：9岁以下为儿童，输出A；10～19为少年，输出B；20～29为青年，输出B；30～49为中年，输出B； 50以上为老年，输出E；要求使用Select Case语句实现。

8. 输入年份，输出对应的属相。已知1984年为鼠年，要求使用Select Case语句实现。 实验五 循环结构程序设计编程题参考答案 （第77页）

1. 编写

实 验 报 告 二

课 程 VB程序设计 实验项目 VB控制结构程序设计(6学时) 成 绩 专业班级 石油工程2015级国际班 姓 名 周夕航 学 号 201531010423 实验日期 2016/04/12 实验目的

（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所

实验任务12

课程名称：程序设计基础VB 实验名称——实验十二 数组（2） 一、实验目的：

1．掌握数组的声明和数组元素的引用 2．掌握定长数组的使用

3．掌握数组的基本操作算法 4．掌握控件数组的使用

二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）： 实验1在课前做好，课上验证

实验1人工写出如下程序的运行结果，并利用单步调试工具验证执行流程和运行结果，进一步深入弄清和理解数组的访问。

（1）执行下面程序，单击命令按钮，输出结果是 。

Option Base 1

Dim arr() As Integer Private Sub Form_Click()

Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2

arr(i, j) = i * 2 + j Next j Next i

ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j +

第一章 VB开发环境与VB概述 习题答案

习题

一、选择题 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. B C

A D A A B D D B A A C B 11. 12. 13. 14. 第二章 常用控件与界面设计 习题答案

习题

一、选择题 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. C B B B B D 61. B B B B C A D C D B B B C A A C B B D A B C D D D B B C B A C B B 27. A D A 57. A B C B D B C C C B B D C C D C A C B 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 28. 29. 30. 31. 32.

实验任务7参考答案

课程名称：程序设计基础VB

实验名称——实验七 选择结构程序设计 一、实验目的：

1.进一步掌握输入输出函数的函数使用 2.掌握if语句的三种基本结构

3.掌握多分支语句select语句的使用

实验1编写程序，求解鸡兔同笼问题。一个笼子中有鸡X只，兔Y只，每只鸡有2只脚，每只兔有4只脚。今知鸡和兔的总头数为H，总脚数为F。问笼中鸡和兔各若干？ Private Sub Form_Click()

Dim h As Integer, f As Integer, x As Integer, y As Integer h = InputBox(\鸡和兔的总头数H=:\鸡兔同笼\ f = InputBox(\鸡和兔的总脚数F=:\鸡兔同笼\ x = (4 * h - f) / 2 y = (f - 2 * h) / 2

MsgBox \笼中鸡数为\笼中兔数为\End Sub

实验2实验书100页实验5-5-2 改错题

窗体的界面设计如图所示。在单击命令按钮后，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应设置。发现一下程序代码出错，请修改。 Private Sub Command1_Click(

第一章 VB开发环境与VB概述 习题答案

习题

一、选择题 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. B C

A D A A B D D B A A C B 11. 12. 13. 14. 第二章 常用控件与界面设计 习题答案

习题

一、选择题 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. C B B B B D 61. B B B B C A D C D B B B C A A C B B D A B C D D D B B C B A C B B 27. A D A 57. A B C B D B C C C B B D C C D C A C B 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 28. 29. 30. 31. 32.

实验二 VB 语言基础及内部函数（4个学时）

一 、实验目的

1. 掌握不同数据类型合法表达式的构成。 2. 掌握各种表达式的优先级别和运算。 3. 掌握内部函数的使用

4. 掌握数据的输入和输出地方法

二 、实验内容

1. 上机验证下表中个表达式的值，并将结果填入表中。

要求：先自行分析上表中表达式的值，再上机到“立即窗口”中验证，如果有错，请分析原因。

表达式 10\\2.5 10/2.5 8*3+2 Mod 3/2 10>12+3 And True And 2>3 8<>5 Or Not 10>12+3 5 4 24 False True 值 表达式 “EFG”<>”efg” & “ abc“ Not 5 = 4 And 5<4*2 6>3*2 Or 7<> 8 And 8 = 2*4 Not 7>2*4 Or Not 5<> 2+3 And False # 10/11/2010# +30 True True True True 2010-11-10 值 2. 设计一个程序进行选票统计，共有三位候选人(名字自拟)，如果同意某人，就单击一下某人的按钮，在其对应的文本框中显示已得的票数。

1）界面设计 （将设计好的界面截下来粘贴在下

实验复习参考

1. 在窗口中添加一个标签，设置Border Style=1属性为有边框，编写程序代码实现：单击窗体后，标签上显示如图所示的信息，标签文字字体设置为隶书，文字大小20，加粗，倾斜，下画线。Label1.fontitalic=true label1.fontunderline=true

2. 在窗体上，按下鼠标左键拖动，在窗体的标题栏中显示鼠标指针的坐标位置。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then

Form1.Caption = X & \End If End Sub

3. 在两文本框中输入数据，单击等号命令按钮，结果显示在标签中，如图所示。

4.

添加2标签和2文本框，运行时在第一个文本框中输入一个字符，然后按回车键，对应字符的ASCII编码值显示在第二个文本框中。提示：用KeyPress事件，回车键ASCII

值为13

第 1 页 共 17 页

实验复习参考

5. 编写程序，调用InputBox函数输入存款的本金X和存款年限N，计算若干年后本金和利

实验一 简单Visual Basic程序设计

一、实验目的

1. 熟悉Visual Basic开发环境以及各种窗口的使用； 2. 掌握创建一个简单的Visual Basic工程的全过程；

二．实验项目

【项目一】创建一个类似于QQ登陆界面的应用程序。

图 1-1 创建对象

2. 属性设置

对象的相关属性设置见表1-1。

表1-1 登录界面的属性设置 对象 Form1 Label1 Label2 Text1 Text2 Command1 Command2 属性 Caption Caption Caption Text Text Passworchar Caption Caption 属性值 登陆 QQ号 密码 * 确定 取消 3．代码编写 Private Sub Command2_Click() End End Sub

4．保存工程 5．调试运行

【项目二】编程实现内容互换的小游戏。 1．创建对象

根据案例要求在窗体中添加两个标签，两个命令按钮，并排列好位置。界面如图1-3所

示。

图1-3 内容互换程序对象

2．属性设置

本题的属性设置见表1-2。

表1-2 各控件的属性设置 对象 Form1 Label1 属性 Caption Ca