VB上机考试 习题以及答案
国家二级VB机试(上机操作)模拟试卷400(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷400(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visua，Basic应用程序(包括界面和代码)。
(1)在名称为Form1标题为“选课”的窗体上画一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框处于选中状态，运行时的窗体如图3—147所示。
请画控件并设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为HS1的水平滚动条，其刻度值范围为1～100；画一个命令按钮，名称为C1，标题为“移动滚动框”。
请编写适当的事件过程，使得在运行时，每单击命令按钮一次(假定单击次数少于10次)，滚动框向右移动10个刻度。
运行时的窗体如图3—148所示。
要求程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个“标准EXE”工程。
步骤2：在窗体Form1中加入一个复选框，并用“复制”和“粘贴”的方法，生成包含四个元素的复选框数组。
步骤3：分别设置窗体和复选框数组中各元素的相关属性。
步骤4：按要求将文件保存至考生文件夹中。
(2)【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置相应属性。
步骤2：在代码编辑窗口，编写命令按钮的Click事件过程。
参考代码：Private Sub C1_Click( )HS1．Value＝HS1．Value＋10End Sub 步骤3：按要求将文件保存至考生文件夹中。
简单应用题2．(1)在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为M1、M2、M3。
vb上机题库及答案
vb上机题库及答案【篇一：vb期末考试上机题编程答案】xt>1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。
所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。
将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在d盘的vbtest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；3、单击“清除”按钮，则将列表框和文本框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于判断一个数是否是幸运数。
解：private sub command1_click()dim i as integer, a as integerfor i = 1000 to 9999if k(i) then list1.additem i: a = a + 1next itext1.text = aend subprivate sub command2_click()list1.cleartext1.text =end subprivate sub command3_click()endend subprivate function k(n as integer) as integerdim i as integer, a as integer, s1 as integer, s2 as integer dims as strings = cstr(n)for i = 1 to len(s) / 2s1 = s1 + mid(s, i, 1)s2 = s2 + mid(s, len(s) + 1 - i, 1)next iif s1 = s2 then k = trueend function2. 新建一个工程，编写求某一自然数因子和的程序。
vb上机试题及答案
vb上机试题及答案一、选择题（每题2分，共10分）1. VB中，用来声明变量的关键字是：A. DimB. SetC. CallD. Function答案：A2. 下列哪个不是VB中的控件事件？A. ClickB. LoadC. PrintD. Resize答案：C3. VB中，用于循环结构的关键字是：A. ForB. NextC. LoopD. Do答案：A4. VB中，用于定义过程的关键字是：A. SubB. FunctionC. DimD. Call答案：A5. VB中，用于定义窗体的关键字是：A. FormB. ClassC. ModuleD. Property答案：A二、填空题（每题2分，共10分）1. VB中，使用________关键字可以定义一个数组。
答案：Dim2. 在VB中，________函数用于将字符串转换为大写。
答案：UCase3. VB中的________函数用于计算字符串的长度。
答案：Len4. 使用________语句可以退出当前循环。
答案：Exit For5. VB中，________语句用于创建一个子程序。
答案：Sub三、简答题（每题5分，共15分）1. 请简述VB中如何声明一个变量，并赋值。
答案：在VB中，使用Dim关键字声明变量，例如Dim myVar As Integer，然后使用赋值语句赋值，例如myVar = 10。
2. 解释VB中什么是事件驱动编程。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件触发，而不是由程序的顺序执行决定。
在VB中，用户操作（如点击按钮）会触发事件，程序响应这些事件执行相应的代码。
3. 描述VB中如何使用条件语句。
答案：在VB中，使用If...Then...Else语句来实现条件判断。
例如，If condition Then '执行代码块 1 Else '执行代码块 2 End If。
四、编程题（每题15分，共30分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
全国计算机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上机练习试题及答案
第一章概述一、基本要求（1）熟悉VB集成开发环境（2）掌握代码窗口的应用及录入、编辑代码的基本方法（3）了解VB程序设计的基本步骤二、实习内容（1）实习熟悉VB集成开发环境各组成部分（2）输入一个数，求该数的平方并显示结果第二章一、基本要求（1）熟练掌握各种运算符的应用和优先顺序（2）掌握各种常用函数的功能、参数和返回值（3）掌握立即窗口的使用方法二、实验内容（1）回答整形、长整型、单精度、双精度类型数据占用字节数。
（2）已知直角三角形的两条直角边长，求斜边长。
Privat e Sub Comman d1_Cl ick()Dim a%, b%, c%a = Val(InputB ox("输入第一条直角边长"))b = Val(InputB ox("输入第二条直角边长"))c = Sqr(a ^ 2 + b ^ 2)PrintcEnd Sub（3）给小学生随机出两位数和一位数的加法题。
Privat e Sub Comman d1_Cl ick()Dim a%, b%, c%a = Val(InputB ox("输入两位数"))b = Val(InputB ox("输入一位数"))c = a + bPrintcEnd Sub（4）用文本框输入一个带小数的数，对输入的数四舍五入保留2位小数。
Privat e Sub Comman d1_Cl ick()Dim x#, y!x = Text1.Texty = Round(x, 2)PrintyEnd Sub（5）输入某人姓名，判断是否你的本家。
Privat e Sub Comman d1_Cl ick()Dim a$, b$, p As Boolea nb = "李"a = InputB ox("输入某人的姓名")If Left(a, 1) = b Thenp = TrueEnd IfPrintpEnd Sub（6）任意输入西安地区的固定电话号码（原为7位），将其升为8位（在原号码前面加8）。
全国计算机 二级 VB上机操作题 题目答案及解析
85 （1）【考点分析】本题考点有：文本框的Name、Height、Width、Font、FontSize属性，窗体的Caption、MaxButton、MinButton属性。
【解题思路】根据题意添加控件并设置相应属性。
不显示窗体的最大化和最小化按钮只需将其MaxButton和MinButton属性设为False即可。
【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。
程序中用到的控件及属性见表3.275。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
（2）【考点分析】本题考点有：图像框的Name、Picture、Stretch属性，命令按钮的Name、Caption属性。
【解题思路】图像框（Image）的Picture属性用于在设计阶段设置在图像框中显示的图片，它的Stretch（自动伸缩）属性用来设定载入其中的图片是否需要自动调整大小，以适应图像框的大小。
本题要在单击按钮时实现"向右移动"或"向下移动"的功能，应在程序中动态设置图像框的Left和Top属性。
【操作步骤】步骤1：建立界面，添加并设置控件的属性。
程序中用到的控件及属性见表3.276。
4 步骤2：编写程序代码。
参考答案Private Sub Command1_Click()Image1.Left = Image1.Left + 100End SubPrivate Sub Command2_Click()Image1.Top = Image1.Top + 100End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（1）【考点分析】本题考点有：命令按钮的Caption属性和Click事件，直线控件的X1、X2、Y1、Y2属性，形状控件的Shape属性，Sin( )函数，Cos( )函数以及计时器的Enabled属性和Timer事件。
【解题思路】Sin( )函数和Cos( )函数分别返回变量的正弦和余弦值；通过X1、X2、Y1、Y2属性来设置直线的端点。
计算机二级考试VB上机模拟题及答案
计算机二级考试VB上机模拟题及答案1.基本操作题(1)将“销售表”中的日期在2000年12月31日前(含2000年12月31日)的记录复制到一个新表2001.dbf中。
(2)将“销售表”中的日期(日期型字段)在2000年12月31日前(含2000年12月31日)的记录物理删除。
(3)打开“商品表”，使用BROWSE命令浏览时，使用“文件”菜单中的选项将“商品表”中的记录生成文件名为“商品表.htm”的HTML格式文件。
(4)为“商品表”创建一个主索引，索引名和索引表达式均是“商品号”;为“销售表”创建一个普通索引(升序)，索引名和索引表达式均是“商品号”。
【参考答案】(1)在“命令”窗口输入命令：SELECT*FROM销售表WHERE日期<=CTOD("12/31/00")INTO TABLE 2001系统将自动查找日期在2000年12月31日前的记录，并复制到一个新表2001.dbf中。
(2)在“命令”窗口输入两条命令：DELETE FROM销售表WHERE日期<=CTOD("12/31/00")&&逻辑删除记录PACK &&物理删除记录通过以上两条命令物理删除“销售表”中日期(日期型字段)在2000年12月31日前的记录。
(3)具体步骤如下：① 在“命令”窗口输入两条命令：USE商品表 &&打开商品表BROWSE &&打开表记录浏览窗口② 在“文件”菜单中选择“另存为HTML(H)...”菜单命令，如图4-18所示。
③ 弹出“另存为HTML”的对话框中，系统默认以“商品表.htm”名保存该文件，单击“确定”按钮保存文件。
(4)具体步骤如下：① 在“命令”窗口输入两条命令：USE商品表 &&打开商品表MODIFY STRUCTURE &&打开表设计器② 在“商品表”的表设计器中，单击“字段”选项卡，选择“商品号”字段，在“索引”下拉列表框中为该字段选择一个排序方式。
VB练习题(上机)含答案
VB练习题(上机)含答案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的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
vb上机考试题库及答案86套
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 & "岁。
计算机二级VB上机操作练习题及答案
计算机二级VB上机操作练习题及答案计算机二级VB上机操作练习题及答案Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，下面店铺为为大家带来计算机二级VB上机操作练习题及答案，希望大家喜欢！一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。
组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。
运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。
再画两个标题分别为“椭圆”和“圆”的命令按钮。
如下图所示。
要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。
二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。
窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。
程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。
运行窗体如图所示。
要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。
最后程序按原文件名存盘。
全国计算机二级VB上机题库(题+答案)
一、基本操作题下面出现的“考生文件夹”均为c:\wexam\20060001。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
1．在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”两个主菜单项（名称分别为vbFile和vbHelp），其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项（名称分别为vbOpen、vbClose和vbExit）。
只建立菜单，不必定义其事件过程。
注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。
2．在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。
编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。
程序中不能使用任何变量，直接显示字符串。
注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。
一、基本操作题答案1．【解题步骤】（1）打开“菜单编辑器”。
（2）菜单设计见表4-1。
表4-1标题名称内缩符号文件vbFile0打开vbOpen1关闭vbClose1退出vbExit1帮助vbHelp0（3）按要求设计含有“文件”和“帮助”的菜单栏。
（4）为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。
（5）设计完成之后，按规定方式存盘。
2．【解题步骤】（1）建立界面和控件并设置控件属性。
程序中用到的控件及其属性见表4-2。
表4-2控件属性设置值按钮Name Cmd1Caption喜欢按钮Name Cmd2Caption不喜欢（2）编写程序代码。
参考代码：Private Sub Cmd1_Click()Print"数理化"End SubPrivate Sub Cmd2_Click()Print"政史地"End Sub（3）调试并运行程序。
VB上机考试 习题以及答案
VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。
Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load() Label1.BorderStyle = 1Label1.Alignment = 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenLabel1.Caption = X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next jNext iFor i = 1 To 25Print a(i);Next iEnd Sub5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
vb试题及答案上机
vb试题及答案上机1. 编写一个VB程序，计算并输出1到100之间所有奇数的和。
答案：```vbDim sum As Integer = 0For i As Integer = 1 To 100If i Mod 2 <> 0 Thensum += iEnd IfNextConsole.WriteLine("1到100之间所有奇数的和为：" & sum)```2. 编写一个VB程序，实现输入一个字符串，然后输出该字符串的反转。
答案：```vbDim inputString As String = Console.ReadLine()Dim reversedString As String = StrReverse(inputString) Console.WriteLine("反转后的字符串为：" & reversedString)```3. 编写一个VB程序，判断一个整数是否为素数，并输出结果。
答案：```vbDim number As Integer = Convert.ToInt32(Console.ReadLine()) Dim isPrime As Boolean = TrueIf number > 1 ThenFor i As Integer = 2 To number / 2If number Mod i = 0 ThenisPrime = FalseExit ForEnd IfNextElseisPrime = FalseEnd IfIf isPrime ThenConsole.WriteLine("该数是素数")ElseConsole.WriteLine("该数不是素数")End If```4. 编写一个VB程序，实现一个简单的计算器，可以进行加、减、乘、除运算。
答案：```vbDim num1 As Double = Convert.ToDouble(Console.ReadLine("请输入第一个数："))Dim num2 As Double = Convert.ToDouble(Console.ReadLine("请输入第二个数："))Dim operation As String = Console.ReadLine("请输入运算符（+、-、*、/）：")Select Case operationCase "+"Console.WriteLine("结果为：" & num1 + num2)Case "-"Console.WriteLine("结果为：" & num1 - num2)Case "*"Console.WriteLine("结果为：" & num1 * num2)Case "/"If num2 <> 0 ThenConsole.WriteLine("结果为：" & num1 / num2)ElseConsole.WriteLine("除数不能为0")End IfCase ElseConsole.WriteLine("无效的运算符")End Select```5. 编写一个VB程序，实现一个简单的学生信息管理系统，可以添加、删除、查询学生信息。
VB上机试题及答案
上机操作练习题1．某数组有20个元素，其值为随机产生的两位整数。
现要求将前10个元素与后10个元素对换。
即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。
在窗体上输出数组原来各元素的值与对换后各元素的值。
Option explicitDim a(1 to 20) as integer, I as integer, j as integer, t as integerPrivate Sub Form_Load()ShowPrint "原始数组是："RandomizeFor i = 1 To 20a(i) = Int(Rnd * 90) + 10Print a(i);If i Mod 10 = 0 Then PrintNext iPrintPrint "现在数组是："For i = 1 To 10j = 21 - it = a(i): a(i) = a(j): a(j) = tNext iFor i = 1 To 20Print a(i);If i Mod 10 = 0 Then PrintNext iEnd Sub2．从数组中删除一个数。
先定义一个一维数组，大小、数组的值自定。
从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中”注意：1）如果数组中存在多个与该数相同的元素，每一个都能删除；2）能实现多次删除Private Sub Form_Load()ShowReDim a(9) As Integerm = 1Print "原来数组为："For i = 0 To 9a(i) = InputBox("请输入第" & m & "个数：")Print a(i);m = m + 1Next iPrintn = InputBox("查找的数是：")i = 0: flag = FalseDoIf a(i) = n Thenj = i: flag = TrueFor k = j To UBound(a) - 1a(k) = a(k + 1)Next kReDim Preserve a(UBound(a) - 1)i = i - 1End Ifi = i + 1Loop While (i <= UBound(a))If flag = False ThenMsgBox n & "不在该数组中"ElsePrint "删除" & n & "后的数组是:"For i = 0 To UBound(a)Print a(i);Next iEnd IfEnd Sub3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
国家二级VB机试(上机操作)模拟试卷304(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷304(题后含答案及解析)题型有：1.jpg />(2)在名称为Form1的窗体上画一个名称为Label1、标题为“口令”的标签；画一个名称为Text1的文本框；再画三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。
程序运行时，在Text1中输入若干字符，单击“隐藏口令”按钮，则只显示同样数量的“*”，如图3—157(b)所示；单击“显示口令”按钮，则显示输入的字符，如图3—157(a)所示，单击“重新输入”按钮，则清除Text1中的内容，并把光标定位到Text1中。
要求：请画出所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在“显示口令”按钮、“隐藏口令”按钮的事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题步骤1：新建一个“标准EXE”工程，画出控件并设置相应属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：在代码编辑窗口，分别编写三个按钮的单击事件过程。
参考代码：Private Sub Command1_Click( )Text1．PasswordChar=““End SubPrivate Sub Command2_Click( )Text1．PasswordChar=“*”End SubPrivate Sub Command3_Click( )Text1=““Text1．SetFocusEnd Sub步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需要在窗体上画出控件并相应设置其属性即可。
第2小题：PasswordChar属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空，使用SetFocus方法可使文本获得焦点。
国家二级VB机试(上机操作)模拟试卷157(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷157(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其标题“等级考试”居中显示，并使标签的外观如图所示。
注意：存盘时必须存放在考生文件夹下，上程文件名保存为sjtl．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Image1的图像框，有边框，并可以自动涮整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Commahd1、Command2、Command3，标题分别为“红桃”、“黑桃”、“清除”。
在考生文件夹下有两个图标文件，其名称分别为“Misc34．ico”和“Misc37．ico”。
程序运行时，单击“黑桃”按钮，则在图像框中显示黑桃图案(Misc37．ieo文件)；单击“红桃”按钮，则在图像框中显示红桃图案(Misc34．ico文件，如图所示)；单击“清除”按钮则清除图像框中的图案，请编写相应控件的Click事件过程，实现上述功能。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置其属性，如图3．32所示。
程序中用件的控件及属性见表3．47。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】步骤1：建立界面，添加相应的控件并设置控件的属性。
程序中涉及的控件及属性见表3．48。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案Private Sub Command1_Click( ) Image1．Picture＝LoadPicture(App．path＆”＼MiSC 34．iCO”)’加载图片End Sub Private Sub Command2_Click( ) Imagel．Picture＝LoadPicture(App．path＆”＼Misc37．ico”) End Sub Private Sub Command3_Click( ) Set Image1．Picture＝Nothing’清除Imagel中的图片End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
国家二级VB机试(上机操作)模拟试卷144(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷144(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为L1的标签，标签上标题为“请输入密码”，添加一个名称为Text1的文本框，其宽、高分别为2000和300，设置适当的属性，使得在输入密码时，文本框中品永为“*”字符，此外再把窗体的标题设置为“密码窗口”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。
注意：存盘时必须存放在考生文件火下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出“单击图片框”，每单击图片框外的窗体一次，就在窗体中输出“单击窗体”，运行时的窗体如图所示。
要求在程序中不得使用变量，每个事什过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照要求建立控件并设置其属性，如图3．11所示。
程序中用到的控件及属性如表3．7所示。
步骤2：调试并运行程序，效果如图3．12所示。
步骤3：关闭程序后按题目要求保存T程和窗体文件。
(2)【操作步骤】步骤1：新建一个窗体，按照题日要求建立控什并设置其属性，如图3．13所示。
步骤2：打开代码编辑窗口，存指定位置编写如下代码。
参考答案Private Sub Form_CliCk( ) Form1．Print”单击窗体”End Sub Private Sub P1_Click( ) P1．Print”单击图片框”End Sub 步骤3：凋试并运行程序，关闭程序后按题目要求存盘。
简单应用题2．(1)在考生文件央下有一个工程文件sit3．vbp，窗体中柯两个图片框，名称分别为P1、P2，其中的图片内容分别是-架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为“发射”，还有一个计时器，名称为Timer1。
国家二级VB机试(上机操作)模拟试卷303(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷303(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“鼠标光标形状”的窗体上画一个名称为Text1的文本框。
请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画两个标签，名称分别为Label1、Label2，标题分别为“开始位置”、“选中的字符数”；画三个文本框，名称分别为Text1、Text2、Text3，再画一个名称为Command1，标题为“显示选中信息”的命令按钮。
程序运行时，在Text1中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号显示在Text2中，选中的字符个数显示在Text3中，如图3—152所示。
要求：画出所有控件，编写命令按钮的Click事件过程。
注意：要求程序中不得使用变量，事件过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。
存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题步骤1：新建“标准EXE”工程。
按要求画出控件并设置相应属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：在代码编辑窗口，编写命令按钮的单击事件过程。
参考代码：Private Sub Command1_CliCk( )Text2=Text1．SelStart+1Text3=Text1．SelLengthEnd Sub步骤3：按要求将文件保存至考生文件夹中。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。
Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load() Label1.BorderStyle = 1Label1.Alignment = 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenLabel1.Caption = X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next jNext iFor i = 1 To 25Print a(i);Next iEnd Sub5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
Dim a(1 To 6)Private Sub Form_Click()For i = 1 To 6a(i) = 0Next iFor j = 1 To 50x = Int(Rnd * (6 - 1 + 1) + 1)a(x) = a(x) + 1Next jFor i = 1 To 6Print i & "出现了" & a(i); "次"Next iEnd Sub6、在文本框中输入一些英语单词，统计空格的个数。
Dim n%, x As String, s% Private Sub Form_Click()n = Len(Text1.Text)x = Text1.TextFor i = 1 To nIf Mid(x, i, 1) = " " Then s = s + 1Next iPrint "共出现了" & s & "个空格"End Sub7、编程计算下列公式的值，其中n (<10)为从键盘输入的正整数。
S=1!+3!+5!+……+(2*n-1)!Private Sub Form_Click()n = Val(InputBox("请输入一个不大于10的整数"))s = 0For i = 1 To 2 * n - 1 Step 2p = 1For j = 1 To ip = p * jNext js = s + pNext iPrint sEnd Sub8、编程计算下列公式的值，其中n (<10)为从键盘输入的正整数。
S=2!+4!+6!+……+(2*n)!Private Sub Form_Click()n = Val(InputBox("请输入一个不大于10的整数"))s = 0For i = 2 To 2 * n Step 2p = 1For j = 1 To ip = p * jNext js = s + pNext iPrint sEnd Sub9、用For …Next语句编程，双击窗体后，在屏幕上显示如图：Private Sub Form_Click()a = 0For i = 1 To 3Print Tab(8 - 2 * i - 1);For j = 1 To 2 * i - 1a = a + 1Print Str(a);Next jPrintNext iEnd Sub10、用For …Next语句编程，双击窗体后，在屏幕上显示如图：Private Sub Form_DblClick()For i = 1 To 3Print Tab(11 - 3 * i);For j = 2 To 10 Step 2Print j;Next jPrintNext iEnd Sub11、用For …Next语句编程，双击窗体后，在屏幕上显示如图：Private Sub Form_Click()For i = 1 To 3x = 2 * i + 1Print Tab(10 - 3 * i);For j = 1 To 5Print x;Next jPrintNext i12、从文本框输入一个正整数，判断该数是否为素数。
Dim a As LongPrivate Sub Form_Click()a = Val(Text1.Text)If a = 2 ThenTag = TrueElseIf a Mod 2 = 0 ThenTag = FalseElseTag = TrueFor i = 3 To Sqr(a) Step 2If a Mod i = 0 Then Tag = False: Exit ForNext iEnd IfIf Tag = True ThenPrint a; "是素数"ElsePrint a; "不是素数"End IfEnd Sub13、利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。
Option ExplicitDim i%, max%, loc%Dim a(1 To 10) As IntegerPrivate Sub Form_Click()RandomizeForm1.ClsFor i = 1 To 10a(i) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i)Next imax = a(1): loc = 1 '变量赋值，假设a(1)为最大数For i = 2 To 10If a(i) > max Then max = a(i): loc = iNext iPrint "最大的数是"; maxPrint "在数组中是第"; loc; "个数"End Sub14、利用随机函数产生并显示10个4位数的正整数，找出其中的最小数。
Option ExplicitDim i%, min%, loc%Dim a(1 To 10) As IntegerPrivate Sub Form_Click()Form1.ClsFor i = 1 To 10a(i) = Int(Rnd * (9999 - 1000 + 1) + 1000)Print a(i)Next imin = 9999For i = 1 To 10If a(i) < min Then min = a(i): loc = iNext iPrint "最小的数是"; minPrint "在数组中是第"; loc; "个数"End Sub15、当按下鼠标左键时，窗体的背景色变为红色；松开鼠标左键时，窗体的背景色变为绿色。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbRedEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbGreenEnd Sub16、编制一个时钟程序，如下图：Option ExplicitPrivate Sub Form_Load()Label1.BackColor = vbWhiteLabel1.BorderStyle = 1Label1.Alignment = 2Timer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Label1.Caption = TimeEnd Sub17、从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。
OptionExplicitDim i%Dim a(1 To 10) As SinglePrivate Sub Form_Click()For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iPrintFor i = 10 To 1 Step -1Print a(i);Next iEnd Sub18、计算圆面积的程序。
程序运行时，单击窗体，然后在下图所示的输入框中输入圆的半径，即可在窗体上显示计算出的圆面积。
Option ExplicitDim r%, a As SingleConst pi As Single = 3.14159Private Sub Form_Click()r = Val(InputBox("请输入圆半径" & vbCrLf & "（1-9）：", "输入", 5))a = pi * r ^ 2Print "半径为"; r; "的圆面积为"; aEnd Sub19、编写一个时钟程序，当选择“24小时”时，以24小时的方式显示如A，当选择“12小时”时，以12小时的方式显示如B。