初中组vb程序设计

《VISUAL BASIC》教学执行大纲

(试行稿)

[适用于计算机应用专业(学分制) 100学时]

(二○○八年二月制订)

一、课程内容 （一）概 论

1、VISUAL BASIC发展概述 2、VB.NET 语言及特点简介 3、VB.NET集成开发环境

（二）数据类型与运算表达式

1、 对象和类 2、 属性、事件和方法 3、 变量与数据类型 4、 运算符与表达式 5、 结构类型及其数组

(三)控制结构

1、 顺序结构 2、 选择结构 3、 循环结构 4、 其他控制语句

（四） 数 组

1、 数组定义及基本操作 2、 数组排序 3、 结构类型及引用 4、 结构数组及应用

（五）函数过程

1、 函数过程的定义和调用 2、 子过程的定义与调用 3、 参数传递 4、 函数的递归调用

1

（六）常用标准控件

1、 常用控件 2、 鼠标事件 3、 键盘事件 4、 用户界面设计

（七）文件操作

1、 文件及其结构 2、 顺序访问模式 3、 随机访问模式

（八）数据库

关于初中VB程序设计教学的探索

丹阳市第三中学 周红霞

【摘要】计算机是人们处理信息的重要工具，人们通过计算机执行程序来完成信息的处理。然而，要让计算机按照人们的要求处理信息，首先需要编写相应的程序。VB是一门可视化的面向对象的高级编程语言，是当前初中教学大纲改革后，初二年级学生的必修课。初中学习VB程序设计，这对教师和学生本身来说都是挑战，由于VB语言枯燥难懂，所以很难取得较好的教学效果。本文主要结合自身的教学实践和课程特点，探索在VB程序设计教学中，提高教学效果，解决程序设计本身枯燥、难懂的问题，从而提高学生的程序设计能力和创新能力。 【关键字】VB程序设计 教学方法 学习兴趣 一、引言

2013年，江苏省初中信息技术课程改革，将程序设计加入到初中二年级第十一章中。从此，初二的学生就将学习VB程序设计了，这对于教师和学生来说都是不小的挑战。对于初中生来说，程序设计的概念是全新，总认为是一个遥不可及的内容，思维上就形成了定势，认为很难，也是自己无法掌握并且应用的。初中生对应用操作课比较感兴趣，如word排版、幻灯片制作、flash制作等，进入到程序设计学习时，普遍感到枯燥、难学，学生往往在这方面比较欠缺，而且依赖性也比较

练习一

一、选择题

1、下面列出的程序设计语言中（ A ）是面向问题的语言。 A、机器语言 B、汇编语言

C、高级语言 D、0、1二进制语言

解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言 2、下面列出的程序设计语言中（ C ）不是面向对象的语言。 A、C B、C++ C、Java D、VB 3、下列（ D ）不属于VB 6.0的版本。

A、学习版 B、专业版 C、企业版 D、共享版

解释：VB6.0共有三个版本：标准版、专业版、企业版。而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。 二、填空题

1、从程序设计语言发展过程的角度来分类，计算机程序设计语言分：机器语言、汇编语言和高级语言。 2、VB 6.0采用了面向对象、事件驱动（可视化编程）的编程机制。

3、启动VB 6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。

练习二

一、选择题

1、如果窗体对象的名称为Forma1，Backcolor是窗体对象的一个属性，用来设置窗体的背景色，那么设置窗体背景色为

练习一

一、选择题

1、下面列出的程序设计语言中（ A ）是面向问题的语言。 A、机器语言 B、汇编语言

C、高级语言 D、0、1二进制语言

解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言 2、下面列出的程序设计语言中（ C ）不是面向对象的语言。 A、C B、C++ C、Java D、VB 3、下列（ D ）不属于VB 6.0的版本。

A、学习版 B、专业版 C、企业版 D、共享版

解释：VB6.0共有三个版本：标准版、专业版、企业版。而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。 二、填空题

1、从程序设计语言发展过程的角度来分类，计算机程序设计语言分：机器语言、汇编语言和高级语言。 2、VB 6.0采用了面向对象、事件驱动（可视化编程）的编程机制。

3、启动VB 6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。

练习二

一、选择题

1、如果窗体对象的名称为Forma1，Backcolor是窗体对象的一个属性，用来设置窗体的背景色，那么设置窗体背景色为

VB程序设计部分 重点程序

08管理VB程序设计部分1.

几里德算法）求两个自然数的最大公约数的算法。

（欧Private Sub Form_Click() Dim n%, m%, g%

n = InputBox("输入N") m = InputBox("输入M") g = gcd(n, m)

Print n; "和"; m; "的最大公约数是："; g Private Function gcd(ByVal a%, ByVal b%) End Sub

Dim r As Integer r = a Mod b Do While r <> 0 a = b b = r

gcd = b

Loop r = a Mod b End Function

2. 存放在数组编写一个数组，随机产生compare中，并从中找出一个最12个两位数，大数和一个最小数

9、Visual Basic程序改错

1. 程序功能：求s=1+3+5+7+...直到s>2000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。 (2025) 平方和

Private Sub Form_Click()

Dim i As Integer, s As Long s = 0 : i = 1

Do Until s < 2000 s = s + i i = i + 1 Loop Print s End Sub

答案：s>2000 ; i+2

2. 程序功能：计算s=2!+4!+8!。程序中有两行有错误。

改正错误，使它能输出正确的结果。 (40346) Private Sub Command1_Click()

Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0 i = 1

Do While i <= 3 t = 1 k = 1

While k <= 2*i t = t * k k = k + 1 Wend s = s + t i = i + 1 wend Print s End Sub

答案：k<=2^i ; loop

3. 程序功能：计算s=2!+4!+6!+8!。程序中有错误。改正错误，使它能输出正确的结果。 (41066) Private Sub Command1_Click()

Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0 : i = 1

Do While

VB科期中试卷

班级： 姓名： 座号： 成绩：

一、选择题（每题1分，共35分）

1．以下4个选项中，属性窗口未包含的是（ ）。

A、对象列表 B、工具箱 C、属性列表 D、信息栏 2．事件的名称（ ）。

A、都是由系统预先定义 B、都要由用户定义 C、有的由用户定义，有的由系统定义 D、是不固定的 3．窗体的caption属性值是（ ）类型的数据。 A、整型 B、字符型 C、逻辑型 D、实型

4．．改变控件在窗体中的左右位置应修改该控件的（ ）属性。 A、Top B、Left C、Width D、Right 5．为了装入一个VB应用程序，应当（ ）。 A、分别装入工程文件和标准模块文件 B、只装入窗体模块文件

C、只装入工程文件

D、分别工程文件、窗体文件和标准模块文件 6．以下进入代码窗口的方法中错误的是（ ）

演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案

VB程序设计上机题目

45

1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的\考生文件夹\均为%USER%

**********************************************************************

请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

（1）在名称为Form1，标题为\图片\的窗体上画1个名称为Image1的图像框，其

高为2500，宽为2000。请通过属性窗口设置适当属性，装入考生目录下的

图片文件pic1.jpg，并使图片适应图像框的大小（如图所示）。 注意：

存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名

为sjt1.frm。

***********************************************************

程序设计 第一题 题目：（事件）单击窗体

（响应）求50以内所有偶数的和，并在窗体上输出来。 将结果存入变量S中。 代码：Dim I As Integer For i = 2 To 50

If (i Mod 2)=0 Then S=s+i End If Next

Print (CStr(s)) 第二题 题目：（事件）双击窗体

（响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中 代码：Dim i,j As Integer Dim k As Long k=1 s=0

For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next

Print(CStr(s)) 第三题 题目：（事件）单击窗体

（响应）求100以内偶数的和，并将结果输出在窗体上。

例题1-1. Visual Basic中的标准模块文件的扩展名是________。 A. reg B. frm C. bas D. vbp 例题1-2. VB的使用目的是________。

A. 开发Windows应用程序 B. 图像处理

C. 制作WAV文件 D. 文字处理

例题1-3. Visual Basic是一种面向________的程序设计语言。

A. 过程 B. 用户 C. 方法 D. 对象

例题1-5. Visual Basic是用于开发________环境下的应用程序的

工具。

A. DOS B. Windows

C. DOS和Windows D. UNIX

例题2-1. 在设计列表框时，若实现输入多行文字的目的，应使用

________键实现文本的换行。

A. Enter B. Alt+Enter C. Ctrl+Shift+Enter D. Ctrl+Enter

例题