下面是小编给各位读者分享的计算机vb教学计划，欢迎大家分享。
篇1：计算机二级VB考试题
1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
If n\2 = 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
程序运行后，单击命令按钮，要求在窗体上显示如下内容
1
12
123
1234
则在下划线处应填入的内容为(B)(单)
A.Right(c1,i)
B.Left(c1,i)
C.Mid(c1,i,1)
D.Mid(c1,i,i)
3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j >Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是(C)(单)
A.输出n以内的奇数
B.输出n以内的偶数
C.输出n以内的素数
D.输出n以内能被j整除的数
4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click( )
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是(C)(单)
A.11
B.10
C.9
D.8
5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Next j
Next i
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)
A.15
B.14
C.13
D.12
6.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
7.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。
Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
popupmenu mnuEdit
End If
End Sub
8.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【popupmenu】 mnuEdit
End If
9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。
10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。
篇2：计算机二级VB考试题
1.窗体中有一个名称为txtSpeed的文本框，一个名称为hsbSpeed的滚动条。
以下程序：
Private Sub hsbSpeed_Change( )
txtSpee
D.Text = hsbSpee
D.Value
End Sub
当单击滚动条hsbSpeed右端的箭头时，以下说法不正确的是(B) (单)
A.此时会触发change事件
B.此时不会触发change事件
C.在文本框中显示了滚动条滑块所在位置的值
D.此时不会触发scroll事件
2.利用窗体中的滚动条HScroll1改变窗体的背景色，可以这样编写代码：
Private Sub HScroll1_Change( )
R= HScroll1.Value
form1.BackColor = RGB(R，int(Rnd*256)，int(Rnd*256))
End Sub
以下说法不正确的是(C) (单)
A.窗体的背景色是一个随机的颜色
B.RGB函数取得到的颜色有256*256*256种
C.表达式int(Rnd*256)取得随机数的范围为0-256之间的整数
D.表达式int(Rnd*256)取得随机数的范围为0-255之间的整数
3.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.FontSize =【Slider1.value】
End Sub
当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。
4.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.【Fontsize】 = slider1.value
End Sub
当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。
5.窗体中有一个名称为Slider1的可选择性刻度滑块控件，要设置它的如下属性值，可以编写程序(A) (单)
(1)Slider控件的滑块处于最小位置时值为8
(2)Slider控件的滑块处于最大位置时值为72
(3)单击Slider控件两端箭头时，滑块的增量值为2
(4)单击Slider控件的空白处时，滑块的增量值为8
A.Slider1.Min = 8：
Slider1.Max = 72：
Slider1.SmallChange =2：
Slider1.LargeChange = 8
B.Slider1.Min = 2：
Slider1.Max = 8：
Slider1.SmallChange = 72：
Slider1.LargeChange = 8
C.Slider1.Min = 8：
Slider1.Max = 72：
Slider1.SmallChange = 8：
Slider1.LargeChange = 2
D.Slider1.Min = 72：
Slider1.Max = 8：
Slider1.SmallChange = 2：
Slider1.LargeChange = 8
6.在窗体中有一个名称为timer1的时钟控件，三个名称分别为image1、image2 和 image3的图像框，编写如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+“\butterfly.bmp”)
Image2.Picture=LoadPicture(App.Path+“\butterfly2.bmp”)
Image3.Picture=LoadPicture(App.Path+“\butterfly.bmp”)
End Sub
Sub timer1_Timer( )
Static PickBmp As Boolean
Image1.Move Image1.Left + 20, Image1.Top - 5
If PickBmp = False Then
Image1.Picture = Image2.Picture
PickBmp = True
Else
Image1.Picture = Image3.Picture
PickBmp = False
End If
End Sub
以下说法不正确的是(C) (单)
A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换
B.PickBmp变量是逻辑变量，作用是表示图形的状态
C.App.Path表示绝对路径
D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0
7.在窗体中有一个名称为timer1的时钟控件，三个名称分别为image1、image2 和 image3的图像框，编写如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+“\butterfly.bmp”)
Image2.Picture=LoadPicture(App.Path+“\butterfly2.bmp”)
Image3.Picture=LoadPicture(App.Path+“\butterfly.bmp”)
End Sub
Sub timer1_Timer( )
Static PickBmp As Boolean
Image1.Move Image1.Left + 20, Image1.Top - 5
If PickBmp = False Then
Image1.Picture = Image2.Picture
PickBmp = True
Else
Image1.Picture = Image3.Picture
PickBmp = False
End If
End Sub
以下说法不正确的是(B) (单)
A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换
B.也可以将timer1控件的timer事件改写为change事件
C.App.Path表示相对路径
D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0
8 .在ProgressBar进度条控件中，它的Value属性决定该控件被填充多少。√
9 .UpDown控件通常与伙伴控件“捆绑”在一起使用。√
10 .Animation控件可以用来显示有声音的AVI视频文件 ×。
11.对Animation控件所使用的方法描述不正确的是(B) (单)
A.Open方法用于打开文件
B.Play方法用于播放动画，格式为： Animation1.play AVI动画文件路径
C.Stop方法用于停止播放
D.Close方法用于关闭文件
12.下面的事件不属于鼠标器事件的是(D) (单)
A.MouseDown事件
B.MouseUp事件
C.MouseMove事件
D.Move事件
13.下面的事件不属于键盘事件的是(D) (单)
A.KeyPress事件
B.KeyDown事件
C.KeyUp事件
D.KeyMove事件
14.在窗体中有一个名称为command1的命令按钮，一个名称为text1的文本框，一个名称为commondialog1的通用对话框，编写如下程序：
Sub command1_Click( )
CommonDialog1.Action = 3
text1.ForeColor = CommonDialog1.Color
End Sub
当单击命令按钮时，对程序的运行说法正确的是(B) (单)
A.打开一个颜色对话框
B.打开一个字体对话框
C.把文本框的背景颜色设置为对话框选择的字体颜色
D.把文本框的背景颜色设置为对话框中选择的颜色
15.当单击命令按钮时，对以下程序说法不正确的是(D) (单)
Sub command1_Click( )
CommonDialog1.Action = 5
For i = 1 To CommonDialog1.Copies
Printer.Print text1.Text
Next i
Printer.EndDoc
End Sub
A.此文件的功能是打印文本框text1中的内容
B.语句Printer.EndDoc表示结束文挡打印
C.打开的打印对话框
D.以上说法都不正确
16.当单击命令按钮时，对以下程序说法不正确的是(C) (单)
Sub command1_Click( )
CommonDialog1.FileName = “default.txt”
CommonDialog1.DefaultExt = “Txt”
CommonDialog1.Action = 2
End Sub
A.设置缺省文件名为default.txt
B.设置缺省扩展名为Txt
C.显示的是文件“打开”对话框
D.显示的是“另存为”对话框
17.在窗体中建立了三个名称分别为EditCut、EditCopy和EditPaste的命令按钮，一个名称为text1的文本框。
如下程序：
Private Sub EditCopy_Click( )
st = Text1.SelText '将选中的内容存放到st变量中
End Sub
Private Sub EditCut_Click( )
st = Text1.SelText '
Text1.SelText = “”
End Sub
Private Sub EditPaste_Click( )
Text1.Text = Left(Text1, Text1.SelStart) + st + Mid(Text1, Text1.SelStart
+ 1)
End Sub
对以上程序说法不正确的是(D) (单)
A.语句st = Text1.SelText的作用是：将text1文本框中选择的内容存放到st变量中
B.语句Text1.SelText = “” 的作用是：将text1文本框中选择的内容清除
C.单击EditCut命令按钮实现了text1文本框中选择的内容清除
D.单击Editcopy命令按钮实现了text1文本框中所有内容的粘贴
18.对以下程序说法不正确的是(D) (单)
Private Sub FileOpen_Click( )
CommonDialog1.InitDir = “C:\”
CommonDialog1.Filter = “文本文件 | *.Txt”
CommonDialog1.ShowOpen
End Sub
A.显示“文件”打开对话框
B.打开的对话框的初始目录为C盘根目录
C.打开的对话框的文件类型为文本文件
D.以上说法都不正确
19.双精度型数据的类型符为(A) (单)
A.#
B.*
C.&
D.@
20.整型数据的类型符为(B) (单)
A.#
B.%
C.&
D.@
篇3：计算机vb试题及答案
计算机vb试题及答案
(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)
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)
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)注：即第一个阶段
A.概要设计
B.详细设计
C.可行性分析
D.需求分析
(16)数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是(A)
A.控制流
B.加工
C.数据存储
D.源和潭
(17)软件需求分析阶段的工作，可以分为四个方面：需求获取、需求分析、编写需求规格说明书以及(B)注：P66
A.阶段性报告
B.需求评审
C.总结
D.都不正确
(18)下述关于数据库系统的叙述中正确的是(A)
A.数据库系统减少了数据冗余
B.数据库系统避免了一切冗余
C.数据库系统中数据的一致性是指数据类型的一致
D.数据库系统比文件系统能管理更多的数据
(19)关系表中的'每一横行称为一个(A)
A.元组
B.字段
C.属性
D.码
(20)数据库设计包括两个方面的设计内容，它们是(A)
A.概念设计和逻辑设计
B.模式设计和内模式设计
C.内模式设计和物理设计
D.结构特性设计和行为特性设计
(21)下列叙述中正确的是(A)
A.线性表是线性结构
B.栈与队列是非线性结构
C.线性链表是非线性结构
D.二叉树是线性结构
(22)下列关于栈的叙述中正确的是(D)
A.在栈中只能插入数据
B.在栈中只能删除数据
C.栈是先进先出的线性表
D.栈是先进后出的线性表
(23)下列关于队列的叙述中正确的是(C)
A.在队列中只能插入数据
B.在队列中只能删除数据
C.队列是先进先出的线性表
D.队列是先进后出的线性表
(24)对建立良好的程序设计风格，下面描述正确的是(A)
A.程序应简单、清晰、可读性好
B.符号名的命名要符合语法
C.充分考虑程序的执行效率
D.程序的注释可有可无
(25)下面对对象概念描述错误的是(A)
A.任何对象都必须有继承性
B.对象是属性和方法的封装体
C.对象间的通讯靠消息传递
D.操作是对象的动态性属性
(26)下面不属于软件工程的3个要素的是(D)
A.工具
B.过程
C.方法
D.环境
(27)程序流程图(PFD)中的箭头代表的是(B)
A.数据流
B.控制流
C.调用关系
D.组成关系
(28)在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是(A)
A.数据库系统
B.文件系统
C.人工管理
D.数据项管理
(29)用树形结构来表示实体之间联系的模型称为(B)
A.关系模型
B.层次模型
C.网状模型
D.数据模型
(30)关系数据库管理系统能实现的专门关系运算包括(B)
A.排序、索引、统计
B.选择、投影、连接
C.关联、更新、排序
D.显示、打印、制表
篇4：计算机二级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
程序运行后，单击命令按钮，要求在窗体上显示如下内容
1
12
123
1234
则在下划线处应填入的内容为(B)(单)
A.Right(c1,i)
B.Left(c1,i)
C.Mid(c1,i,1)
D.Mid(c1,i,i)
3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j >Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是(C)(单)
A.输出n以内的奇数
B.输出n以内的偶数
C.输出n以内的素数
D.输出n以内能被j整除的数
4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click( )
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是(C)(单)
A.11
B.10
C.9
D.8
5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Next j
Next i
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)
A.15
B.14
C.13
D.12
6.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
7.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。
Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
popupmenu mnuEdit
End If
End Sub
8.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【popupmenu】 mnuEdit
End If
9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。
10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。
1.计算机二级vb练习题
2.全国计算机二级《VB》练习题及答案
3.计算机二级VB考试习题
4.计算机二级考试试题VB练习题
5.计算机二级VB专项练习题
6.计算机二级vb练习题及答案
7.计算机二级VB强化试题及答案
8.计算机二级《VB》的常用算法
9.2017计算机二级考试《VB》巩固训练题
10.计算机二级考试《VB》巩固训练题
篇5：计算机二级vb上机题库
(34)某人设计了下面的函数fun，功能是返回参数a中数值的位数
Function fun(a As Integer) As Integer
Dim n%
n = 1
While a \ 10 >= 0
n = n + 1
a = a \ 10
Wend
fun = n
End Function
在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是
A)把语句n = 1改为n = 0
B)把循环条件a \ 10 >= 0改为a \ 10 >0
C)把语句 a = a \ 10改为a = a Mod 10
D)把语句fun = n改为 fun = a
(35)在窗体上有一个名称为Check1的复选框数组
(含4个复选框)，还有一个名称为Text1的文本
框，初始内容为空。程序运行时，单击任何复选
框，则把所有选中的复选框后面的方字罗列在文
本框中(见图)。下面能实现此功能的事件过程是
A)Private Sub Check1_Click(Indes As Integer)
Text1.Text =“”
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & “ ” '双引号中是空格
End If
Next k
End Sub
B)Private Sub Check1_Click(Index As Integer)
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & “ ” '双引号中是空格
End If
Next k
End Sub
C)Private Sub Check1_Click(Index As Integer)
Text1.Text = “”
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(Index).Caption & “ ” '双引号中是空格
End If
Next k
End Sub
D)Private Sub Check1_Click(Index As Integer)
Text1.Text = “”
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & “ ” '双引号中是空格
Exit For
End If
Next k
End Sub
二、填空题(每空2分，共30分)
请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。
(1)软件需求规格说明书应具有完整性，无岐义性、正确性、可验证性、可修改性等特征，其中最重要的是【1】 。
(2)在两种基本测试方法中，【2】 测试的原则之一是保证所测模块中每一个独立路径至少执行一次。
(3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的【3】 存储结构。
(4)对下列二叉树进行中序遍历的结果为【4】 。
(5)在E-R图中，矩形表示【5】 。
(6)窗体上有一个组合框，其中已输入了
若干个项目。程序运行时，单击其中一
项，即可把该项与最上面的一项交换。
例如：单击图1中的“重庆”，则与“北
京”交换，得到图2的结果。下面是可
实现此功能的程序，请填空。
Private Sub Combo1_Click
Dim temp
temp = Combo1.Text
[6] = Combo1.List(0)
Combo1.List(0) = temp
End Sub
(7)设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填写。
Dim [7] As Integer
Private Sub Form_Load()
pos=HScroIII.value
End Sub
Private Sub HScroIII_Change()
Print [8] -pos
pos=HScroIII.value
End Sub
(8)设窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click()
CD1.Filter =“文本文件1*.txt(Word 文档)*.doc”
CD1.Filterinder = 1
CD1.ShowOpen
If CD1.FileName“”Then
Open [9] For Input As #1
Line Input #1,ch$
Close #1
Text1.Text = [10]
End If
End Sub
(9)下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867，输入1000，则输出0001。请填空。
Private Sub Command1_Click()
Dim x As Integer
x=InputBox(“请输入一个正整数”)
While x>__[11]___
Print x Mod 10;
x=x\10
Wend
Print__[12]__
End Sub
篇6：计算机二级VB考试题及答案
计算机二级VB考试题及答案
计算机二级VB考试题及答案
1.设有如下程序段：
x=2
For c=1 To 4 Step 2
x=x+c
Next c
运行以上程序后，x的值是(A)(单)
A.6
B.7
C.8
D.9
2.以下叙述中错误的是(A)(单)
A.在KeyPress事件过程中不能识别键盘键的按下与释放
B.在KeyPress事件过程中不能识别回车键
C.在KeyDown和KeyUp事件过程中，从键盘输入的字母“A”和字母“a”对应的KeyCode视作相同的字母
D.在KeyDown和KeyUp事件过程中，从大键盘上输入的“1”和从右侧小键盘上输入的“1”被视作不同的字符
3.执行如下两条语句，窗体上显示的是(C)(单)
A=9.8596
Print Format(a,“000.00”)
A.0,009.86
B.9.86
C.009.86
D.0,009.86
4.在窗体上画一个名称为CommandDialog1 的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：
Private Sub Command1_Click( )
CommonDialog1.FileName =“”
CommonDialog1.Filter=“All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt”
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle=“VBTest”
CommonDialog1.Action=1
End Sub
对于这个程序，以下叙述中错误的是(D)(单)
A.该对话框被设置为“打开”对话框
B.在该对话框中指定的文件名为空
C.该对话框的标题为VBTest
D.在该对话框中指定的默认文件类型为文本文件(*.Txt)
5.设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
Private Sub Command1_Click( )
Dim a As Integer
a=10
Call g(Form2,a)
End Sub
Private Sub g(f As Form,x As Integer)
y=Iif(x>10,100,-100)
f.Show
f.Caption=y
End Sub
运行以上程序，正确的结果是(B)(单)
A.Form1的Caption属性值为100
B.Form2的Caption属性值为-100
C.Form1的Caption属性值为-100
D.Form2的Caption属性值为100
6.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Sub Command1_Click( )
Dim x As Integer
Static y As Integer
x=10
y=5
Call f1(x,y)
Print x,y
End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)
A.10 5
B.12 5
C.10 7
D.12 7
7.Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
Dim n As Integer
n=3
If n<10 Then
Call GetArray(a,n)
End If
End Sub
Private Sub GetArray(b( ) As Integer,n As Integer)
Dim c(10) As Integer
j=0
For t=1 To n
b(t)=Rnd*100
If b(t)/2=b(t)2 Then
j=j+1
c(j)=b(t)
End If
Next t
Print j
End Sub
以下叙述中错误的是(C)(单)
A.数组b中的数范围为0-100
B.c数组下标的下界从1开始
C.GetArray过程的参数n是按值传送的
D.语句If b(t)/2=b(t)2 Then 是判断数组b中元素的值是否为整数
8.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click( )
Dim a
a= Array(1,2,3,4,5)
For c=1 To Ubound(a)
a(c) = a(c)+c-1
Next c
Print a(3)
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是(B)(单)
A.4
B.5
C.6
D.7
9.阅读程序：
Option Base 1
Private Sub Form_Click( )
Dim arr
Dim Sum%
Sum = 0
arr = Array(1, 3, 5, 7, 9)
For t = 1 To 5
Sum = Sum + arr(t)
Next t
Print Sum
End Sub
程序运行后，单击窗体，输入结果为(B)(单)
A.5
B.9
C.25
D.15
10.在窗体上画一个名称为File1的文件列表框，并编写如下程序：
Private Sub File1_DblClick( )
x=Shell(File1.FileName,1)
End Sub
以下关于该程序的叙述中，错误的是(A)(单)
A.x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)
B.双击文件列表框中的文件，将触发该事件过程
C.要执行的文件的名字通过File1.FileName指定
D.File1中显示的是当前驱动器、当前目录下的文件
11.在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的.计时器控件，并把其Interval属性设置为500。编写如下程序：
Private Sub Form_Load( )
Timer1.Enabled=False
End Sub
Private Sub Command1_Click( )
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer( )
If Label1.Left< Form1.Width Then
Label1.Left = Label1.Left + 20
Else
Label1.Left=0
End If
End Sub
程序运行后，单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是(A)(单)
A.标签的移动方向为自右向左
B.单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D.标签按指定的时间时隔移动
12.规范地说，VB是一种(A)的开发工具(单)
A.面向对象
B.面向用户
C.面向屏幕
D.面向窗体
13.VB6设计界面包含多个视窗，控制这些视窗显示或关闭的命令包含在(D)下拉菜单中(单)
A.文件
B.工程
C.编辑
D.视图
14下面(D)操作不是激活或显示属性列表框的操作(单)
A.按快捷键F4
B.点击工具栏中的“属性列表框”按钮
C.选择“视图”下拉菜单的“属性窗口”项
D.双击窗体中的某一对象
15.Visual Basic程序中分隔各语句的字符是(B)(单)
A.′
B.:
C.
D._
16.假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为“VB Test”的语句为(B)(单)
A.Form1 = “VB Test”
B.Caption =“VB Test”
C.Form1.Text = “VB Test”
D.Form1.Name =“VB Test”
17.下列不能打开代码窗口的操作是(D)(单)
A.双击窗体上的某个控件双击
B.双击窗体
C.按F7键
D.单击窗体或控件
18.Visual Basic程序中语句行的续行符是(D)(单)
A.′
B.:
C.
D. _
19.Visual Basic程序中的注释所使用的字符是(A)(单)
A.′
B.:
C.
D._
20.下列说法中正确的是：为了保存一个Visual Basic应用程序，应当(D)(单)
A.只保存窗体模块文件(.frm)
B.只保存工程文件(.vbp)
C.分别保存工程文件和标准模块文件(.bas)
D.分别保存工程文件、窗体文件和标准模块文件
篇7：计算机二级VB考试练习题
1.窗体中有一个名称为txtSpeed的文本框，一个名称为hsbSpeed的滚动条。
以下程序：
Private Sub hsbSpeed_Change( )
txtSpee
D.Text = hsbSpee
D.Value
End Sub
当单击滚动条hsbSpeed右端的箭头时，以下说法不正确的是(B) (单)
A.此时会触发change事件
B.此时不会触发change事件
C.在文本框中显示了滚动条滑块所在位置的值
D.此时不会触发scroll事件
2.利用窗体中的滚动条HScroll1改变窗体的背景色，可以这样编写代码：
Private Sub HScroll1_Change( )
R= HScroll1.Value
form1.BackColor = RGB(R，int(Rnd*256)，int(Rnd*256))
End Sub
以下说法不正确的是(C) (单)
A.窗体的背景色是一个随机的颜色
B.RGB函数取得到的颜色有256*256*256种
C.表达式int(Rnd*256)取得随机数的范围为0-256之间的整数
D.表达式int(Rnd*256)取得随机数的范围为0-255之间的整数
3.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.FontSize =【Slider1.value】
End Sub
当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。
4.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.【Fontsize】 = slider1.value
End Sub
当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。
5.窗体中有一个名称为Slider1的可选择性刻度滑块控件，要设置它的如下属性值，可以编写程序(A) (单)
(1)Slider控件的滑块处于最小位置时值为8
(2)Slider控件的滑块处于最大位置时值为72
(3)单击Slider控件两端箭头时，滑块的增量值为2
(4)单击Slider控件的空白处时，滑块的增量值为8
A.Slider1.Min = 8：
Slider1.Max = 72：
Slider1.SmallChange =2：
Slider1.LargeChange = 8
B.Slider1.Min = 2：
Slider1.Max = 8：
Slider1.SmallChange = 72：
Slider1.LargeChange = 8
C.Slider1.Min = 8：
Slider1.Max = 72：
Slider1.SmallChange = 8：
Slider1.LargeChange = 2
D.Slider1.Min = 72：
Slider1.Max = 8：
Slider1.SmallChange = 2：
Slider1.LargeChange = 8
6.在窗体中有一个名称为timer1的时钟控件，三个名称分别为image1、image2 和 image3的图像框，编写如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+“utterfly.bmp”)
Image2.Picture=LoadPicture(App.Path+“utterfly2.bmp”)
Image3.Picture=LoadPicture(App.Path+“utterfly.bmp”)
End Sub
Sub timer1_Timer( )
Static PickBmp As Boolean
Image1.Move Image1.Left + 20, Image1.Top - 5
If PickBmp = False Then
Image1.Picture = Image2.Picture
PickBmp = True
Else
Image1.Picture = Image3.Picture
PickBmp = False
End If
End Sub
以下说法不正确的是(C) (单)
A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换
B.PickBmp变量是逻辑变量，作用是表示图形的状态
C.App.Path表示绝对路径
D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0
7.在窗体中有一个名称为timer1的时钟控件，三个名称分别为image1、image2 和 image3的图像框，编写如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+“utterfly.bmp”)
Image2.Picture=LoadPicture(App.Path+“utterfly2.bmp”)
Image3.Picture=LoadPicture(App.Path+“utterfly.bmp”)
End Sub
Sub timer1_Timer( )
Static PickBmp As Boolean
Image1.Move Image1.Left + 20, Image1.Top - 5
If PickBmp = False Then
Image1.Picture = Image2.Picture
PickBmp = True
Else
Image1.Picture = Image3.Picture
PickBmp = False
End If
End Sub
以下说法不正确的是(B) (单)
A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换
B.也可以将timer1控件的timer事件改写为change事件
C.App.Path表示相对路径
D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0
8 .在ProgressBar进度条控件中，它的Value属性决定该控件被填充多少。√
9 .UpDown控件通常与伙伴控件“捆绑”在一起使用。√
10 .Animation控件可以用来显示有声音的AVI视频文件 ×。
11.对Animation控件所使用的方法描述不正确的是(B) (单)
A.Open方法用于打开文件
B.Play方法用于播放动画，格式为： Animation1.play AVI动画文件路径
C.Stop方法用于停止播放
D.Close方法用于关闭文件
12.下面的事件不属于鼠标器事件的是(D) (单)
A.MouseDown事件
B.MouseUp事件
C.MouseMove事件
D.Move事件
13.下面的事件不属于键盘事件的是(D) (单)
A.KeyPress事件
B.KeyDown事件
C.KeyUp事件
D.KeyMove事件
14.在窗体中有一个名称为command1的命令按钮，一个名称为text1的文本框，一个名称为commondialog1的通用对话框，编写如下程序：
Sub command1_Click( )
CommonDialog1.Action = 3
text1.ForeColor = CommonDialog1.Color
End Sub
当单击命令按钮时，对程序的运行说法正确的是(B) (单)
A.打开一个颜色对话框
B.打开一个字体对话框
C.把文本框的背景颜色设置为对话框选择的字体颜色
D.把文本框的背景颜色设置为对话框中选择的颜色
15.当单击命令按钮时，对以下程序说法不正确的是(D) (单)
Sub command1_Click( )
CommonDialog1.Action = 5
For i = 1 To CommonDialog1.Copies
Printer.Print text1.Text
Next i
Printer.EndDoc
End Sub
A.此文件的功能是打印文本框text1中的内容
B.语句Printer.EndDoc表示结束文挡打印
C.打开的打印对话框
D.以上说法都不正确
16.当单击命令按钮时，对以下程序说法不正确的是(C) (单)
Sub command1_Click( )
CommonDialog1.FileName = “default.txt”
CommonDialog1.DefaultExt = “Txt”
CommonDialog1.Action = 2
End Sub
A.设置缺省文件名为default.txt
B.设置缺省扩展名为Txt
C.显示的是文件“打开”对话框
D.显示的是“另存为”对话框
17.在窗体中建立了三个名称分别为EditCut、EditCopy和EditPaste的命令按钮，一个名称为text1的文本框。
如下程序：
Private Sub EditCopy_Click( )
st = Text1.SelText '将选中的内容存放到st变量中
End Sub
Private Sub EditCut_Click( )
st = Text1.SelText '
Text1.SelText = “”
End Sub
Private Sub EditPaste_Click( )
Text1.Text = Left(Text1, Text1.SelStart) + st + Mid(Text1, Text1.SelStart
+ 1)
End Sub
对以上程序说法不正确的是(D) (单)
A.语句st = Text1.SelText的作用是：将text1文本框中选择的内容存放到st变量中
B.语句Text1.SelText = “” 的作用是：将text1文本框中选择的内容清除
C.单击EditCut命令按钮实现了text1文本框中选择的内容清除
D.单击Editcopy命令按钮实现了text1文本框中所有内容的粘贴
18.对以下程序说法不正确的是(D) (单)
Private Sub FileOpen_Click( )
CommonDialog1.InitDir = “C:”
CommonDialog1.Filter = “文本文件 | *.Txt”
CommonDialog1.ShowOpen
End Sub
A.显示“文件”打开对话框
B.打开的对话框的初始目录为C盘根目录
C.打开的对话框的文件类型为文本文件
D.以上说法都不正确
19.双精度型数据的类型符为(A) (单)
A.#
B.*
C.&
D.@
20.整型数据的类型符为(B) (单)
A.#
B.%
C.&
D.@
1.计算机二级vb练习题
2.计算机二级考试试题VB练习题
3.计算机二级vb练习题及答案
4.计算机二级VB专项练习题
5.全国计算机二级《VB》练习题及答案
6.计算机二级VB考试模拟练习题
7.9月计算机二级考试《VB》强化练习题及答案
8.209月计算机二级考试《VB》强化练习题与答案
9.计算机二级VB强化试题及答案
10.计算机二级《VB》的常用算法
篇8： 计算机二级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
程序运行后，单击命令按钮，要求在窗体上显示如下内容
1
12
123
1234
则在下划线处应填入的内容为(B)(单)
A.Right(c1,i)
B.Left(c1,i)
C.Mid(c1,i,1)
D.Mid(c1,i,i)
3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j >Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是(C)(单)
A.输出n以内的奇数
B.输出n以内的偶数
C.输出n以内的素数
D.输出n以内能被j整除的数
4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click( )
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是(C)(单)
A.11
B.10
C.9
D.8
5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Next j
Next i
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)
A.15
B.14
C.13
D.12
6.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
7.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。
Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
popupmenu mnuEdit
End If
End Sub
8.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【popupmenu】 mnuEdit
End If
9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。
10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。
11.与数学表达式ln(a+b)/(3x)+5 对应的Visual Basic表达式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】
12.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是
13.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
Private Sub Option1_Click(Index As Integer)
Select Case 【Index】
Case 0
a = “宋体”
Case 1
a = “黑体”
Case 2
a = “楷体_GB2312”
End Select
text1.fontname=a
End Sub
14.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
Private Sub Option1_Click(Index As Integer)
Select Case index
Case 0
a = “宋体”
Case 1
a = “黑体”
Case 2
a = “楷体_GB2312”
End Select
text1.【fontname】=a
End Sub
15.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
Private Sub Combo1_Click( )
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click( )
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
【tmplabel】.Caption =tmpCombo.Text
End Sub
16.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
Private Sub Combo1_Click( )
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click( )
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
tmpLabel.Caption =【tmpcombo】.Text
End Sub
17.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
n = 5
f = 1
s = 0
For c = 1 To n
f = f*【7】
s = s + f
Next c
Print s
End Sub
该事件过程的功能是计算1!+2!+3!+…+n!的值。
18.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
a(I) = I
Next I
Call【swap】a( )
For I = 1 To 10
Print a(I);
Next
End Sub
Sub swap(b( ) As Integer)
n = ubound(b)
For I = 1 To n / 2
t = b(I)
b(I) = b(n)
b(n) = t
n=n-1
Next I
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的`存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
19.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
a(I) = I
Next I
Call swap(a( ))
For I = 1 To 10
Print a(I);
Next
End Sub
Sub swap(b( ) As Integer)
n =【ubound(b)】
For I = 1 To n / 2
t = b(I)
b(I) = b(n)
b(n) = t
n=n-1
Next I
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
20.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
a(I) = I
Next I
Call swap(a( ))
For I = 1 To 10
Print a(I);
Next I
End Sub
Sub swap(b( ) As Integer)
n = ubound(b)
For I = 1 To n / 2
t = b(I)
b(I) = b(n)
b(n) = t
n=【n-1】
Next I
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
篇9：计算机教学计划
一、课程性质
本课程是计算机专业中一门重要的专业技术课程。重点介绍计算机网络的基础知识和组网方法。全书共由9个章节组成。介绍了数据通信基础知识、网络体系结构、TCPIP等协议的结构及功能、网络硬件等组建计算机网络的基础理论知识，还介绍了简单计算机网络的规划与布线施工以及操作系统安装与设置、局域网组建等。最后详细介绍了internet的应用以及常用维护软件等。
二、教学基本要求
(1)熟练掌握：要求学生能够全面、深入理解和熟练掌握所学内容，并能够运用于实际应用当中。
(2)掌握：要求学生能够较好地理解和掌握;并且能够进行简单应用。
(3)了解：要求学生能够一般地了解所学内容
三、理论教学
该课程主要知识点包括如下内容：
项目一：认识计算机网络，介绍计算机网络在现代社会的应用及其发展历史，简单介绍数据通信有关知识。
项目二：认识计算机网络体系结构。介绍构成网络的几个重要协议，讲述IP地址的概念及其设置方法。
项目三：认识计算机网络硬件。介绍计算机网络必备的几种硬件及其使用方法。
项目四：计算机网络规划与布线施工。介绍计算机网络的规划方法，详细讲述网络布线施工过程、网线的制作。
项目五：安装和设置网络操作系统。
项目六：组建局域网。以家庭局域网和宿舍局域网为例。重点介绍对等网的组建方法、路由器的设置、无盘网的相关知识及组建方法等。
项目七：网络基本应用。介绍web站点及ftp站点的设置，虚拟专用网的组建及基本应用。
项目八：internet的应用。
项目九：网络安全管理以维护与使用技巧。
篇10：计算机教学计划
一、指导思想及教学目标
继续以建设有中国特色的社会主义理论为导向，学习和贯彻江泽民关于“三个代表”和“教育问题”的讲话精神，继续开展“两思”教育活动，深化教学改革，全面推进科研、素质教育。结合学校工作计划，积极开展本科各项活动。旨在提高学生计算机知识水平。使学生掌握WIN98操作系统基本知识和基本操作;学会使用POWERPOINT制作、播放、演示文稿等基本操作。
二、学生情况分析
现任教的初二级学生中有少数在家学习过或使用过电脑的学生，他们和其他大部分没有接触过计算机的学生的基础相差较大。喜欢表现自己，以至于在机房上机时更改机房里学生机的某些配置，造成管理上的困难。而绝大多数同学还是初次接触WIN98操作系统，也没学习使用过集成办公软件诸如WORD20xx、WPS20xx等软件，对于计算机的了解比较肤浅，对于计算机的认知还不够，对于学习计算机的方法一无所知，与初二学生应有的水平差距较大。表现在知识衔接不上，接受起来有一定困难，只得补习初一的WIN98等内容。
三、教材分析
学生现在所使用的教材是由广州市教育局教学研究室根据教育部颁发的《中小学信息技术课程指导纲要(试行)》，结合广州市中小学发展信息技术教育的基础与条件编写的《广州市信息技术教育课程信息技术初中第二册》。
1、教材特点：教材实用性强，浅显易懂，图文并茂，是比较适合初中二年级的学生使用的。
2、教材内容：初中第二册的《信息技术教程》总共有四章，第一章为POWERPOINT的简单应用，第二章是因特网的基本应用，第三章、第四章是选学内容，分别为办公软件电子表格EXCEL和高级应用的网页制作FRONTPAGE。本学期将要学习的是第一章及第二章的内容。以及补习初一的WIN98等基本知识。
3、重、难点：重点在于使学生熟悉计算机的基本操作，能熟练使用WINDOWS98的操作，以及POWERPOINT的使用;难点在于对程度不一的学生，特别是从未操作过计算机的学生，要在短短十几个课时中熟练掌握和运用，理论和操作两不误。
四、主要措施
针对以上几点，主要措施如下：
1、采用“平时分积分制度”。将期末总成绩中50%的平时分分为两个部分：50%为回答问题、交作业、做示范、作品展示等操作的得分;另50%为上课、上机纪律的表现分。
2、每班上机都编好坐位。新机房有足够的机器供学生上机。在上机时，要求每位同学严格按照学号坐在自己的坐位上。详细制定机房纪律在班上宣布，如上机时不得下位、调位，不得大声喧哗，有问题时举手提出来等;如有违反则扣除平时分。
3、计算机课除第一节课在教室里给同学们讲一些上机注意事项和一些计算机的基本知识外，其他课程全部在机房上课，充分利用网络教室功能。自已用PowerPoint等软件制作一些学生比较感兴趣的课件，或借助一些多媒体教学软件来进行教学，利用多媒体加深学生的印象。每节课均采用演示——操作——提问——解疑的方法，让学生在观看演示后自己动手操作，在操作的过程中发现问题，然后师生一起解决问题。这样使学生可以即学即用，提高学生的积极性，激发学生学习兴趣，加深学生印象。
五、教学进度
本学期共二十一周，而计算机须在十八周结束教学。除去期中考试及国庆休假后本学期计算机课每班总共约为十六个课时左右。
篇11：计算机教学计划
一、课程性质和任务
《计算机应用基础》是由中国传媒大学出版社出版的的面向中职学生计算机学习的一本教材，21世纪是信息化的时代，计算机已广泛应用于各行各业，人们的工作和生活也越来越离不开它。要求职业院校培养具有一定计算机基础知识和操作能力的人才，使学生在信息时代掌握快速获得和处理信息的手段。为今后的学习和工作打下坚实的基础，以提高学生在将来的工作中熟练运用计算机的能力。
二、课程的目标和要求
本课程的目标是让学生学习并懂得计算机的基础知识、Windows XP操作系统、Word20xx、Excel20xx、PowerPoint20xx的使用和计算机网络及安全等方面的知识，为了巩固学生所学知识和增强实际操作能力，每章都附有习题。通过本书的学习，可以让学生具备全国计算机等级考试一级考试的能力。
三、教学内容与要求
（一）、计算机基础知识
1、教学内容：
（1）计算机的发展及应用
（2）计算机数据的表示形式
（3）数制与数制转换
（4）计算机系统的组成
（5）微型计算机系统
（6）多媒体技术基础知识
2、学习目标和学习要求
（1）了解计算机的发展、特点、分类及应用、计算机数制与数制转换
（2）熟悉计算机的数据表示形式、多媒体的基本知识及多媒体计算机的重要部件
（3）掌握计算机系统的组成、微型计算机系统的性能指标及主要部件
（4）掌握计算机键盘使用，熟练掌握文字的输入
（二）、Windows操作系统
1、教学内容：
（1）了解Windows XP的功能和运行环境
（2）熟练掌握Windows XP的基本概念和操作
（3）能利用资源管理器对文件进行管理
（4）掌握Windows XP控制面板的使用
（5）了解Windows XP的附件功能
2、学习目标和学习要求
（1）学会Windows XP的启动与退出、用户切换和注销
（2）学会Windows XP的基本概念和基本操作
（3）Windows XP的桌面系统构成和“开始”菜单的使用
（4）文件与文件夹的概念、复制和移动、创建和删除、重命名、查找、属性设置
（5）快捷方式的创建和使用
（6）通过控制面板设置系统环境、学会对磁盘进行文件管理
（三）Word20xx的使用
1、教学内容：
（1）学习Word概述、Word20xx的基本操作
（2）Word的基本排版技术
（3）Word的高级排版技术
（4）Word的图形功能
2、学习目标和学习要求
（1）学习Word窗口界面组成、视图模式及文档的创建、打开和保存
（2）文本的输入、选定、删除和修改、复制和移动、查找与替换
（3）字符和段落格式设置、格式的复制
（4）纸张大小、页边距、页眉和页脚、分栏、页面等页面设置和打印
（5）图片的插入和编辑、自绘图形、艺术字、公式的插入
（6）表格的制作和编辑
（四）Excel 20xx的使用
1、教学内容：
（1）Excel概述、建立和编辑工作表
（2）公式和函数、工作表的格式化、数据管理
（3）图表和打印工作表
2、学习目标和学习要求
（1）学会Excel工作簿的创建、保存及打开
（2）Excel工作表的选定、重命名、插入、删除、移动和复制
（3）Excel工作表内容的建立与编辑，工作表的格式化
（4）公式及函数的使用
（5）Excel工作表中数据的管理，图表的建立
（五）PowerPoint 20xx的使用
1、教学内容
（1）PowerPoint概述及演示文稿的设计
（2）播放演示文稿
2、学习目标和学习要求
（1）演示文稿的创建、演示文稿内容的添加和编辑
（2）演示文稿的版面设计和动画设计
（3）演示文稿的放映
（六）计算机网络与安全
1、教学内容
（1）了解计算机网络的概念、结构和发展史
（2）了解互联网的网络协议、IP地址的分类和域名
（3）了解Internet的接入方式、IE的使用和电子邮件管理
（4）了解计算机网络信息安全和病毒的防治
2、学习目标和学习要求
（1）、计算机网络的概念、分类和组成
（2）互联网的基本功能、TCP/IP协议、域名、IP地址和接入方式
（3）IE的使用、电子邮件的管理
（4）计算机网络信息安全和病毒的防治
（七）课程考核方式
本课程采用理解性和操作性考核方式
（八）学习建议
1、能力的培养：通过本书的学习，要求学生具备全国计算机等级考试一级
考试的能力。
2、学生在老师的指导下，循序渐进的学习，按时完成老师布置的作业。要尽量多地参加实践活动，增强计算机动手操作能力。
（九）课程学时分配（75学时）
计算机基础知识 （20学时）
Windows XP操作系统 （10学时）
Word 20xx的使用 （10学时）
Excel20xx的使用 （10学时）
PowerPoint 20xx的使用 （10学时）
篇12：计算机教学计划
课程性质与任务
本课程是“计算机网络技术”专业一门重要的专业基础课程，计算机网络教学计划。包含数据通信和计算机网络两部分的内容。通过本课程的学习，使学生在掌握数据通信基本原理的基础上，能够了解计算机网络的产生和发展，掌握计算机网络的工作原理、协议和体系结构，并对TCP/IP体系结构有较深的理解，并能组建局域网，配置服务器，从而为今后从事计算机网络的应用、设计与开发打下坚实的基础。
课程培养目标
使学生理解计算机网络基本概念和原理，掌握网络协议，能组建简单的局域网，会在windows 20xx上配置简单的服务器，为后续课程奠定基础。
课程教学内容
主要知识点：网络组成、分类、结构、组建局域网、配置服务器；通信系统构成、基本方式；网络协议层。
能力要求：了解通信基本概念、熟悉网络的基本组成、理解网络协议层概念和基本要求、了解协议和体系结构的概念；理解ISO/OSI参考模型；掌握TCP/IP参考模型；组建局域网；配置服务器。
课程实施建议
学时：150学时，其中理论90学时，实训60学时。
实验实训条件：应用网络工程实训室，要求具备网络协议分析试验设备。
教学方法与手段：理论课程在多媒体课室和教室完成，实训课程按照实训操作规范。
考核与成绩评定：笔试和实践相结合，工作计划《计算机网络教学计划》。课程考核成绩＝平时实训项目（10％）＋期末实操考核测验（20％）+平时学习表现与作业（10％）+期末笔试闭卷成绩（60％）
文档为doc格式
