大一vb实验教程答案

实验一

1．界面设计如图1.1所示，在窗体上有1个文本框(Text1)，12个命令按钮(Command0～Command11)，按下列要求设计界面，设置对象属性和编写事件过程。

要求：(1) 窗体标题设为“计算器”。 (2) 文本框Text1文本居右对齐，五号宋体。 (3) 命令按钮Command0～Command9的Caption属性分别为0～9，Command10的Caption属性为“.”，Command11的Caption属性为“CE”，字体为五号宋体。

(4) 单击“CE”按钮清空文本框。

2．界面设计如图1.2所示，标签框的文本为黑体、28磅、居中，单击“前景”按钮，使标签框的文本颜色为红色；单击“背景”按钮，使标签框的背景颜色成蓝色；单击“还原”按钮，使标签框的前景和背景还原到初始颜色；单击“结束”按钮结束程序运行。

提示：可以用Visual Basic系统提供的颜色常量设置前景和背景颜色(红色vbRed、蓝色vbBlue)，可以用当前窗体的ForeColor、BackColor属性还原标签框的前景和背景颜色。

还原标签框前景的代码为：Label1.ForeColor = Form1.ForeColor

3．在文本框中输入一个字

程序设计语言教程(人民邮电出版社)第三章课后习题答案

3.2习题 一、选择题

1. 下列赋值语句中（C）是错误的。

(A) x＝x＋１ (B) x＝x＋y (C) x＋y＝x (D) x＝４＞６ ２. 下列赋值语句中（D）是正确的。

(A) x！＝＂abc＂ (B) a％＝＂１０ｅ＂ (C) x＋１＝５ (D) s＄＝１００

3. 若在消息框中显示＂确定（Ok）＂和＂取消（Cancel）＂两个按钮，则buttons参数的设置值是（B）。

(A)0 (B)1 (A)2

(B)3

(C)2 (D)3

(C)4 (D)5

4. 若在消息框中显示＂是（Yes）＂和＂否（No）＂两个按钮，则buttons参数的设置值是（C）。 5. 若要改变窗体中显示文本的颜色，可以设置（C）属性来实现。 (A)Caption (B)BackColor (C)ForeColor (D)Font 6. 若在消息框中选择第二个按钮为默认值，则buttons参数的设置值是（B）。 (A)0 (B)256 (C)512

Visual Basic

1) 下列程序运行后，输出的结果为______。 B=1

Do while (b<40) b=b*(b+1) Loop Print b a) 42 b) 39 c) 6

d) 1 答案：A

2) 设执行以下程序段时依次输入1、3、5，执行结果为_____。

Dim a(4) As Integer Dim b(4) As Integer For K =0 To 2

a(K+1) =Val(InputBox(“请输入数据：\ b(3-K) =a(K+1) Next K Print b(K) a) 1 b) 3 c) 5

d) 0 答案：A

3) 下列程序执行后，变量s的值为______。 Dim s As long ,x As Integer s=0:x=1

Do While (x<10) s=s+x x=x+2 Loop Print s a) 10 b) 25 c) 50

d) 100 答案：B 4) 编写如下事件过程：

Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single) I

实验A 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．4

Private Sub Form_Click()

Caption

实验A 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．4

Private Sub Form_Click()

Caption

实验教程

实验三 顺序结构程序设计编程题参考答案 （第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语言程序设计期末考试题

一、选择题

1 下列常量中，是Integer类型常量的是（ C ）。

A、123& B、-38844 C、123% D、32768

2 下面选项中()是字符连接运算符.（ A ）

A、& B、And C、% D、Mod

3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。

C、\窗体设计\窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的\视图\菜单中。 4 len(“vb程序设计”)=( C ) 。

A、 5 B、2 C、 6 D、10

5 表达式 15 Mod 4 + 13 \\ 5 * 2 的值是 D

A、7 B、0 C、2 D、4

6 赋值语句 A=123 + Mid$( “123456”,3,2) 执行后，A=（ AA、157 B、12334 C、123 D、\7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C).

A、, B、; C、: D、、 8 将逻辑型数据转换成

《VB程序设计》实验单元一

实验报告

专业班级： 姓名 学号 指导教师： 完成时间：

实验 一VB环境和可视化编程基础

一、 实验目的

1 了解Visual Basic的安装 2 掌握启动与退出Visual Basic

3 掌握建立、编辑和运行一个简单应用程序的全过程 4 掌握基本控件的使用

二、实验环境

VB6.0

三、实验内容

1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。

提示：对窗口编写两个事件：Form_Load事件对文本框初值设为空；Form_Click事件对文本框计数。 对文本框计数：Text1=Val(text1)+1 。 2、命令按钮、字号、内容和格式的复制练习。

按钮1：使得Text1中的文本按要求改变。

按钮2：将Text1中选定的文本复制到Text2. 控件名 Form1 Label1 Label2 Text1 属性 Caption=”实验2” 复制文本 输入文本 Text=“VB功能强大，但要下功夫学习才

实验任务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 +