Private Sub Command1_Click()
Dim x%, y%, z%, t As Data, t1 As Data
For x = 0 To 100
For y = 0 To 100
For z = 0 To 100
If x + y + z = 100 And 3 * x + 2 * y + 0.5 * z = 100 Then
Print "能买母鸡"; x; "只,公鸡"; y; "只,小鸡"; z; "只"
End If
Next z
Next y
Next x
End Sub
4)数组
数组是一种重要的数据结构。要多练习。其中VB里面最容易出错的就是下标!例如定义一个数组Arr(4),那么它一共5个变量:Arr(0)开始,一直到Arr(4)。
5)子函数和子过程
这里我沿用QBASIC里面的叫法。在子函数(过程)部分最容易搞不懂的概念就是“传地址”和“传值”,即“ByRef”和“ByVal”,ByRef是默认的。也就是说如果没有在函数的参数列表中注明是那种传递方式,默认按照传地址进行处理。函数中的数值既可以由主函数传递到子函数(过程)中,也可以由子函数(过程)回到主函数中。其实我这里说的“主函数”是不确切的,应该叫做“主调函数”。另外还有一个与之相关的概念是“形参”和“实参”,就是“实际参数”和“形式参数”。实际参数是子函数(过程)中的参数,而形式参数是“主调函数”中的参数。
我觉得VB中子函数参数调用应该是比其他计算机语言简单的一个地方,包括C/C++等。在C/C++中,参数传递默认的是传值。就是不能把子函数(过程)的参数传回主调函数,如果要进行这样的操作,就要借助指针变量。
看一个简单的子函数(过程)调用的例子:
Public Sub Swap(x,y)
Dim t As Integer
t=x
x=y
y=t
End Sub
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
a=10
b=20
Swap a,b
Print ”a=”; a , ”b=”;b
End Sub
Form_Click是主调函数,Swap是子函数(过程)。在主调函数的倒数第三行调用了子函数(过程),输出结果为:“a=20,b=10”。
6)文件
这一部分单独考试出题不多,实际应用中用到的也不多,但是它总是在某些考试中以压轴题的姿态出现。并且更为严重的是:如果对这一部分不清楚,会使整道题都无从下手。所以还是要好好看看这部分为好。
7)常见控件
对于控件最令初学者头疼的是“属性”、“事件”和“方法”这三个概念。
这三个概念是“面向对象程序设计”专用的。VB6虽然不能算是标准的“面向对象程序语言”,但是具备了很多的面向对象特征,唯独不具备“类的继承”特征。考虑到初学者对面向对象编程没有基础,所以关于上述三个概念就不能给出确切的定义。但是我们可以这样去理解这三个概念:“属性”就是某个控件的固有性质,拿Command(按钮)控件为例,它的“属性”就有“长度”、“宽度”、“是否显示图片”等。简单来说,大多数初学者接触的控件属性,都可以在VB6开发环境中的属性栏找到(如果找不到的属性称为“只读属性”)。
“事件”很容易理解。比如我们用鼠标单击一个按钮,这时候“按钮”这个控件就接收鼠标的单击,换句话说就是“按钮上发生了单击事件”。那么发生单击事件以后程序会做什么呢?那就是运行你编写的针对此事件的程序。现在你打开VB6的界面,随便画一个按钮,然后双击这个按钮,进入代码视图,在Private Sub Command_Click()和End Sub之间写代码。那么你写的这段代码就是名称为Command的按钮发生Click事件执行的代码。
“方法”的概念最不容易理解。按照标准的面向对象编程描述,方法是一个函数,它被封装在类中