vb操作题改错：可变参数的

vb编写一个具有可变参数的函数过程，可以求任意多个数的最大值，并用print方法调用该函数过程进行测试。~

Private Sub Command1_Click()
Dim n As Integer
n = CInt(InputBox("要计算几个数的平均值："))
Print "求 " & n & " 个数的平均值:";
Print "平均值="; pj(n)
End Sub

Function pj(n As Integer) As Double
For i = 1 To n
x = Val(InputBox("第 " & i & " 个数是："))
Print x;
s = s + x
Next i
pj = s / n
Print
End Function

问题1：你完全可以自己测试的啊，所以我就不说了，自己试验得出的结果印象才深刻；
问题2：ParamArray后面的acc()是个变体型数组，代表了多个参数，其中acc(0)是第一个参数，acc(1)是第二个参数，依此类推。即使只有一个参数，也是acc(0)，所以：
For Each x In acc()
要改为
For Each x In acc(0)
问题3：c是根据a中遍历出的每个元素而重新赋值的变量，与原数组a无关，所以修改c的值并不会改变数组a

ef 是 Visual Basic 的缺省选项。
第一，整体的思想太不清楚了，看完之后想了半天，还是不明白两部分都是想实现什么功能。
第二，代码的写作习惯太差了，最好用最基本、完整的方式定义所有的变量，这样不会给自己找麻烦，还有一些其他的习惯也不太好。（小心 过程可以使用没有在过程内显式定义的变量，但只要有任何在模块级别定义的名称与之同名，就会产生名称冲突。如果过程中使用的未定义的变量与别的过程，常数，或变量的名称相同，则认为过程使用的是模块级的名称。显式定义变量就可以避免这类冲突。可以使用 Option Explicit 语句来强制显式定义变量。）
第三，如果只是想实现一个整数的阶乘，没必要调用过程，直接用一个FOR循环就可以解决：
Private Sub Command1_Click()
Dim i As Long, j As Long

j = 1
For i = 2 To 10
j = j * i
Next
Text1.Text = j
End Sub

第一行定义了 abc 为变量，
第二行却定义 abc 为过程。

所以错误，修改其中一个吧

修改过的，好几处错误！
代码如下：
Dim x As Integer, y As Integer, z As Integer, I As Integer, n
Sub abc(ParamArray numbers())
I = 0
Max = numbers(0)
Min = numbers(0)
For Each n In numbers
If numbers(I) > Max Then
Max = numbers(I)
ElseIf numbers(I) < Min Then
Min = numbers(I)
End If
I = I + 1
Next n
Print "max="; Max, "min="; Min
End Sub

Private Sub Command1_Click()
x = Val(InputBox("请输入一个数字"))
y = Val(InputBox("请输入一个数字"))
z = Val(InputBox("请输入一个数字"))
abc x, y, z
End Sub

ic语言、Java语言、Delphi语言、Visual Foxpro数据库以及Access数据库七类，考核应试者软、硬件基础知识和使用一种高级计算机语言或数据库程序设计编制程序、上机调试的能力。
三级分为PC技术、信息管理技术、数据库技术和网络技术四科。“PC技术”考核PC机硬件组成和Windows操作系统的基础知识以及PC机使用、管理、维护和应用开发的基本技能；
“信息管理技术”考核计算机信息管理应用基础知识及管理信息系统项目和办公自动化系统项目开发、维护的基本技能；
“数据库技术”考核数据库系统基础知识及数据库应用系统项目开发和维护的基本功能；
“网络技术”考核计算机网络基础知识及计算机网络应用系统开发和管理的基本技能。

2009年全国计算机等级考试二级VB大纲考纲
◆ 基本要求
1. 熟悉Visual Basic集成开发环境。
2. 了解Visual Basic中对象的概念和事件驱动程序的基本特性。
3. 了解简单的数据结构和算法
4. 能够编写和调试简单的Visual Basic程序。
◆ 考试内容
一、Visual Basic程序开发环境
1. Visual Basic的特点和版本。
2. Visual Basic的启动与退出。
3. 主窗口：
（1） 标题和菜单。
（2） 工具栏。
4. 其它窗口：
（1）窗体设计器和工程资源管理器。
（2）属性窗口和工具箱窗口。
二、对象及其*作
1.对象：
（1）Visual Basic的对象。
（2）对象属性设置。
2.窗体：
（1）窗体的结构与属性。
（2）窗体事件。
3.控件：
（1）标准控件。
（2）控件的命名和控件值。
4.控件的画法和基本*作。
5.事件驱动。
三、数据类型及运算
1.数据类型：
（1）基本数据类型。
（2）用户定义的数据类型。
2.常量和变量：
（1）局部变量和全局变量。
（2）变体类型变量。
（3）缺省声明。
3.常用内部函数。
4.运算符和表达式：
（1）算术运算符。
（2）关系运算符和逻辑运算符。
（3）表达式的执行顺序。
四、数据输入输出
1.数据输出：
（1）Print方法。
（2）与Print方法有关的函数（Tab，Spc，Space $）。
（3）格式输出（Format $）。
2.InputBox函数。
3.MsgBox函数和MsgBox语句。
4.字形。
5.打印机输出：
（1）直接输出。
（2）窗体输出。
五、常用标准控件
1.文本控件：
（1）标签。
（2）文本框。
2.图形控件：
（1）图片框、图象框的属性、事件和方法。
（2）图形文件的装入。
（3）直线和形状。
3.按钮控件。
4.选择控件：复选框和单选按钮。
5.选择控件：列表框和组合框。
6.滚动条。
7.记时器。
8.框架。
9.焦点和Tab顺序。
六、控制结构
1.选择结构：
（1）单行结构条件语句。
（2）块结构条件语句。
（3）IIf函数。
2.多分支结构。
3.For循环控制结构。
4.当循环控制结构。
5.Do 循环控制结构。
6.多重循环。
七、数组
1.数组的概念：
（1）数组的定义。
（2）静态数组和动态数组。
2.数组的基本*作：
（1）数组元素的输入、输出和复制。
（2）ForEach…Next语句。
（3）数组的初始化。
3.控件数组。
八、过程
1.Sub过程：
（1）Sub过程的建立。
（2）调用Sub过程。
（3）调用过程和事件过程。
2.Funtion过程：
（1）Funtion过程的定义。
（2）调用Funtion过程。
3.参数传送：
（1）形参与实参。
（2）引用。
（3）传值。
（4）数组参数的传送。
4.可选参数和可变参数。
5.对象参数：
（1）窗体参数。
（2）控件参数。
九、菜单和对话框
1.用菜单编辑器建立菜单。
2.菜单项的控制：
（1）有效性控制。
（2）菜单项标记。
（3）键盘选择。
3.菜单项的增减。
4.弹出式对话框。
5.通用对话框。
6.文件对话框。
7.其它对话框（颜色、字体、打印对话框）。
十、多重窗体与环境应用
1. 建立多重窗体应用程序。
2. 多重窗体程序的执行与保存
3. Visual Basic工程结构：
（1）标准模块
（2）窗体模块。
（3）SubMain过程。
4.闲置循环与DoEvents语句。
十一、键盘与鼠标事件过程
1. KeyPress事件。
2. KeyDown事件和KeyUp事件。
3. 鼠标事件。
4. 鼠标光标。
5. 拖放。
十二、数据文件
1. 文件的结构与分类。
2. 文件操作语句和函数。
3. 顺序文件：
（1）顺序文件的写操作。
（2）顺序文件的读操作。
4. 随机文件。
（1） 随机文件的打开与读写操作。
（2） 随机文件中记录的增加与删除。
（3） 用控件显示和修改随机文件。
5. 文件系统控件：
（1） 动器列表框和目录列表框。
（2） 文件列表框。
6. 文件基本操作。
◆ 考试方式
1. 笔试：90分钟，满分100分，其中含公共基础知识部分的30分。
2. 上机操作：90分钟，满分100分。
上机操作包括：
（1） 基本操作。
（2） 简单应用。
（3） 综合应用。

09年全国计算机等级二级C语言考试大纲

◆ 基本要求
1.熟悉 Visual C++ 6.0 集成开发环境。
2.掌握结构化程序设计的方法，具有良好的程序设计风格。
3.掌握程序设计中简单的数据结构和算法并能阅读简单的程序。
4.在 Visual C++ 6.0 集成环境下，能够编写简单的C程序，并具有基本的纠错和调试程序的能力
◆ 考试内容
一、C语言程序的结构
1.程序的构成，main函数和其他函数。
2.头文件，数据说明，函数的开始和结束标志以及程序中的注释。
3.源程序的书写格式。
4.C语言的风格。
二、数据类型及其运算
1.C的数据类型（基本类型，构造类型，指针类型，无值类型）及其定义方法。
2.C运算符的种类、运算优先级和结合性。
3.不同类型数据间的转换与运算。
4.C表达式类型（赋值表达式，算术表达式，关系表达式，逻辑表达式，条件表达式，逗号表达式）和求值规则。
三、基本语句
1.表达式语句，空语句，复合语句。
2.输入输出函数的调用，正确输入数据并正确设计输出格式。
四、选择结构程序设计
1.用if语句实现选择结构。
2.用switch语句实现多分支选择结构。
3.选择结构的嵌套。
五、循环结构程序设计
1.for循环结构。
2.while和do-while循环结构。
3.continue语句和break语句。
4.循环的嵌套。
六、数组的定义和引用
1.一维数组和二维数组的定义、初始化和数组元素的引用。
2.字符串与字符数组。
七、函数
1.库函数的正确调用。
2.函数的定义方法。
3.函数的类型和返回值。
4.形式参数与实在参数，参数值传递。
5.函数的正确调用，嵌套调用，递归调用。
6.局部变量和全局变量。
7.变量的存储类别（自动，静态，寄存器，外部），变量的作用域和生存期。
八、编译预处理
1.宏定义和调用（不带参数的宏，带参数的宏）。
2.“文件包含”处理。
九、指针
1.地址与指针变量的概念，地址运算符与间址运算符。
2.一维、二维数组和字符串的地址以及指向变量、数组、字符串、函数、结构体的指针变量的定义。通过指针引用以上各类型数据。
3.用指针作函数参数。
4.返回地址值的函数。
5.指针数组，指向指针的指针。
十、结构体（即“结构”）与共同体（即“联合”）
1.用typedef说明一个新类型。
2.结构体和共用体类型数据的定义和成员的引用。
3.通过结构体构成链表，单向链表的建立，结点数据的输出、删除与插入。
十一、位运算
1.位运算符的含义和使用。
2.简单的位运算。
十二、文件操作
只要求缓冲文件系统（即高级磁盘I/O系统），对非标准缓冲文件系统（即低级磁盘I/O系统）不要求。
1.文件类型指针（FILE类型指针）。
2.文件的打开与关闭（fopen，fclose）。
3.文件的读写（fputc，fgetc，fputs，fgets，fread，fwrite，fprintf，fscanf函数的应用），文件的定位（rewind，fseek函数的应用）。
◆ 考试方式
1.笔试：90分钟，满分100分，其中含公共基础知识部分的30分。
2.上机：90分钟，满分100分
3、上机操作包括：
（1）填空。
（2）改错。
（3）编程。

2009年全国计算机等级考试二级VFP大纲

◆ 基本要求
1、 具有数据库系统的基础知识。
2、 基本了解面向对象的概念。
3、 掌握关系数据库的基本原理。
4、 掌握数据库程序设计方法。
5、 能够使用VISUAL FOXPRO建立一个小型数据库应用系统。
◆基础知识
1、 基本概念：
数据库、数据模型、数据库管理系统、类和对象、事件、方法。
2、 关系数据库：
（1） 关系数据库：关系模型、关系模式、关系、元组、属性、域、主关键字和外部关键字。（2） 关系运算：选择、投影、连接。
（3） 数据的一致性和完整性：实体完整性、域完整性、参照完整性。
3、 VISUAL FOXPRO系统特点与工作方式：
（1） WINDOWS版本数据库的特点。
（2） 数据类型和主要文件类型。
（3） 各种设计器和向导。
（4） 工作方式：交互方式（命令方式、可视化*作）和程序运行方式。
4、 VISUAL FOXPRO的基本数据元素：
（1） 常量、变量、表达式。
（2）常用函数：字符处理函数、数值计算函数、日期时间函数、数据类型转换函数、测试函数。
一、 VISUAL FOXPRO数据库的基本*作
1、 数据库和表的建立、修改与有效性检验：
（1） 表结构的建立与修改。
（2） 表记录的浏览、增加、删除与修改。
（3） 创建数据库，向数据库添加或移出表。
（4） 设定字段级规则和记录规则。
（5） 表的索引：主索引、候选索引、普通索引、唯一索引。
2、 多表*作：
（1） 选择工作区。
（2） 建立表之间的关联：一对一的关联；一对多的关联。
（3） 设置参照完整性。
（4） 建立表间临时关联。
3、 建立视图与数据查询：
（1） 查询文件的建立、执行与修改。
（2） 视图文件的建立、查看与修改。
（3） 建立多表查询。
（4） 建立多表视图。
二、 关系数据库标准语言SQL
1、 SQL的数据定义功能：
（1） CREATE TABLE –SQL
（2） ALTER TABLE –SQL
2、 SQL的数据修改功能：
（1） DELETE –SQL
（2） INSERT –SQL
（3） UPDATE –SQL
3、 SQL的数据查询功能：
（1） 简单查询。
（2） 嵌套查询。
（3） 连接查询。
内连接外连接：左连接，右连接，完全连接
（4） 分组与计算查询。
（5） 集合的并运算。
三、 项目管理器、设计器和向导的使用
1、 使用项目管理器：
（1） 使用“数据”选项卡。
（2） 使用“文档”选项卡。
2、 使用表单设计器：
（1） 在表单中加入和修改控件对象。
（2） 设定数据环境。
3、 使用菜单设计器：
（1） 建立主选项。
（2） 设计硬说ァ?BR> （3） 设定菜单选项程序代码。
4、 使用报表设计器：
（1） 生成快速报表。
（2） 修改报表布局。
（3） 设计分组报表。
（4） 设计多栏报表。
5、 使用应用程序向导。
6、 应用程序生成器与连骗应用程序。
四、 VISUAL FOXPRO程序设计
1、 命令文件的建立与运行：
（1） 程序文件的建立。
（2） 简单的交互式输入、输出命令。
（3） 应用程序的调试与执行。
2、 结构化程序设计：
（1） 顺序结构程序设计。
（2） 选择结构程序设计。
（3） 循环结构程序设计。
3、 过程与过程调用。
（1） 子程序设计与调用。
（2） 过程与过程文件。
（3） 局部变量和全局变量、过程调用中的参数传递。
4、 用户定义对话框(MESSAGEBOX)的使用。

---

乐都县18674967084： vb操作题改错:可变参数的 - ？
龚夏氯沙： 第一行定义了 abc 为变量,第二行却定义 abc 为过程.所以错误,修改其中一个吧

乐都县18674967084： vb操作题 改错:设有如下两组数据A:2,8,7,6,4,28,70,25B:79,27,32,41,57,66,78,80编写一个程序,把上面两组数据分别赌如两个数组中,然后把两个数组中对... - ？
龚夏氯沙：[答案] Option Base 1Private Sub Form_click()Dim a() As Variant, b() As Variant, c() As Varianta = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)ReDim c(1 To 8)For i = 1 To 8c(i) = ...

乐都县18674967084： VB会考改错的一道题,请高人指点？
龚夏氯沙： 考试和实际不是一回事,考试考的是理论,是死的 Function Val(String As String) As Double Val函数返回的是Double,如果要严密一点,定义cj变量应为 Dim cj As Double 此外成绩是大于0的,而且是数字 可以先用 IsNumeric 和 &gt; 0 判断是否...

乐都县18674967084： VB调试改错题3, 程序中有4个错误 请那位大哥告知？
龚夏氯沙： 只有三个错误,按这三个错误改过之后,运行这段语句,结果是正确的 错误1,f=0 应该是f=1 错误2,ee=ee+f 应该是ee=ee+1/f 错误3,Label4.Caption = ＂ e= ＂ + ee 应该是Label4.Caption = ＂ e= ＂ &amp; ee

乐都县18674967084： 高中VB操作题 - ？
龚夏氯沙： 1. 第一处错误是定义错误,应改为:dim s as double, a as double, h as double 第二处错误是没有在按钮二的单击事件中加入代码,应加上:END2. 第一处错误是定义错误,应改为:dim i as integer,N as integer,aR as integer,bR as integer,cR as ...

乐都县18674967084： vb操作怎么修改程序 错误有几种类型及改法 - ？
龚夏氯沙： 分段检查,把复杂的问题简单化.把出错的地方单独另列为一个程序,单独执行.根据错误提示,检查相应的问题.根据错误的情况,大致可分为语法错误,运行错误,逻辑错误三大类情况.最简单的是语法错误,程序根本不能运行.应该检查...

乐都县18674967084： VB属性设置及程序改错题 - ？
龚夏氯沙： Private Sub Command1_Click() Const pi = 3.14 If Val(Text1.Text) <> 0 Then '这里应该判断不为0时再执行下面语句,最好用Val(Text1.Text) <> 0 r = Text1.Text If r = Val(Text1.Text) Then s = pi * r * r Label3.Caption = s Else MsgBox ＂输入的不是数...

乐都县18674967084： VB程序属性设置及改错题？
龚夏氯沙： Private Sub Command1_Click() Dim NN As String, Sum, Item As Single Dim I As Integer, J As Integer, n As Integer NN = InputBox$(＂请输入求的项数N＂) n = Val(NN) Sum = 1 For I = 2 To n Item = 1 For J = 2 To I + 1 Item = Item * J Next J Sum ...

乐都县18674967084： VB调试改错题3, 程序中有4个错误. 请那位大哥帮我找出来？
龚夏氯沙：Private Sub Command3_Click() Dim ee As Double, f As Double, i%, j% ee = 1 For i = 1 To 6 f = 1 For j = 1 To 6 f = f * j Next ee = ee + 1 / f Next Print Format(e, ＂0.000001＂) End Sub Private Sub Command3_Click() Dim i As Integer/改为 Dim i ...

乐都县18674967084： 帮我做下这道vb操作题？
龚夏氯沙： 现在窗体上画一个textbox和一个label,按照题目要求, 再在属性列表中按以下修改 lable1属性: name(名称): L1 caption: 请输入密码 textbox1 属性: width: 2000 height: 3000 passwordchar: * form的属性: caption: 密码窗口 按照以上设置属性就好了