计算机一级VB上机练习题电子版本

第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。

程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。

在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。

Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1))Elsech1 = ch1 + UCase(Mid(ch, i, 1))End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。

程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。

Private Sub MyCmd1_Click()Dim a%(29), i%, max%RandomizeFor i = 0 To 29a(i) = Int(Rnd * 1001)Next imax = a(0)For i = 1 To 29If a(i) > max Then max = a(i)Next iPrint maxEnd Sub4 请设计如下图所示窗体界面。

全国计算机考试一级vb试题及答案全国计算机考试一级VB试题及答案一、选择题1. VB中，以下哪个选项是合法的变量名？A. 2variableB. variable2C. _variableD. variable-2答案：B2. 在VB中，以下哪个函数用于计算字符串的长度？A. LenB. LengthC. SizeD. Count答案：A3. VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. DoubleD. All of the above答案：D4. 在VB中，以下哪个选项是正确的循环结构？A. For...NextB. While...End WhileC. Do...LoopD. All of the above答案：D5. VB中，以下哪个选项是正确的条件语句？A. If...Then...ElseB. Select CaseC. If...ThenD. All of the above答案：D二、填空题1. VB中，________函数用于将字符串转换为小写。

答案：LCase2. 在VB中，________关键字用于声明常量。

答案：Const3. VB中，________函数用于获取当前日期。

答案：Date4. 在VB中，________语句用于结束程序的执行。

答案：End5. VB中，________函数用于计算两个数的和。

答案：Val三、简答题1. 请简述VB中如何声明一个整型变量并赋值。

答案：在VB中，声明一个整型变量并赋值可以通过以下方式实现：Dim myVar As Integer。

然后使用赋值运算符“=”给变量赋值，例如：myVar = 10。

2. 描述VB中如何使用For循环结构。

答案：在VB中，使用For循环结构的基本语法是：For counter = start To end [Step step]。

其中，counter是循环计数器，start是循环开始的值，end是循环结束的值，step是每次循环增加的值（可选，默认为1）。

1 全国计算机等级考试一级B模拟练习题（第三十一套）1二、Windows基本操作题（共计10分，不限制操作的方式）注意：下面出现的“考生文件夹”均为C:\WEXAM\00000000\（本题型共有5小题）。

1.将考生文件夹下FENG\WANG文件夹中的文件BOOK.DBT移动到考生文件夹下CHANG文件夹中，并将该文件改名为TEXT.PRG。

2.将考生文件夹下CHU文件夹中的文件JIANG.TMP删除。

3.将考生文件夹下REI文件夹中的文件SONG.FOR复制到考生文件夹下CHENG文件夹中。

4.在考生文件夹下MAO文件夹中建立一个新文件夹YANG。

5.将考生文件夹下ZHOU\DENG文件夹中的文件OWER.DBF设置为隐藏和存档属性。

知识点：1.创建文件夹在“Windows 资源管理器”中打开新文件夹的存放位置。

在“文件”菜单上，指向“新建”，然后单击“文件夹”。

用临时的名称显示新文件夹。

键入新文件夹的名称，然后按 ENTER 键。

2.复制文件或文件夹在“我的电脑”或“Windows资源管理器”中，单击要复制的文件或文件夹。

在“编辑”菜单上，单击“复制”。

打开要存放副本的文件夹或磁盘。

在“编辑”菜单上，单击“粘贴”。

3.设置文件属性在“我的电脑”或“Windows 资源管理器”中，右键单击要设置的文件或文件夹，选择“属性”，在属性对话框中可以设置文件属性。

4.删除文件或文件夹在“我的电脑”或“Windows 资源管理器”中，单击要删除的文件或文件夹。

在“文件”菜单上，单击“删除”。

也可以将文件或文件夹图标拖动到“回收站”。

如果拖动时按住了 SHIFT 键，该项目将从计算机中删除而不保存在“回收站”中。

移动文件或文件夹在“我的电脑”或“Windows资源管理器”中，单击要移动的文件或文件夹。

在“编辑”菜单上，单击“剪切”。

打开要存放的文件夹或磁盘。

在“编辑”菜单上，单击“粘贴”。

三、汉字录入题（共计15分）请在”考试项目”菜单上选择“汉字录入”菜单项，启动汉字录入测试程序，按照题目上的内容输入如下汉字。

vb上机练习题及答案一、基本要求熟悉VB集成开发环境掌握代码窗口的应用及录入、编辑代码的基本方法了解VB程序设计的基本步骤二、实习内容实习熟悉VB集成开发环境各组成部分输入一个数，求该数的平方并显示结果第二章一、基本要求熟练掌握各种运算符的应用和优先顺序掌握各种常用函数的功能、参数和返回值掌握立即窗口的使用方法二、实验内容回答整形、长整型、单精度、双精度类型数据占用字节数。

已知直角三角形的两条直角边长，求斜边长。

Private Sub Command1_ClickDim a%, b%, c%a = Val)b = Val)c = SqrPrint cEnd Sub给小学生随机出两位数和一位数的加法题。

Private Sub Command1_ClickDim a%, b%, c%a = Val)b = Val)c = a + bPrint cEnd Sub用文本框输入一个带小数的数，对输入的数四舍五入保留2位小数。

Private Sub Command1_ClickDim x#, y!x = Text1.Texty = RoundPrint yEnd Sub输入某人姓名，判断是否你的本家。

Private Sub Command1_ClickDim a$, b$, p As Booleanb = "李"a = InputBoxIf Left = b Thenp = TrueEnd IfPrint pEnd Sub任意输入西安地区的固定电话号码，将其升为8位。

如原号码为029-*******，升位后为************。

Private Sub Command1_ClickDim x As String, y As Stringx = Text1.Texty = Left & & RightText2.Text = yEnd Sub输入书31页format语句，查看运行结果。

2007—2008(2) VB上机练习题1．设计一个数字钟表程序，界面如图所示。

运行时单击窗体，显示当前的年月日星期及时间。

2．设计一个数学函数程序，界面如图所示。

程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。

文本框始终处于选中状态。

3．设计口令检测界面，口令自定，运行初始如第一幅图，若口令错，则如第二幅图；否则，将显示另一欢迎窗口，如第三幅图所示。

在连续三次输入错误口令后，给出警告并结束运行。

4．设计一个程序，用户界面如下图所示。

程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。

5．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。

6．设计一个程序，用户界面如下图所示。

程序运行后，单击Command1按钮，求出最大最小数。

7．设计一个100（随机函数产生）之内的四则运算题，界面如下。

8．设计一个窗体Forml，界面如右图所示。

编写适当的事件过程，程序运行后在第一个文本框中输入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。

9．界面如下图所示。

编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，如果可以在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。

10．某工程运行时，图片框中图可以任意。

单击“隐藏图像”按钮（command2）界面如右图，单击“显示图像”按钮（command1）界面如左图，编写适当的事件过程。

11．在文本框T1中打印100~999之间的所有水仙花数。

（该数为各位数字的立方和。

例如：153=1 3+5 3+3 3）12．有一数列，它的头2个数为0、1，以后的每个数都是其前2个数之和。

编程在文本框T1中输出所有这些数列，直到第30个数或最后一项等于1000为止，同时在另一文本框中输出它们的和。

第1章上机练习1.熟悉Visual Studio 的IDE界面，练习窗口的浮动、停靠，工具栏的定制。

2.模仿书中的例子，编写“Hello，Visual Basic ”程序。

3.学会使用帮助，在编写程序时使动态帮助始终打开，注意观察动态帮助窗口中内容的变化。

4.在帮助菜单下选择对“帮助的帮助”，阅读其中的内容，学习帮助的使用。

5.在窗体上选中不同的控件，按下F1，阅读显示的内容。

第2章上机练习1．使用文本框、标签和按钮，编写一个计算年利息的程序。

用户输入本金、年利率、年限计算应得的利息。

2．编写程序在窗体上放置1个TextBox控件和4个Button控件。

分别按下这4个按钮，可以把文本框的背景色分别设置为红色、蓝色、黑色和绿色。

3．写一个简单的程序来证明当按钮具有焦点时按下回车键，将引起按钮的单击事件。

4．在窗体上放置4个排成矩形的按钮，每个按钮的标题都是PushMe！。

当用户单击其中一个按钮时，此按钮便会消失，其它3个依然存在。

5．窗体有2个文本框，用户可以在其中输入信息，单击其中一个文本框，会变成空白，其中的信息转移到另一个文本框。

6．在窗体上放置3个文本框，按下Tab键后，3个文本框会依次在红、绿、黄3种颜色之间循环显示，如同十字路口的红绿灯一样。

最初，其中一个文本框是绿色，其它2个是灰色。

每当其中一个文本框显示有颜色时（灯亮），其余2个变为灰色（灯灭）。

第3章上机练习1.输入三角形三条边的长度a, b, c,计算并显示三角形的面积。

公式为：面积＝sas--s-, 其中s=(a+b+c)/2))(b)(s(c2.随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。

例如，产生135，输出是531。

3.在高度为6米的地方垂直于地面向上抛起一个小球，初速度为12m/s。

编写程序，根据用户输入的时间（秒）计算出小球离开地面的高度。

如，用户输入3.1，计算3.1秒后小球离开地面的高度。

4.如果n是闪电和打雷间隔的秒数，暴风雨以n/5公里的速度前进。

重庆市高等院校非计算机专业计算机等级考试Visual Basic 2010年第1次考试上机试卷第1套2010年4月24日一、设计下图所示界面的程序，程序运行后，输入球的半径，单击“球体积”、“球表面积”复选框，根据复选框是否勾选，决定是否在右侧相应的文本框内显示球体积（πR ）和球表面积（4πR ）的计算值。

（40分，存盘时工程文件名为Ex11nnnn.Vbp ，窗体文件名为Ex11nnnn.Frm ，其中nnnn 为考生准考证号的右4位）2433二、编写具有下图所示界面的应用程序，程序运行后，在“起始值”和“结束值”两个文本框中分别输入一个整数（大小不限），单击“计算累加和”按钮，就能在文本框下方的Label 控件中显示起始值与结束值之间所有奇数的累加和。

（30分，存盘时工程文件名为Ex12nnnn.Vbp ，窗体文件名为Ex12nnnn.Frm ，其中nnnn 为考生准考证号的右4位）三、程序的功能是：学生成绩数据已经保存在数组a 中，学生姓名已经保存在数组b 中，单击窗体，就能在窗体上显示成绩最好的学生姓名及其成绩。

（30分，要求根据程序代码改错，改错时，不得增加和删除语句。

将修改正确的程序存盘，工程文件名为Ex13nnnn.Vbp ，窗体文件名为Ex13nnnn.Frm ，其中nnnn 为考生准考证号的右4位）Private Sub Form_Click()Dim a As Variant, b As Stringa = Array(85, 77, 92, 66, 44)b = Array("黄玉梅", "朱明霞", "孙家宝", "赵天明", "杨百万")Max = a(0)：student = b(0)For i = 1 To 5If b(i) > Max ThenMax = a(i)：student = b(i)End IfNext iPrint "成绩最好的学生是："; student; "考试成绩为："; Max; "分" End Sub参考答案及评分标准：第一题参考代码Private Sub Check1_Click()r = Val(T ext1.Text)If Check1.Value = 1 Thenv = 4 * 3.14159 * r ^ 3 / 3Text2.Text = vElseText2.Text = ""End IfEnd SubPrivate Sub Check2_Click()r = Val(T ext1.Text)If Check2.Value = 1 Thenv = 4 * 3.14159 * r ^ 2Text3.Text = vElseText3.Text = ""End IfEnd Sub评分标准：界面设计15分保存文件5分每个事件过程10分第二题参考代码：Private Sub Command1_Click()X1 = Val(Text1.Text)X2 = Val(Text2.Text)Sum = 0If X1 < X2 Then n = 1 Else n = -1For i = X1 To X2 Step nIf i Mod 2 <> 0 ThenSum = Sum + iEnd IfNext iLabel3.Caption = "从" + Text1.Text + "到" + Text2.Text + "之间所有奇数的累加和＝" + Str(Sum)End Sub评分标准：界面设计5分循环结构正确5分（控制条件不正确者酌情扣分）判断条件正确5分求和正确5分输出格式正确5分正确存盘5分第三题改错参考答案：Private Sub Form_Click()Dim a As Variant, b As Varianta = Array(85, 77, 92, 66, 44)b = Array("黄玉梅", "朱明霞", "孙家宝", "赵天明", "杨百万")Max = a(0)student = b(0)For i = 1 To 4If a(i) > Max ThenMax = a(i)student = b(i)End IfNext iPrint "成绩最好的学生是："; student; "考试成绩为："; Max; "分" End Sub评分标准：共3处错误，每改一处错误正确存盘8分（共24分）6分重庆市高等院校非计算机专业计算机等级考试Visual Basic 2010年第1次考试上机试卷第2套2010年4月24日1．设计右图所示界面的程序，程序运行后，输入圆的半径，单击“圆面积”、“圆周长”复选框，然后单击“计算”按钮，根据复选框是否勾选，决定是否在右侧相应的文本框内显示圆面积和圆周长的计算值。

vb上机考试试题VB（Visual Basic）是一种非常流行的编程语言，在计算机科学领域广泛应用。

VB语言的开发环境是Visual Studio，该软件是微软公司开发的一个集成开发环境（IDE），是用来开发Windows 应用程序的集成包。

VB上机考试是衡量学生能力的一种重要方式之一，它可以考察学生掌握VB语言的基础知识和编程能力。

下面，我们列举一些常见的VB上机考试试题。

1. 编写一个求和程序，要求实现输入两个数值，计算它们的和并将结果输出。

提示：可以使用文本框（TextBox）和按钮（CommandButton）控件。

2. 编写一个计算器程序，要求实现基础的加、减、乘、除四则运算。

提示：可以使用文本框和按钮控件以及一些逻辑运算符和条件语句。

3. 编写一个登录界面，要求实现输入用户名和密码，验证用户信息是否正确。

如果验证通过，则进入主界面；如果验证失败，则提示用户重新输入。

提示：可以使用文本框和按钮控件以及一些判断语句和布尔运算符。

4. 编写一个学生管理系统，要求实现添加、删除和修改学生信息的功能。

提示：可以使用列表框（ListBox）和按钮控件以及一些数组和循环语句。

5. 编写一个简单的冒泡排序程序，要求实现对一组数字进行排序。

提示：可以使用文本框和按钮控件以及一些数组和循环语句。

这些试题都是比较基础的，但是涵盖了VB语言的许多核心概念和技术。

在实际应用中，我们还可以根据自己的需求增加一些拓展性的试题，比如实现文件操作、网络连接、多线程等等。

总的来说，VB上机考试是一种有效的评估学生编程能力的方式，它可以让学生在实践中巩固和应用所学知识，提高自己的技能水平。

我们希望大家能够通过VB上机考试，更好地掌握编程技能，为未来的职业发展打下坚实的基础。

全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】考前复习必看资料：PiaoMo整理—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。

窗体的标题为"按钮窗口"。

运行后的窗体如图1所示。

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

图1【操作步骤】步骤1：新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。

表1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。

程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。

注意：程序中不能使用变量，每个事件过程中只能写一条语句。

保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。

图2【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。

步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。

vb上机考试题库及答案86套VB上机考试题库及答案86套1. 选择题- 1.1 VB中，用于声明变量的关键字是（）。

- A. Dim- B. Declare- C. Let- D. Set- 答案：A- 1.2 下列哪个选项是VB中合法的变量名？（）- A. 123abc- B. _name- C. name$- D. name 2- 答案：B2. 填空题- 2.1 VB中，使用（）函数可以将字符串转换为数值。

- 答案：Val- 2.2 在VB中，使用（）关键字可以定义一个数组。

- 答案：Dim3. 简答题- 3.1 简述VB中的事件驱动编程的概念。

- 答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。

4. 编程题- 4.1 编写一个VB程序，实现计算两个数的和并输出结果。

- 答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2Debug.Print "The sum is: " & sum```5. 判断题- 5.1 VB中，使用“=”符号可以比较两个变量的值是否相等。

（） - 答案：错误。

应该使用“==”符号进行比较。

- 5.2 在VB中，可以使用“End”关键字来结束一个程序的执行。

（）- 答案：正确。

6. 综合应用题- 6.1 设计一个VB程序，实现用户输入姓名和年龄，程序输出“欢迎你，[姓名]，你今年[年龄]岁。

”- 答案：```vbSub Main()Dim name As StringDim age As Integername = InputBox("请输入你的姓名：")age = Val(InputBox("请输入你的年龄："))MsgBox "欢迎你，" & name & "，你今年" & age & "岁。

第1套第1题1.基本操作（2小题，每小题15分，共计30分）（1）在名称为Form1的窗体上画一个标签（名称为Label1，标题为空白，BorderStyle属性为1，Visible属性为False）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”），如图1所示。

然后编写命令按钮的Click事件过程。

程序运行后，在文本框中输入“计算机等级考试”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容。

运行后的窗体如图2所示。

要求程序中不得使用任何变量。

*注意：存盘时必须存放在考生文件夹下，工程文件名为lq1.vbp，窗体文件名为lq1.frm。

图1 图2（2）在名称为Form1的窗体上画一个文本框（名称为Text1）和一个水平滚动条（名称为HScroll1），如图1所示。

在属性窗口中对滚动条设置如下属性：Min 500Max 2000LargeChange 50SmallChange 20编写适当的事件过程。

程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.2倍。

运行后的窗体如图2所示。

要求程序中不得使用任何变量。

*注意：存盘时必须存放在考生文件夹下，工程文件名为lq2.vbp，窗体文件名为lq2.frm。

图1 图2第2题2.简单应用（2小题，每小题20分，共计40分）（1）在考生文件夹下有一个工程文件lq3.vbp，请在窗体上画两个单选按钮（名称分别为Option1和Option2，标题分别为“添加项目”和“删除项目”），一个列表框（名称为List1）和一个文本框（名称为Text1），如图1所示。

编写窗体的Click事件过程。

程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目（内容任意，不少于三个），并添加到列表框中；如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。

《VB程序设计》计算机⽔平等级考试样题及参考答案全国⾼等学校计算机⽔平考试《Visual Basic程序设计》考试样题（⼀）、理论题（20分，每⼩题1分）1.在正常安装Visual Basic6.0后，可以通过多种⽅式启动Visual Basic。

以下⽅式中不能启动Visual Basic的是：____D____A)通过“开始”菜单中的“程序”命令B)通过“我的电脑”找到vb6.exe，双击该⽂件名C)通过“开始”菜单中的“运⾏”命令D)进⼊DOS⽅式，执⾏vb6.exe⽂件2.每当窗体失去焦点时会触发的事件是___C____A)ActiveB)DeactiveC)LostFocusD)Initialize3.为了同时改变⼀个活动控件的⾼度和宽度，正确的操作是：___B_____A) 拖拉控件4个⾓上的某个⼩⽅块B) 只能拖拉位于控件右下⾓的⼩⽅块C) 只能拖拉位于控件左下⾓的⼩⽅块D) 不能同时改变控件的⾼度和宽度4. 假定窗体的名称为Form1，对该窗体编写如下代码：Private Sub Form_Load()Form1.Caption=”AAAAA”Me.Caption=”BBBBB”Capt ion=”CCCCC”End Sub程序运⾏后，窗体的标题是__C___A）AAAAAB）BBBBBC）CCCCCD）显⽰出错信息5.__A___属性设置窗体中⽂本和图形的背景颜⾊A）BackColorB）ColorC）TextD）ForeColor6.为了防⽌⽤户随意将光标置于控件上，应该__D__A) 将控件的TabIndex属性设置 0B) 将控件的TabStop属性设置为0C) 将控件的TabStop属性设置为FalseD) 将控件的Enabled属性设置为False7.语句Z=y+1代表___A______A）变量Z取得y+1的值B）变量Z取得变量y的值，然后再加上1的⼀个表达式C）将变量Z存⼊变量y中，再加上1的表达式D）将变量Z存⼊变量y+1中8.下列程序的运⾏结果是_____A____A=5B=-5C=NOT A=BPRINT CA）TrueB）-5C）0D）⽆法输出9.在窗体上画⼀个命令按钮（名称为Command1）编写如下事件过程：Private Sub Commmand1_Click()b=1c=3print a=b+cEnd Sub程序运⾏后，单击命令按钮，输出的结果是_D___A）a=3B）a=b+cC）3D）False10.设有如下的程序段：a$=”BeijingShanghai”b$=Mid(a$,instr(a$,”g”)+1)执⾏上⾯的程序段后，变量b$的值为__B____A）BeijingB）S hanghaiC）B eijingShanghaiD）显⽰出错信息11.下列语句的输出结果是_C___a=sqr(3.61)Print Format(a,”000.000”)A）1.900B）1.9C）001.900D）001.912.执⾏下⾯的代码，在图⽚框中显⽰的是___B___ Private Sub Command_Click()Picture1.print “Bbb”End SubA)名为”Bbb”的图形⽂件B)⽂本”Bbb”C)不显⽰任何信息D)出错13. 在VB中，下列_C__控件属于容器控件A）GridB）TextBoxC）FrameD）CheckBox14. 下列程序的输出结果是__C___Private Sub Command1_Click()For I=1 to 3Print chr(Asc(“a”)+I-1)NextEnd subA)ABCB)97 98 99C)abcD)bcd15. 设 a=10，则执⾏x=iif(a>7,-1,0)后，x的值是_D_A）7B）10C）0D）-116. 阅读程序：Function func(n As Integer) As IntegerSum=0For I=1 to nSum=Sum+(I+1)*INext IFunc=SumEnd FunctionPrivate Sub Command1_Click()Dim a As Integera=3s=func(a)print sEnd Sub程序运⾏后，单击命令按纽，输出结果为：_B___A）15B）20C）8D）3017.假设在窗体上已经添加了通⽤对话框CommonDialog控件并设置好属性，其名称是CommonDialog1，在程序中要显⽰“打开”对话框，使⽤语句是：_A___A）CommonDialog1.Action=1B）CommonDialog1.Action=2C）CommonDialog1.Action=3D）CommonDialog1.Action=418.在窗体上画两个标签和⼀个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：Private Sub func(L as label,ByVal a As integer)L.Caption=”1234”a=a*aEnd SubPrivate Sub Form_Load()Label1.Caption=”ABCD”Label2.Caption=10End SubPrivate Sub Command1_Click()a=val(Label2.Caption)call func(label1,a)label2.caption=aEnd Sub程序运⾏后，单击命令按纽，在两个标签Label1和Label2中显⽰的内容分别是_D_A) ABCD和10B) 1234和100C) ABCD和100D） 1234和1019. 要判断在⽂本框内是否按下了回车键，可以在⽂本框的_C__事件过程中进⾏判断A) ChangeB) ClickC) KeyPressD) GotFocus20. 下列控件可以⽤来显⽰⽂件的是__B_A）DirListBoxB）F ileListBoxC）D riveListBoxD）ListBox（⼆）操作题1．简单操作（35分）（1）在Form1的窗体上画⼀个命令按钮，名称为Command1，标题为“未按下”。

1◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆【基本操作】(1)【操作步骤】步骤1：打开Visual Basic，按照题目的要求新建窗体并添加一个水平滚动条控件。

步骤2：在属性窗口中，按题照目的要求设置水平滚动条的相关属性步骤3：按照题目的要求，在窗体上添加两个标签控件。

步骤4：按照题目的要求设置两个标签的相关属性。

程序中用到的控件及属性见表3。

1。

表3。

1控件滚动条标签1 标签2属性Name Min Max Large－ChangeName Caption Name Caption 设置值H1 1 100 10 L1 1 L2 100 步骤5:按下键盘上的F5键运行程序。

步骤6:按题目要求保存工程和窗体文件。

（2）【操作步骤】步骤1：新建窗体，按表3.2建立菜单项并设置其属性。

表3。

2标题操作复制清除名称M1 Copy Clear内缩符号0 1 1图3.7步骤2:同步骤3，输入第3项的标题和名称，单击确定即可。

步骤3：添加文本框控件，按照表3.3设置文本框的属性。

表3。

3控件文本框1 文本框2属性Name Name设置值Text1 Text2步骤4:编写程序代码.参考答案Private Sub Clear_Click（)Text2。

Text = ””End SubPrivate Sub Copy_Click（)Text2.Text = Text1.TextEnd Sub步骤7：调试并运行程序，关闭程序后按题目要求存盘.【简单应用】（1)【操作步骤】步骤1：打开本题工程文件，按照题目要求建立控件数组。

步骤2：按照题目要求设置控件的属性，见表3。

4。

参考答案第一个？处填入：Index第二个？处填入：a（2）【操作步骤】步骤1:打开本题工程文件，按照题目要求建立框架控件并设置其属性.步骤2:按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.5和表3。

6。

表3.6控件单选按钮1 单选按钮2 单选按钮3 单选按钮4属性Name Caption Name Caption Name Caption Name Caption 设置值Op1 男Op2 女Op3 学生Op4 老师步骤4:分析并编写程序代码。

1.1上机模拟试题1解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub Command1_Click()Image1.Picture = LoadPicture(App.Path & "\图片.jpg") End SubPrivate Sub Command2_Click()Image1.Picture = LoadPicture("")End Sub2. 简单操作(1) 程序代码如下：Private Sub Command2_Click()Dim i As Integer, max As Integer, N As IntegerFor i = 1 To 100If a(i) = (Int(Sqr(a(i)))) ^ 2 ThenIf a(i) > max Thenmax = a(i)End IfN = N + 1End IfNext iText1.Text = CStr(max)Text2.Text = CStr(N)End Sub(2)' ? "a0001" 其中?改为：List1.AddItem' For i = 0 To ? 其中?改为：List1.ListCount - 1' List1.ListIndex = ? 其中?改为：i' ? Text1.Text 其中?改为：List1.AddItem' ? 其中?改为：End3. 综合应用' a(i) = Fix(Rnd * ? + 1) 其中?改为：100' For j = 1 To ? 其中?改为：i - 1' i = ? 其中?改为：i - 1' If a(i) = ? Then 其中?改为：num' If ? > 10 Then 其中?改为：i1.2上机模拟试题2解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub HS1_Change()Text1.Width = HS1.ValueEnd Sub2. 简单操作(1)' While (k < List2.?) 其中?改为：ListCount' If ?.Selected(k) = True Then 中?改为：List2' List2.RemoveItem ? 其中?改为：k' List1.RemoveItem List1.? 其中?改为：List1.ListIndex(2) 程序代码如下：Private Sub C1_Click()For i = 0 To 2If Op1(i).Value = True Thenn = Left(Op1(i).Caption, 2)t = 1For j = 1 To nt = t * jNext jEnd IfNext iText1 = tEnd Sub3. 综合应用' CD1.FilterIndex = ? 其中?改为：2' Text1.Text = ? 其中?改为：a' CD1.Action = ? 其中?改为：2程序代码如下：Private Sub C2_Click()Text1.Text= UCase(Text1.Text)End Sub1.3上机模拟试题3解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub C1_Click()Text2.Text = Text1.TextEnd Sub2. 简单操作(1)' S1 = ? 其中?改为：Text1.Text' Do While Mid(S1, I1, 1) <> ? And I1 <= Len(S1) 其中?改为：" "' List1.AddItem ? 其中?改为：S2' S2 = ? 其中?改为：""(2) 程序代码如下：' For i = ? To Cb1.ListCount - 1其中?改为：0' If Cb1.List(i) = Cb1.? Then 其中?改为：Text' Cb1.? Cb1.Text 其中?改为：AddItem3. 综合应用程序代码如下：Private Sub Form_Load()Dim str As StringOpen App.Path + "\in5.txt" For Input As #1Do While Not EOF(1)Input #1, strText1.Text = Text1.Text + strLoopClose #1End SubPrivate Sub C1_Click()Open App.Path + "\out5.txt" For Output As #2Print #2, Text1.TextClose #2End Sub1.4上机模拟试题4解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub Command1_Click()Shape1.Shape = 3End SubPrivate Sub Command2_Click()Shape1.BorderColor = &HFF&End Sub2. 简单操作(1)' Select Case ? 其中?改为：Index' Timer1.Enabled =? 其中?改为：True' If Picture1.Left + Picture1.Width >= ? Then 其中?改为：Form2.Width ' Picture1.Left = ? 其中?改为：0(2)' If ? = True Then 其中?改为：Option1.Value = True' If ? = True Then 其中?改为：Option3.Value = True' Label2.Caption = ? 其中?改为：s3. 综合应用程序代码如下：Private Sub Command1_Click()'====考生编写程序开始====Dim i As Integer, j As Integer, max As Integermax = a(1, 1)For i = 1 To 4For j = 1 To 4If max < a(i, j) Then max = a(i, j)Next jNext iLabel3.Caption = max'====考生编写程序结束===='不得修改以下部分save Label3End SubPrivate Sub Command2_Click()'====考生编写程序开始====Dim i As Integer, j As Integer, sum As Integer sum = 0For i = 1 To 4For j = 1 To 4If i = j Then sum = sum + a(i, j)Next jNext iLabel4.Caption = sum'====考生编写程序结束===='不得修改以下部分save Label4End Sub1.5上机模拟试题5解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()Call sub1End SubPrivate Sub Timer1_Timer()Text1.Text = Text1.Text + 1End Sub2.简单操作(1)' For i = 1 To ? 其中?改为：5' For j = 1 To ? 其中?改为：2 * i - 1' For j = 1 To ? 其中?改为：i + 1' For j = 1 To ? 其中?改为：9 - 2 * i(2)' ? = False 其中?改为：Timer1.Enabled' Shape2.Top = ? + d * 50 其中?改为：Shape2.Top' If Shape2.Top <= Shape1.? Or Shape2.Top + Shape2.Width >= Shape1.Top + Shape1.Height Then 其中?改为：Top' Shape2.Left = ? + d * 50 其中?改为：Shape2.Left3. 综合应用' n = n + ? 其中?改为：1' List1.AddItem ? 其中?改为：ch$程序代码如下：Private Sub Command2_Click()'需要考生编写的内容Dim x As Single, p As Singlex = Val(Text1.Text)If x < 500 Thenp = 1ElseIf x < 1000 Thenp = 0.98ElseIf x < 1500 Thenp = 0.95ElseIf x < 2000 Thenp = 0.92Elsep = 0.9End IfText2.Text = CStr(Int(x * 0.3 * p))End SubPrivate Sub List1_Click()'需要考生编写的内容Dim i As IntegerFor i = 0 To List1.ListCount - 1If List1.Selected(i) = True ThenText1.Text = CStr(a(i + 1))End IfNext iEnd Sub1.6上机模拟试题6解答1. 基本操作(1) 程序代码如下：Private Sub Command1_Click()Command1.Width = Command1.Width + 100End Sub(2) 程序代码如下：Private Sub L1_Click()Shape1.Shape = Val(L1.List(L1.ListIndex))End Sub2. 简单操作(1)' Call ? 其中?改为：calc(i)' Label2.Caption = ? 其中?改为：Option1(i).Caption' x = ? 其中?改为：Text1' If i Mod 2 ? Then 其中?改为：<>0' Label3.Caption = ? 其中?改为：result(2)' Timer1.Enabled = ? 其中?改为：False' Timer1.Interval = ? 其中?改为：500' If Picture1.Left > ? Then 其中?改为：Form1.Width' Picture1.Left = ? 其中?改为：03. 综合应用程序代码如下：Private Sub Command1_Click()'========考生编写程序开始========Dim i As Integer, N1 As Integer, N2 As Integer, avg As Single, sum As Single For i = 1 To nIf arr(i) >= 60 ThenN1 = N1 + 1ElseN2 = N2 + 1End Ifsum = sum + arr(i)Next iavg = sumText1.Text = CStr(n)Text2.Text = CStr(CInt(avg / n))Text3.Text = CStr(N1)Text4.Text = CStr(N2)'==========考生编写程序结束==============End Sub1.7上机模拟试题7解答1. 基本操作(1) 程序代码如下：Private Sub T1_Change()T2.Text = T1.TextEnd Sub(2) 程序代码如下：Private Sub C1_Click()Text1.Left = 0End Sub2. 简单操作(1)' L1.? Text1.Text 其中?改为：AddItem' L1.RemoveItem ? 其中?改为：L1.ListIndex(2) 程序代码如下：Private Sub C1_Click()If Op1 = True Then Text1 = "需要1小时"If Op2 = True Then Text1 = "需要10小时"If Op3 = True Then Text1 = "需要15小时"End Sub3. 综合应用程序代码如下：Private Sub Command2_Click()'考生应完成的程序Dim i As Integer, sum As Integer, avg As Single, tem1 As Integer, tem2 As Integer, tem3 As IntegerDim str As String, n As IntegerFor i = 1 To 100str = CStr(a(i))tem1 = Val(Mid(str, 1, 1))tem2 = Val(Mid(str, 2, 1))tem3 = Val(Mid(str, 3, 1))If tem1 ^ 3 + tem2 ^ 3 + tem3 ^ 3 = a(i) Thensum = sum + a(i)n = n + 1End IfNext iavg = Int(sum / n)Text1.Text = CStr(avg)End Sub1.8上机模拟试题8解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub HScroll1_Change()Text1.Text = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()Text1.Text = HScroll1.ValueEnd Sub2. 简单操作(1)' Timer1.Enabled = ? 其中?改为：True' If Shape1.Top <= ? Then 其中?改为：Line1.Y1' If Shape1.Top + ? >= Line2.Y1 Then 其中?改为：Shape1.Height(2) 程序代码如下：Private Sub Command2_Click()'考生编写Dim i As Integer, javg As Single, oavg As Single, avg As SingleDim n1 As Integer, n2 As IntegerFor i = 1 To 100If a(i) Mod 2 = 0 Thenoavg = oavg + a(i)n1 = n1 + 1Elsejavg = javg + a(i)n2 = n2 + 1End Ifavg = avg + a(i)Next ioavg = CInt(oavg / n1)javg = CInt(oavg / n2)avg = CInt(avg / 100)If Combo1.Text = "所有偶数" ThenText1.Text = CStr(oavg)ElseIf Combo1.Text = "所有奇数" ThenText1.Text = CStr(javg)ElseText1.Text = CStr(avg)End IfEnd Sub3. 综合应用' Dim ? 其中?改为：mat(M, N)' Open App.Path & "\" & "datain.txt" ? As #1 其中?改为：For Input ' ? 其中?改为：Input #1, mat(i, j)' ? 其中?改为：mat(i, 4) = t1.9上机模拟试题9解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub Command1_Click()Image1.Picture = LoadPicture(App.Path + "\Misc34.ico")End SubPrivate Sub Command2_Click()Image1.Picture = LoadPicture(App.Path + "\Misc37.ico")End SubPrivate Sub Command3_Click()Image1.Picture = LoadPicture("")End Sub2. 简单操作(1)' For k = 1 To ? 其中?改为：5' If ? < Val(Text1(k).Text) Then 其中?改为：a' s = (s - a - b) / ? 其中?改为：4' s = ? * 3 * Val(Text2.Text) 其中?改为：s' ? = Int(s * 100) / 100 其中?改为：Text3(2) 程序代码如下：'需考生编写的程序Private Sub Command1_Click()Dim i As Integer, j As Integer, sum As Long, mul As Long sum = 0: mul = 1If Option1.Value = True ThenFor i = 1 To nmul = mul * iNext iText1.Text = CStr(mul)ElseFor j = 1 To nsum = sum + jNext jText1.Text = CStr(sum)End IfEnd Sub3. 综合应用' Text4 = Text4 & a & " " & ? 其中?改为：b' a = ? 其中?改为：b' If k <= ? Then 其中?改为：n' ? = d 其中?改为：b1.10上机模拟试题10解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub Form_Click()Label1.Top = 0Label1.Left = Form1.Width - Label1.WidthEnd Sub2. 简单操作(1)' arrN(i) = Int(Rnd * ?) 其中?改为：1001' ? = arrN(1) 其中?改为：Min' If ? Then 其中?改为：arrN(i) < Min(2) 程序代码如下：Function Fun()Dim i As Integer, j As IntegerFor i = 0 To 1000If i Mod 7 <> 0 Then j = j + 1Next iFun = jEnd Function3. 综合应用程序代码如下：Private Sub C1_Click()Call ReadData1Call ReadData2End SubPrivate Sub C2_Click()Dim Arr3(20) As Integer, i As Integer, sum As IntegerFor i = 1 To 20Arr3(i) = Arr1(i) - Arr2(i)sum = sum + Arr3(i)Next iPrint sumCall WriteData("dataout.txt", sum)End Sub1.11上机模拟试题11解答1. 基本操作(1) 程序代码如下：Private Sub Command1_Click()Text1.Text = InputBox("请输入身高:")Text2.Text = InputBox("请输入体重:")End Sub(2) 程序代码如下：Private Sub Command1_Click()VScroll1.Min = 100VScroll1.Max = 2400rgeChange = 200VScroll1.SmallChange = 20End SubPrivate Sub VScroll1_Change()Picture1.Height = VScroll1.ValueEnd Sub2. 简单操作(1)' List1.AddItem ? 其中?改为：Text1.Text' For i = 0 To ? 其中?改为：List1.ListCount - 1' If List1.List(i) = ? Then 其中?改为：Text1.Text ' List1.RemoveItem ? 其中?改为：i(2)' Start = ?(a) 其中?改为：LBound' Finish = ?(a) 其中?改为：UBound' Max = ?(Start) 其中?改为：a' If a(i) ? Max Then Max = ? 其中?改为：>、a(i)' arr2(i) = CInt(?) 其中?改为：arr1(i)' M = FindMax(?) 其中?改为：arr23. 综合应用程序代码如下：Option Base 1Dim Arr(100) As Integer, sum As IntegerSub ReadData()Open App.Path & "\" & "datain1.txt" For Input As #1For i = 1 To 100Input #1, Arr(i)Next iClose #1End SubSub WriteData(Filename As String, Num As Integer)Open App.Path & "\" & Filename For Output As #1 Print #1, NumClose #1End SubPrivate Sub Calc_Click()Dim i As IntegerFor i = 1 To 100If i Mod 2 <> 0 ThenText1.Text = Text1.Text & Arr(i) & " "sum = sum + Arr(i)End IfNext iPrint sumEnd SubPrivate Sub Read_Click()Call ReadDataEnd SubPrivate Sub Save_Click()Call WriteData("dataout.txt", sum)End Sub1.12上机模拟试题12解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub Command1_Click()Text1.FontBold = TrueEnd SubPrivate Sub Command2_Click()Text1.FontItalic = TrueEnd Sub2. 简单操作(1)' Select Case ? 其中?改为：Index' Text1.Text = ?.Text + 1 其中?改为：Text1(2)' If num = ? Then Exit For 其中?改为：num ' If ? Then 其中?改为：i > n' For j = i To ? 其中?改为：n' a(j) = ? 其中?改为：a(j + 1)' For k = 1 To ? 其中?改为：n3. 综合应用' sl = ? 其中?改为：Text1.SelLength' a(n) = ? 其中?改为：a(n) + 1' For j = ? To 26 其中?改为：2' If ? Then 其中?改为：a(j) > max_n' If ? Then 其中?改为：a(i) = max_n1.13上机模拟试题13解答1. 基本操作(1) 程序代码如下：Private Sub C1_Click()Form1.BackColor = &HFF&End Sub(2) 程序代码如下：Private Sub Form_Load()List1.AddItem 1List1.AddItem 2List1.AddItem 3List1.AddItem 4List1.AddItem 5End SubPrivate Sub List1_Click()Shape1.FillStyle = List1.TextEnd Sub2. 简单操作(1)' If ? = True Then 其中?改为：Option1(i).Value' y = val(Option1(i).?) 其中?改为：Caption' Do While i <= ? 其中?改为：5' List1.AddItem ? 其中?改为：x(2)' Timer1.Interval = ? 其中?改为：500' VScroll1.? = Picture1.Top 其中?改为：Value' Picture1.Top = ? 其中?改为：03. 综合应用程序代码如下：Private Sub Command1_Click()'========以下考生编写程序开始=======Dim i As Integer, n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer, n5 As IntegerFor i = 1 To nIf arr(i) <= 59 Thenn1 = n1 + 1ElseIf arr(i) <= 69 Thenn2 = n2 + 1ElseIf arr(i) <= 79 Thenn3 = n3 + 1ElseIf arr(i) <= 89 Thenn4 = n4 + 1Elsen5 = n5 + 1End IfNext iText1.Text = CStr(n)Text2.Text = CStr(n1)Text3.Text = CStr(n2)Text4.Text = CStr(n3)Text5.Text = CStr(n4)Text6.Text = CStr(n5)'======"考生编写程序结束"=======================End Sub1.14上机模拟试题14解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub C1_Click()HS1.Value = HS1.Value + 10End Sub2. 简单操作(1) 程序代码如下：Private Sub M1_Click()Text1.FontBold = TrueEnd SubPrivate Sub M2_Click()Text1.FontItalic = TrueEnd SubPrivate Sub M3_Click()Text1.FontUnderline = TrueEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu FormatEnd IfEnd Sub(2)' Form2. ? 其中?改为：Show' Form2.Print Form1.Frame1. ? ; "："; 其中?改为：Caption' If Form1.Op1( ? ).Value Then 其中?改为：k' Text2. ? = "*" 其中?改为：PasswordChar3. 综合应用程序代码如下：' If ? = "123456" Then 其中?改为：Text1.Text' Text1.? = "" 其中?改为：PasswordChar' If Text2.Text > ? Then 其中?改为：0' Text1.Enabled = ? 其中?改为：False1.15上机模拟试题15解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub Form_Click()List1.RemoveItem List1.ListCount - 1End SubPrivate Sub Form_Load()List1.List(List1.ListCount - 1) = "英语"End Sub2. 简单操作(1) 程序代码如下：Private Sub Option1_Click()Text1.Alignment = 0End SubPrivate Sub Option2_Click()Text1.Alignment = 2End SubPrivate Sub Option3_Click()Text1.Alignment = 1End SubPrivate Sub Option4_Click()Text1.FontName = "宋体"End SubPrivate Sub Option5_Click()Text1.FontName = "黑体"End Sub(2)' ? 其中?改为：Timer1.Enabled = False' For k = 0 To 359 Step ? 其中?改为：30' x = radius * Cos(k * 3.14159 / 180) + ? 其中?改为：X0' Line1.? = y0 - len1 * Sin(a * 3.14159 / 180) 其中?改为：Y2 ' b = ? - 30 / 12 其中?改为：b3. 综合应用' s = ? 其中?改为：0' For k = 2 To ? 其中?改为：7' getmark = s * 3 * ? 其中?改为：a(n, 8)程序代码如下：Private Sub Command2_Click()' 要求考生编写的程序Dim i As Integer, max As Single, str As String max = getmark(1)str = athlete(1)For i = 2 To 5If max < getmark(i) Thenmax = getmark(i)str = athlete(i)End IfNext iText2.Text = strText3.Text = CStr(max)End Sub1.16上机模拟试题16解答1. 基本操作(1) 程序代码如下：Private Sub Dis_Click()Text1 = "等级考试"End SubPrivate Sub Clea_Click()Text1 = ""End Sub(2) 程序代码如下：Private Sub L1_DblClick()L1.AddItem Text1End Sub2. 简单操作(1) 程序代码如下：Private Sub Form_Click()If Op1.Value = True ThenIf Op3.Value ThenLab1.Caption = "坐飞机去广州"ElseIf Op4.Value ThenLab1.Caption = "坐飞机去昆明"End IfElseIf Op3.Value ThenLab1.Caption = "坐火车去广州"ElseIf Op4.Value ThenLab1.Caption = "坐火车去昆明"End IfEnd IfEnd Sub(2) 程序代码如下：Private Sub C1_Click()If Op1.Value Thent = Text1.TextText1.Text = Text2.TextText2.Text = tLab1.Caption = "交换成功"ElseLab1.Caption = Text1.Text + Text2.TextEnd IfEnd Sub3. 综合应用程序代码如下：Dim sum as IntegerPrivate Sub C1_Click()Call ReadData1Call ReadData2End SubPrivate Sub C2_Click()Dim i As Integer, Arr3(20) As IntegerFor i = 1 To 20Arr3(i) = Int(Arr1(i) / 10) * Int(Arr2(i) / 10) sum = sum + Arr3(i)Next iPrint sumEnd SubPrivate Sub C3_Click()Call WriteData("dataout.txt", sum)End Sub1.17上机模拟试题17解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub Command1_Click()Label1 = DateEnd SubPrivate Sub Command2_Click()Label1 = TimeEnd Sub2. 简单操作(1) 程序代码如下：Private Sub Command2_Click()'考生编写Dim i As Integer, avg As Single, N As IntegerFor i = 1 To 100If a(i) = (Int(Sqr(a(i)))) ^ 2 Thenavg = avg + a(i)N = N + 1End IfNext iavg = Int(avg / N)Text1.Text = CStr(avg)End Sub(2)' If Command1.Caption = ? Then 其中?改为："演示"' ? = True 其中?改为：Timer1.Enabled' ? = False 其中?改为：Timer1.Enabled' If ? > Form1.Width Then 其中?改为：Label1.Left' Label1.Left = ? + 100 其中?改为：Label1.Left3. 综合应用' a(i) = Fix(Rnd * ? + 1) 其中?改为：9' For j = 1 To ? 其中?改为：i - 1' If b(i) > ? Then fmax = b(i) 其中?改为：fmax' If b(i) = ? Then 其中?改为：fmax' ? 其中?改为：End1.18上机模拟试题18解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub Command1_Click()Text2 = Text1.SelLengthEnd Sub2. 简单操作(1)' st = ? & ch 其中?改为：st' ? = Mid(st, k, 1) 其中?改为：c' ? = "" 其中?改为：word(2)' CD1.? = "所有文件|*.*|文本文件|*.txt|Word文档|*.doc" 其中?改为：Filter ' CD1.? 其中?改为：ShowOpen' Open ? For Input As #1 其中?改为：CD1.FileName' ? 其中?改为：Close #13. 综合应用程序代码如下：Private Sub Command1_Click()'考生编写程序开始'======================================Dim i As Integer, j As Integer, a As Integer, b As Integer, max As IntegerDim n As Integern = Val(Text1.Text)For i = 2 To nFor j = 2 To nIf IsPrime(i) And IsPrime(j) ThenIf i + j = n ThenIf max < Abs(i - j) Thenmax = Abs(i - j)a = ib = jEnd IfEnd IfEnd IfNext jNext iLabel1.Caption = aLabel2.Caption = b'========================================='考生编写程序结束Open App.Path & "\out5.dat" For Output As #1Print #1, Text1.Text, Label1.Caption, Label2.CaptionClose #1End Sub1.19上机模拟试题19解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub Command1_Click()Text1.PasswordChar = ""End SubPrivate Sub Command2_Click()Text1.PasswordChar = "*"End SubPrivate Sub Command3_Click()Text1.Text = ""Text1.SetFocusEnd Sub2. 简单操作(1)' ? = InputBox("请输入一个整数") 其中?改为：n' If m Mod k = ? Then 其中?改为：0' ? 其中?改为：fun = s(2)' For k = List1.ListCount - 1 To 0 ? 其中?改为：Step -1' List2.AddItem ? 其中?改为：List1.List(k)' List1.RemoveItem ? 其中?改为：k' Text1 = ? & " " & List2.List(k) 其中?改为：Text13. 综合应用' stepx = ? 其中?改为：Sgn(x - x0) * 50' ? = a * stepx 其中?改为：stepy' ? = True 其中?改为：Timer1.Enabled' ? = False 其中?改为：Timer1.Enabled' Shape1.Move Shape1.Left + stepx, Shape1.Top + ? 其中?改为：stepy1.20上机模拟试题20解答1. 基本操作(1) 程序代码如下：Private Sub Clea_Click()P1.ClsEnd SubPrivate Sub Dis_Click()P1.Print "等级考试"End Sub(2) 程序代码如下：Private Sub L1_DblClick()L1.AddItem L1.TextEnd Sub2. 简单操作(1) 程序代码如下：Private Sub Form_Click()If Op1.Value ThenIf Op3.Value ThenText1.Text = "坐" & Op1.Caption & "去" & Op3.Caption ElseIf Op4.Value ThenText1.Text = "坐" & Op1.Caption & "去" & Op4.Caption End IfElseIf Op2.Value ThenIf Op3.Value ThenText1.Text = "坐" & Op2.Caption & "去" & Op3.Caption ElseIf Op4.Value ThenText1.Text = "坐" & Op2.Caption & "去" & Op4.Caption End IfEnd IfEnd Sub(2) 程序代码如下：Private Sub Text3_Click()If Op1.Value Thent = Text1.TextText1.Text = Text2.TextText2.Text = tText3.Text = "交换成功"ElseText3.Text = Text1.Text + Text2.TextEnd IfEnd Sub3. 综合应用程序代码如下：Private Sub C1_Click()ReadData1ReadData2End SubPrivate Sub C2_Click()Dim c(20) As IntegerFor i = 1 To 20c(i) = Arr1(i) \ Arr2(i)s = s + c(i)Print sNext iEnd SubPrivate Sub C3_Click()WriteData "dataout.txt", sEnd Sub1.21上机模拟试题21解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub Command1_Click()Text1.Enabled = TrueEnd SubPrivate Sub Text1_Change()Text2 = UCase(Text1)End Sub2. 简单操作(1) 程序代码如下：Private Sub Command2_Click()'考生编写Dim i As Integer, t As IntegerFor i = 1 To 10t = a(i)a(i) = a(21 - i)a(21 - i) = tNext i' 以下程序段将已变换的数组元素显示在Text2文本框中 For k = 1 To 20Text2 = Text2 + Str(a(k)) + Space(2)Next kEnd Sub(2)' If ? Then 其中?改为：sl = 0' For i = 1 To ? 其中?改为：sl' a(n) = ? 其中?改为：1' For i = 1 To ? 其中?改为：263. 综合应用' n =? 其中?改为：n - 1' ? = Text1 其中?改为：stud(n).Num' For k = ? To n 其中?改为：j + 1 To n' If stud(k).Average > stud(j).? Then 其中?改为：Average ' stud(k) = ? 其中?改为：stud(j)1.22上机模拟试题22解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub Command1_Click()CommonDialog1.Action = 2End Sub2. 简单操作(1)' Line1.Y2 = ? 其中?改为：Y' Line1.X2 = Line1.? 其中?改为：X1' Line1.Y2 = y0 - ? 其中?改为：radius' ? = "鼠标位置不对" 其中?改为：Label1.Caption(2)' If n > ? Or n < 8 Then 其中?改为：12程序代码如下：Private Sub Command2_Click()Dim s As Long, k As Integers = 0For k = 1 To ns = s + f(k)Next kText1.Text = sEnd SubFunction f(n As Integer) As Long' s = ? 其中?改为：1' f = ? 其中?改为：sEnd Function3. 综合应用' n = n + ? 其中?改为：1' ElseIf finduser(Trim$(Text1)) > ? Then 其中?改为：0' ? = "注册成功！" 其中?改为：bel1.Caption' If k = ? Then 其中?改为：0' ElseIf Trim$(Text2) <> users( ? ) Then 其中?改为：k, 2 1.23上机模拟试题23解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub Command1_Click()Text2.Text = Text1.SelStartText3.Text = Text1.SelLengthEnd Sub2. 简单操作(1)' HScroll1.Max = Shape2.Width + Shape2.Left - Shape1. ? 其中?改为：Shape1.Width ' VScroll1.Max = Shape2.Height + ? - Shape1.Height 其中?改为：Shape2.Top ' ? = HScroll1.Value 其中?改为：Shape1.Left' Shape1.Top = ? 其中?改为：VScroll1.Value(2)' Timer1.? = True 其中?改为：Enabled' ? = False 其中?改为：Timer1.Enabled' d = ? - Image1.Top 其中?改为：d' t = ? 其中?改为：t + 13. 综合应用程序代码如下：Private Sub Command2_Click()'考生编写程序开始'======================================For k = 1 To 30c(k) = a(k)c(30 + k) = b(k)Next kFor i = 1 To 59For j = i + 1 To 60If c(i) > c(j) Thent = c(i)c(i) = c(j)c(j) = tEnd IfNext jNext i'========================================='考生编写程序结束' 以下程序将合并后的数组C显示在Text3中For k = 1 To 60Text3 = Text3 + Str(c(k)) + Space(2)Next kEnd Sub1.24上机模拟试题24解答1. 基本操作(1) 程序代码如下：Private Sub Clea_Click()ClsEnd SubPrivate Sub Dis_Click()Print "等级考试"End Sub(2) 程序代码如下：Private Sub L1_DblClick()Lab1.Caption = L1.ListCountEnd Sub2. 简单操作(1) 程序代码如下：Private Sub Text1_Click()If Op1 = True ThenIf Op3 = True ThenText1 = "坐汽车去青岛"ElseText1 = "坐汽车去大连"End IfElseIf Op3 = True ThenText1 = "坐轮船去青岛"ElseText1 = "坐轮船去大连"End IfEnd IfEnd Sub(2) 程序代码如下：Private Sub C1_Click()If Op1 = True ThenText1 = "计算机"Text2 = "等级考试"Lab1 = "交换成功"ElseLab1 = "计算机" & "等级考试"End IfEnd Sub3. 综合应用程序代码如下：1.25上机模拟试题25解答1. 基本操作(1) 程序代码如下：Private Sub Command1_Click()Form1.Caption = Text1.Text & "," & Label2.Caption & " " & Text2.Text End Sub(2) 程序代码如下：Private Sub HScroll1_Scroll()Form1.Width = HScroll1.ValueForm1.Height = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Form1.Width = VScroll1.ValueForm1.Height = VScroll1.ValueEnd Sub2. 简单操作(1)' List1.AddItem ? 其中?改为：Text1.Text' For i = 0 To ? 其中?改为：List1.ListCount - 1' If List1.List(i) = ? Then 其中?改为：Text1' List1.RemoveItem ? 其中?改为：i(2)' Start = ?(a) 其中?改为：LBound' Finish = ?(a) 其中?改为：UBound' Sum = ? 其中?改为：0' Sum = Sum + ? 其中?改为：a(i)' Average = ? 其中?改为：Sum / (Finish - Start + 1) ' Aver = Average(?) 其中?改为：arr23. 综合应用程序代码如下：Private Sub Calc_Click()For i = 1 To 100If Arr(i) Mod 3 = 0 Thensum = sum + Arr(i)Text1.Text = Text1.Text + CStr(Arr(i)) + Space(2)End IfNext iPrint sumEnd SubPrivate Sub Read_Click()Call ReadDataEnd SubPrivate Sub Save_Click()Call WriteData("dataout.txt", sum)End Sub1.26上机模拟试题26解答1. 基本操作(1) 程序代码如下：Private Sub Dis_Click()Text1 = "等级考试"End SubPrivate Sub Exit_Click()EndEnd Sub(2) 程序代码如下：Private Sub L1_DblClick()L1.RemoveItem L1.ListIndexEnd Sub2. 简单操作(1) 程序代码如下：Private Sub C1_Click()If Op1.Value ThenIf Op3.Value ThenText1.Text = "坐" & Op1.Caption & "去" & Op3.Caption ElseIf Op4.Value ThenText1.Text = "坐" & Op1.Caption & "去" & Op4.Caption End IfElseIf Op2.Value ThenIf Op3.Value ThenText1.Text = "坐" & Op2.Caption & "去" & Op3.Caption ElseIf Op4.Value ThenText1.Text = "坐" & Op2.Caption & "去" & Op4.Caption End IfEnd IfEnd Sub(2) 程序代码如下：Private Sub Op1_Click()t = Text1.TextText1.Text = Text2.TextText2.Text = tText3.Text = "交换成功"Op1.Visible = FalseEnd SubPrivate Sub Op2_Click()Text3.Text = Text1.Text + Text2.TextEnd Sub 3. 综合应用程序代码如下：Private Sub C1_Click()ReadData1ReadData2End SubPrivate Sub C2_Click()Dim Arr3(20) As IntegerFor i = 1 To 20Arr3(i) = Arr1(i) + Arr2(i)s = s + Arr3(i)Next iPrint sEnd SubPrivate Sub C3_Click()WriteData "dataout", sEnd Sub1.27上机模拟试题27解答1. 基本操作(1) 略(2) 程序代码如下：Private Sub Command1_Click()Label1.FontName = "宋体"End SubPrivate Sub Command2_Click()Label1.FontName = "黑体"End Sub2. 简单操作(1)' ? = Str(Time()) 其中?改为：Text1(0).Text' s = ? + (m - 3) * 0.15 其中?改为：s' ?= True 其中?改为：Cmd1.Enabled' ?= False 其中?改为：Cmd2.Enabled(2)' Open App.Path & "\in4.txt" For ? As #1 其中?改为：Input' s(i) = ? 其中?改为：s(i) + a(i, j)' ? = CInt(s(i) / 10) 其中?改为：s(i)' Shape1(k - 1).Top = ? - Shape1(k - 1).Height 其中?改为：m' Shape1(k - 1).? = True 其中?改为：Visible3. 综合应用程序代码如下：Private Sub Command2_Click()'需考生编写Dim n As Integer, i As Integer, c As String, lastword As StringDim curword As String, maxword As String, curlen As Integer, maxlen As Integer n = Len(s)For i = 1 To nc = Mid(s, i, 1)If c <> " " Thencurword = curword & ccurlen = curlen + 1ElseIf maxlen <= curlen Thenmaxlen = curlenmaxword = curwordEnd Ifcurlen = 0curword = ""End IfNext iIf maxlen <= curlen Thenmaxlen = curlenmaxword = curwordEnd IfText1.Text = CStr(maxlen)Text2.Text = maxwordEnd Sub。

计算机等级考试上机练习题一、程序设计题（一）操作说明：浙江省计算机等级考试（二级VB）上机测试的程序设计题，从2002年秋季开始，其题型及考试要求都有较大变化。

要求考生在老考生目录中，按照题目要求，自己新建一工程文件Design.Vbp，按题目要求完成界面设计和编写相应事件代码。

程序设计题的操作步骤如下：1．考生在单击“回答”按钮后，便可启动Visual Basic6.0系统，同时运行考生目录中的Design.exe文件，以便考生设计时随时同程序设计要求最终效果比较。

2．程序界面设计，要求考生设置窗体指定的一些属性，在窗体添加控件，并设置控件的某些属性。

3．编写程序代码，根据题目的要求，在代码窗口中编写相应事件的程序代码，调试运行程序使其程序的运行效果与运行Design.exe的效果相同。

4．将工程以文件名“Design.Vbp”，窗体以文件名“Design.Frm”保存在考生文件夹中。

（二）样题选编1．请参考Design.exe程序的运行结果，如图1所示。

新建一个工程，完成“添加与删除”程序的设计。

将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：（1）窗体的标题为“添加与删除”，固定边框。

（2）在窗体中引入一个文本框Text1，再在文本框的下面引入一个列表框List1，列表框内容中有四项，分别为“Word、Excel、PowerPoint、Outlook”。

（3）单击“添加”按钮（Command1），将文本框中的内容加到列表框中的第一题，如果文本框中没有内容，则给出提示“没有内容，不予添加”。

（4）单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择删除的项目”。

图1 “添加与删除”程序运行结果图2 “加法器”程序运行效果2．请参考Design.exe程序的运行结果，如图2所示。

新建一个工程，完成“加法器”程序的设计。

Nexti------2分
Tｅxt2 = m----－-２分
Eｎd Sub
ＰriｖatｅＳub Optioｎ２_Cliｃｋ()----－-1分
Dimi%－-－---2分
ｍ＝１－-----1分
Forｉ=１Tｏn + 2----－-2分
m＝m * i--－－－-2分
Ｎeｘtｉ－-----２分
Text2＝ｍ－－----2分
EndＳuｂ
VB上机综合测试题（二)
1.设计如图所示界面，编程实现如下功能:在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中,其中，平时成绩占最终成绩的30％，考试成绩占最终成绩的70%；单击“清除”按钮,清除文本框中的内容；单击“退出”按钮,关闭窗口。（3５分）
２．设计左图所示界面,编程实现如下功能:单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中（见右图）（25分）。
IfＣheck１(ｋ).ｖaluｅ= 1 Thｅn--－--2分
Text1．Tｅxt＝Tｅｘt1.Tｅxt & Check1(k）．Caｐtｉon＆"＂----－-2分
EndＩf----－－2分
Nｅxtｋ----－-2分
ＥndSub
三、
界面设计----－10-分
Ｐriｖate SuｂCｏmｍａnd１_Ｃliｃk（)------2分
PrivatｅSub Chｅck3_Clｉck()
Text1.FontUnｄｅｒｌine= Check3.Value----－-5分
Ｅnd Suｂ
二、
界面设计-－----10分
ＰriｖateSub Cmd1_Clｉcｋ()-－--－-２分
Ｄｉma％（19), i%, suｍ!, aｖer!--－－－-４分