《青岛科技大学VB上机实验答案》由会员分享，可在线阅读，更多相关《青岛科技大学VB上机实验答案（40页珍藏版）》请在金锄头文库上搜索。
1、实验一 VB环境和简单应用程序设计（4个学时）一 、实验目的1. 熟悉Visual Basic集成开发环境的使用。2. 掌握建立、编辑和运行简单的Visual Basic应用程序的全过程。3. 掌握窗体对象的属性、事件和方法。 二 、实验内容 1. 在VB的集成开发环境中实现如下的操作： 1）、将“标准”工具栏去掉后再添加上，将“编辑”工具栏添上再去掉。 2)、分别利用“菜单”和“工具栏”中的命令打开“属性窗口”、“工程资源管理器窗口” 3）、将“窗体布局窗口“的”启动位置“设置成“手工”。 4)、在工具箱中任意添加一个Active X 控件。 5）、在工程1中增加两个窗体：Form1、For
2、m2 6）、在工程1中增加两个标准模块：Module1 、Module2 7）、在工程1中增加一个类模块：Class1 8）、在工程资源管理器中将Form2、Module2 删除。 9）、在在工程资源管理器中利用“切换文件夹”按钮隐藏或显示对象的文件夹 10）、将代码窗口中的字体大小改为18号字。2设计一个窗体，窗体内有1个文本框和3个命令按钮控件。要求： 当按“显示”按扭时，在文本框内显示“欢迎来到青岛科技大学！”一串红色、四号、隶书字符串。当按“清除”按钮时，清除文本框内全部信息；当按“退出”按钮时，结束程序运行。1)创建界面（将设计好的界面截下来粘贴在下面）2) 以表格形式进行属性设置（
3、写出所有非默认属性值的设置）控件名称属性名称属性值Command1Caption显示Command2Caption清除Command3Caption退出Text1Text无Font隶书Forecolor&H000000FF&3) 代码设计Private Sub Command1_Click()Text1.Text = 欢迎来到青岛科技大学！End SubPrivate Sub Command2_Click()Text1.Text = End SubPrivate Sub Command3_Click()EndEnd Sub4) 调试过程记录（错误情况及改正方法，不得少于三条）1、text1与t
4、ext颠倒了位置 通过查课本改正3. 设计一个窗体，在窗体上添加一个文本框和三个命令按钮。要求：当按“显示”按扭时，在文本框内显示“Visual Basic 程序设计”一串字符串。当按“黑体”按钮时，文本框内的字符串的字体变为黑体；当按“隶书”按钮时，文本框内的字符串的字体变为隶书；1) 创建界面（将设计好的界面截下来粘贴在下面2) 以表格形式进行属性设置（写出所有非默认属性值的设置）控件名称属性名称属性值Command1Caption显示Command2Caption黑体Command3Caption隶书Text1Text无3) 代码设计Private Sub Command1_Click(
5、)Text1.Text = Visual Basic 程序设计End SubPrivate Sub Command2_Click()Text1.Font = 黑体End SubPrivate Sub Command3_Click()Text1.Font = 隶书End Sub4) 调试过程记录（错误情况及改正方法，不得少于三条）1、错将font字体属性写成了text属性 通过查课本解决2、在给字体属性赋值时，忘了将字体上加引号 通过查课本解决3、无4. 窗体的Click、DbClick、Load事件的使用，以及Print方法和相关属性的使用。要求：在属性窗口中将窗体设置成无最大化按钮和最小化按
6、钮，并使标题栏显示“窗体”。在窗体装入时，窗体上显示“装入图片”字符串，并显示一张图片，标题栏显示“显示图片”。当用户单击窗体时，在标题栏显示“鼠标单击”，去除图片，并在窗体上显示“欢迎使用VB” 当用户双击窗体时，在标题栏显示“鼠标双击”，并清除窗体上的字符串。1）代码设计Private Sub Form_Click()Image1.Visible = FalseLabel1.Visible = FalsePrint 欢迎使用VBForm1.Caption = 鼠标单击End SubPrivate Sub Form_DblClick()ClsForm1.Caption = 鼠标双击End S
7、ubPrivate Sub Form_Load()Form1.Caption = 显示图片End Sub将窗体装入后和用户单击窗体后的运行效果界面分别截下粘贴到下面。装入后鼠标单击时2） 调试过程记录（错误情况及改正方法，不得少于三条1、忘记了鼠标单击时窗体标题的改变，通过检查发现的2、printed命令输入错误，单词打错了，通过断点调试发现并改正实验二 VB 语言基础及内部函数（4个学时）一 、实验目的4. 掌握不同数据类型合法表达式的构成。5. 掌握各种表达式的优先级别和运算。6. 掌握内部函数的使用7. 掌握数据的输入和输出地方法 二 、实验内容 1. 上机验证下表中个表达式的值，并将结
8、果填入表中。 要求：先自行分析上表中表达式的之，再上机到“立即窗口”中验证，如果有错，清分析原因。表达式值表达式值102.5“EFG”efg” & “ abc“10/2.5Not 5 = 4 And 53*2 Or 7 8 And 8 = 2*41012+3 And True And 23Not 72*4 Or Not 5 2+3 And False85 Or Not 1012+3# 10/11/2010# +302. 设计一个程序进行选票统计，共有三位候选人(名字自拟)，如果同意某人，就单击一下某人的按钮，在其对应的文本框中显示已得的票数。1）界面设计 （将设计好的界面截下来粘贴在下面）2）
9、以表格形式进行属性设置（写出所有非默认属性值的设置）3）代码设计 Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, x As Singlea = Val(Text1.Text)x = a + 1Text1.Text = xEnd SubPrivate Sub Command2_Click()Dim a As Single, b As Single, c As Single, x As Singlea = Val(Text2.Text)x = a + 1Text2.Text = xEnd SubPriva
10、te Sub Command3_Click()Dim a As Single, b As Single, c As Single, x As Singlea = Val(Text3.Text)x = a + 1Text3.Text = xEnd Sub4）调试过程记录（错误情况及改正方法，不得少于三条）3设计一个能够进行加、减、乘、除运算的简易计算器。要求：首先在两个文本框中输入操作数，然后单击4个运算符按钮，其运行结果显示在一个标签中，当单击“清除”按钮时可清除上次的运算结果，可以进行多次运算。 1)创建界面（将设计好的界面截下来粘贴在下面）3) 以表格形式进行属性设置（写出所有非默认属性值
11、的设置）5) 代码设计Private Sub Command1_Click()Text3.Text = +End SubPrivate Sub Command2_Click()Text3.Text = -End SubPrivate Sub Command3_Click()Text3.Text = *End SubPrivate Sub Command4_Click()Text3.Text = /End SubPrivate Sub Command5_Click()a = Val(Text1.Text)b = Val(Text2.Text)If Text3.Text = + ThenText4
12、.Text = a + bEnd IfIf Text3.Text = - ThenText4.Text = a - bEnd IfIf Text3.Text = * ThenText4.Text = a * bEnd IfIf Text3.Text = / ThenText4.Text = a / bEnd If6) 调试过程记录（错误情况及改正方法，不得少于三条）4. 设计一个程序随机产生一个三位正整数显示在文本框中，然后在另一个文本框中逆序输出。1)创建界面（将设计好的界面截下来粘贴在下面）5) 以表格形式进行属性设置（写出所有非默认属性值的设置）6) 代码设计Private Sub Co
13、mmand1_Click()Text1.Text = Int(999 - 100 + 1) * Rnd) + 100End SubPrivate Sub Command2_Click()Text2.Text = StrReverse(Text1.Text)End Sub7) 调试过程记录（错误情况及改正方法）5 编写一个可以将两个数据进行交换程序。要求: 当用户点击“输入”按钮时，清空两个文本框，然后分别在两个文本框中输入任意数据，当用户点击“交换”按钮时，两个数据将被交换。1）界面设计 （将设计好的界面截下来粘贴在下面）2) 以表格形式进行属性设置（写出所有非默认属性值的设置）3）代码设计Private Sub Command1_Click()Text1.Text = Text2.Text = End SubPrivate Sub Command2_Click()a = Text1.Textb = Text2.TextText1.Text = bText2.Text = aEnd Sub
