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

高中信息技术会考一、单选题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. 关系表达式的值为。

高中会考操作题复习目录一、word类型题目 (2)1. 页面设置：文件——页面设置 (2)2. 标题设置（字体、字号、居中的设置）：工具栏中找下图（注意：要选中文字） (2)3. 首行缩进2字符：格式——段落（注意：要选中正文） (3)4. 段落移动另成一段、复制、段落合并（注意题目的要求是移动还是复制还是段落合并） . 35. 插入表格：表格——插入——表格删除表格：表格——删除（注意要选中表格） (3)6. 替换：编辑——替换 (3)7. 文字环绕：选中要设置的图片或艺术字找到下图浮动工具 (4)8. word正文分栏：格式———分栏（注意选中需要分栏的部分） (4)9. 插入页码：插入—页码 (4)二、EXCEL (4)1、合并及居中：选中要合并的单元格—— (4)2、使用函数计算：选的时候把要计算的单元格也选中，然后点的三角形 (4)3、使用公式计算：先选中一个要计算的单元格（左键单击）——根据题意判断输入计算公式（利用单元格名称加减乘除）——利用填充炳填充其他单元格（鼠标移到已经计算出来的单元格右下角出现黑色十字架拖动到其余单元格） (5)4、插入图表：先选中要做图表的区域——工具栏中 (5)5、按主要关键字、次要关键字排序：选中除第一行外所有数据 (7)6、修改工作表的名称（sheet1、sheet2）:EXCEL左下角（双击、或右键重命名） (7)7、设置小数位、边框：工具栏找到下图地方 (7)三、POWERPOINT题目（注意：启动软件后记住要打开题目要求的演示文稿，不要直接开始做。

） (7)1、修改版式为空白：空白位置右键快捷菜单——幻灯片版式（注意：不要选中任何对象）——POWERpoint界面右边找如下图 (8)2、.插入图片、艺术字、动作按钮、基本形状（梯形、十字行等）软件下方找到下图（若没有下图界面从：视图——工具栏——绘图调出该界面）注意：不要点到其他自选图形，否则会出现假死机状态，如果点到要等几分钟 (8)3、插入文本框：插入——文本框——水平文本框或垂直文本框（注意水平或垂直） (9)4、设置位置：选中要设置位置的对象右键——找类似：设置***格式 (9)5、设置自定义动画效果：选中要设置的对象右键——自定义动画（没找到就点其他效果） (9)6、幻灯片切换效果：幻灯片放映——幻灯片切换（注意要求：是全部幻灯片还是一张，如果是所有幻灯片要点击应用于所有幻灯片） (9)7、设置背景：右键点击空白区域（不要选中任何对象） (10)四、ACCESS (11)1、在Y:/9建立“***.mdb”数据库文件：启动ACCESS软件，菜单栏中文件——新建（在ACCESS窗口右上找到下图）注意：保存路径、文件名不能错，用下图方法做．．．．．．后缀名.mdb不要输入。

信息技术高中会考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”。

运算：注意Ｍod、/、\（整除），Aｎd 运算两边同时成立才成立,Oｒ运算一边成立就成立注意:其中Chr()、Ｓtr（）、Mid（）三个函数的值为字符串型，结果要加双引号注意:行ｉｆ语句只有一行。

而块If语句写在多行上,最后需要EｎｄIF结尾(3)循环语句:Foｒ语句表格信息的加工(一）了解工作表概念，会建立工作表,掌握工作表中的基本操作（复制、移动、插入、删除等）。

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

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

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

１．用公式计算数据（输入公式的标志是输入一个等号) 常用函数的应用：SUＭ（求和函数),AＶERAGＥ（求平均值函数),Ｍax(求最大值函数）,ｍｉｎ(求最小值函数）,Ｃount（计数函数) “= SUM(C3：C5)”表示求C3到C５单元格区域的数据的和。

等同于“＝C３＋C4+C5”“=Aveｒage（Ｃ3:Ｃ5)”表示求C３:C５单元格区域数据的平均值“=Max(C３:C5)”表示求Ｃ3:Ｃ５单元格区域数据的最大值“=Cｏuｎt(C３:Ｃ5）”表示求C3:Ｃ5区域中包含数字的单元格个数以及参数列表中数字的个数。

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

常见错误和难点分析1．在选择结构中缺少配对的结束语句对多行式的If块语句中，应有配对的End If语句结束。

否则，在运行时系统会显示"块 If没有End If"的编译错误。

同样对Select Case语句也应有与其相对应的End Select语句。

2．多边选择ElseIf关键字的书写和条件表达式的表示多边选择ElseIf子句的关键字ElseIf之间不能写有空格，即不能写成Else If。

在多个条件表达式的表示时，应从最小或最大的条件依次表示，以避免条件的过滤。

例如，已知输入某课程的百分制成绩mark，要求显示对应五级制的讦定，评定条件如下：有以下几种表示方式，语法上都没有错，但执行后结果有所不同，请分析哪些正确? 哪些错误?下面给出的答案中，方法一、二、五正确，其余错误，请分析各自的原因。

3．Select Case语句的使用(1)"表达式列表i" 中不能使用"变量或表达式"中出现的变量。

例如，上述多边选择的例子改为Select Case语句实现，方法一Case子句中出现变量mark，运行时不管mark的值多少，始终执行Case Else子句，运行结果不正确；方法二、方法三正确。

(2)在"变量或表达式"中不能出现多个变量。

实验三第5题对三门课程奖学金的判断，只能用If语句的多边选择，而不能用SelectCase语句实现。

例如，有人用如下语句表示：Select Case markl，mark2，mark3Case (markl+mark2+mark3)/3>=95Print"一等奖"End Select这样就会在 "Select Case markl,mark2,mark3" 语句行出现编辑错误, 同时Case (markl+mark2 +mark3)/3>=95书写也错误。

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. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. DoubleD. All of the above答案：D2. 如果要声明一个变量用于存储字符串，应该使用哪种数据类型？A. IntegerB. StringC. DoubleD. Boolean答案：B3. 在Visual Basic中，以下哪个关键字用于定义一个子程序？A. FunctionB. SubC. DimD. Const答案：B4. 下列哪个选项不是Visual Basic中的控制结构？A. If...Then...ElseB. For...NextC. While...WendD. Switch...Case答案：D二、填空题1. 在Visual Basic中，使用________关键字可以声明一个变量。

答案：Dim2. 当需要在程序中显示消息框时，可以使用________函数。

答案：MsgBox3. 要实现循环结构，可以使用________循环或________循环。

答案：For...Next，While...Wend三、编程题1. 编写一个Visual Basic程序，计算并输出1到100之间所有奇数的和。

答案：```vbDim sum As Integersum = 0For i As Integer = 1 To 100If i Mod 2 <> 0 Thensum = sum + iEnd IfNext iMsgBox("1到100之间所有奇数的和为：" & sum.ToString())```2. 编写一个Visual Basic程序，实现一个简单的计算器，能够计算两个数的和。

答案：```vbDim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = Val(InputBox("请输入第一个数："))num2 = Val(InputBox("请输入第二个数："))result = num1 + num2MsgBox("两数之和为：" & result.ToString())```四、简答题1. 简述Visual Basic中事件处理的基本结构。

信息技术会考练习题第二部分 VB程序设计选择题第二部分 Visaul Basic 程序设计（选择题）—2006年一、单选题（每题1分）：1．计算机程序的三种结构是顺序结构、、选择结构。

A．模块结构 B．循环结构 C．多重循环结构 D．块IF结构2．在VB应用程序设计中，通常应对编写程序代码。

A．所有对象 B．窗体C．Timer D．有事件的对象3．在VB程序设计中，是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。

A．任务 B．事件 C．控件 D．过程4．在面向对象程序设计中，用来描述对象的特征信息。

A．事件 B．方法 C．代码 D．属性5．在VB系统中，一个对象内部的函数或过程，称为该对象的。

A．代码 B．属性 C．方法 D．事件6．在Windows环境中，可以同时运行多个应用程序，但只有窗口具有时，才能够接受用户的输入。

A．命令按钮 B．光标 C．鼠标指针 D．焦点7．在VB编程中，如果需要返回鼠标的当前位置时，应该使用事件。

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

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

A．Form_Load B．Form_ClickC．Form_MouseDown D．Form_KeyPress10．下列句子中，不是赋值语句。

A．y=x+5 B．Label1.FontSize=12C．r=Val(Text1.Text) D．Not Pictrue1.Visible= Pictrue1.Visible11．的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))/2a12．要获得两位随机整数，正确的表达式为。

VB程序设计试题与答案解析vb程序设计试题1.多窗体程序是由多个窗体组成，在缺省情况下，vb在应用程序执行时，总是把（）指定为启动窗体。

a.不涵盖任何控件的窗体b.设计时的第一个窗体c.涵盖控件最少的窗体d.命名为frm1的窗体2.应用程序打包后，其包文件的后缀为（）。

a..exeb..cabc..txtd..ocx3.当一个工程中含有多个窗体时，其中的启动窗体是（）。

a.启动vb时建立的第一个窗体b.第一个嵌入的窗体c.最后一个添加的窗体d.在“工程属性”对话框中指定的窗体4.能发生改变标签label控件表明标题的属性就是（）。

a.capionc.clickd.text5.下面关于工程的概念中错误的就是（）。

a.visualbasic的工程是相关应用程序文件的集合b.visualbasic的工程实际上为了管理形成应用程序的所有文件c.一个小的visualbasic应用程序就可以形成一个工程d.建立只有一个窗口的应用程序，会生成多个程序文件，也称为一个工程6.将一个vb程序留存在磁盘上，至少可以产生的文件就是（）。

a..doc、.txtb..txt、.exec..vbp、.frmd..bat、.frmb.7.一个vb应用程序可以包含几个vbp文件（）8.a.1个b.2个c.可以没d.不受限制9.8.当运行程序时，系统自动执行启动窗体的（）事件过程。

a.loadb.clickc.unloadd.gotfocus9.对于定时器（timer）控件,设置其定时是否开启的属性是（）a.indexb.tagc.enabledd.left10.启动vb后，就意味着要建立一个新（）。

a.窗体b.程序c.文件d.工程a.单击窗体上没有控件的地方b.单击任一个控件c.不执行任何操作d.双击窗体的标题栏12.下面各种高级语言中，不是面向对象程序设计语言的就是（）。

a.visualbasicb.c++c.pascald.java13.visualbasic应用程序处在继续执行模式时，这时（）。

信息技术高中会考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从键盘输入.。