福建省信息技术会考操作题 VB程序设计 易错考点

一、知识点1．对象、属性、类、事件和事件处理的概念（1）对象是客观存在的事物或概念。

它有两个特点：状态和行为。

（2）一个对象的状态是通过若干个属性（property）来描述的；行为是指对属性进行操作和处理的方法（method）。

在面向对象的程序设计中，一个对象是由一组对象状态的数据和一组描述处理对象属性的方法的代码构成的。

对象的属性定义其外观，方法定义其行为，事件定义其与用户的交互。

（3）类（class）是对相同性质的对象的一种抽象，而一个对象则是类的一个“实例”。

（4）事件（event）就是发生在对象上的事情，通常是由用户在对象上激发的一种动作。

一个事件的发生，可以引起某个对象上某个方法（事件处理过程）的执行，即由某个事件驱动了相应的事件处理过程的执行。

这就是面向对象程序设计中的事件驱动概念。

2．VB应用程序的界面设计（1）VB程序设计语言：基于Basic语言的可视化程序设计环境，采用面向对象的程序设计方法（OOP）。

（2）VB应用程序设计环境的的窗口主要由对象窗口、控件工具箱、属性窗口、工程窗口组成。

（3）控件工具箱集中了常用的基本控件：标签label、文本框TextBox、命令按钮Command Button、列表框ListBox等。

(4)窗体（Form）是VB应用程序的基本结构。

窗体可以看作是一个“容器”，其中放置着各种各样在应用程序中必须用到的对象。

3．VB应用程序的运行和保存运行：单击工具栏中“运行”选项中的启动按钮，运行应用程序。

保存：在“文件”菜单中选“工程另存为”，该应用程序的窗体和工程分别存储到文件中，其相应的文件扩展名分别是“ .frm”和“ .vbp”。

也可以选“文件”菜单中的“生成工程xxx.exe”，这样，就可在Windows环境中直接运行这个应用程序了。

4．VB的基本数据类型、常量、变量和数组（1）数据：数据是信息的一种记录形式。

在VB中，常用的基本数据类型有以下几种：Integer(整数型)、Long(长整数型)、Single(单精度实数型)、Double(双精度实数型)、String(字符串型)、Boolean(逻辑型)、Date(日期型)。

高中信息技术会考一、单选题1. 计算机程序的三种结构是顺序结构、、选择结构。

A．模块结构B．循环结构C．多重循环结构D．IF块结构2. 是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。

A．任务B．事件C．控件D．过程3. 在VB中，窗口坐标系的原点在，x轴向右为正，y轴向下为正。

A．窗口左上角B．窗口右下角C．窗口正中间D．窗口右上角4. 在VB应用程序设计中，通常应对编写程序代码。

A．所有对象B．窗体C．Timer D．有事件的对象5. 在面向对象程序设计中，用来描述对象的特征信息。

A．事件B．方法C．代码D．属性6. 在VB编程中，如果需要返回鼠标的当前位置，或了解按下的是鼠标哪个键及需要配合键盘上的Shift、Ctrl、Alt键时，应该使用事件。

A．Click B．Change C．MouseDown D．KeyPress7. 在VB应用程序设计中，如果想让Timer控件每秒钟响应一次，应该将其Inerval属性设置为。

A．1 B．60 C．100 D．10008. 下列过程中，是程序开始运行时，窗体一加载就运行的程序段。

A．Form_Load B．Form_ClickC．Form_MouseDown D．Form_KeyPress9. 的Visual Basic表达式是。

A．(-b+b^2-4ac)/2a B．(-b+sqr(b^2-4*a*c))/(2*a)C．(-b+sqr(b^2-4ac))/(2a) D．(-b+sqr(b^2-4ac))/2a10. 在VB系统中，代表内存单元，是命了名的存储空间。

A．变量B．常量C．函数D．字节11. 语句用于声明变量，并定义变量的数据类型，给变量分配存储空间。

A．Sub B．Dim C．Call D．End12. 在VB程序设计语言中，语句的功能是使系统产生的随机数真正随机化。

A．Rnd B．Circle C．Randomize D．Dim13. 关系表达式的值为。

福建省计算机二级vb试题及答案一、选择题（每题2分，共20分）1. Visual Basic是一种______。

A. 操作系统B. 编程语言C. 数据库管理系统D. 办公软件答案：B2. 在Visual Basic中，下列哪个关键字用于声明变量？A. DimB. SubC. FunctionD. End答案：A3. 如果要在Visual Basic中创建一个窗体，应该使用哪个控件？A. LabelB. TextBoxC. FormD. Button答案：C4. 在Visual Basic中，哪个函数用于将字符串转换为大写？A. StrConvB. UCaseC. LCaseD. Trim5. 下列哪个选项不是Visual Basic的事件？A. ClickB. LoadC. OpenD. Change答案：C6. 在Visual Basic中，如何表示一个数组？A. Dim numbers(5) As IntegerB. Dim numbers As IntegerC. Dim numbers(5)D. Dim numbers As Integer(5)答案：A7. Visual Basic中，哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B8. 在Visual Basic中，哪个关键字用于循环遍历数组？A. ForB. WhileC. DoD. If答案：A9. Visual Basic中，哪个函数用于获取当前日期？B. DateC. TimeD. Today答案：D10. 在Visual Basic中，下列哪个选项用于创建一个单选按钮？A. CheckBoxB. RadioButtonC. OptionButtonD. ToggleButton答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以定义一个函数。

2016年信息技术学业水平考试知识点汇总目录信息技术基础错误!未定义书签。

VB 知识点汇总1Flash 相关知识点错误!未定义书签。

Goldwave 知识点错误!未定义书签。

Photoshop 知识点错误!未定义书签。

OCR 文字识别错误!未定义书签。

会声会影错误!未定义书签。

VB 知识点汇总一． 算法：指解决问题的方法。

二． 算法的特征：1.有穷性。

算法的有穷性是指算法必须能在执行有限个步骤之后终止。

2.确切性。

算法的每一步骤必须有确切的定义，不能有歧义。

3.输入项。

一个算法有0个或多个输入，以刻画运算对象的初始情况，所谓0个输入是指算法本身定出了初始条件。

4.输出项。

一个算法有一个或多个输出，以反映对输入数据加工后的结果。

没有输出的算法是毫无意义的。

5.可行性。

算法中执行的任何计算步骤都是可以被分解为基本的可执行的操作步，即每个计算步都可以在有限时间内完成（也称之为有效性）。

三．描述算法的表示方法：1.自然语言。

2.流程图。

3.程序代码。

4.伪代码。

四．对象：具有某些特征的具体事物的实体。

五．类：是对同种对象的集合与抽象，它包含这种对象的属性描述和行为定义。

（VB 工具箱中的控件就是类，设计窗体时，将它们放在窗体上时就是该类的对象。

）前面的label1是对象名称，后面的label 也就是类名称。

六．属性：对象的特性、名称、大小、形状、颜色及功能被称为属性。

属性的表示：对象名.属性名 如：text1.text 指文本框中的值 属性值的设置：对象名.属性名=属性值 如：label1.caption=”苹果”注意：这里的“=”是赋值号，不是等号，因此这是一句赋值语句。

七．方法：对象能完成的动作。

如：输出语句 prnit “223”中的print 就是一个方法。

八．事件：指对对象的一个调用。

如：mand1_click 按钮上的单击事件 请注意格式：对象名_动作九．常用控件及属性：控件名称属性名称属性含义伪代码例子：Begin （算法开始） 输入 A ，B ，C IF A>B 则 A →Max 否则 B →MaxIF C>Max 则 C →Max Print MaxEnd （算法结束）1.alignment: 文本的对齐方式2.font：字体3.backcolor:背景颜色4.visible: 设置对象是否可见5.enabled:设置对象是否可用十．基本数据类型十一.1.直接常量：直接在程序中使用常数2.符号常量：符号常量的定义：const 常量名=常数如：const pi=3.14然后在程序中凡是要用到3.14这个常数的地方，都用pi来代替就行了。

信息技术高中会考V B 模块操作题题库信息技术高中会考VB模块操作题题库第1题打开“Y:\4619”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1+4+7+……+40的值。

第2题打开“Y:\4620”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1到300之间偶数的个数。

第3题打开“Y:\4621”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1到100之间所有整数的和。

第4题打开“Y:\4622”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求100到200之间奇数的和。

第5题打开“Y:\4623”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求2到10之间所有偶数的积。

第6题打开“Y:\4624”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求5+10+15+…+85的和。

第7题打开“Y:\4625”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1到500之间能被7整除的数的个数。

第8题打开“Y:\4626”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求2×12×22×32×42×52的积。

第9题打开“Y:\4627”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求2+5+8+11+……+50的值。

第10题新建一个VB工程，按下表的要求添加控件，并设置其属性。

将操作结果保存在“Y:\4674”文件夹下，窗体文件名为：“Form1.frm”，工程文件名称为：“工程1.vbp”。

注意：其中Chr（）、Str（）、Mid（）三个函数的值为字符串型，结果要加双引号（2）选择语句：行If语句注意：行if语句只有一行。

而块If语句写在多行上，最后需要EndIF结尾表格信息的加工（一）了解工作表概念，会建立工作表，掌握工作表中的基本操作（复制、移动、插入、删除等）。

1.数据的输入（1）纯数字符号的输入:要在数字符号前加单引号，如字符0021，输入为’0021 分数的输入：先输入一个零(0)，然后输入一个空格，最后再输入相应的分数。

（2）单元格内出现“####”号，是因为单元格的宽度不够，只需要选定该单元格，再在菜单栏上选择“格式”/“列”/“最适合的列宽”即可去掉####号。

2．单元格表示方法：列号（英文字母）+行号（数字），如第6行第6列的单元格为F6 单元格区域表示方法：如A3到A9区域表示为A3:A6，共A3、A4、A5、A6四个单元格（二）能进行表格数据的计算（利用公式或函数进行计算）：求和、求平均、求最值、计数。

1.用公式计算数据（输入公式的标志是输入一个等号）常用函数的应用：SUM（求和函数），A VERAGE （求平均值函数），Max（求最大值函数），min（求最小值函数），Count（计数函数）“= SUM（C3:C5）”表示求C3到C5单元格区域的数据的和。

等同于“=C3+C4+C5”“=Average（C3:C5）”表示求C3:C5单元格区域数据的平均值“=Max（C3:C5）”表示求C3:C5单元格区域数据的最大值“=Count （C3:C5）”表示求C3:C5区域中包含数字的单元格个数以及参数列表中数字的个数。

假设C3:C5中的数据分别为12、0、a，则应用函数“=count（C3:C5）”后得到的结果是2；如果函数变为“=count（C3:C5，5，3）”则得到结果为42.公式的复制：可以完成类似的计算（操作方法一：选中应用了公式的单元格后，单击“编辑”菜单中的“复制”命令，然后选择需要完成类似计算的单元格，单击“编辑”菜单中的“粘贴”；操作方法二：选中应用了公式的单元格后，鼠标指针指向右下角的小方块，变成黑十字形时按住左键不放拖动到目标单元格。

福建信息技术会考数据库知识点(答案)(word版可编辑修改)编辑整理：尊敬的读者朋友们：这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对文中内容进行仔细校对，但是难免会有疏漏的地方，但是任然希望（福建信息技术会考数据库知识点(答案)(word版可编辑修改)）的内容能够给您的工作和学习带来便利。

同时也真诚的希望收到您的建议和反馈，这将是我们进步的源泉，前进的动力。

本文可编辑可修改，如果觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快业绩进步，以下为福建信息技术会考数据库知识点(答案)(word版可编辑修改)的全部内容。

高一信息技术(选修）复习班级：姓名：座号：一、数据管理的基本知识1、数据及数据类型（P6—7）1）数据是一种重要的信息资源，是对现实世界中客观事物的符号化表示,分为数值型数据和非数值型数据.可以用数字来表示的数据是数值数据,如轻重、高矮、大小等数值型数据,用非数字形式来表示的数据称为非数值数据。

如字符、文字、图表、图像、声音等非数数值型数据.数据与信息的区别和联系:数据是信息的具体描述，是信息的载体2）理解不同的数据类型 P64-651.人们使用某些符号,如文字、音频等表达信息，这些都可以称为（）。

（0806）A。

记录 B.数值 C.数据 D.数字2、用一组数据“班级：05;姓名：李想;性别：男；座号：9 ;总分:369”来描述某位学生信息，其中“总分"字段适合的数据类型为( ）（0906）A:数字型B：逻辑型C:日期型D：货币型3、用一组数据“客房编号: 0101,额定人数：4,状态: 即将到达，是否可预定： TRUE"来描述某客房信息,其中“是否可预定" 字段适合的数据类型为（）（0906）A：数字型B:逻辑型C:日期型D:货币型4、用一组数据”产品名称: 自行车,开始时间：2009-6—29，结束时间： 2009-12—3，需求数量：1010"来描述某生产计划信息,其中"开始时间"数据可设置为（)(0906）A:数字型B：逻辑型C：日期/时间型D:货币型5、用一组数据“班级:05，姓名:李警,性别：男，座号：9 ”来描述某位学生信息,其中“姓名”数据可设置为( ）（0906)A:文本型B:逻辑型C：日期型D:货币型6、用一组数据“类型编号： BK001；类型名称：管理；可借天数:30"来描述图书类型信息,其中“类型编号”数据可设置为( ）（0906）A：数字型B:逻辑型C:日期型D:文本型7、下列关于数据的叙述，错误的是（） (0901)A.数据只能以数字形式来表示B.数据是人类社会的一种重要信息资源C。

高中会考vb试题及答案高中会考VB试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是正确的变量声明方式？A. Dim xB. Dim x As IntegerC. Dim x = 10D. Dim x As Integer = 10答案：B2. 下列哪个是Visual Basic中的循环结构？A. IfB. ForC. Select CaseD. Sub答案：B3. Visual Basic中的“End”语句用于结束什么？A. 程序B. 过程C. 循环D. 条件答案：B4. 在Visual Basic中，以下哪个不是内置的控件？A. LabelB. TextBoxC. ButtonD. Slider答案：D5. 下列哪个是Visual Basic中的数组声明方式？A. Dim arr(5) As IntegerB. Dim arr As Integer = 5C. Dim arr = New Integer(5)D. Dim arr As Integer(5)答案：A6. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10C. If x > 10D. If x > 10 End If答案：A7. Visual Basic中，以下哪个是正确的函数调用？A. Call Print("Hello World")B. Print "Hello World"C. Call Print("Hello World")D. Print("Hello World")答案：D8. 下列哪个是Visual Basic中的事件？A. ClickB. EventC. FunctionD. Procedure答案：A9. 在Visual Basic中，以下哪个是正确的类声明方式？A. Class MyClassB. Dim MyClassC. Sub MyClassD. Function MyClass答案：A10. 下列哪个是Visual Basic中的错误处理语句？A. TryB. CatchC. FinallyD. All of the above答案：D二、填空题（每空2分，共20分）1. 在Visual Basic中，使用________来定义一个类。

1.Enabled是用来设置控件是否可用。

如果把文本框的Enabled属性设置为false并运行程序，文本框的文本变为灰色，且不能将光标置于文本框上。

2.向随机文件写操作格式：Put #文件名，[记录号]，变量。

3.文本框中TabStop属性用来设置用户是否可以使用Tab键来选定对象，当文本框的Locked属性值为False，则不能接收从键盘上输入的数据.4.影响窗体上某个文本框的Tab顺序的属性是TabIndex，TabStop属性指定是否能使用Tab键将焦点移到控件上，控件名.Text用来设置文本框中显示的内容，标签名.Caption用来显示在标签标题中显示的文本，获取滚动条中当前滚动的位置应使用Value属性.5.文本框控件Locked属性用于设置是否锁定，如设置为True6.文本框无Print方法7.KeyDown事件有两个参数，即KeyCode和Shift。

其中，KeyCode是按键实际的ASCII码，"A"的KeyCode是65；Shift是转换键，它指的是3个转换键的状态，包括Shift、Ctrl和Alt，这3个键分别以二进制表示，每个键有3位，即Shift键为001，Ctrl 键为010，Alt键为100。

当按下Ctrl键时，Shift参数的值为010(十进制数2)。

8.在运行窗体程序之前先执行一些操作，此时可以通过在标准模块中创建一个Sub Main的子过程，不能在窗体模块中创建Sub Main的子过程，然后在创建的Sub Main过程中编写启动时要执行的代码，每个工程只能有一个Sub Main的子过程。

9.一个Visual Basic应用程序可以包含一个或多个工程，当包含两个以上的工程时，这些工程构成一个工程组10.Sub过程不可以嵌套，也就是说，在Sub过程内，不能定义Sub过程或Function.11.；MsgBox函数的返回值是一个整数，这个整数与所选择的按钮有关，MsgBox函数所显示的对话框有7种按钮，返回值与这7种按钮对应返回值操作符号常量1 选"确定"按钮vbOk2 选"取消"按钮vbCancel3 选"终止"按钮vbAbort4 选"重试"按钮vbRetry5 选"忽略"按钮vbIgnore6 选"是"按钮vbYes7 选"否"按钮vbNo12.Visual Basic应用程序既可以以解释方式也可以以生成可执行文件方式执行，13.Sub Main过程属于通用过程，不是事件过程，14.单击对话框中的"启动对象"框右端的箭头，显示出当前工程中各窗体的名字和Sub Main，可以定义启动工程时先启动的窗体或Sub Main15.【解析】（1）用Call语句调用Sub过程：语法：Call 过程名（[实参表列]），实参的个数、类型和顺序，应该与被调用过程的形式参数相匹配，有多个参数时，用逗号分隔。

信息技术会考 VB程序综合题1、典型题例：打开"考生文件夹\152"文件夹中的文件："工程1.vbp" 进行以下操作后并保存！李小姐忘记了自己的保险箱密码，但是她记得首尾数字为6和5（6□□5），密码能被69和95整除。

请您完善程序帮她找回密码！Private Sub Command1_Click()Dim a As LongFor a = 6005 To ___①___ Step 10If (a Mod 69 = 0) And (____ ② __) ThenPrint aEnd IfNext ____③___End Sub答案：① 6995② a mod 95③ a2、典型题例：打开"考生文件夹\154"文件夹中的文件："bmi.vbp" 进行以下操作后并保存！(1)界面设计，添加一个标签Label（其“名称”属性为Label3），在属性窗口中将其Top属性值设置为“2000”， Left属性值设置为“700”；(2)奥运会参赛选手要进行体重检查，他们的体检标准为：Bim=w/(h*h) ，其中w表示体重（单位为千克），h表示身高（单位为米）。

其值在20（包含20）至25（包含25）之间为“合格”，否则认为“不合格”。

完善程序，在文本框Text1中输入体重，文本框Text2中输入身高，单击“体检”按钮时，在标签Label3上输出健康状态；(3) 操作完后将该程序以原文件名保存。

Private Sub Command1_Click()Dim w As SingleDim h As SingleDim bmi As Singlew = Val(Text1.Text)h = Val(Text2.Text)bmi = ① '计算机bmi指数If bmi >= 20 And ② ThenLabel3.Caption = Str(bmi) + "合格" '输出bmi指数及健康状态ElseLabel3.Caption = Str(bmi) + "不合格" '输出bmi指数及健康状态③End Sub答案：①w/(h*h) 或w/h^2②bmi<25③endif3、典型题例：3、打开"考生文件夹\155"文件夹中的文件："biaozhang.vbp" 进行以下操作后并保存！（编程在字符串相连接时不应使用"+"要使用"&"运算符）(1) 设置窗体From1中按钮Command1的“Caption”属性值为“计算”；(2) 某学校开表彰大会，一、二、三等奖共30人。

信息技术高中会考V B 模块操作题题库信息技术高中会考VB模块操作题题库第1题打开“Y:\4619”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1+4+7+……+40的值。

第2题打开“Y:\4620”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1到300之间偶数的个数。

第3题打开“Y:\4621”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1到100之间所有整数的和。

第4题打开“Y:\4622”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求100到200之间奇数的和。

第5题打开“Y:\4623”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求2到10之间所有偶数的积。

第6题打开“Y:\4624”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求5+10+15+…+85的和。

第7题打开“Y:\4625”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1到500之间能被7整除的数的个数。

第8题打开“Y:\4626”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求2×12×22×32×42×52的积。

第9题打开“Y:\4627”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求2+5+8+11+……+50的值。

第10题新建一个VB工程，按下表的要求添加控件，并设置其属性。

将操作结果保存在“Y:\4674”文件夹下，窗体文件名为：“Form1.frm”，工程文件名称为：“工程1.vbp”。

信息技术选修☆ 输入2个数,实现2个数的互换：Dim a as single,b as single,t as single a= b= t=a a=b b=t =a =b☆ 输入一个两位整数,十位和个位数值互换后输出：Dim x as integerDim ge as integer, shi as integer x=shi=x\10 ge=x mod 10 =ge10+shi☆ 输入秒数,输出时分秒： Dim a as integerDim h as integer, m as integer,s as integer a=h=a\3600 ‘计算小时部分 m=a-3600h \60 或 m=a mod 3600 \60‘计算分钟部分s=a mod 60 ‘计算秒部分=h & “小时” & m & “分” & m & “秒”☆ 输入一个年份,判断是否是闰年年份能被400整除或者 年份能被4整除但不被100整除：Dim y as integery=If y mod 4=0 and y mod 100<>0 or y mod 400=0 then=”是闰年”Else=”非闰年”End if☆求S=1+2+3+……+N Dim N as integer , s as integerN= S=0 For i=1 To N S=S+i Next i Print “S=”;S程序题汇总☆求S=1+3+5+……+2N -1 Dim N as integer , s as integer N=S=0 For i=1 To 2N -1 step 2 S=S+iNext i Print “S=”;S☆ 求S=1-2+3-4……+NDim N as integer , s as integer N=S=0 For i=1 To NS=S+I -1^ i+1 Next i Print “S=”;S☆ 求S=1+1/2+1/3+……+1/NDim N as integer , s as integer N=S=0 For i=1 To N S=S+ 1/ iNext i Print “S=”;S☆ 求S=1/2+2/3+3/4……+N/N+1Dim N as integer , s as integer N=S=0 For i=1 To N S=S+ i/ i+1Next i Print “S=”;S☆输入三角形三边,判断能否构成三角形,如可以则输出面积,否则输出“不能构成三角形“,设三边是a,b,c,q=a+b+c/2,则面积s=sqr-aq-bq-c ： Dim a as single, b as single, c as single Dim q as single,s as single a= b=c= q=a+b+c/2 if a+b>c and b+c>a and a+c>b then s=sqr-aq-bq-c = “三角形面积是” & s else = “不能构成三角形” end if ☆统计100以内能被3整除的数的个数： Dim n as integer n=0 For i=1 to 100If i mod 3 = 0 thenn=n+1 ‘n 当作计数器,符合条件就+1 end if next i print n☆输入5个数,输出其中的最大值： Dim max as single,x a single Max=inputbox “输入一个数” For i=1 to 4x=inputbox “输入一个数” If max<x then Max=x End if Next i Print max☆ 输入一个学生的成绩,判断其优80以上,良60-80,不及格： Dim score as single Score=If score>=80 then Print “优” Elseif score<60 then Print “不及格” ElsePrint “良” End if End if☆ 求56…25的积 Dim I As Integer Dim S As long S = 1For I = 5 to 25 Step 1 S = S I Next IPrint "求56…25的积："; S☆求1011910897867564534232+++++++++的值.Dim I As Integer Dim S As DoubleS = 0For I = 1 To 10 Step 1 S = S + I + 1 / I Next IPrint "2+3/2+4/3+5/4+6/5+…+11/10 ="; S☆ 在Text1输入整数a 、Text2输入整数b,判断a 和b 的差是否比50小,若比50小,则在Text3文本框中输出"小于",否则在Text3文本框中输出："大于或等于". Dim a As Integer Dim b As Integer a = b =If Absa - b < 50 Then = "小于" Else= "大于或等于" end if☆求657687981091-----的值.Dim I As Integer Dim S As single S = 1For I = 10 To 6 Step -1 S = S - I - 1 / I Next IPrint "1-9/10-8/9-7/8-6/7-5/6 ="; S☆已知三角形一条边C 的长度为5,在Text1、Text2分别输入边长a 和b,判断三条边能否构成一个三角形,如果是,则在Text3文本框中输出"能",否则在Text3文本框中输出"不能".Dim a As Single Dim b As Single a = b =If a + b > 5 And a + 5 > b And b + 5 > a Then = "能" Else = "不能" End If☆求10191817161514131211+++++++++的值.Dim i As Integer Dim S As singleS =0For i = 1 To 10 Step 1 S =S+1 / i Next IPrint "1+1/2+1/3+1/4+1/5+…+1/10="; S☆在Text1输入整数a 、Text2输入整数b,判断a 和b 的和能否被3整除,若能,则在Text3文本框中输出"能",否则在Text3文本框中输出："不能" Dim a As integer Dim b As integer a = b =If a + b Mod 3 = 0 Then = "能" Else = "不能" End If☆ 求5+10+15+……50 的和Dim S As integer S =0For i = 50 To 5 Step -5S =S+iNext I=S☆输入一个整数,判断它的奇偶性Dim x As integerX=If x mod 2=0 Then= "偶数"Else= "奇数"End If☆输入一个数,判断它其是否是整数.Fixx 取整Dim x As singleX=If fixx=x Then= "整数"Else= "不是整数"End If ☆输入两个正整数,求他们的公约数并输出Dim x As Integer, y As Integerx =y =For i = 2 To xIf x Mod i = 0 And y Mod i = 0 ThenPrint iEnd IfNext i☆输入两个正整数,求他们的最大公约数并输出Dim x As Integer, y As Integer, max As Integerx =y =max = 0For i = 2 To xIf x Mod i = 0 And y Mod i = 0 Thenmax = iEnd IfNext iPrint max☆求一元二次方程式ax2+bx+c=0的解,a、b、c从键盘输入.。