VB上机模拟试题6
vb上机练习题及答案
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语句，查看运行结果。
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()= 1= 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then= 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机试模拟试卷106(题后含答案及解析)
VB机试模拟试卷106(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Forml的窗体上画两个文本框，名称分别为Textl和Text2，初始情况下都没有内容。
请编写适当的事件过程，使程序运行时，在Textl中输入字符的同时，Text2也立即显示出Textl中的字符，如图51—1所示。
程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．frm。
(2)在名称为Forlml的窗体上画一个图片框，名称为Picl；再画一个命令按钮，名称为Commandl、标题为“置顶”，程序运行时的窗体界面如图51—2所示。
请编写适当的事件过程，使运行界面在运行时单击“置顶”按钮，则图片框垂直移动到窗体的最顶端，如图51—3所示。
程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。
正确答案：(1)文本框的文本内容由Text属性设置。
题目要求在Textl中输入任何字符时，立即在Text2中显示，这就触发了文本框的Change事件。
根据题意，新建“标准EXE”工程，将两个文本框控件添加到窗体中，名称分别为Textl和Text2、Caption属性都为空。
双击Textl进人代码编写窗口，补充后的代码如下：Private Sub Textl_Change( ) Text2．Text=Textl．Text End Sub 单击按钮运行程序，并按要求保存。
(2)本题考查控件位置的改变，控件的位置由控件的Left属性和Top属性决定，Left属性表示控件与所在窗体的左边之间的距离，Top属性表示控件与所在窗体的顶边之间的距离。
根据题意，新建“标准EXE”工程，将一个PictureBox控件和一个命令按钮添加到窗体中，PictureBox的名称为Picl，命令按钮的名称为Commandl、Caption属性为“置顶”。
vb机试模拟试题(十五套)
附录2 Visual Basic上机模拟试题（1～10套）上机模拟试题 1一、调试程序（程序存盘文件名Test11.frm、Test11.vbp）（40分）在磁盘上有一名为“test11.vbp”的文件（程序界面如图1所示）。
其功能为：单击图片框后，则在图片框Picture1中输出如下所示的图形。
图1该程序中存在多处错误，请调试并改正之（注意：在程序调试过程中，不能删除整个语句，添加语句也不得超过2条。
）二、编程（程序存盘文件名Test12.frm、Test12.vbp）（60分）建立一个窗体，界面如图2所示。
程序功能要求如下：1、单击“查找”按钮后，查找所有四位数中满足条件“奇数位之和与偶数位之和均为素数”的数，并显示列表框list1中。
2、统计找到的满足条件的数的个数。
3、单击“存盘”按钮，将找到的数据存入数据文件“test12out.txt”中。
4、要求编写函数来判断是否是素数。
图2上机模拟试题2一、调试程序（程序存盘文件Test21.frm、Test21.vbp）（40分）在磁盘上有一名为“test21.vbp”的文件（程序界面如图1所示）。
其功能为：当在text1中输入行数和在text2中输入起始字母后，单击命令按钮command1，则在picture1中输出图形如图1所示。
要求：在text2中只能输入一个英文字母字符（大小写均可以），否则，提示错误信息，如图2所示。
图1 图2 该程序中存在多处错误，请调试并改正之（注意：在程序调试过程中，不能删除整个语句，添加语句也不得超过2条。
）二、编程（程序存盘文件名Test22.frm、Test22.vbp）（60分）建立一个成绩查询窗体，界面如图3所示。
程序功能要求如下：图31、在Form1_Load时，打开磁盘文件“test22in.txt”读取数据，并将读入的学号和姓名分别添加进两个列表框中，同时将三门课程的考试成绩读入c，d，e三个数组中（每个数组可定义为200个元素）；并默认选中第一名学生。
VB机试模拟试卷120(题后含答案及解析)
VB机试模拟试卷120(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Forml的窗体上建立一个名称为P1的图片框和两个命令按钮，名称分别为Cmdl和Cmd2，标题分别为“输出”和“清除”，如图22—1所示。
要求程序运行后，每单击一次“输出”按钮，不使用任何变量而直接在图片框中显示小写字母“load me’’；如果单击“清除”按钮，则清除图片框中的内容。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．vbp。
(2)在名为：Form1的窗体上绘制一个标签，名为Labl，标签上显示“请输入密码”；在标签的右边绘制一个文本框，名为Textl，其宽、高分别为1500和300。
设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外冉把窗体的标题设置为“PassWord窗口”。
运行时的窗体如图22—2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
正确答案：(1)本题主要考查图片框控件的基本操作。
命令按钮的标题通过Caption属性设置，单击命令按钮触发Click事件；打印信息用Print方法，清除用Cls方法。
题目要求在图片框中打印信息，所以在编写代码时应指定Print方法和C1s方法的使用对象。
在窗体上建立好控件后，先设置控件属性，再编写事件过程。
①建立界面并设置控件属性。
程序用到的控件及其属性见下表。
②命令按钮Cmdl触发Click事件，打印信息用Print方法。
题目要求在图片框中打印信息，所以在编写代码时，应指定Print方法使用对象。
Private Sub Cmdl Click( ) P1．Print”load me”End Sub ③清除用Cls方法。
题目要求清除图片框中的信息，所以在编写代码时，应指定Cls方法的使用对象。
Private Sub Cmd2_Click( ) P1．Cls End Sub ④调试并运行程序。
国家二级VB机试(上机操作)模拟试卷354(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷354(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上画一个名称为Combol的组合框，其宽度为1200，其类型如图3．188所示(即简单组合框)。
要求如下：①请按图中所示，通过属性窗口输入“北京”、“上海”、“广州”、“深圳”。
②设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为Command1、Command2，标题分别为“左”、“右”，如图3．189。
要求：编写适当的事件过程，使得程序运行时，单击“左”按钮，则焦点位于Text1上；单击“右”按钮，则焦点位于Text2上。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
(2)步骤1：新建一个“标准。
EXE”工程，按要求画出控件并设置属性。
步骤2：双击“左”命令按钮，打开代码编辑窗口，在按钮的Click事件过程中输入代码。
步骤3：从代码编辑窗口的“对象”下拉列表中选择Command2，从“事件”下拉列表选择Click，编写以下事件过程。
参考代码：PriVate Sub Command1_Click( )Text1．SetFocusEnd SubPriVate Sub Command2_Click( )．Text2．SetFocusEnd Sub 步骤4：按要求将文件保存至考生文件夹中。
解析：(1)本题只需要在窗体上画出相应控件并设置其属性即可。
VB机试模拟试卷66(题后含答案及解析)
VB机试模拟试卷66(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Forml的窗体上建立一个二级下拉菜单。
一级菜单的标题为“编辑”，名称为vbEdit，有效。
二级菜单有两项，一项标题为“复制”，名称为vbCopy，有效，命令执行的快捷方式为Crtl+C；另一项标题为“粘贴”，名称为vbPaste，无效，命令执行的快捷方式为Ctrl+P。
程序运行时，窗体界面如图69一1所示。
注意：存盘时必须存放到考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．frm。
(2)在名称为Forml的窗体上画一个文本框，其名称为Textl，然后通过属性窗口设置窗体和文本框属性；文本框中显示的初始信息为“模拟考试”，字体为四号、常规、黑体，并有删除线，文本框可以显示多行文本且只有垂直滚动条。
不编写任何代码。
程序运行时的窗体界面如图69—2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2.vbp。
正确答案：(1)根据题意，新建“标准EXE”工程，在窗体空白处单击右键，在弹出的快捷菜单中选择“菜单编辑器”命令，或按“Ctrl+E”组合键，打开菜单编辑器，添加以下菜单项：添加完成后，单击“确定”按钮。
再单击按钮运行程序，并按要求保存。
(2)根据题意，新建“标准EXE”工程，将一个文本框控件添加到窗体中，其名称为Text1，Text属性为“模拟考试”，Font属性为“常规”、“黑体”、“四号”，并选中删除线复选按钮，MultiLIne属性为True，Scrollbars属性为2。
单击按钮运行程序，并按要求保存。
简单应用题（40分）2．(1)在考生文件夹中有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。
在名为Form1的窗体上有一个命令按钮，其名称为Commandl，标题为“添加”；有一个文本框，名为Textl，初始内容为空白；此外还有一个列表框，其名称为Listl。
VB机试模拟试卷64(题后含答案及解析)
VB机试模拟试卷64(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Form1的窗体上画一个命令按钮，名称为commandl，标题为“缩小一半”。
编写事件过程，程序运行后，如果单击Commandl命令按钮，则使Comrnandl按钮的长度和宽度各缩小到原来的一半。
要求不得使用任何变量。
程序运行时的窗体界面如图14—1所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sj1．vbp。
(2)在名称为Form1的窗体上画一个命令按钮和一个水平滚动条，其名称分别为Commandl和HScrolll。
命令按钮的标题为“滚动条变长”。
编写适当的事件过程，使得程序运行后，如果单击Commandl命令按钮，则使HScrolll水平滚动条的Width属性减小1000，Min属性为0，LargeChange的属性为100，SmallChange的属性为20，且Commandl不可用，移动滚动条，在窗体上显示滚动条的位置值。
不得使用任何变量。
程序运行时的窗体界面如图14—2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
正确答案：(1)根据题意，新建“标准EXE”工程，将一个Command添加到窗体中，其名称为Commandl、Caption属性为“缩小一半”。
双击Commandl进入代码窗口，编写如下代码：Private Sub Commandl_Click( ) Commandl．Width=Commandl．Width＼2 ‘宽度变为原来的一半Commandl．Height=Commandl．Height＼2’长度变为原来的一半End Sub 单击按钮运行程序，并按要求保存。
(2)根据题意，新建“标准EXE”工程，将一个水平滚动条控件和一个命令按钮添加到窗体中，水平滚动条的名称为HScrolll，命令按钮的名称为Commandl、Caption属性为“滚动条变长”。
全国计算机二级VB模拟试题及答案
全国计算机二级VB模拟试题及答案全国计算机二级VB模拟试题及答案计算机二级考试是全国计算机等级考试（National Computer Rank Examination，简称NCRE）四个等级中的一个等级，考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。
那么全国计算机二级VB考试怎么考？以下仅供参考！1.在待排序的元素序列基本有序的前提下，效率最高的排序方法是(C)A)冒泡排序B)选择排序C)快速排序D)归并排序2.非空的循环单链表head的尾结点(由p所指向)，满足(A)A)p->next==NULLB)p==NULLC)p->next=headD)p=head3.线性表的顺序存储结构和线性表的链式存储结构分别是(C)A)顺序存取的存储结构、顺序存取的存储结构B)随机存取的存储结构、顺序存取的存储结构C)随机存取的存储结构、随机存取的存储结构D)任意存取的存储结构、任意存取的存储结构4.结构化程序设计所规定的三种基本控制结构是(D)A)输入、处理、输出B)树形、网形、环形C)顺序、选择、循环D)主程序、子程序、函数5.下列不属于软件调试技术的是(D)A)强行排错法B)集成测试法C)回溯法D)原因排除法6.软件生命周期中花费时间最多的阶段是(B)A)详细设计B)软件编码C)软件测试D)软件维护7.软件设计中，有利于提高模块独立性的一个准则是(A)A)低内聚低耦合B)低内聚高耦合C)高内聚低耦合D)高内聚高耦合8.数据库的故障恢复一般是由(D)A)数据流图完成的B)数据字典完成的C)DBA完成的D)PAD图完成的9.下列关系运算的叙述中，正确的是(B)A)投影、选择、连接是从二维表行的方向进行的运算B)并、交、差是从二维表的列的方向来进行运算C)投影、选择、连接是从二维表列的方向进行的运算D)以上3种说法都不对10.在关系数据库中，对一个关系做投影操作后，新关系的元组个数将(A)A)等于原来关系中的'元组个数B)大于原来关系中的元组个数C)小于原来关系中的元组个数D)不能确定元组个数11.以下不具有Picture属性的对象是(B)A)窗体B)图片框C)图像框D)文本框12.双击窗体中的对象后，Visual Basic将显示的窗口是(D)A)项目(工程)窗口B)工具箱C)代码窗口D)属性窗口13.若要将窗体从内存中卸载，其实现的方法是(A)A)ShowB)UnLoadC)LoadD)Hide14.要使目录列表框(名称为Dirl)中的目录随着驱动器列表框(名称为Drivel)中所选择的当前驱动器的不同而同时发生变化，则应：(A)A)在Dirl中的Change事件中，书写语句 Dirl.Drive=Drivel.DriveB)在Dirl中的Change事件中，书写语句 Dirl.Path=Drivel.DriveC)在Drivel中的Change事件中，书写语句Dirl.Path=Drivel.DriveD)在Drivel中的Change事件中，书写语句Dirl.Drive=Drivel.Drive15.设有如下声明：Dim x As Integer如果Sgn(x)的值为-1，则表示x的值是(A)A)整数B)大于0的整数C)等于0的整数D)小于0的数16.下述说法不正确的是(B)A)变量名的长度不能超过255个字符B)变量名可以包含小数点或者内嵌的类型声明字符C)变量名不能使用关键字D)变量名的第一个字符必须是字母17.下列可作为Visual Basic变量名的是(A)A)FilenameB)A(A+B)C)A%DD)Print18.语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是(BD)A)-36B)1C)-1D)-7219.下面说法中，不正确的是(D)A)Cls清除由Print方法显示的文本或在图片框中显示的图形，并把光标移到对象的左上角(0,0)B)当前窗体是用Picture属性装入的图形时，也可以用Cls方法清除C)Move方法用来移动窗体和控件，并改变其大小D)Cls方法中的对象，可以是窗体或图片框，如果省略则清除当前窗体中显示的内容20.假定在图片框Picturel中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(D)A)选择图片框，然后按Del键B)执行语句 Picturel.picture=LoadPicture("")C)执行语句 Picturel.picture=""D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键21.线性表L=(a1,a2,a3,…ai,…an)，下列说法正确的是(D)A)每个元素都有一个直接前件和直接后件B)线性表中至少要有一个元素C)表中诸元素的排列顺序必须是由小到大或由大到小D)除第一个元素和最后一个元素外，其余每个元素都有一个且只有一个直接前件和直接后件22.设树T的度为4，其中度为1,2，3,4的结点个数分别为4,2，1,1。
VB模拟试题(选择题)
8、以下属于程序的基本控制结构的是( B ) A、星型结构 B、分支结构 C、网络结构 D、平 行结构 9、以下哪个是算法的描述方法？（ C ） A、枚举法 B、列表法 C、流程图描述法 D、顺 序法 10、以下属于程序的基本控制结构的是( B ) A、星型结构 B、分支结构 C、网络结构 D、平行 结构 11．Integer类型的变量可存的最大整数为（ C ）。 A、256 B、32768 C、32767 D、65536 12、VB中数据类型Integer表示整型数，存储为（ C ）位？ A、32 B、64 C、16 D、8 13、VB中数据类型integer表示整型数，存储为（ D ）字节 A、8 B、6 C、4 D、2 14、在VB中，表达式21 mod 4的结果是（ B ） A、5 B、1 C、15 D、25 15、设a=2，b=3，在VB中，表达式a>b or b>=3的值是（ B ） A、false B、true C、-1 D、1 16、下面表达式的值是false的有（ A ） A、str(2000)< "1997" B、int(4.99)<>len("basic") C、3>2 D、"969"<"n97" 17、表达式abs(-3.6)*sqr(100)的值是（ D ） A、360 B、-36 C、-360 D、 36 18、在VB中，表达式2^3的结果是（ D ） A、2 B、3 C、6 D、8 19、数字式子2a(7+b)在VB中的正确写法是（ B ） A、2*a(7+b) B、2*a*(7+b) C、2a*(7+b) D、 2*a*7+b 20．代数表达式改成VB表达式后，错误的是（ D ） A、g*t^2/2 B、g*t*t/2 C、1/2*g*t^2 D、 gt^2/2 21、数学式子在VB中的正确写法是：( D ) A、（2*a+b）/4*a*b B、(2*a+b)/(4ab) C、(2a+b)/(4ab) D、(2*a+b)/(4*a*b) 22．对于窗体，click（单击）是它的一个（ C ）
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模拟试题试及参考答案
VB模拟试题试及参考答案2016VB模拟题第⼀套单项选择题得分：1: 计算机的基本⼯作原理是__C______。
A. 可靠性与可⽤性B. ⾼速度与⾼精度C. 存储程序与程序控制D. 具有记忆功能2: 计算机中数据的表⽰形式是____A____。
A. ⼆进制B. ⼋进制C. ⼗进制D. ⼗六进制3: 电⼦邮件标识中带有⼀个“别针”，表⽰该邮件_____C_。
A. 设有优先级B. 带有标记C. 带有附件D. 可以转发4: 安装防⽕墙的主要⽬的是__C______。
A. 提⾼⽹络的运⾏效率B. 对⽹络信息进⾏加密C. 保护内⽹不被⾮法⼊侵D. 防⽌计算机数据丢失5: 淘宝⽹的⽹上购物属于计算机现代应⽤领域中的___C___。
A. 计算机辅助系统B. 电⼦政务C. 电⼦商务D. 办公⾃动化6: Visual Basic中标准模块⽂件的扩展名是____D__。
A. FrmB. VbpC. ClsD. Bas7: 启动程序时，系统⾃动执⾏启动窗体的___A___事件过程。
A. LoadB. UnloadC. ClickD. DblClick8: 下列_____C_⽅法可以显⽰窗体。
A. HideB. UnLoadC. ShowD. WindowState9: 已知a="123456789"，则表达式Mid(a, 5, 2) + Left(a, 2)的值是_____B___。
A. "5689"B. "5612"C. 68D. 125610: 下列不正确的赋值语句是__C____。
A. x=30-yB. y=x+30C. x+y=30D. y=x\311: 下列选项中，合法的变量名是_B______ 。
A. 1_xB. x_1C. x-1D. x 112: 下列选项不是Visual Basic基本数据类型的是______A__。
A. CharB. StringC. BooleanD. Double13: 在下列表达式中，正确的⽇期型常量是__D____ 。
国家二级VB机试(上机操作)模拟试卷100(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷100(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个标签，名称为L1，标题为“业余爱好”，再画一个名称为Chl的复选框数组，含三．个复选框，它们的Index属性分别为0、1、2，标题依次为“体育”、“音乐”、“美术”，请设置复选框的属性，使其初始状态见表3一1。
运行后的窗体如图3-11所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Forml的窗体上画一个文本框，名称为Text1；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使得在运行时，单击“隐藏”菜单项，则文本框消失；单击“显示”菜单项，则文本框显示出来。
运行后的窗体如图3-12所示。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题本题只需按要求画出控件数组，并设置其Value属性。
【操作步骤】步骤1：新建一个“标准EXE”工程。
步骤2：在窗体Forml中加入一个标签和一个复选框，并用“复制”和“粘贴”的方法，生成包含三个元素的复选框数组。
步骤3：分别设置窗体和复选框数组中各元素的相关属性，其属性及值如表4．5所示。
步骤4：按要求将文件保存至考生文件夹中。
第2小题本题需用菜单设计器建立菜单，并编写“显示”和“隐藏”菜单项的单击事件过程控制文本框的visible属性变化。
【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Forml中画一个文本框，在属性设置窗口中将其Name属性值设置为Text1。
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机试(上机操作)模拟试卷456(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷456(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。
编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。
运行程序后的窗体如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Shape1的形状控件，在属性窗口中将其形状设置为圆形。
添加一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。
将窗体的标题设为“图形控件”。
单击列表框中的某一项，则将其值作为形状控件的填充参数。
例如，选择3，则形状控件中被竖线填充，如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2。
vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)步骤1：建立界面，添加相应的控件并设置控件的属性。
程序中涉及的控件及属性见表3．59。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案Private Sub C1_Click( ) Form1．BackCo1or=&HFF& End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：建立界面，将窗体Form1的Caption属性设置为“图形控制”，然后添加相应的控件并设置控件的属性。
程序中用到的控件及属性见表3．60。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案Private Sub List1_Click( ) Shape1．FiiiStyle=List1．Text End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
VB上机模拟考试习题集(01-50)解答
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机试模拟试卷99(题后含答案及解析)
VB机试模拟试卷99(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在窗体Forml上画一个命令按钮，名称为Command1，标题为“打开文件”，在窗体上添加适当的控件并编写适当的程序代码，要求程序运行时，单击“打开文件”命令按钮，可以弹出“打开文件”对话框。
程序运行时的窗体界面如图5—1所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj1.vbp。
(2)在窗体Forml上画一个列表框，名称为List1，有“Item1”、“Item2”、“Itera3”和“Item4”4个表项。
要求编写适当的程序代码，当双击列表中某一项时，弹出一个对话框提示“是否删除”。
对话框中只有“是”与“否”两个选择按钮，单击按钮，则继续当前的操作。
程序运行时的窗体界面如图5—2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为si2．vbp。
正确答案：(1)通用对话框(CommonDialog)提供诸如打开文件、保存文件、设置打印选项、选择颜色、设置字体、显示帮助等操作的一组标准对话框，通用对话框显示这对话框对应的方法分别为ShowOpen、ShowSave、ShowPrinter、ShowColor、ShowFont、ShowHelp。
该控件运行时不可见。
通用对话框的Action 属性也可用于设置被打开对话框的类型。
根据题意，新建“标准EXE”工程，一个命令按钮和一个文件对话框控件添加到窗体中，CommonDialog控件需要选择“工程”→“部件”命令，或在左侧工箱中单击鼠标右键，选择“部件”菜单，打开“部件”对话框，将Microsoft Common Dialog Control 6．0前面的复选按钮勾上，单击“确定”按钮，则添加成功，再同其他控件一样添加到窗体上，其名称为CommonDialogl。
VB机试模拟试卷106(题后含答案及解析)
VB机试模拟试卷106(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Forml的窗体上画两个文本框，名称分别为Textl和Text2，初始情况下都没有内容。
请编写适当的事件过程，使程序运行时，在Textl中输入字符的同时，Text2也立即显示出Textl中的字符，如图51—1所示。
程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．frm。
(2)在名称为Forlml的窗体上画一个图片框，名称为Picl；再画一个命令按钮，名称为Commandl、标题为“置顶”，程序运行时的窗体界面如图51—2所示。
请编写适当的事件过程，使运行界面在运行时单击“置顶”按钮，则图片框垂直移动到窗体的最顶端，如图51—3所示。
程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。
正确答案：(1)文本框的文本内容由Text属性设置。
题目要求在Textl中输入任何字符时，立即在Text2中显示，这就触发了文本框的Change事件。
根据题意，新建“标准EXE”工程，将两个文本框控件添加到窗体中，名称分别为Textl和Text2、Caption属性都为空。
双击Textl进人代码编写窗口，补充后的代码如下：Private Sub Textl_Change( ) Text2．Text=Textl．Text End Sub 单击按钮运行程序，并按要求保存。
(2)本题考查控件位置的改变，控件的位置由控件的Left属性和Top属性决定，Left属性表示控件与所在窗体的左边之间的距离，Top属性表示控件与所在窗体的顶边之间的距离。
根据题意，新建“标准EXE”工程，将一个PictureBox控件和一个命令按钮添加到窗体中，PictureBox的名称为Picl，命令按钮的名称为Commandl、Caption属性为“置顶”。
国家二级VB机试(上机操作)模拟试卷500(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷500(题后含答案及解析)题型有：1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上画两个文本框，其名称分别为Text1、Text2，初始内容都为空，显示为三号字，且Text1 的初始状态为不可用；再画一个名称为Command1、标题为“开始”的命令按钮，如图1－7所示。
要求：编写适当的事件过程，使得单击“开始”按钮后，Text1文本框变为可用状态，且在Text1 文本框中输入字母串时，Text2文本框中用大写字母形式显示Text1 文本框中的内容。
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：打开代码编辑窗口，编写Text1的Change事件过程和命令按钮的单击事件过程。
参考代码：Private Sub Command1_Click( ) Text1.Enabled = True End Sub Private Sub Text1_Change( ) Text2.Text = UCase(Text1.Text) End Sub 步骤3：按要求将文件保存至考生文件夹中。
简单应用题2．（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：①单击“读数据”按钮，则把考生文件夹下in3.dat文件中的20 个整数读入数组a 中，同时显示在Text1文本框中；②单击“变换”按钮，则数组a 中元素的位置自动对调（即第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调……），并将位置调整后的数组显示在文本框Text2 中。
VB机试章节练习试卷6(题后含答案及解析)
VB机试章节练习试卷6(题后含答案及解析) 题型有：1. 基本操作题
基本操作题（30分）
1．在名为Form1的窗体上绘制一个名为Pic1的图片框，然后建立一个主菜单，标题为“操作”，名为vbOp，该菜单有两个菜单项，其标题分别为“显示”和“清除”，名称分别为vbDis和vbClear。
编写适当的事件过程，使程序运行后，若单击“操作”菜单中的“显示”命令，则在图片框中显示VisualBasic；如果单击“清除”命令，则清除图片框中的信息。
程序的运行情况如下图所示。
注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为103.vbp，窗体文件名为103.frm。
正确答案：
2．在名为Form1的窗体上绘制一个文本框，名为Text1；再绘制两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“左移”和“右移”。
请编写适当的事件过程，使得在运行时，单击“左移”按钮，则文本框水平移动到窗体的最左端，单击“右移”按钮，则文本框水平移动到窗体的最右端。
程序运行情况见下图。
注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise104.vbp，窗体文件名为execise104.frm。
正确答案：
3．在名为Form1的窗体上绘制一个列表框，名为List1，高为800、宽为1500，字体为“楷体GB2312”，并通过属性窗口为其添加3个列表项，依次为Item1、Item2和Item3(如下图所示)。
注意：文件必须存放在考生文件夹中，工程文件名为execise105.vbp，窗体文件名为execise105.frm。
正确答案：。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
全国计算机等级考试预测上机试卷(一)二级Visual Basic语言程序设计一、基本操作题请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
1．在Form1的窗体上画一个名称为P1的图片框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，名称分别为Dis和Clea。
编写适当的事件过程，程序运行后，如果单击“操作”菜单中的“显示”命令，则在图片框中显示“计算机考试”；如果单击“清除”命令，则清除图片框中的信息。
程序的运行情况如图1—1和图1—2所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
程序中不得使用任何变量。
2．在Form1的窗体上画一个列表框，名称为L1，通过属性窗口向列表框中添加4个项目，分别为“早上好”、“上午好”、“中午好”和“下午好”。
编写适当的事件过程，过程中只能使用一条命令。
程序运行后，如果双击列表框中的某一项，则把该项再添加到列表框中。
程序的运行情况如图1—3所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
二、简单应用题1．在名称窗体为Form1，KeyPreview属性为True的窗体上有一个列表框(名称为List1)和一个文本框(名称为Text1)，如图2—1所示。
编写窗体的KeyDown事件过程。
程序运行后，如果按“A”键，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果按“D”键，则从键盘上输入要删除的项目，将其从列表框中删除。
程序的运行情况如图2—2所示。
在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。
但这个程序不完整，请把它补充完整。
要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。
最后把修改后的文件按原文件名存盘。
2．在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。
程序运行后，单击命令按钮，即可计算出0～1000范围内不能被?整除的整数的个数，并在文本框中显示出来。
在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。
要求：请勿改动程序中的任伺内容，只在Function Fun()和End Function之间填入你编写的若干语句。
最后把修改后的文件按原文件名存盘。
三、综合应用题在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)但不能修改其他部分。
存盘时不得改变文件名和文件夹。
本题描述如下：在名称为Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，Scroll Bars属性为2；两个命令按钮名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“计算保存”，如图3—1所示。
要求程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的100个整数，放入一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算其中前50个数之和，并把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件“out.txt”中。
(在考生的文件夹下有标准模块mode.bas，其中的putdata过程可以把结果存入指定的文件)。
注意：文件必须存放在考生文件夹下，窗体文件名为sjt5.frm，工程文件名为sjt5.vbp，计算结果存入out.txt文件，否则没有成绩。
预测上机试卷(1)一、基本操作题1．答案：①分析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。
②主菜单由单击右键选择“菜单编辑器”来创建，通过Print方法在窗体或图片框中打印信息，通过Cls方法清除图片框中的信息。
Cls方法清除运行时Form或PictureBox所生成的图形和文本。
语法：object.Clsobject代表一个对象表达式。
如果省略object，则默认为当前的Form窗体。
③解题步骤：第一步：建立界面并设置控件属性。
程序中用到的控件和属性设置见表1。
第二步：编写程序代码。
参考代码：Private Sub Clea_Click()P1.ClsEnd SubPrivate Sub Dis_Click()P1.Print "计算机考试"End Sub第三步：调试并运行程序。
第四步：按题目要求存盘。
2．答案：①在窗体上建立好控件后，先设置控件属性，再编写事件过程。
②列表框的内容由属性List来设置，在程序中添加项要通过AddItem方法来实现，鼠标双击触发控件的DblClick事件。
AddItem方法用于将项目添加到ListBox或ComboBox控件，其语法格式为：object.AddItem item,indexobject必需的。
一个对象表达式。
item必需的。
字符串表达式，它用来指定添加到该对象的项目。
index可选的。
是整数，它用来指定新项目或行在该对象中的位置。
对于ListBox或ComboBox控件的首项index为0。
③解题步骤；第一步：建立界面并设置控件属性。
程序中只用到的控件和属性设置见表2。
表 2第二步：编写程序代码。
参考代码Private Sub L1_Dblclick()L1.AddItem L1.TextEnd Sub第三步：调试并运行程序。
第四步：按题目要求存盘。
二、简单应用题1．答案：①解析：判断按键可以在窗体的KeyDown事件下用Chr函数将按键代码转换成字符与给定字符进行比较。
②使用AddItem方法向列表框中添加列表项目，使用RemoveItem方法从列表框中删除列表项目。
程序中用到了InputBox()，其格式为：InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])prompt：是一个字符串，其长度不得超过1024个字符，它是在对话框内显示的信息，用来提示用户输入。
title：字符串，它是对话框的标题，显示在对话框顶部的标题区。
default：字符串，用来显示输入缓冲区的默认信息。
xpos，ypos：是两个整数值，分别用来确定对话框与屏幕左边的距离(xpos)和上边的距离(ypos)，它们的单位为twip。
helpfile，context：helpfile是一个字符串变量或字符串表达式，用来表示帮助文件的名字；context是一个数值变量或表达式，用来表示相关帮助主题的帮助目录号。
③解题步骤：第一步：建立界面并设置控件属性。
程序中用到的控件及其属性见表3。
表 3第二步：编写程序代码。
程序提供的代码：Private Sub Form_ KeyDown (KeyCode As Integer, Shift As Integer)If Chr(KeyCode)="A"ThenText1.Text=InputBox("请输入要添加的项目")' List1.AddItem ?End IfIf Chr(KeyCode)="D"ThenText1.Text=InputBox("请输入要删除的项目")' For i=0 To ?' If List1. List (i)=? Then' List1. RemoveItem?End IfNext iEnd IfEnd Sub参考代码：Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)If Chr(KeyCode)="A" ThenText1. Text=InputBox("请输入要添加的项目")List1. AddItem Text1End IfIf Chr(KeyCode)="D"ThenText1. Text=InputBox ("请输入要删除的项目")For i=0 To List1.ListCount—1If List1. List (i) = Form1.Text1 ThenList1. RemoveItem (i)End IfNext iEnd IfEnd Sub第三步：调试并运行程序。
第四步：按题目要求存盘。
2．答案：①程序中用到的Mod是取模的运算符，如：N Mod 7＝0则说明余数为0，N能被7整除，否则N不能被7整除；程序中的变量num统计的不能被7整除的个数，当I Mod 70时，num则加1，表示当前有一个不可以被7整除的数；题目要求文本框里显示不能被7整除的数的个数，而num保留的是要求的结果，所以赋给文本框的值是num(Text1.Text＝num)。
②解题步骤：第一步：编写程序代码。
程序提供的代码：Sub SaveData( )Open App. Path & "\" & "outtxt.txt" For Output As #1Print #1,Text1.TextClose #1End SubFunction Fun()End FunctionPrivate Sub Command1_Cliek()d=Fun()SaveDataEnd Sub参考代码：Sub SaveData()Open App. Path & "\" & "outtxt. txt" For Output As #1Print #1, Text1.TextClose #1End SubFunction Fun()Dim i As Integer, hum As IntegerFor i=0 To 1000If i Mod 70 Thennum=num+1End IfNext iText1. Text＝numEnd FunctionPrivate Sub Command1_Click()d＝Fun()SaveDataEnd Sub第二步：调试并运行程序。
第三步：按题目要求存盘。
三、综合应用题答案：①在窗体上建立好控件后，先设置控件属性，再编写事件过程。
②文本框显示的内容由Text属性设置，Muhiline属性决定文本框是否可多行显示；按钮的标题由Caption属性设置，单击命令按钮触发Click事件。