VB程序设计作业
学号：s20090679____ 姓名： 冯伟___
一、基本概念题
1.Visual Basic6.0有多种类型的窗口，若要在设计时看到代码窗口，应怎样操作？
答：打开代码设计窗口的操作是：双击窗体、控件，或单击工程资源管理器窗口的“查看代码”按钮。
2.叙述建立一个完整应用程序的过程。
答：建立一个完整应用程序的过程分为以下几个步骤：
①建立用户界面的对象；②设置对象的属性；③对象事件过程及编程；④运行和调试程序。
3.当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块，试问该工程涉及多少个要保存的文件？若要保存该工程中的所有文件，应先保存什么文件，在保存什么文件？
答：仅有一个窗体模块的工程涉及到需要保存的文件有窗体文件和工程文件。
在保存该工程中的所有文件时，应先保存窗体文件后保存工程文件。
4.命令按钮的显示形式可以有标准的和图形的两种选择，它们通过什么属性设置？若选择图形的，则通过什么属性装入图形？若已在规定的属性里装入了某个图形文件，但命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，应怎样修改？
答：命令按钮的显示形式是通过Style属性设置的。若选择图形的，则通过
Picture属性装入图形。若已在规定的属性里装入了某个图形文件，但命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，应将Style属性设置为1 。
5.在程序运行前，对某些控件设置属性值，除了在属性窗口中设置外，还可以通过代码设置，这些代码一般放置在什么事件过程中？如果要将命令按钮Command1定位在窗体的中央，试写出事件过程代码？
答：控件属性值的代码一般放置在单击（Click）事件过程中。
要将命令按钮Command1定位在窗体的中央，其事件过程代码为： Private Sub Command1_Click ()
Command1.Top = (Form1.ScaleHeight - Command1.Height) / 2 Command1.Left = (Form1.ScaleWidth - Command1.Width) / 2 End Sub
6.将数字字符串转换成数值，使用什么函数？判断是否是数字字符，使用什么函数？取字符串中的某几个字符，使用什么函数？实现大小写字母转换，使用什么函数？
答：在VB中，使用Val函数将数字字符串转换成数值，使用VarType函数
可判断是否是数字字符，取字符串中的某几个字符，使用Mid(C,N1[,N2])函数，实现大小写字母转换，使用LCase(C)函数。
7.Msgbox函数与Inputbox函数之间有什么区别？各自获得什么值？
答：①Inputbox函数是打开一个对话框，等待用户输入内容；Msgbox函数
是打开一个消息框，等待用户选择一个按钮。②Inputbox函数当用户单击“确定”按钮或按回车键后函数返回输入的值，其值类型为字符串；Msgbox函数返回用户所选按钮的整数值，决定程序执行的流程。③Msgbox函数过程没有返回
值，调用时不能有括号，作为一句独立的语句，常用于信息提示，不改变程序的流程；Inputbox函数过程有返回值，调用时有括号。
Inputbox函数获得的事字符串，Msgbox函数获得的是用户所选按钮的整数值。
8.什么是形参？什么是实参？什么是值引用？什么是地址引用？地址引用时，对应的实参有什么限制？
答：①形参：即形式参数，是在用户自定义函数过程，子过程过程名后圆括
号中出现的变量名，只能是变量或数组名，用于在调用该函数时的数据传递； ②实参：即实际参数，是在调用函数过程时，在过程名后参数，其作用是将他们的数据传送给被调用过程对应的形参变量；
③值引用：即值传递，按传值方式传递参数，系统将实参的值传递给对应的形参后，实参于形参断开了联系，即使在过程体中改变形参的值，也不会影响到实参； ④地址引用：按传地址方式传递参数，要求参数必须是变量名，此时的实参于形参变量公用一个存储单元，如果在过程中改变了形参的值，对应的实参也将发生改变；
⑤地址引用时要求对应的实参必须是变量名。
9.怎样用Point方法比较两张图片？
答：Point方法用于返回在Form窗体或PictureBox控件上所指定值的红
绿蓝（RGB）颜色。语法：object.Point(x, y)object：可选的参数。一个对象表达式。如果省略object，则为带有焦点的Form窗体。x, y：必要的参数。均为单精度值，指示Form或PictureBox的ScaleMode属性中该点的水平（x轴）和垂直（y轴）坐标。必须用括号括上这些值。利用Point方法逐点比较两张图片，如果每个点的值都相同，则这两张图片相同，否则不相同。
10.如果要显示数据表中的照片，可使用那些控件？
答：如果要显示数据表中的照片，可使用图形框控件或图像框控件绑定到
存放图形数据的字段显示出图形。
二、应用程序设计题
1.设计适当的界面，利用If语句、Select Case语句两种方法计算分段函数： ??? y?????x?3x?23x?21?xx2x?2010?x?200?x?10
设计步骤：
（1） 设计程序界面及控件属性。在窗体中添加两个文本框Text1、Text2
和一个Command1按钮，（2）在代码窗口输入如下代码
利用if语句计算的代码如下： Private Sub Command1_Click() Dim x#, y#
x = Text1.Text If x > 20 Then
y = x * x + 3 * x + 2 End If
If 10 <= x <= 20 Then
y = Sqr(3 * x) - 2 End If
If 0 <= x < 10 Then
y = 1 / x + Abs(x) End If
Text2.Text = y End Sub
利用Select语句的代码如下： Private Sub Command1_Click() Dim x#, y#
x = Text1.Text Select Case x Case 20 To 255
y = x * x + 3 * x + 2 Case 10 To 20
y = Sqr(3 * x) - 2 Case 0 To 10
y = 1 / x + Abs(x) End Select Text2.Text = y End Sub
2.利用随机函数产生20个50～100之间的随机数，显示其中的最大值，最小值和平均值。
设计步骤：
（1）设计程序界面及控件属性。在窗体中添加一个Command1按钮，将Command1的Caption属性设为确定（2）在代码窗口输入如下代码： Private Sub Command1_Click() Cls
Dim i As Integer, x!, max!, min!, ave! max = 50 min = 100 ave = 0
For i = 1 To 20
x = 50 + 50 * Rnd Print x
If x > max Then max = x End If
If x < min Then min = x End If
ave = ave + x Next i
ave = ave / 20
Print \最大值=\Print \最小值=\Print \平均值=\End Sub
3.自定义一个职工类型，包括职工号、姓名、工资。声明一个职工类型的动态数组，输入n个职工的数据。要求按工资递减的顺序排序，并显示排序的结果，每个职工一行显示三项信息。
设计步骤：
（1） 设计程序界面及控件属性。在窗体中添加一个Command1按钮，将Command1
的Caption属性设为确定（2）在代码窗口输入如下代码： '******************* 'release time:28/6/2010 'purpose:自定义数据类型 'programmer:troy '**************** Option Explicit
Private Sub Command1_Click() Me.Cls
Dim workList() As WorkType, workTemp As WorkType Dim i As Integer, j As Integer, n As Integer
n = CInt(Val(InputBox(\请输入需要记录的总人数\& Chr(10) & Chr(13) & \确定人数-troy\ If n = 0 Then
MsgBox \ Exit Sub End If