VB考前复习纲要
- 格式：doc
- 大小：43.00 KB
- 文档页数：4
VB考前复习纲要
对象的三要素：属性方法事件
对象属性的使用
例如s=text1.text lblShow.caption=”正确”
对象方法的调用：
例如form1.print “欢迎进入VB世界”
常用的数据类型：
Integer 整型用来放整数
Single 单精度型用来放带小数点的数
String 字符串型用来放字符串如“欢迎来到VB世界”
常量是保持不变的量：如27 “abc”
变量是一个容器，里面的数值可以改变如a=5 a=12 21页
变量的定义如：Dim a as Integer , Dim s as string 23页
运算符的正确使用：VB中运算符号与数学书写中的区别25-27页
容易忘记的运算符：\ mod &
运算符的优先级26页
常用的语句与函数：
1、print 语句注意语句中的, ; tab()函数的用法以及如何换行28页
2、InputBox（）函数的用法29页
3、要记住的函数
Abs() sqr() int() rnd() len() string() val() Str() CStr()
程序的三种基本结构：
1、顺序结构
2、选择结构
要记住的语句：
If 条件then
语句或语句块
Endif
If 条件then
语句或语句块1
Else
语句或语句块2
Endif
36页的Select case 语句也要了解
3、循环结构
要记住的句型
已知循环次数：
For i= 1 to n step 步长
语句或语句块
Next i
不知循环次数：
Do While 条件
语句或语句块
Loop
注意程序结构的组合：
循环互相嵌套如打印星星39页
循环与选择结构的嵌套如下面的程序：
填空完成程序，编程计算1-1/2+1/3-1/4+...+1/99-1/100，单击窗体后，在窗体上显示结果。
Private Sub Form_Click()
Dim s As Single
Dim i As Integer
s = __
For i = 1 To __ Step 1
If i Mod 2 <> 0 Then
s = s + 1 / i
Else
s = ____
End If
Next i
Print "s="; s
End Sub
几种常用算法的程序实现例子：（要牢记）
穷举法：
填空完成程序，问：鸡兔同笼，共有100条腿，40个头，问鸡有几只，兔有几只?单击窗体后，在窗体上显示结果。
Private Sub Form_Click()
Dim Ji As Integer 'Ji变量表示鸡的个数
Dim Tu As Integer 'Tu变量表示兔的个数
Dim Leg As Integer 'Leg变量表示腿数
For Ji = 1 To 40
Tu = ____ '计算腿数
Leg = ____ + Tu * 4
'如果腿正好100只，则打印。
If Leg = __ Then
Print "鸡="; Ji; "只", "兔="; Tu; "只"
End If
Next Ji
End Sub
递归法：（下面的题目最好背下来）
（34）用递归法求斐波那契数列1,1,2,3,5,8，…第10项的值。
Public Function Fib(n As Integer) As Integer
If (n = 1) Or (n = 2) Then
Fib = ____
Else
Fib = ____________
End If
End Function
Private Sub Command1_Click()
Dim S As Integer
S = Fib(10)
Print "S=" & CStr(S)
End Sub
（47）用递归法求1+2+3+…+100的值。
Public Function S(n As Integer) As Integer
If n = 1 Then
S = 1
Else
S = _________
End If
End Function
Private Sub Command1_Click()
Dim Sum As Integer
Sum = S(100)
Print "Sum=" & CStr(Sum)
End Sub
（45）用递归法求3！+5！+7！的值。
Public Function Fac(a As Integer) As Integer
If a = 1 Then
Fac = 1
Else
Fac =__________
End If
End Function
Private Sub Command1_Click()
Dim S As Integer
S = ________________
Print "S=" & CStr(S)
End Sub
数组的使用书上50页
注意：
定义一个包含10个单精度数的数组Dim s(9) As Single
以下数组的题型背下来
（12）填空完成程序，使得单击"显示"按钮后，随机产生10个属于区间[0，100)的自然数，并保存于数组a中。
然后在窗体上显示这10个数的平均值。
Private Sub Command1_Click()
Dim a(9) As Integer
Dim s As Single
Dim i As Integer
Me.Cls
s = 0
Randomize
For i = 0 To __ Step 1
a(i) = Int(Rnd * 100)
Print a(i)
Next i
For i = 0 To 9
s = __
Next i
Print "这10个自然数的平均值="; s / 10
End Sub
（32）输入10个数，存放在数组中，并按输入的逆序输出在窗体上。
Private Sub Command1_Click()
Dim s(9) As Single
For i = 0 To_____
s(i) = Val(InputBox("请输入一个数"))
Next i
For i = 9 To 0 Step ____
Print s(i)
Next i
End Sub。
