课前体验
Private Sub Form_Click()
For i = 1 To 10
For j = 1 To i
Print "* ";
Next j
Next i
End Sub
【例3-1】
Private Sub Form_Click()
c1$ = Chr$(13) + Chr$(10)
msg1$ = "请输入您的名字: "
msg2$ = "输入后按回车键"
msg3$ = "或单击“确定”按钮"
msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$
name$ = InputBox(msg$, "InputBox 函数示例", "张三")
Print name$
End Sub
【例3-2】
Private Sub Form_Click()
Msg1$=”Are you Continue to?”
msg2$=”Operation Dialog Box”
r=MsgBox(msg1$,34,msg2$)
Print r
End Sub
【例3-3】编写程序，用MsgBox函数判断是否继续执行。
Private Sub Form_Click()
msg$ = "请确认此数据是否正确"
Title$ = "数据检查对话框"
x = MsgBox(msg$, 19, Title$)
If x = 6 Then
Print x * x
ElseIf x = 7 Then
Print "请重新输入"
End If
End Sub
【例3-5】
Private Sub Form_Click()
Print: Print
FontName = "隶书"
FontSize = 16
Print " 姓名"; Tab(8); "年龄"; Tab(16); "职务";
Print Tab(24); "单位"; Tab(32); "籍贯"
Print "吴大明"; Tab(8); 25; Tab(16); "职员"; Tab(24); "人事科"; Tab(32); "北京"
End Sub
【例3-6】
Private Sub Form_Click()
X = InputBox("请输入成绩", "学生成绩录入", "00")
Print x
End Sub
【例3-7】
Private Sub Form_Click()
Dim x As Single, y As Single
x=InputBox(“请输入x的值”)
If x>0 Then y=1 ElseIf x=0 Then y=0 Else y=-1
Print “x=”; x ,”y=” ; y
End Sub
【例3-8】
Private Sub Form_Click()
Dim msg, UserInput
msg = "请输入一个字母或0～9之间的数字."
UserInput = InputBox(msg) ‘输入一个字母或数字
If Not IsNumeric(UserInput) Then ‘判断是否是数字
If Len(UserInput) = 1 Then ‘不是数字时，判断输入的字符串长度是否为1 Select Case Asc(UserInput) ‘判断输入字母的ASCII码值
Case 60 To 90 '在60-90之间为大写字母
msg = "你输入的是一个大写字母'"
msg = msg & Chr(Asc(UserInput)) & "'。"
Case 97 To 122 '小写字母
msg = "你输入的是一个小写字母'"
msg = msg & Chr(Asc(UserInput)) & "'。"
Case Else
msg = "你没有输入字母或数字."
End Select
End If
Else
Select Case Val(UserInput) '将输入的数值型字符转换为数值
Case 1, 3, 5, 7, 9 '如果是奇数
msg = UserInput & " 是一个奇数。"
Case 0, 2, 4, 6, 8 '如果是偶数
msg = UserInput & " 是一个偶数。"
Case Else '出界
msg = "你输入的数字不在0～9范围内"
End Select
End If
MsgBox msg
End Sub
【例3-8】
Private Sub Form_Click()
Dim msg, UserInput
msg = "请输入一个字母或0～9之间的数字."
UserInput = InputBox(msg) ‘输入一个字母或数字
If Not IsNumeric(UserInput) Then ‘判断是否是数字
If Len(UserInput) = 1 Then ‘不是数字时，判断输入的字符串长度是否为1 Select Case Asc(UserInput) ‘判断输入字母的ASCII码值
Case 60 To 90 '在60-90之间为大写字母
msg = "你输入的是一个大写字母'"
msg = msg & Chr(Asc(UserInput)) & "'。"
Case 97 To 122 '小写字母
msg = "你输入的是一个小写字母'"
msg = msg & Chr(Asc(UserInput)) & "'。"
Case Else
msg = "你没有输入字母或数字."
End Select
End If
Else
Select Case Val(UserInput) '将输入的数值型字符转换为数值
Case 1, 3, 5, 7, 9 '如果是奇数
msg = UserInput & " 是一个奇数。"
Case 0, 2, 4, 6, 8 '如果是偶数
msg = UserInput & " 是一个偶数。"
Case Else '出界
msg = "你输入的数字不在0～9范围内"
End Select
End If
MsgBox msg
End Sub
【例3-10】
Sub Form_Click()
Dim N As Integer
n = InputBox("Enter N:") ‘输入N的值
k = 1
For i = 1 To N ‘循环N次，计算出N！
k = k * I
Next i
Print N;”!=”;k ‘数据输出
End Sub
【例3-12】
Dim S, N
S = 0: N = 0
Do While S <= 100
N = N + 1
S = S + N
Loop
Print S, N
【例3-13】
Private Sub Form_Click()
Dim char As String
Count = 0
char = InputBox("请输入一个字符")
While char <> "?"
Count = Count + 1
char = InputBox$("请输入一个字符")
Wend
Print "输入的字符数是:"; Count
End Sub
【例3-14】
Private Sub Form_Click()
Print " *";
For i = 1 To 9
Print Tab(i * 6); i;
Next i
For j = 1 To 9
Print j;
For k = 1 To j
Print Tab(k * 6); j * k; " ";
Next k
Next j
End Sub
第4章
课前体验
（1）假定用来输入数学成绩的文本框名称为Text1，该文本框的LostFocus事件过程如下：Private Sub Text1_LostFocus()
If Val(Text1.Text) < 0 Or Val(Text1.Text) > 100 Then
Text1.Text = ""
Text1.SetFocus
End If
End Sub
（2）其他文本框的LostFocus事件类似。
（3）假定按钮名称为Command1，该按钮的Click事件过程如下：
Private Sub Command1_Click()
If Check1.Value = 1 Then Sum = Sum + Val(Text1.Text)
If Check2.Value = 1 Then Sum = Sum + Val(Text2.Text)
If Check3.Value = 1 Then Sum = Sum + Val(Text3.Text)
If Check4.Value = 1 Then Sum = Sum + Val(Text4.Text)
If Check5.Value = 1 Then Sum = Sum + Val(Text5.Text)
Text6.Text = Sum
End Sub
【例4-1】
Private Sub Command1_Click() ‘在其单击事件中编程For i = 1 To 6 ‘外循环，控制输出几行For j = 1 To i ‘内循环，控制输出几列
Print " * ";
Next j
Print ‘换行
Next i
End Sub
【例4-2】
Private Sub Text1_Change()
Text2.Text = LCase(Text1.Text)
Text3.Text = UCase(Text1.Text)
End Sub
【例4-3】
Private Sub Check1_Click()
Text1.FontUnderline = Not Text1.FontUnderline
End Sub
Private Sub Check2_Click()
Text1.FontItalic = Not Text1.FontItalic
End Sub
Private Sub Option1_Click()
Text1.Font = "黑体"
End Sub
Private Sub Option2_Click()
Text1.Font = "宋体"
End Sub
【例4-4】
Private Sub Command1_Click()
If Option1 Then
Text1.FontName = "宋体"
Else
Text1.FontName = "黑体"
End If
If Option3 Then
Text1.FontSize = 8
Else
Text1.FontSize = 10
End If
End Sub
Private Sub Command2_Click()
End
End Sub
【例4-5】
Private Sub Form_Load()
‘在窗体的Load事件中输入列表框的各个项目
lstBooks.AddItem "计算机应用基础"
lstBooks.AddItem "操作系统"
lstBooks.AddItem "数据结构"
lstBooks.AddItem "网络技术基础"
End Sub
Private Sub cmdAdd_Click()
‘单击添加命令按钮时将文本框中输入的内容添加到列表框中
lstBooks.AddItem txtItem
txtItem = ""
End Sub
Private Sub cmdDelete_Click()
‘删除列表框中选中的项目
lstBooks.RemoveItem lstBooks.ListIndex
End Sub
Private Sub cmdModify_Click()
‘所选项目显示在文本框中，等待修改
txtItem.Text = lstBooks.Text
cmdAdd.Enabled = False
cmdDelete.Enabled = False
cmdModify.Enabled = False
cmdModify_OK.Enabled = True
End Sub
Private Sub cmdModify_OK_Click()
‘所选项目显示在文本框中修改完成后，按下修改确定按钮，更新列表框内容lstBooks.List(lstBooks.ListIndex) = txtItem
cmdModify_OK.Enabled = True
cmdAdd.Enabled = True
cmdDelete.Enabled = True
cmdModify.Enabled = True
txtItem = ""
【例4-6】
Private Sub Form_Click()
Picture3.Picture=Picture1.Picture
Picture1.Picture=Picture2.Picture
Picture2.Picture=Picture3.Picture
Pciture3.Picture=LoadPicture() …把第3个图片框设置为空
End sub
【例4-7】
Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
End Sub
【例4-8】
Private Timer1_Timer()
Labe1.Caption=Time$
End Sub
实训
Private Sub Command1_Click()
Debug.Print "姓名:"; Text1.Text
Debug.Print "出生年月:"; Text2.Text
Debug.Print "籍贯:"; Text3.Text
If Option1.Value Then Debug.Print "性别:"; "男"
If Option2.Value Then Debug.Print "性别:"; "女"
Debug.Print "民族:"; Combo1.Text
If Check1.Value = 1 Then Debug.Print "健康" Else Debug.Print "不健康"
Debug.Print "职称:"; Combo3.Text
Debug.Print "工资:"; Text4.Text
Debug.Print "外语熟练程度"; HScroll1.Value
Debug.Print "简历:"; Text5.Text
End Sub
第5章
课前体验
Private Sub Command6_Click()
Const n = 10 ‘定义常量n的值为10
Max = 0: K = 0 ‘最高分及所在位置赋初值
For i = 1 To n
b(i) = InputBox("请输入第"& i &"个同学的成绩",求最高分) ‘输入成绩
If b(i) > Max Then
Max = b(i)
K = I ‘将第i个成绩与最高分Max相比，如果比最高分高，则保存起来 End If
Next i
Print"最高分是第"& K &"个同学，其成绩是："& Max
End Sub
Option Base 1
Private Sub Command1_Click()
Dim a(3) As Integer
a(1) = 1: a(2) = 3: a(3) = 5
Print a(1)
Print a(2)
Print a(3)
End Sub
【例5-2】
For i=1 To 10
b(i) = InputBox("请输入第" & i & "个数")
Next i
【例5-3】
For i=1 To 2
For j=1 To 2
b(i,j) = i+j
Next j
Next i
【例5-4】
程序如下：
For i = 0 To 3
Print Tab(5); …输出位置定位
For j = 0 To 2
S(i, j) = i * 2 + j ‘给各元素赋值
Print S(i, j);
图5-4 使用二维数组打印出的图形Next j
Print ‘换行
Next i
【例5-5】
Private Sub Form_Click()
Dim s(5) As Integer '定义数组S
Const n = 5
For i = 1 To n
s(i) = Val(InputBox("请输入第" & LTrim$(Str$(i)) & "个数", 数据排序))
‘输入n个数，转换成数值后保存在数组中。
Next i
For i = 1 To n-1 ‘进行n-1趟比较
Max = I ‘对第i遍比较时，初始假定第i个元素最小。
For j = i + 1 To n ‘在数组i～n个元素中选最小元素
If s(j) < s(Max) Then Max = j
Next j
t = s(i)
s(i) = s(Max)
s(Max) = t ‘i～n个元素中选出的最小元素与第i个元素交换Next i
For i = 1 To 5
Print s(i)
Next i
End Sub
【例5-6】
Dim b() As Integer
Private Sub Form_Click()
ReDim b(2)
For i = 0 To 2
b(i) = i
Next i
ReDim Preserve b(3)
b(3) = 7
For i = 0 To 3
Print b(i);
Next i
End Sub
【例5-7】
Dim a(8, 8) As Integer '定义一个二维数组
Private Sub Form_Click()
‘下面的二层循环语句给数组赋值
For i = 1 To 8
For j = 1 To i
If i = 1 Or j = 1 Then
a(i, j) = 1 '数组中每一行第一个，最后一个数均为1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
'数组中其余数据等于它上一行的相邻两列之和
End If
Next j
Next i
'下面的二层循环语句将数组中的值打印出来
For i = 1 To 8
Print Tab(20 - 2 * i); '定位打印位置
For j = 1 To i
If a(i, j) < 10 Then '将数组中的值转换成长度为3的字符串，可使打印数据整齐
s = " " + Str(a(i, j)) + " "
ElseIf a(i, j) < 100 Then
s = " " + Str(a(i, j))
End If
Print s;
Next j
Print '换行
Next i
End Sub
【例5-8】
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Label1.ForeColor = RGB(255, 0, 0)
Case 1
Label1.ForeColor = RGB(0, 255, 0)
Case 2
Label1.ForeColor = RGB(255, 255, 0)
End Select
End Sub
实训
Option Base 1 ‘定义数组下标从1开始
Dim arr() ‘定义动态数组arr
Private Sub Form_Click()
n = Val(InputBox("请输入矩阵的行数")) ‘输入矩阵行数
m = Val(InputBox("请输入矩阵的列数")) ‘输入矩阵列数
ReDim arr(n, m) ‘重定义数组arr为n行m列的二维数组
‘下列程序段为数组输入数据
For i = 1 To n
For j = 1 To m
arr(i, j) = Val(InputBox("请输入矩阵第" & i & "行第" & j & "列的数据")) Next j
Next i
‘下列程序段在数组中找出最大值及所在位置
row = 1: col = 1
For i = 1 To n
For j = 1 To m
If arr(i, j) > arr(row, col) Then
row = i: col = j
End If
Next j
Next i
‘下列程序段输出矩阵及最大值及所在位置
Print "您输入的矩阵是："
For i = 1 To n
Print Tab(8)；‘打印位置定位
For j = 1 To m
Print arr(i, j);
Next j
Print ‘换行
Next i
Print "矩阵中最大值为：";arr(row, col); "其位置在第" & row & "行" & col & "列"
End Sub
第6章
课前体验
（2）编写窗体装载事件过程：
Private Sub Form_Load()
For I = 0 To 100
List1.AddItem i
Next i
End Sub
（3）使用“添加过程”对话框创建出判断成绩等级的过程
Public Sub DengJi(a As Integer)
Select Case a
Case 0 To 59
Label1.Caption = "不及格"
Case 60 To 69
Label1.Caption = "及格"
Case 70 To 79
Label1.Caption = "中等"
Case 80 To 89
Label1.Caption = "良好"
Case 90 To 100
Label1.Caption = "优秀"
End Select
End Sub
4）编写列表框单击Click事件过程：
Private Sub List1_Click()
Dim n As Integer
N = Val(List1.Text)
Call DengJi(n) '调用判断成绩等级的过程
End Sub
（5）编写命令按钮单击Click事件过程：
Private Sub Command1_Click()
End
End Sub
【例6-1】
Private Sub oushu(x As Integer,msg As Boolean)
If x Mod 2 = 0 Then
Msg = True
Else
Msg = False
End If
End Sub
【例6-2】
Public Function Rect(a As Double,b As Double)As Double
Rect = a * b
End Function
【例6-3】
（2）在窗体代码窗口中编写pingjun过程：
Sub pingjun(a As Integer,b As Integer,c As Integer)
C = (a+b)/2
End Sub
（3）编写命令按钮1的单击事件过程：
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z As Integer
X = Val(Text1.Text)
Y = Val(Text2.Text)
Call pingjun(x,y,z) '或pingjun x, y, z
Text3.Text = Str(z)
End Sub
【例6-4】
（2）把判断奇偶性的函数过程jo的程序代码输入到窗体代码窗口中。
Function jo(x As Integer)As String
If x Mod 2 = 0 Then
Jo = "偶数"
Else
Jo = "奇数"
End If
End Function
（3）编写命令按钮1的单击事件过程：
Private Sub Command1_Click()
Dim n As Integer,w As String
n=Val(Text1.Text)
w = jo(n)
Label1.Caption=Text1.Text &"是"& w &"！"
End Sub
【例6-5】
（2）编写参数按地址传递次的过程Swap1：
Sub Swap1(x As String,y As String)
Dim t As String
T = x：x = y：y = t
End Sub
（3）编写命令按钮单击事件过程如下：
Private Sub Command1_Click()
Dim a As String,b As String
A = Text1.Text
B = Text2.Text
Form1.Caption = "按地址传递"
Swap1 a,b
Text1.Text = a
Text2.Text = b
End Sub
【例6-7】
（2）求任意一维数组中各元素之积的函数如下：
Function tt(a() As Integer)As Long '函数的形参是数组
Dim t#, i%
T = 1
For I = LBound(a) To UBound(a) '求数组的下界和上界
T = t * a(i)
Next i
Tt = t
End Function
（3）求任意一维数组中各元素之和的函数如下：
Function ss(b() As Integer)As Long '函数的形参是数组
Dim t#, i%
S = 0
For I = LBound(b) To UBound(b) '求数组的下界和上界
S = s+b(i)
Next i
Ss = s
End Function
（4）编写命令按钮单击事件过程，如下：
Private Sub Command1_Click()
Dim a(1 To 5)As Integer
Dim b(2 To 10)As Integer
Dim i As Integer,t1 As Long,s1 As Long
For I = 1 To 5 '给数组赋值
a(i) = i + 3
Next i
t1 = tt(a()) '调用函数
Print"第一个数组各元素之积t1="; t1
For I = 2 To 10
b(i) = i * 2
Next i
s1 = ss(b())
Print"第二个数组各元素之和s1="; s1
End Sub
【例6-8】
（1）先定义一个具有可选参数的函数过程sum，用来进行3个数的加法运算。
Private Function sum(x As Integer,Optional y As Integer,_
Optional z As Integer=3)As Integer
Sum = x + y + z
End Function
（2）编写窗体的单击事件过程，如下：
Private Sub Form_Click()
Print"sum(1) = 1 + 0 + 3 = ";sum(1) '省略两个参数
Print"sum(1,2) = 1 + 2 + 3 = ";sum(1,2) '省略第3个参数
Print"sum(1,,8) = 1 + 0 + 8 = ";sum(1,,8) '省略第2个参数
Print"sum(1,4,8) = 1 + 4 + 8 =";sum(1,4,8) '不省略参数
End Sub
【例6-9】
（1）先定义一个具有可变参数的函数过程MySum，如下：
Function MySum(ParamArray V A()) As Integer '声明为可变参数
Dim i As Integer
Dim Sum As Integer
Sum = 0
For i=LBound(V A) To UBound(V A) '得到数组的大小，并进行循环
Sum = Sum+V A(i)
Next
MySum = Sum
End Function
（2）编写窗体的单击事件过程，如下：
Private Sub Form_Click()
Dim s As Integer
Print Tab(2); "使用3个实参：";
S = MySum(2,4,6) ' 可以使用任意多个实参来调用
Print "MySum(2,4,6)="; s
Print Tab(2); "使用5个实参：";
S = MySum(1,2,3,4,5)
Print "MySum(1,2,3,4,5)=";s
End Sub
【例6-10】
（1）定义具有窗体参数的过程，如下：
Private Sub BiaoTi(fm As Form) 'fm为窗体对象参数
Text1.Text = "窗体的标题是"& fm.Caption
End Sub
调用过程BiaoTi会改变窗体对象fm中的文本框Text1的文本。
（2）定义具有控件对象参数的过程，如下：
Private Sub KuanDu(tb As TextBox) 'tb为文本框型的控件对象参数tb.Text = "文本框的宽度是"& tb.Width
End Sub
调用过程KuanDu会改变文本框对象tb的文本。
（3）编写按钮的单击事件过程，用来调用具有对象参数的过程。
Private Sub Command1_Click()
Call BiaoTi(Form1)
End Sub
Private Sub Command2_Click()
Call KuanDu(Text1)
End Sub
【例6-11】
Function fac(n As Integer) As Long
If n = 1 Then
Fac = 1
Else
Fac = n * fac(n - 1)
End If
End Function
【例6-12】
Private Sub Command1_Click()
Dim a As Integer,b As Integer '过程级变量
A = 100:b = 8
Print"调用s1前，事件过程中的变量:";"a=";a;"b=";b
Call s1 '调用通用过程sub1
Print" 调用s1后，事件过程中的变量:";"a=";a;"b=";b
End Sub
Sub s1() '通用过程
Dim a As Integer,b As Integer '过程级变量
A = 55:b = 66
Print"通用过程s1中的变量:";"a=";a;"b=";b
End Sub
【例6-13】
Dim a As Integer,b As Integer '声明模块级变量
Private Sub Command1_Click()
A = 100:b = 8 '对模块级变量赋值
Print"调用s1前，模块级变量:";"a=";a;"b=";b
Call s1 '调用通用过程sub1
Print"调用s1后，模块级变量:";"a=";a;"b=";b
End Sub
Sub s1() '通用过程
A = 55:b = 66 '对模块级变量赋值
Print"通用过程s1对模块级变量赋值:";"a=";a;"b=";b
End Sub
【例6-14】
（4）在窗体Form1的代码窗口的顶部，声明模块级变量a和b，分别用来储存程序运行后单击左右两个命令按钮的次数。代码如下：
Private a As Integer
Private b As Integer
（5）编写左边的命令按钮的Command1_Clic事件过程。代码如下：
Private Sub Command1_Click()
Dim s As String
I = I + 1
A = a + 1
S = "单击按钮"& i &"次,左按钮"& a &"次"
MsgBox s,vbOKOnly,"提示"
End Sub
（6）编写右边的命令按钮的Command2_Clic事件过程。代码如下：
Private Sub Command2_Click()
Dim s As String
I = I + 1
B = b + 1
S = "单击按钮"& i &"次,右按钮"& b &"次"
MsgBox s,vbOKOnly,"提示"
End Sub
【例6-15】
Sub change()
Dim d As Integer '声明动态变量d
Static s As Integer '声明静态变量s
D = d + 1
S = s + 1
Print "动态变量d = ";d,"静态变量s = ";s
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 3
change '或Call change
Next i
End Sub
实训
（3）在Form1的窗体模块的代码窗口的最顶部（通用声明段）声明模块级变量title，用来存储字符串。代码如下：
Private title As String '表明是使用通用过程还是函数
（4）定义Sub通用过程MySub，来进行乘法运算。其中的形参x、y按值传递，形参z按地址传递。代码如下：
Private Sub MySub(ByVal x As Integer,ByVal y As Integer,z As Integer)
Z = x * y
End Sub
定义函数过程MyFun，来进行加法运算。其中的形参m和n是按值传递的。代码如下：
Private Function MyFun(ByVal m As Integer,ByVal n As Integer) As Integer
MyFun=m+n
End Function
（5）添加窗体的事件过程Form_Load，来做些初始化的工作，将文本框置空。代码如下：Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
分别添加两个单选按钮的Click事件过程，来设置框架Frame1和标签Label的Caption属性。代码如下：
Private Sub Option1_Click()
Frame1.Caption = "乘法积运算"
Label1.Caption = "×"
End Sub
Private Sub Option2_Click()
Frame1.Caption = "加法运算"
Label1.Caption = "+"
End Sub
添加命令按钮的事件过程Command1_Click。其中，关键字static声明的静态变量i和j用来储存运算的次数，关键字Dim声明的过程级局部变量a、b、c用来储存三个文本框里的数值。代码如下：Private Sub Command1_Click()
Static i As Integer,j As Integer
Dim a As Integer,b As Integer,c As Integer
A = Val(Text1.Text)
B = Val(Text2.Text)
If Option1.Value=True Then
Title = "用过程运算"
Call MySub(a,b,c)
i=i+1
Form1.Caption = "第"& i &"次"& title
Else
Title = "用函数运算"
c=MyFun(a, b)
j = j+1
Form1.Caption = "第"& j &"次"& title
End If
Text3.Text = c
End Sub
第7章
课前体验
Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single) Form1.Caption = "测试鼠标事件"
Select Case Button
Case 1 '左键，或用常量Visual BasicLeftButton FrameLeft.BackColor = Visual BasicRed
FrameRight.BackColor = Visual BasicWhite
Frame1.ToolTipText = "朋友，您刚才在这按了鼠标左键！"
Case 2 '右键，或用常量Visual BasicRightButton
FrameRight.BackColor = Visual BasicRed
FrameLeft.BackColor = Visual BasicWhite
Frame1.ToolTipText = "朋友，您刚才在这按了鼠标右键！"
End Select
End Sub
【例7-1】
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_
X As Single,Y As Single)
Print"您触发了MouseDown事件！"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer,_
X As Single,Y As Single)
Print"您又触发了MouseUp事件！"
End Sub
【例7-2】
Private Sub Form_MouseMove(Button As Integer,Shift As Integer,_ X As Single,Y As Single)
If Shift=1 And Button=1Then
Cls
Print"鼠标指针当前横坐标X=";X
Cls
Print"鼠标指针当前纵坐标Y=";Y
End If
End Sub
【例7-3】
1）首先，在窗体模块的顶部声明一个逻辑变量paint，如下：
Private paint As Boolean
（2）定义窗体上的按下鼠标按键的事件过程，使得变量paint的值在按鼠标左键时为true。再定义释放鼠标按键的事件过程，使得变量paint的值为false。代码如下：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_
X As Single,Y As Single)
If Button=1 Then
paint=True
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
paint = False
End Sub
（3）定义窗体上的鼠标移动事件过程。
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If paint Then ?paint为true时，程序画出轨迹点
PSet(X,Y)
End If
End Sub
【例7-4】
（2）定义窗体的Form_load事件过程，使列表框中添加几个选项。代码如下：
Private Sub Form_Load()
List1.AddItem"0-Default"
List1.AddItem"1-Arrow"
List1.AddItem"2-Cross"
List1.AddItem"3-I-Beam"
End Sub
（3）定义列表框的单击事件过程。
Private Sub List1_Click()
Form1.MousePointer=List1.ListIndex
End Sub
【例7-5】
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii >= 97 And KeyAscii <= 122 Then
Print"小写字母：";Chr(KeyAscii);"，ASCII码：";KeyAscii
If KeyAscii >= 65 And KeyAscii<=90 Then
Print"大写字母：";Chr(KeyAscii);"，ASCII码：";KeyAscii
End If
End Sub
【例7-6】
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
Dim color As String
color=Chr(KeyCode)
Select Case color
Case"W"
Label1.BackColor = Visual BasicWhite
Case"R"
Label1.BackColor=Visual BasicRed
Case"G"
Label1.BackColor=Visual BasicGreen
Case "B"
Label1.BackColor=Visual BasicBlue
End Select
End Sub
【例7-7】
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
Select Case Shift
Case1
Label1.Caption="你按了【SHIFT】键！"
Case2
Label1.Caption="你按了【CTRL】键！"
Case4
Label1.Caption="你按了【ALT】键！"
Case3
Label1.Caption="你同时按了SHIFT和【CTRL】键！"
Case5
Label1.Caption="你同时按了SHIFT和【ALT】键！"
Case6
Label1.Caption="你同时按了CTRL和【ALT】键！"
Case7
Label1.Caption="你同时按了SHIFT、CTRL和【ALT】键！"
End Select
End Sub
【例7-9】
Private Sub Form_Click()
If Command1.DragMode = 0 Then
Command1.DragMode = 1
全国计算机等级考试二级MSOffice高级应用考试大纲(最新版) 基本要求 1. 掌握计算机基础知识及计算机系统组成。 2. 了解信息安全的基本知识,掌握计算机病毒及防治的基本概念。 3. 掌握多媒体技术基本概念和基本应用。 4. 了解计算机网络的基本概念和基本原理,掌握因特网网络服务和应用。 5. 正确采集信息并能在文字处理软件Word、电子表格软件Excel、演示文稿制作软件Power-Point 中熟练应用。 6. 掌握Word的操作技能,并熟练应用编制文档。 7. 掌握Excel 的操作技能,并熟练应用进行数据计算及分析。 8. 掌握PowerPoint 的操作技能,并熟练应用制作演示文稿。 考试内容 一、计算机基础知识 1. 计算机的发展、类型及其应用领域。 2. 计算机软硬件系统的组成及主要技术指标。 3. 计算机中数据的表示与存储。 4. 多媒体技术的概念与应用。 5. 计算机病毒的特征、分类与防治。 6. 计算机网络的概念、组成和分类;计算机与网络信息安全的概念和防控。 7. 因特网网络服务的概念、原理和应用。 二、Word的功能和使用 1. Microsoft Office应用界面使用和功能设置。 2. Word的基本功能,文档的创建、编辑、保存、打印和保护等基本操作。
3. 设置字体和段落格式、应用文档样式和主题、调整页面布局等排版操作。 4. 文档中表格的制作与编辑。 5. 文档中图形、图像(片)对象的编辑和处理,文本框和文档部件的使用,符号与数学公式的输入与编辑。 6. 文档的分栏、分页和分节操作,文档页眉、页脚的设置,文档内容引用操作。 7. 文档审阅和修订。 8. 利用邮件合并功能批量制作和处理文档。 9. 多窗口和多文档的编辑,文档视图的使用。 10. 分析图文素材,并根据需求提取相关信息引用到Word文档中。 三、Excel 的功能和使用 1. Excel 的基本功能,工作簿和工作表的基本操作,工作视图的控制。 2. 工作表数据的输入、编辑和修改。 3. 单元格格式化操作、数据格式的设置。 4. 工作簿和工作表的保护、共享及修订。 5. 单元格的引用、公式和函数的使用。 6. 多个工作表的联动操作。 7. 迷你图和图表的创建、编辑与修饰。 8. 数据的排序、筛选、分类汇总、分组显示和合并计算。 9. 数据透视表和数据透视图的使用。 10. 数据模拟分析和运算。 11. 宏功能的简单使用。 12. 获取外部数据并分析处理。 13. 分析数据素材,并根据需求提取相关信息引用到Excel 文档中。
第一部分算法与数据结构(历年比例 41%) 1、算法◆问题处理方案的正确而完整的描述称为【算法】。算法分析的目的是,分析算法的效率以求改进。算法的基本特征是【可行性】、【确定性】、【有穷性】和拥有足够情报。 ◆算法的有穷性是指:算法程序的运行时间是有限的。 ◆算法的复杂度是衡量算法好坏的度量,分为【时间复杂度】和【空间复杂度】。 ★★时间复杂度是指执行算法所需要的【计算工作量】;算法的空间复杂度是指算法执行过程中所需的【存储空间】。 ◆算法时间复杂度或空间复杂度中的一项的值,没有办法推出另一项的值。 2、数据结构◆数据结构分为【逻辑结构】和【存储结构】。线性结构和非线性结构属于逻辑结构;顺序、链式、索引属于存储结构(物理结构)。循环队列属于【存储结构】。 ★数据的存储结构又称为物理结构,是数据的逻辑结构在计算机存储空间中的存放形式。 ◆一个逻辑结构可以有多种存储结构,且各种存储结构影响数据处理的效率。程序执行的效率与数据的存储结构密切相关。 ◆数据结构分为线性结构和非线性结构,带链的队列属于【线性结构】。 ◆线性表的存储结构主要分为顺序存储结构和链式存储结构。顺序存储结构的存储一定是连续的,链式存储的存储空间不一定是连续的。 ◆有序线性表既可以采用顺序存储结构,也可以采用链式存储结构。
◆队列是一种特殊的线性表,循环队列按照【先进先出】原则组织数据。循环队列是队列的【顺序】存储结构。 ◆数据的独立性分为【物理独立】性和【逻辑独立性】。当数据的存储结构改变时,其逻辑结构可以不变,因此,基于逻辑结构的应用程序可以不用修改,称为【物理独立性】。 3、栈和队列★★栈是一种特殊的线性表,是只能在一端进行插入和删除的线性表,特点是FILO(FirstIn Last Out)。 ★★栈是【先进后出】的线性表;栈具有记忆作用;对栈的插入与删除操作中,不需要改变【栈底指针】。假定让元素1、2、3、A、B依次入栈,则出栈的顺序是:B、A、3、2、1。 ◆栈与队列都是线性结构,树是非线性结构。支持子程序调用的数据结构是【栈】。 ◆栈与队列的共同点是,都只允许在【端点处】插入和删除元素。 ◆栈只能顺序存储的描述是错误的。栈可以有【顺序和链式】两种存储方式。 ★★队列是允许在一段插入,在另一端进行删除的线性表,其特点是【先进先出】。 ◆循环队列中元素的个数是由队头指针和队尾指针共同决定。循环队列的头指针为front,尾指针为rear,容量为maxSize,则循环队列中元素的个数是【(rear-front+maxSize) mod maxSize】。
2009年9月全国计算机等级考试二级VB笔试试题及答案 一、选择题（每小题2分，共70分） 一、选择题 1．下列数据结构中，属于非线性结构的是（）。 A. 循环队列 B.带链队列 C.二叉树 D.带链栈 答案C Array解析树均是非线性结构 2. 下列数据结构中,能够按照”先进后出”原则存取数据的是（）。 A. 循环队列 B.栈 C.队列 D.二叉树 答案B 解析:栈是先进后出或后进先出的线性表 3. 对于循环队列,下列叙述中正确的是（）。 A.队头指针是固定不变的 B.队头指针一定大于队尾指针 C.队头指针一定小于队尾指针 D.队头指针可以大于队尾指针，也可以小于队尾指针 答案D 解析:如果队头指针大于队尾指针说明队列已经循环存放数据了,如果队头指针小于队尾指针说明没有进行循环存放 4. 算法的空间复杂度是指（）。 A.算法在执行过程中所需要的计算机存储空间 B.算法所处理的数据量
C.算法程序中的语句或指令条数 D.算法在执行过程中所需要的临时工作单元数 答案A 解析:算法的空间复杂度是指执行算法所需要的内存空间,包括算法程序所占空间,输入的初始数据所占空间和执行过程中所需要的额外空间. 5. 软件设计中划分模块的一个准则是（）。 A. 低内聚低耦合 B. 高内聚低耦合 C. 低内聚高耦合 D. 高内聚高耦合 答案B 解析:模块内部各元素之间的联系要紧密,高内聚,模块间的连接的紧密程度要低,低耦合,这样可以提高模块的独立性. 6.下列选项中不属于结构化程序设计原则的是（）。 A.可封装 B.自顶向下 C.模块化 D.逐步求精 答案A 7.软件详细设计产生的图如下 该图是( ). A.N-S图 B. PAD图 C. 程序流程图 D.E-R图 答案C 8.数据库管理系统是（）。
全国计算机等级考试二级MS Office高级应用考试大纲 （2014年新版） 基本要求 1.掌握计算机基础知识及计算机系统组成。 2.了解信息安全的基本知识，掌握计算机病毒及防治的基本概念。 3.掌握多媒体技术基本概念和基本应用 4.了解计算机网络的基本概念和基本原理，掌握因特网网络服务和应用。 5.正确采集信息并能在文字处理软件Word、电子表格软件Excel、演示文稿制作软件Powerpoint中熟练应用。 6.掌握Word的操作技能，并熟练应用编制文档。 7.掌握Excel的操作技能，并熟练应用进行数据计算及分析。 8.掌握Powerpoint的操作技能，并熟练应用制作演示文稿。 考试内容 一、计算机基础知识 1. 计算机的发展、类型、特点及其应用领域。 计算机的发展：1943年美国宾夕法尼亚大学的教授莫克利和他的研究生埃克特开始研制电子数字积分计算机（ENIAC)，1946年研制成功。 发展的四个阶段： 阶段部件第一阶段 （1946-1959） 第二阶段 （1959-1964） 第三阶段 （1964-1972) 第四阶段 （1972年至今） 主机电子器件电子管晶体管中小规模集成电 路大规模，超大规模集成电路 内存汞延迟线磁芯存储器半导体存储器半导体存储器 外存储器穿孔卡片，纸 袋磁带磁带，磁盘磁带，磁盘，挂 盘等大容量存 储器 处理速度几千条几万至几十 万条几十万至几百万上千万至万亿 条 计算机的类型： 按处理数据的类型分：模拟计算机，数字计算机，数字和模拟计算机 按用途分：通用计算机，专用计算机 按计算机的性能、规模、处理能力分：巨型机、大型通用机、微型计算机、工作站及服
2017年全国计算机二级C++考试复习知识点汇总 一、C++概述 (一)发展历史 1980年，BjarneStroustrup博士开始着手创建一种模拟语言，能够具有面向对象的程序设计特色。在当时，面向对象编程还是一个比较新的理念，Stroustrup博士并不是从头开始设计新语言，而是在C语言的基础上进行创建。这就是C++语言。 1985年，C++开始在外面慢慢流行。经过多年的发展，C++已经有了多个版本。为次，A NSI和ISO的联合委员会于1989年着手为C++制定标准。1994年2月，该委员会出版了第一份非正式草案，1998年正式推出了C++的国际标准。 (二)C和C++ C++是C的超集，也可以说C是C++的子集，因为C先出现。按常理说，C++编译器能够编译任何C程序，但是C和C++还是有一些小差别。 例如C++增加了C不具有的关键字。这些关键字能作为函数和变量的标识符在C程序中使用，尽管C++包含了所有的C，但显然没有任何C++编译器能编译这样的C程序。 C程序员可以省略函数原型，而C++不可以，一个不带参数的C函数原型必须把void写出来。而C++可以使用空参数列表。 C++中new和delete是对内存分配的运算符，取代了C中的malloc和free。 标准C++中的字符串类取代了C标准C函数库头文件中的字符数组处理函数。 C++中用来做控制态输入输出的iostream类库替代了标准C中的stdio函数库。 C++中的try/catch/throw异常处理机制取代了标准C中的setjmp()和longjmp()函数。 二、关键字和变量 C++相对与C增加了一些关键字，如下： typenamebooldynamic_castmutablenamespace static_castusingcatchexplicitnew virtualoperatorfalseprivatetemplate volatileconstprotectedthiswchar_t const_castpublicthrowfriendtrue reinterpret_casttry bitorxor_eand_eqcomplor_eq not_eqbitand
计算机二级VB考试题及答案 为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是搜索的计算机二级VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩! 1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click( ) n = Val(Text1.Text) If n2 = n/2 Then f = f1(n) Else f = f2(n) End If
Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)
A.72 36 B.108 36 C.72 6 D.27 3 2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c = "1234" For i = 1 To 4 c1 = Trim(Str( )) Print c1
Next i End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 12 123 1234 则在下划线处应填入的内容为(B)(单) A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i)
在考生文件夹下打开文档WORD.DOCX。 某高校学生会计划举办一场"大学生网络创业交流会"的活动，拟邀请部分专家和老师给在校学生进行演讲。因此，校学生会外联部需制作一批邀请函，并分别递送给相关的专家和老师。 请按如下要求，完成邀请函的制作： 1. 调整文档版面，要求页面高度18厘米、宽度30厘米，页边距（上、下）为2厘米，页边距（左、右）为3厘米。 2. 将考生文件夹下的图片"背景图片.jpg"设置为邀请函背景。 3. 根据"Word-邀请函参考样式.docx"文件，调整邀请函中内容文字的字体、字号和颜色。 4. 调整邀请函中内容文字段落对齐方式。 5. 根据页面布局需要，调整邀请函中"大学生网络创业交流会"和"邀请函"两个段落的间距。 6. 在"尊敬的"和"（老师）"文字之间，插入拟邀请的专家和老师姓名，拟邀请的专家和老师姓名在考生文件夹下的"通讯录.xlsx "文件中。每页邀请函中只能包含1位专家或老师的姓名，所有的邀请函页面请另外保存在一个名为"Word-邀请函.docx"文件中。 7. 邀请函文档制作完成后，请保存"Word.docx"文件。
小李今年毕业后，在一家计算机图书销售公司担任市场部助理，主要的工作职责是为部门经理提供销售信息的分析和汇总。 请你根据销售数据报表（"Excel.xlsx" 文件），按照如下要求完成统计和分析工作： 1. 请对"订单明细表"工作表进行格式调整，通过套用表格格式方法将所有的销售记录调整为一致的外观格式，并将"单价"列和"小计"列所包含的单元格调整为"会计专用"（人民币）数字格式。 2. 根据图书编号，请在"订单明细表"工作表的"图书名称"列中，使用VLOOKUP 函数完成图书名称的自动填充。"图书名称"和"图书编号"的对应关系在"编号对照"工作表中。 3. 根据图书编号，请在"订单明细表"工作表的"单价"列中，使用VLOOKUP函数完成图书单价的自动填充。"单价"和"图书编号"的对应关系在"编号对照"工作表中。 4. 在"订单明细表"工作表的"小计"列中，计算每笔订单的销售额。 5. 根据"订单明细表"工作表中的销售数据，统计所有订单的总销售金额，并将其填写在"统计报告"工作表的B3单元格中。 6. 根据"订单明细表"工作表中的销售数据，统计《MS Office高级应用》图书在2012年的总销售额，并将其填写在"统计报告"工作表的B4单元格中。 7. 根据"订单明细表"工作表中的销售数据，统计隆华书店在2011年第3季度的总销售额，并将其填写在"统计报告"工作表的B5单元格中。 8. 根据"订单明细表"工作表中的销售数据，统计隆华书店在2011年的每月平
计算机二级必备题目 第一部分（真题综合篇） 一、选择题（（1）~（40）每题1分，（41）~（50）每题2分，共60分）下列各题A、B、C、D四个选项中，只有一个选项是正确的。请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。 1、 1MB等于（） （本题分值：1分） A)1000字节 B)1024字节 C)1000╳1000字节 D)1024╳1024字节 2、与十六进制数200等值得十进制数为（） （本题分值：1分） A)256 B)512 C)1024 D)2048 3、所谓“裸机“是指（） （本题分值：1分） A)单片机 B)单板机 C)不装备任何软件的计算机 D)只装备操作系统的计算机
4、能将高级语言编写的源程序转换为目标程序的是（） （本题分值：1分） A)链接程序 B)解释程序 C)编译程序 D)编辑程序 5、在64为计算机中，一个字长所占字节数为（） （本题分值：1分） A)64 B)8 C)4 D)1 6、在Windows环境下，当一个应用程序窗口被最小化后，该应用程序（）（本题分值：1分） A)继续在后台运行 B)继续在前台运行 C)终止运行 D)暂停运行 7、在Windows环境下，能实现窗口移动的操作是（） （本题分值：1分）
A)用鼠标拖动窗口中的任何部位 B)用鼠标拖动窗口的边框 C)用鼠标拖动窗口的控制按钮 D)用鼠标拖动窗口的标题栏 8、在Windows环境下，PrintScreen键的作用是（）（本题分值：1分） A)打印当前窗口的内容 B)打印屏幕内容 C)复制屏幕到剪贴板 D)复制当前窗口到剪贴板 9、Internet的通信协议是（） （本题分值：1分） A)TCP/IP B)BBS C)WWW D)FTP 10、下列叙述中正确的是（） （本题分值：1分） A)计算机病毒只感染可执行文件 B)计算机病毒只感染文本文件 C)计算机病毒只能通过软件复制的方式进行传播
Word 2010 高级应用综合操作题打开素材库中的“典型试题”文件，按下面的操作要求进行操作，并把操作结果存盘。 1．操作要求 （1）对正文进行排版。 ①使用多级符号对章名、小节名进行自动编号，代替原始的编号。要求： * 章号的自动编号格式为：第X 章（例：第1 章），其中：X 为自动排序，阿拉伯数字序号。对应级别1。居中显示。 *小节名自动编号格式为：，X为章数字序号，Y为节数字序号（例：）,X、Y均为阿拉伯数字序号。对应级别2。左对齐显示。 ②新建样式，样式名为：“样式”＋考生准考证号后5 位。其中： *字体：中文字体为“楷体” ，西文字体为“ Time New Roman ”，字号为“小四” 。 *段落：首行缩进2 字符，段前行，段后行，行距倍；两端对齐。其余格式，默认设置。 ③对正文中的图添加题注“图” ，位于图下方，居中。要求： *编号为“章序号” -“图在章中的序号” 。例如，第1 章中第2 幅图，题注编号为1-2。 *图的说明使用图下一行的文字，格式同编号。 *图居中。 ④对正文中出现“如下图所示”的“下图”两字，使用交叉引用。 *改为“图X-Y”，其中“ X-Y'为图题注的编号。 ⑤对正文中的表添加题注“表” ，位于表上方，居中。 *编号为“章序号” -“表在章中的序号” 。例如，第1 章中第1 张表，题注编号为1-1。 *表的说明使用表上一行的文字，格式同编号。 *表居中，表内文字不要求居中。 ⑥对正文中出现“如下表所示”中的“下表”两字，使用交叉引用。 *改为“表X-Y，其中“ X-Y'为表题注的编号。 ⑦对正文中首次出现“ Access'的地方插入脚注。 *添加文字“ Access是由微软发布的关联式数据库管理系统。”。 ⑧将②中的新建样式应用到正文中无编号的文字。不包括章名、小节名、表文字、表和图的题注、脚注。 （2）在正文前按序插入三节，使用Word 提供的功能，自动生成如下内容： ①第1 节：目录。其中：“目录”使用样式“标题1”，并居中；“目录”下为目录项。 ②第2 节：图索引。其中：“图索引”使用样式“标题1”，并居中；“图索引”下为图索引项。 ③第3 节：表索引。其中：“表索引”使用样式“标题1”，并居中；“表索引”下为表索引项。 （3）使用适合的分节符，对正文进行分节。添加页脚，使用域插入页码，居中显示。要求： ①正文前的节，页码采用“i ,ii』［,???”格式，页码连续。 ②正文中的节，页码采用“ 1,2,3,…”格式，页码连续。 ③正文中每章为单独一节，页码总是从奇数开始。 ④更新目录、图索引和表索引。
2017年计算机二级考试VB重点:Visual Basic的特点 一、Visual Basic的特点和版本 (一)Visual Basic 的特点 Visual Basic是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。 总的来看，Visual Basic有以下主要特点： 1.可视化编程 2.面向对象的程序设计 3.结构化程序设计语言 4.事件驱动编程机制 5.访问数据库 6.动态数据交换(DDE) 7.对象的链接与嵌入(OLE) 8.动态链接库(DLL) 9.建立用户自己的ActiveX 控件 10.建立ActiveX 文档
11」nternet 组件下载 12.枚举类型 (二)Visual Basic 的版本 Visual Basic6.0包括3种版本，分别为学习版、专业版和企业版。 (1)学习版:Visual Basic的基础版本，可用来开发Windows应用程序。该版本包括所有的内部控件(标准控件)、网络(Grid)控件、Tab对象以及数据绑定控件。 (2)专业版:该版本为专业编程人员提供了一整套用于软件开发、功能完备的工具。它包括学习版的全部功能，同时包括ActiveX控件、In ternet 控件、Crystal Report Writer 和报表控件。 (3)企业版:可供专业编程人员开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能，同时具有自动化管理器、部件管理器、数据库管理工具、Microsoft Visual SourceSafe 面向工程版的控制系统等 二、Visual Basic的启动与退出 开机并进入中文Win dows 后，可以用多种方法启动Visual Basic。 第一种方法：使用“开始”菜单中的“程序”命令。操作如下： (1)单击Windows 环境下的“开始”按钮，弹出一个菜单，把光标移到“程序”命令上，将弹出下一个级联菜单； (2)把光标移到“ Microsoft Visual Basic6.0 中文版”，弹出下一个级联菜单，即Visual Basic6.0程序组；
考试大纲 基本要求 1. 掌握计算机基础知识及计算机系统组成。 2. 了解信息安全的基本知识,掌握计算机病毒及防治的基本概念。 3. 掌握多媒体技术基本概念和基本应用。 4. 了解计算机网络的基本概念和基本原理,掌握因特网网络服务和应用。 5. 正确采集信息并能在文字处理软件Word、电子表格软件Excel、演示文稿制作软件Power-Point 中熟练应用。 6. 掌握Word的操作技能,并熟练应用编制文档。 7. 掌握Excel 的操作技能,并熟练应用进行数据计算及分析。 8. 掌握PowerPoint 的操作技能,并熟练应用制作演示文稿。 考试内容 一、计算机基础知识 1. 计算机的发展、类型及其应用领域。 2. 计算机软硬件系统的组成及主要技术指标。 3. 计算机中数据的表示与存储。 4. 多媒体技术的概念与应用。 5. 计算机病毒的特征、分类与防治。 6. 计算机网络的概念、组成和分类;计算机与网络信息安全的概念和防控。 7. 因特网网络服务的概念、原理和应用。 二、Word的功能和使用 1. Microsoft Office应用界面使用和功能设置。 2. Word的基本功能,文档的创建、编辑、保存、打印和保护等基本操作。 3. 设置字体和段落格式、应用文档样式和主题、调整页面布局等排版操作。 4. 文档中表格的制作与编辑。 5. 文档中图形、图像(片)对象的编辑和处理,文本框和文档部件的使用,符号与数学公式的输入与编辑。 6. 文档的分栏、分页和分节操作,文档页眉、页脚的设置,文档内容引用操作。 7. 文档审阅和修订。 8. 利用邮件合并功能批量制作和处理文档。 9. 多窗口和多文档的编辑,文档视图的使用。 10. 分析图文素材,并根据需求提取相关信息引用到Word文档中。 三、Excel 的功能和使用 1. Excel 的基本功能,工作簿和工作表的基本操作,工作视图的控制。 2. 工作表数据的输入、编辑和修改。 3. 单元格格式化操作、数据格式的设置。 4. 工作簿和工作表的保护、共享及修订。 5. 单元格的引用、公式和函数的使用。 6. 多个工作表的联动操作。
计算机二级考试《VB》模拟试题及答案 2016计算机二级考试《VB》模拟试题及答案 一、基本操作题 (1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl.vbp，窗体文件名为sjtl.frm。 (2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。再画两个标题分别为“椭圆”和“圆”的命令按钮。如下图所示。 要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjr2.vbp，窗体文件名为sjr2.frm。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp。窗体Forml上有两个标题分别是“读数据”和“查找”的命令按钮。请画1个名称为Textl、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。程序功能如下。 ①在考生文件夹下的in.3.dat文件中存有100个正整数。单击“读数据”按钮，则将文件in3.dat中的数据读入数组a中。 ②单击“查找”按钮，则查找数组a中所有为7的倍数的数据，并将这些数据顺次显示在Textl文本框内(数据之间用空格隔开)。
“读数据”按钮的Click事件过程已经给出，请编写程序完成“查找”按钮的Click事件过程，实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须使用“查找”按钮完成查找过程，且必须用窗 体右上角的关闭按钮结束程序，否则无成绩。最后将程序按原文件 名存盘。 (2)考生文件夹下有一个工程文件sit4.vbp。在窗体Forml上有 两个名称为Commandl和Command2、标题分别为“重输”和“查找”的命令按钮。程序功能如下。 单击“重输”按钮，则清空Textl中的`内容，等待用户输入由 空格隔开的若干个英文单词;单击“查找”按钮，则找出Textl中最 长的单词，并将其显示在Text2中。某一次的运行效果如图所示。 请将“查找”按钮的Click事件过程中的注释符去掉，把?改为正确 内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 考生文件夹下有一个工程文件sjt.s.vbp。在窗体Forml上有两 个标题分别是“产生数据”和“重新排列”的命令按钮，有两个标 题为“原始数据”和“排列数据”的标签。程序功能如下。 ①单击“产生数据”按钮，则随机产生20个一位整数，存人数 组a中，并同时显示在Textl中。 ②单击“重新排列”按钮，则重新排列数组a中的元素：使等值的元素相邻存放，并且保持它们在数组a中首次出现的相对次序;最 后将排列结果显示在Text2中。某一次运行结果如图所示。 请将“重新排列”按钮的Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。
上海市高等学校计算机等级考试（二级）《C程序设计》考试大纲 （2010年修订） 一、考试性质 上海市高等学校计算机等级考试是上海市教育委员会组织的全市高校统一的教学考试，是检测和评价高校计算机应用基础知识教学水平和教学质量的重要依据之一。该项考试旨在规范和加强上海高校非计算机专业的计算机教学工作，提高非计算机专业学生的计算机应用能力。考试对象主要是上海高等学校非计算机专业学生，考试每年举行一次，当年的十月下旬、十一月上旬的星期六或星期日。凡考试成绩达到合格者或优秀者，由上海市教育委员会颁发相应的证书。 本考试由上海市教育委员会统一领导，聘请有关专家组成考试委员会，委托上海市教育考试院组织实施。 二、考试目标 C语言是当前常用的一种简洁、高效、功能丰富的程序设计语言，是理工科大学生学习计算机编程能力、理解计算机解决问题的方法的重要工具。学生通过该课程的学习，应能了解、掌握C语言的语法和使用它进行编程的方法，并能上机调试运行解决简单实际问题。 《C程序设计》的考试目标是测试考生掌握C语言知识的程度和综合运用语言知识进行程序设计的能力。 三、考试细则 考试采用基于网络环境的无纸化上机考试系统。考试时间为120分钟。试卷总分为100分。 试题由四部分组成：单选题、程序调试题、程序填空题和综合编程题。试卷从局域网的服务器下载、考试结果上传到服务器，若不按照要求上传到服务器，则考试无效。考试阅卷采用机器和人工相结合的网上阅卷方式。 四、试卷参考样式
五、考试内容和要求
六、几点说明 （一）建议学时数 48-64学时，其中16-32学时为实验课 （二）建议考试对象 理、工、农、医专业类非计算机专业本科生 （三）建议计算机配置 计算机硬件基本要求： 中央处理器Pentium III 550MGHz以上 内存 128MB以上 硬盘 20GB以上 计算机软件基本要求： 操作系统Windows 2000及以上 编程环境中文Microsoft Visual C++ 6.0 （四）考试环境 安装并使用“上海市高校计算机等级考试通用平台”进行考试。
计算机二级考试常考试题及参考答案一、选择题(92题) (1) 下面叙述正确的是(C) A. 算法的执行效率与数据的存储结构无关 B. 算法的空间复杂度是指算法程序 中指令(或语句)的条数 C. 算法的有穷性是指算法必须能在执行有限个步骤之后终 止D. 以上三种描述都不对 (2) 以下数据结构中不属于线性数据结构的是(C) A. 队列 B. 线性表 C. 二叉树 D. 栈 (3) 在一棵二叉树上第5层的结点数最多是(B) 注：由公式2k-1得 A. 8 B. 16 C. 32 D. 15 (4) 下面描述中，符合结构化程序设计风格的是(A) A. 使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑 B. 模 块只有一个入口，可以有多个出口 C. 注重提高程序的执行效率 D. 不使用goto语 句 (5) 下面概念中，不属于面向对象方法的是(D) 注：P55-58 A. 对象 B. 继承 C. 类 D. 过程调用 (6) 在结构化方法中，用数据流程图(DFD)作为描述工具的软件开发阶段是(B) A. 可行性分析 B. 需求分析 C. 详细设计 D. 程序编码 (7) 在软件开发中，下面任务不属于设计阶段的是(D) A. 数据结构设计 B. 给出系统模块结构 C. 定义模块算法 D. 定义需求并建立系统模型 (8) 数据库系统的核心是(B) A. 数据模型 B. 数据库管理系统 C. 软件工具 D. 数据库 (9) 下列叙述中正确的是(C) A.数据库是一个独立的系统，不需要操作系统的支持 B.数据库设计是指设计数 据库管理系统C.数据库技术的根本目标是要解决数据共享的问题 D.数据库系统中，数据的物理结构必须与逻辑结构一致 (10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注： P108 A. 内模式 B. 外模式 C. 概念模式 D. 逻辑模式 (11) 算法的时间复杂度是指(C)
站长提醒广大考生：下面的138道题目，在二级考试中命中率极高。 一、选择题 (1) 下面叙述正确的是(C) A. 算法的执行效率与数据的存储结构无关 B. 算法的空间复杂度是指算法程序中指令（或语句）的条数 C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止 D. 以上三种描述都不对 (2) 以下数据结构中不属于线性数据结构的是(C) A. 队列 B. 线性表 C. 二叉树 D. 栈 (3) 在一棵二叉树上第5层的结点数最多是(B) 注：由公式2k-1得 A. 8 B. 16 C. 32 D. 15 (4) 下面描述中，符合结构化程序设计风格的是(A) A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑 B. 模块只有一个入口，可以有多个出口 C. 注重提高程序的执行效率 D. 不使用goto语句 (5) 下面概念中，不属于面向对象方法的是(D) 注：P55-58 A. 对象 B. 继承 C. 类 D. 过程调用 (6) 在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是(B) A. 可行性分析 B. 需求分析 C. 详细设计 D. 程序编码 (7) 在软件开发中，下面任务不属于设计阶段的是(D) A. 数据结构设计 B. 给出系统模块结构 C. 定义模块算法 D. 定义需求并建立系统模型 (8) 数据库系统的核心是(B) A. 数据模型 B. 数据库管理系统 C. 软件工具 D. 数据库 (9) 下列叙述中正确的是(C) A.数据库是一个独立的系统，不需要操作系统的支持 B.数据库设计是指设计数据库管理系统 C.数据库技术的根本目标是要解决数据共享的问题 D.数据库系统中，数据的物理结构必须与逻辑结构一致 (10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108
全国计算机等级考试二级公共基础知识 考试大纲 一、基本要求 1、掌握算法的基本概念。 2、掌握基本数据结构及其操作。 3、掌握基本排序和查找算法。 4、掌握逐步求精的结构化程序设计方法。 5、掌握软件工程的基本方法,具有初步应用相关技术进行软件开发的能力。 6、掌握数据库的基本知识,了解关系数据库的设计。 二、考试内容 （一）基本数据结构与算法 1、算法的基本概念;算法复杂度的概念和意义(时间复杂度与空间复杂度)。 2、数据结构的定义;数据的逻辑结构与存储结构;数据结构的图形表示;线性结构与非线性结构的概念。 3、线性表的定义;线性表的顺序存储结构及其插入与删除运算。 4、栈和队列的定义;栈和队列的顺序存储结构及其基本运算。 5、线性单链表、双向链表与循环链表的结构及其基本
运算。 6、树的基本概念;二叉树的定义及其存储结构;二叉树的前序、中序和后序遍历。 7、顺序查找与二分法查找算法;基本排序算法(交换类排序,选择类排序,插入类排序) （二）程序设计基础 1、程序设计方法与风格。 2、结构化程序设计。 3、面向对象的程序设计方法,对象,方法,属性及继承与多态性。 （三）软件工程基础 1、软件工程基本概念,软件生命周期概念,软件工具与软件开发环境。 2、结构化分析方法,数据流图,数据字典,软件需求规格说明书。 3、结构化设计方法,总体设计与详细设计。 4、软件测试的方法,白盒测试与黑盒测试,测试用例设计,软件测试的实施,单元测试、集成测试和系统测试。 5、程序的调试,静态调试与动态调试。 （四）数据库设计基础 1、数据库的基本概念:数据库,数据库管理系统,数据库系统。
培训事项 培训对象 年龄、职业、学历不限，不论在职人员、学生、行业人员均可根据自己学习或使用计算机的实际情况，选择培训相应的级别和科目。 培训课程设置 本次培训针对全国计算机等级考试一级考前培训，考试课程设置根据全国计算机等级一级考试容为50个课时，每次课时约45分钟，一天2个课时，培训完成需要25天。 上课时间：早上9：00-11：30 下午14：00-16：30 晚上19：00-21：30 以上上课时间任学员选择，但只能选其一且每周1-5必按所选时间到校上课。 培训费用 每人每次每科目培训费用为860元（含教材费、上机费等），有学生证、残疾证、失业证等证书优惠50元。 全国计算机等级考试二级（大纲） 全国计算机等级考试报名资格
考生年龄、职业、学历不限，不论在职人员、行业人员，均可根据自己学习或使用计算机的实际情况，选考相应的级别和科目。考生每次报考一个科目的考试，考生一次考试只能在一个考点报名。考生可根据自己情况选考不同的等级，但一次只能报考一个等级。考生可以不参加考前培训，直接报名参加考试。 报名携带材料 报名时，报考者一律凭本人按考点要求如实提供相关信息。丢失者，必须持公安部门开具的“”证明报考。没有的未成年人凭户口本报名，军人（或武警人员）凭军人（或武警）件报名。其他证件如护照、港澳台地区居民等也可用于报考。报名时应按规定交近期蓝底正面免冠同一底板二寸照片2或当场数码摄像。证件不全或照片不符合规定者，一律不得报考。报名、考试时间 报名时间：上半年12月1日开始及之后的1个月之；下半年5月25日开始及之后的1个月之。 考试时间：上半年3月底(即3月份倒数第一个周六)，下半年9月中旬(即9月份倒数第二个周六)。 第一天上午考笔试，上机考试从笔试的当天下午开始（一级从上午开始）。上机考试在笔试后紧接着的5天完成。 考试形式
二级MS Office高级应用-Excel公式应用 1、mid(text,start_num,num_chars) 功能：作用是从一个字符串中截取出指定数量的字符 参数说明： text：文本所在的单元格 start_num: 从第几个字符开始截取 num_chars: 截取字符的个数 举例：
2、sum(number1,number2,number3,….) 功能：计算单元格区域中所有数值的和 参数：number1数字所在单元格，number2数字2所在单元格，连续的单元格可以A2：A10这样表示，或A2:G2 举例：
3、average(number1,number2,number3,…) 功能：返回其参数的算术平均值 参数：number1数字所在单元格，number2数字2所在单元格，连续的单元格可以A2：A10这样表示，或A2:G2 举例：
4、if(logical_test,value_of_true,value_of_false) 功能：判断是否满足某个条件，如果满足返回一个值，如果不满足返回另一个值。 参数： Logical_test：逻辑表达式 Value_of_true：如果条件为真，显示这个值 Value_of_false：如果条件为假，显示这个值 举例：
5、int(number) 功能：取整函数，向下取整，即只取整数部分，不四舍五入。 参数：number可以是带小数的。 举例： 6、round(number,num_digits) 功能：按指定的位数对数值进行四舍五入 参数： Number：需要四舍五入的数值 Num_digits：保留的小数位数，如为0，则对数值进行取整（四舍五入），注意与int函数的区别。 举例：
2011年9月全国计算机等级考试二级笔试试卷VB语言程序设计 一、选择题 1、下列叙述中正确的是 A、算法就是程序 B、设计算法时只需要考虑数据结构的设计 C、设计算法时只需要考虑结果的可靠性 D、以上三种说法都不对 2、下列关于线性链表的叙述中，正确的是 A、各数据结点存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致 B、各数据结点的存储顺序可以不一致，但它们的存储空间必须连续 C、进行插入与删除时，不需要移动表中的元素 D、以上三种说法都不对 3、下列关于二叉树的叙述中，正确的是 A、叶子结点总是比度为2的结点少一个 B、叶子结点总是比度为2的结点多一个 C、叶子结点数是度为2的结点数的两倍 D、度为2的结点数是度为1的结点数的两倍 4、软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。 A、学生成绩管理系统 B、C语言编译程序 C、UNIX操作系统D 5 该系统总体结构图的深度是 A、7 B、6 C、3 D、2 6、程序调试的任务是 A、设计测试用例 B、验证程序的正确性 C、发现程序中的错误 D、诊断和改正程序的错误 7、下列关于数据库设计的叙述中，正确的是 A、在需求分析阶段建立数据字典 B、在概念设计阶段建立数据字典 C、在逻辑设计阶段建立数据字典 D、在物理设计阶段建立数据字典 8、数据库系统的三级模式不包括 A、概念模式 B、内模式 C、外模式 D、数据模式 9、有三个关系R、S和T如下： R S 则由关系R和S得到关系T的操作是 A、自然连接 B、差 C、交 D、并 10、下列选项中属于面向对象设计方法主要特征的是 A、继承 B、自顶向下 C、模块化 D、逐步求精 11、以下描述中错误的是 A、窗体的标题通过其Caption属性设置
一、选择题 (1) 下面叙述正确的是(C) A. 算法的执行效率与数据的存储结构无关 B. 算法的空间复杂度是指算法程序中指令（或语句）的条数 C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止 D. 以上三种描述都不对 (2) 以下数据结构中不属于线性数据结构的是(C) A. 队列 B. 线性表 C. 二叉树 D. 栈 (3) 在一棵二叉树上第5层的结点数最多是(B) 注：由公式2k-1得 A. 8 B. 16 C. 32 D. 15 (4) 下面描述中，符合结构化程序设计风格的是(A) A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑 B. 模块只有一个入口，可以有多个出口 C. 注重提高程序的执行效率 D. 不使用goto语句 (5) 下面概念中，不属于面向对象方法的是(D) 注：P55-58 A. 对象 B. 继承 C. 类 D. 过程调用 (6) 在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是(B) A. 可行性分析 B. 需求分析 C. 详细设计 D. 程序编码 (7) 在软件开发中，下面任务不属于设计阶段的是(D) A. 数据结构设计 B. 给出系统模块结构 C. 定义模块算法 D. 定义需求并建立系统模型 (8) 数据库系统的核心是(B) A. 数据模型 B. 数据库管理系统 C. 软件工具 D. 数据库 (9) 下列叙述中正确的是(C) A.数据库是一个独立的系统，不需要操作系统的支持 B.数据库设计是指设计数据库管理系统 C.数据库技术的根本目标是要解决数据共享的问题 D.数据库系统中，数据的物理结构必须与逻辑结构一致 (10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108 A. 内模式 B. 外模式 C. 概念模式 D. 逻辑模式 (11) 算法的时间复杂度是指(C) A. 执行算法程序所需要的时间 B. 算法程序的长度 C. 算法执行过程中所需要的基本运算次数 D. 算法程序中的指令条数 (12) 算法的空间复杂度是指(D) A. 算法程序的长度 B. 算法程序中的指令条数 C. 算法程序所占的存储空间 D. 算法执行过程中所需要的存储空间 (13) 设一棵完全二叉树共有699个结点，则在该二叉树中的叶子结点数为(B) 注：利用公式n=n0+n1+n2、n0=n2+1和完全二叉数的特点可求出 A. 349 B. 350 C. 255 D. 351 (14) 结构化程序设计主要强调的是(B) A.程序的规模 B.程序的易读性 C.程序的执行效率 D.程序的可移植性 (15) 在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是 (D) 注：即第一个阶段