VB基本操作题

基本操作题，请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)

1、(1)在名为Form1的窗体上绘制两个标签(名称分别为Label1和Label2，标题分别为“长”和“宽”)、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Command1，标题为“输入”)。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。

注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。

(2)在名为Form1的窗体上绘制一个标签(名称为Label1，标题为“输入”)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Command1，标题为“显示”)。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。

注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。

2、(1)在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图62-1所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj2．vbp。

(2)在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点

位于Text1，当按Tab键时，焦点从Text1越过Text2直接跳到Text3上。本题不得使用任何变量。程序运行时的窗体界面如图62-2所示。

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

3、(1)在名称为Form1的窗体中绘制一个名称为Label1的标签，其标题为空，BorderStyle 属性为1；再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔1秒钟加2。程序运行效果如图61-1所示。

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

(2)在窗体上设置一个文本框，名称为Text1，再添加一个命令按钮，名称为Command1，标题为“当前时间／日期切换”；每次单击按钮时，Text1就显示出当前时间，再单击一次，Text1就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图61-2所示。

注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj2．vbp与sj2．frm。

4、请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在Form1的窗体上画一个名称为Label1的标签，然后建立一个主菜单，标题为"命令"，名称为Com，该菜单有两个子菜单，其标题分别为"输出"和"关闭"，其名称分别为Pri和Close。编写适当的事件过程，使程序运行后，如果单击"命令"菜单中的"输出"命令，则在标签中显示"模拟考试"；如果单击"关闭"命令，则结束程序运行。程序运行时，单击"输出"命令的效果如图20-1所示。

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

(2)在窗体上画一个列表框，名称为List1，通过"属性"窗口向列表框中添加5个项目，分别

为"足球"、"篮球"、"排球"、"乒乓球"和"羽毛球"，单击列表框中的一项，则该项就从列表框中删除。程序的运行情况如图20-2和图20-3所示。

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

5、(1)在名称为Form1的窗体上建立一个名称为Option1的单选按钮数组，含四个单选按钮，它们的标题依次为“Item1”、“Item2”、“Item3”和“Item4”，其下标分别为0、1、2和3，程序运行时，“Item3”为选中状态，如图28-1所示。

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

(2)在窗体上建立一个二级菜单，第一级含两个菜单项，标题分别为“文件”和“帮助”，名称分别为file和help。其中“文件”菜单含有四个子菜单，其标题依次为“打开”、“保存”、“另存为”和“关闭”，名称分别为open、save、saveas和Close，窗体运行界面如图28-2所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。简单应用题

6、(1)在窗体上有一个名为Label1的标签控件和三个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题“汉语”、“英语”、“德语”；再添加一个标题为“输出”的命令按钮，如图25-3所示。程序的功能是：运行时，如果选中一个单选按钮后，单击“输出”按钮，则根据单选按钮的选中情况，在Label1显示“我的母语是汉语”、“我的母语是英语”或“我的母语是德语”。设初始选中的是“汉语”。

注意：去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按sj3．vbp 和sj3．frm文件名存盘。

(2)在考生文件夹下有一个工程文件sj4．vbp，窗体中有3个标签，名称分别为Label1、Label2和Label3，标题分别为“字型”、“字体”、“模拟考试”；在Label1和Label2标签的下面有两个组合框，名称分别为Combo1和Combo2，并为Combo1添加项目：“下划线”、“黑体”和“斜体”，为Combo2添加项目：“华文行楷”、“隶书”和“宋体”。请编写适当的事件过程，使得程序在运行时，当在Combo1中选一个字号、在Com-bo2中选一个字体，标签Label3中的文字立即变为选定的字号和字体，如图25-4所示。

注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一个字号和字体。必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘，程序中不能使用任何变量。

7、(1)在考生文件夹下有一个工程文件sj3．vbp，两个窗体文件，文件名分别为sj31．frm 和sj32．frm。此工程实现的功能是，在运行时只显示名为Form2的窗体，单击Form2上的Command1按钮，则弹出名为Form1的窗体；单击Form1上的Command1按钮，则Form1的窗体关闭。这个程序并不完整，要求：

把Form2设为启动窗体；把Form2上按钮的标题改为“打开”，把Form1上按钮的标题改为“关闭”。去掉程序中的注释符“'’，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件存盘。程序正确运行后的界面如图28-3所示。

注意：不得改变工程文件名和窗体文件名，仍按原文件名存盘。

(2)在考生文件夹下有一个工程文件sj4．vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的数大于0，滚动条中的滚动块向下移动到与该数相等的刻度，

但如果输入的值大于滚动条的最大值，则不移动，并且显示“数值超过最大值”；如果输入的是负数，滚动条中的滚动块向上移动到与该数相等的刻度，但如果超过了滚动条的最小值，则不移动，并且显示“数值小于最小值”，如图28-4所示。

注意：去掉程序中的注释符“'”把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。

8、(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在名称为Form1的窗体上有3个Text控件及5个命令按钮，功能为：开始启动工程时，界面上除“读取数据”及“关闭”按钮有效之外，其他按钮均不可用(灰色显示)；单击“读取数据”按钮之后，利用InputBox让用户连续且必须输入8个数。若录入为非数字符号，则给出提示“输人数据无效，请重新输入：”；输入完毕后，“读取数据”变灰，其他变为可用状态；按相应的按钮可分别求出所输人数据的升序排列及平均值，并在右侧对应的文本框中显示(注意用A(8)存放最大数，A(1)存放最小数)；单击“清空”按钮将所有文本框清空。如图70-3所示。

注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹。

(2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。在名称为Form1，窗体上有3个Label控件、2个Text控件和2个命令按钮。该程序的主要功能是求从1到Text1中用户输入的任意自然数n的累加和。刚启动工程时，可以在输人框内输入任意自然数(n值太大时，运算时间将很长，建议不超过4位)。当输人为非数值时，累加结果为0；单击“开始”可以在Text2中显示累加和，同时“开始”变为“完成”并变灰；单击“关闭”按钮结束程序的运行。如图70-4所示。

注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹。

9、(1)在窗体上绘制一个标签L1；一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1和2，标题依次为"飞机"、"火车"和"汽车"；一个名称为Text1的文本框。编写程序，使得在运行时单击"飞机"或"火车"单选按钮时，在Text1中显示"我坐飞机去"或"我坐火车去"，单击"汽车"单选按钮时，在Text1中显示"我开汽车去"。程序运行界面如图6-4所示。

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

(2)在考生文件夹中有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。在窗体上有两个名称分别为Command1和Command2、标题分别为"求平方"和"求立方"的命令按钮，两个名称分别为Text1和Text2的文本框。要求程序运行后，在Text1中输入一个整数，单击"求平方"或"求立方"按钮后，可把该整数的"平方"或"立方"在Text2中显示，如图6-5所示。

注意：请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符(即"'"号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

10、(1)在考生文件夹中有文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后，如果Check1和Check2都不选，单击窗体后，则在文本框中什么都不显示；如果只选中Check1，单击按钮，则在文本框中显示“选中Item1”；如果只选中Check2，然后单击按钮，则在文本框中显示“选中Item2”；如果同时选中Check1和Check2，单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图61-3所示。

注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符“'”，但不能修改其他部分。存盘时不得改变文件和文件名。

(2)在考生文件夹下有一个工程文件sj4．vbp，要求程序运行后，如果多次单击列表框List1中的项，则可同时选择这些项。而如果单击“导出”按钮，则在列表框List2中输出所有选中的列表项，如图61-4所示。

注意：修改列表框List1的适当属性，使得运行时单击可以多选，并去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。综合操作题

11、在名称为Form1的窗体上匦一个文本框，名称为Text1，MuhiLine属性为True，ScrollBars 属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读人数据”和“计算保存”，如图63-6所示。要求程序运行后，如果单击“读人数据”按钮，则读入in．txt文件中的100个整数，放入一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中大于或等于400并且小于800的所有数之和，并将结果在文本框Text1中显示出来，同时把结果存入考生文件夹的result．txt文件中(在prog．bas中的PutData过程可以把结果存入result．txt文件)。

注意：文件必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp，计算结果存入result．txt文件中，否则没有成绩。

12、在考生文件夹下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Text1；有三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“输入”、“计算显示”和“保存”，运行界面如图25-5所示。在给定程序中有一个函数过程isPrimeNum，其功能是判断参数是否为素数，如果是素数，则返回True，否则返回False。

请将程序中有“?”的地方替换为相应的代码，使得在运行时，单击“输入”按钮，弹出“输入”对话框，单击“计算显示”按钮，则找出大于输入参数的最小素数，并显示在Text1中；单击“保存”按钮，则把Text1中的计算结果存入考生文件夹下的out5．txt文件中。

注意：去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。考生不得修改isPrimeNum函数过程和控件的属性，必须把计算结果通过“保存”按钮存入out5．txt文件中，否则无成绩。

13、在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars 属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读人数据”和“保存数据”，如图55-8所示。程序运行后，如果单击“读人数据”按钮，则读入in．txt文件中的100个整数，放入一个数组中(数组下界为1)，并在文本框Text1中显示出来；如果单击“保存数据”按钮，则把数组中的前50个数据在文本框Text1中显示出来，并存入考生文件夹中的result．txt文件中(考生文件夹中有标准模块prog．bas，其中的PutData过程可以把指定个数的数组元素存入result．txt文件)。

注意：保存时必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp，结果存入out．txt文件，否则没有成绩。

14、在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为“读人数据”、“计算并输出”和“存盘”)，然后再添加一个文本框，名称为Text1，MultiLine属性设置为True，scrollBars属性设置为2(如图22-6所示)。程序运行后，如果执行“读人数据”命令，则读入考生文件夹下datainl．txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存人考生文件夹下的dataout．txt文件中。

在考生文件夹下有一个工程文件sj5．vbp，窗体文件中的ReadData过程可以把datain1．txt 文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout．txt)。

注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为sj5．vbp，窗体文件名仍保存为sj5．frm。

15、在考生文件夹下有一个工程文件sj5．vbp在名称为Form1的窗体上画一个文本框，名称为Text1，允许多行显示；再画三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读取文本”、“大写”和“保存”，运行界面如图28-5所示。请编写适当的事件过程，使得在运行时，单击“读取文本”按钮，则从考生文件夹中读入sjin．txt 文件(文件中只有字母和空格)，放入Text1中；单击“大写”按钮，则把Text1中的所有小写字母转换为大写字母；单击“保存”按钮，则把Text1中的内容存入sjout．txt文件中。

注意：去掉程序中的注释符““’，把程序中的“?”改为正确的内容，考生必须把转换后的内容用“保存”按钮存入sjout．txt文件，否则无成绩。考生的工程文件以文件名sj5．vbp 存盘，窗体文件以文件名sj5．frm存盘。基本操作题，请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)

1、在Form1窗体上绘制一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“隐藏”，名称分别为Dis和Hid,编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“计算机考试”；如果单击“隐藏”命令，则隐藏文本框。程序的运行情况如图27-1和图27-2所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为Sj1．vbp。

(2)在名为Form1的窗体上绘制一个标签，名为Labl，标题为“请输入一个摄氏温度”；绘制两个文本框，名称分别为Text1和Text2，内容设为空；再绘制一个名为Cmd1的命令按钮，其标题为“华氏温度等于”。编写适当的程序，使得单击“华氏温度等于”按钮时，将Text1中输入的摄氏温度

(c)转换成为华氏温度(f)，转换公式为：f=c*9／5+32，并显示在Text2中。程序运行结果如图27-3所示。

注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，窗体文件名为Sj2．frm，工程文件名为sj2．vbp。

2、请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上创建两个名称分别为Option1和Option2，标签分别为“教授”和“研究员”的单选按钮，再建立一个名称为Label1的标签，实现如下功能：当选中“教授”时，标签上显示“博士学位以上”，如果选中“研究员”，则标签上显示“硕士学位以上”，结果如图67-1所示。

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

(2)在名称为Form1的窗体上画两个名称分别为Text1和Text2、内容都为空的文本框，再画一个命令按钮，其名称为Command1、标题为“判断”。编写适当的事件过程，要求程序运行后，如果在Text1中输入一个数，单击命令按钮Command1，判断输入的是否为偶数，如图67-2所示。要求：不得使用任何变量。

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

3、(1)在名称为Form1的窗体上绘制一个名为HS1的水平滚动条，并在属性窗口中将Max 属性设置为100，Min属性设置为0，Value属性设置为100。程序运行后，滚动框位于滚动条最右端，如果单击滚动条之外的窗体部分，则滚动框跳到最左端，如图63-1所示。

注意：只能直接为相应的属性赋值，不得使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj1．vbp。

(2)在Form1的窗体上绘制一个命令按钮，名为Cmd1，标题为Display，按钮隐藏。编写适当的事件过程，使程序运行后，若单击窗体，则命令按钮出现；此时如果单击命令按钮，则在窗体上显示Visual Basic。程序运行情况如图63-2和图63-3所示．

注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj2．vbp，窗体文件名为sj2．frm。

4、(1)在名称为Form1的窗体上建立一个二级下拉菜单。一级菜单的标题为“文件”，名称为“vbFile”，有效；二级菜单有两项，一项标题为“打开”，名称为“vbOpen”，有效，命令执行的快捷方式为Crtl+N，一项标题为“保存”，名称为“vbSave”，执行快捷键方式为Ctrl+S，有效，另一项标题为“关闭”，名称为“vbClose”，无效，命令执行的快捷方式为Ctrl+C。程序运行时，窗体界面如图56-1所示。

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

(2)在名称为Form1的窗体上绘制一个名为Text1的文本框控件和一个名为Timer1的计时器控件，程序运行后，文本框中显示的是当前的日期和时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变，如图56-2所示。

注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp

5、(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2，标题分别显示为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2，初始内容均为空)和一个命令按钮(名称为Command1，标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图22-1所示。

注意：要求程序中不得使用任何变量。存盘时必须存放在考生文件夹下，工程文件名保存为sj1．vbp，窗体文件名保存为sj1．frm。

(2)在名称为Form1的窗体上画一个图片框(其名称为Picture1)、一个水平滚动条(名称为HScroll1)和一个命令按钮(名称为Command1)，标题为“设置属性”，通过属性窗口在图片框中装入一个图形(文件名为Pic1．jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意(如图22-2所示)。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性：

之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图22-3所示。

注意：要求程序中不得使用任何变量。存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。简单应用题

6、(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗体上建立一个列表框、一个组合框和两个命令按钮。程序运行后，在列表框中选择所需要的项目，单击“导出”按钮，把所选择的项目移到组合框中。如果单击“导人”按钮，则把组合框中所选择的项目移到列表框中。程序运行时的窗体界面如图30-3所示。

注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符“'’，但不能修改其他部分。存盘时不得改变文件名和文件夹。

(2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。本题在窗体Form1中有一个文本框，名称为Text1；另有一个命令按钮，名称为Command1，标题为“判断”。要求该应用程序具有数据过滤功能，即检查用户在文本框中输入的数值是否在能被3整除。如果是，则退出程序；否则在文本框中显示“不能被3整除”，同时使焦点重新回到文本框中。程序运行时的窗体界面如图30-4所示。

注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹。

7、(1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。在窗体上有两个单选按钮，名称分别为Op1和Op2，标题分别为"斜体"和"黑体"，一个文本框，名称为Text1，字体为宋体，字号为四号字，还有一个命令按钮，名称为Command1，标题为"切换"。要求程序运行后，在文本框中输入"测试结果"，并选择一个单选按钮，单击"切换"按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体，程序运行时的窗体界面如图12-3所示。

注意：请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符"'"但不能修改其他部分。存盘时不得改变文件名和文件夹。

(2)在考生文件夹下有一个工程文件sj4．vbp，窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，标题是"计算"。程序运行后，单击"计算"命令按钮，通过对话框输人整数12，放入整型变量a中，然后计算1+2+3+…+a(提示：运算结果应放人Long型变量中)，如图12-4所示。在文本框中显示结果，并把结果存入文件out4．txt中。在考生文件夹中有一个标准模块mode4．bas，该模块中提供了保存文件的过程WriteData，考生可以直接调用。

注意：去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。

8、(1)在考生文件夹下有工程sj3．vbp及窗体文件sj3．frm，该窗体和程序是不完整的。在窗体上画一个名称为Combo1的组合框，画两个名称分别为Label1和Label2、Caption属性分别为“选项”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASC Ⅱ码为13)时，由自动添加到组合框列表中，并在Label2中给出提示“已添加成功”。程序运行效果如图60-3所示。

注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹。

(2)在考生文件夹下有工程sj4．vbp及窗体文件sj4．frm，该程序是不完整的。在窗体上有一个文本框(内容)与两个命令按钮，名称分别为Text1、Command1与Command2。其中Command1的标题为“生成数据”；Com-mand2的标题为“显示奇数”。要求程序运行时，单击“生成数据”按钮，则自动生成80个0～800的随机整数，并在文本框中显示；单击“显

示奇数”，则将这80个数据中的奇数显示到文本框中。程序运行时的窗体界面如图60-4所示。

注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹。

9、(1)在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图64-3所示。程序运行后，单击“计算”命令按钮，通过在对话框输人整数12，放入整型变量a中，然后计算a!(提示：运算结果应放入Long型变量中)，在文本框中显示结果，如图64-4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程PutData，考生可以直接调用。

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

(2)在考生文件夹中有一个工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设置，如图64-5所示。

窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功

能。

注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。

10、(1)在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件名为sj3．frm，请装入该文件，在窗体上画一个命令按钮，名称为Command1，标题为“添加项目”，再画一个列表框和一个文本框，名称分别为List1和Text1。

编写适当的事件过程，要求程序运行后，如果从键盘上输入某项，再单击“添加项目”命令按钮，则将该项添加到列表框中(内容任意，不少于3个)，如图36-4所示；如果单击列表框中的某一项则将其从列表框中删除，如图36-5所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请把它补充完整。

注意：去掉程序中的注释符“'’，把程序中的“?”改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

(2)在考生文件夹下有一个工程文件sj4．vbp，相应的窗体文件名为sj4．frm。程序运行后，在5个文本框中各输人一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来，如图36-6所示。这个程序不完整，请把它补充完整，并能正确运行。

注意：去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘综合操作题

11、在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在名称为Form1的窗体画两个Label控件，名称分别为Label1和Label2，其中Label1中显示“总人数”，Label2中显示“总分”，添加两个名称分别为Text1和Text2的文本框，再画两个命令按钮，名称分别为Command1与Command2、标题分别为“读取数据”与“计算总分”，数据文件in5．txt存放成绩。

要求程序运行后：单击“读取数据”按钮后，从考生文件夹下的in5．txt中读出数据，并在标签Text1中显示人数；单击“计算总分”便在Text2中显示总分并将结果写入考生文件夹下out5．txt文件中；执行完毕，“读取数据”按钮变成“读取完成”，且无效(变灰)，如图60-5所示。

注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹，程序编写完整后执行一次操作，将结果保存到考生文件夹下的out5．txt文件中，否则没有成绩。

12、在考生文件夹下有一个工程文件sj5．vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a2+b2=c2.例如，3、4、5就是一个满足条件的整数组合(注意：a，b，c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)。编写程序，统计均在60以内的3个数满足上述关系的整数组合的个数，并显示在标签Label1中。

注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。

13、在考生文件夹下有一个工程文件sj5．vbp，相应的窗体文件为sj5．frm，此外还有一个名为in5．dat的文本文件，其内容如下：

10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

程序运行后，单击窗体，将把文件in5．dat中的数据输入到一维数组Arr中，在窗体上按4行4列的矩阵形式显示出来，然后计算矩阵第2列各项的和，并在Text1上显示出来，如图14-6所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。

注意：去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

14、在名称为Form1的窗体上有两个命令按钮(名称分别为Command1和Command2、标题分别为“读取”和“保存”)和一个文本框(名称为Text1、MultiLine属性为True、ScrollBars 属性为2)。要求程序运行后，如果单击“读取”按钮，则读入in．txt文件中的50个整数，放入一个数组中(数组下界为1)，并在文本框Text1中显示出来，运行界面如图66-5所示。如果单击“保存”按钮，则把数组中的前30个数据在文本框Text1中显示出来，并存人考生文件夹中的文件result．txt中。(考生文件夹中有标准模块mode5．bas，其中的WriteData 过程可以把指定个数的数组元素存入result．txt文件)

注意：在考生文件夹中有工程文件sj5．vbp及其窗体文件sj5．frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp，结果存入result．txt文件，否则没有成绩。

15、在考生文件夹下有一个工程文件sj5．vbp，相应的窗体文件为sj5．frm，此外还有一个名为sjin．txt的文本文件，其内容如下：

10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

程序运行后，单击窗体，将把文件sjin．txt中的数据输入到一维数组Arr中，在窗体中按4行4列的矩阵形式显示出来，并在Text1输出矩阵右上——左下对角线上的数据，如图13-6所示。

在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。

注意：去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

VBProject代码操作代码之常用语句

一、增加模块 1．增加一个模块，命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2．增加一个类模块，命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3．增加一个窗体，命名为“我的窗体” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" vbext_ct_MSForm=3 二、删除模块 1．删除“模块1” ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1") 2．删除窗体“UserForm1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1") 3．删除类模块“类1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1") 4.删除所有的窗体 Sub RmvForms() Dim vbCmp As VBComponent For Each vbCmp In ThisWorkbook.VBProject.VBComponents If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp Next vbCmp End Sub 相关： 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 三、增加代码 1.在“模块1”中插入代码 如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。 方法1： 在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。 Sub AddCode1() ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _ "msgbox ""Hello""" & Chr(10) & _ "end sub" End Sub

vb的操作题(有标准答案)

1.(1）在考生文件夹中有工程文件sj12６.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有１０个元素的整型数组。若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找＂按钮,则找出数组中的最大值(或最小值）,并显示在标签Ｌabｅl２中。请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意： 考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文 件名存盘。 Private SuｂCommanｄ1_Click() x ＝ａ（１) y = a（1) Fｏr ｉ＝ 2 To 10 If Opｔion1.Valｕｅ = Ｔrue Ｔheｎ If a(i)>x Then ｘ= ａ(i) Ｅｎd Ｉf

ＥlseIｆａ(i) < y Theｎ y = a(i) Ｅnd Ｉｆ Next If Option1.Vaｌue ＝ True Theｎ Labｅl2．Cａption ＝ x Eｌsｅ Ｌaｂel2.Caption = y Enｄ Iｆ Ｅnd Suｂ 2.(2）在名称为Form1的窗体上画一个名称Ｓｈａｐe1的形状控件,在属性窗口中将其 设置为圆形。画一个名称为List１的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、５。将窗体的标题设为"图形控件"。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图所示。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sｊ107.vbp，窗体文件名为ｓｊ１0７.ｆｒm。 在Shape控件中,可以用FｉlｌStyle属性设置图形的填充图案，0:透明，2:虚线，3：点线，4:点划线，５:双点划线,6：内实线。 Ｌisｔ控件的Clｉck事件过程为： Private Ｓｕb Ｌｉst１＿Clｉck() Shapｅ1.FiｌlStyｌe = Lｉst１.Text EnｄＳub

VB常用字符串操作函数解读

VB常用字符串操作函数2009/11/25 18:321. ASC(X，Chr(X：转换字符字符码[格式]： P=Asc(X 返回字符串X的第一个字符的字符码 P=Chr(X 返回字符码等于X的字符 [范例]：(1P=Chr(65 ‘ 输出字符A,因为A的ASCII码等于65 (2P=Asc(“A” ‘ 输出65 2. Len(X：计算字符串X的长度 [格式]： P=Len(X [说明]：空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算 一个字符。 [范例]： (1 令X=”” (空字符串 Len(X 输出结果为0 (2 令X=”abcd” Len(X 输出结果为4 (3 令X=”VB教程” Len(X 输出结果为4 3. Mid(X函数：读取字符串X中间的字符 [格式]： P=Mid(X,n 由X的第n个字符读起，读取后面的所有字符。 P=Mid(X,n,m 由X的第n个字符读起，读取后面的m个字符。 [范例]： (1 X=”abcdefg” P=Mid(X,5 结果为：P=”efg” (2 X=”abcdefg” P=Mid(X,2,4 结果为 P=”bcde” 4. R eplace: 将字符串中的某些特定字符串替换为其他字符串 [格式]： P=Replace(X,S,R [说明]：将字符串X中的字符串S替换为字符串R，然后返回。[范例]：X=”VB is very good” P=Replace(X,good,nice 输出结果为：P=”VB is very nice” 5. StrReverse：反转字符串 [格式]： P=StrReverse(X [说明]：返回X参数反转后的字符串 [范例]：（1）X=”abc” P=StrReverse(X 输出结果：P=”cba” 6. Ucase(X，Lcase(X：转换英文字母的大小写 [格式]：P=Lcase(X ‘ 将X字符串中的大写字母转换成小写P=Ucase(X ‘ 将X字符串中的小写字母转换成大写 [说明]：除了英文字母外，其他字符或中文字都不会受到影响。 [范例]：（1）令X=”VB and VC” 则Lcase(X的结果为”vb and vc”，Ucase(X的结果为”VB AND VC” 7. InStr函数：寻找字符串 [格式]： P=InStr(X,Y 从X第一个字符起找出Y出现的位置 P=InStr(n,X,Y 从X第n个字符起找出Y出现的位置 [说明]：（1）若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。（2） InStr(X,Y相当于 InStr(1,X,Y。（3）若字符串长度，或X为空字符串，或在X中找不到Y，则都 返回0。（4）若Y为空字符串，则返回0。 ---------------------------------------------------------------------------------------------- mid(字符串，从第几个开始，长度 ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3 则返回 "小欣无" instr(从第几个开始,字符串1,字符串2 ByVal 从规定的位置开始查找，返回字符

vb的操作题(有答案)

1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找"按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。请去掉程序中的注释符，把程序中的？改为正确的容。 注意： 考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文 件名存盘。 Private Sub Command1_Click() x = a(1) y = a(1) For i = 2 To 10 If Option1.Value = True Then If a(i)> x Then x = a(i) End If

ElseIf a(i) < y Then y = a(i) End If Next If Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End If End Sub 2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其 设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、5。将窗体的标题设为"图形控件"。单击列表框中 的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状 控件中被竖线填充。如图所示。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存 放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。 在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：实线。 List控件的Click事件过程为： Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub 3.（1）在名称为Form1的窗体上画一个文本框，名称为Text1；

vb练习题及答案.doc

vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23

25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb

VB基本操作题

基本操作题，请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码) 1、(1)在名为Form1的窗体上绘制两个标签(名称分别为Label1和Label2，标题分别为“长”和“宽”)、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Command1，标题为“输入”)。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。 注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。 (2)在名为Form1的窗体上绘制一个标签(名称为Label1，标题为“输入”)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Command1，标题为“显示”)。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。 注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。 2、(1)在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图62-1所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj2．vbp。 (2)在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点

VB练习题(上机)含答案

第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else

ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。

vb试题及答案

VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。

vb题库及答案

| 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A",

VB操作题答案

第一次作业 Private Sub Command1_Click() Text1.Text = "欢迎你学习VB程序设计" Text1.ForeColor = vbGreen Text1.Font = "宋体" Text1.FontSize = 25 Text1.FontItalic = True Text1.FontBold = True End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Click() Text1.ForeColor = vbRed Text1.Font = "隶书" Text1.Text = "佛山大学理学院" End Sub 第二次作业(服务员密码) 1、请建立一个工程（ zy02.vbp),含有1个窗体（zy02.frm),该窗体有两个标签，两个命令按钮（设置成不同的背景色），一个文本框。要求如下：1）当程序启动运行时，命令按钮不可用（变灰色），当在文本框中输入正确密码时，显示出来的是星号，（2）… 3）点击结帐按钮后，窗体所有控件消失，仅显示出标签“谢谢你，再见！”这样的服务用语。Private Sub Command1_Click() Text1.Visible = False Label2.Visible = True Label2.Caption = "你好，你需要什么" Command2.Enabled = True End Sub Private Sub Command2_Click() Command1.Visible = False Command2.Visible = False Label1.Visible = False Label2.Caption = "谢谢你，再见！" End Sub Private Sub Form_Load() Label2.Visible = False Command1.Enabled = False Command2.Enabled = False End Sub Private Sub Text1_Change() If Text1.Text = "12345" Then Command1.Enabled = True Text1.PasswordChar = "*" End Sub 第三次

vb经典题目及答案

1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。

VB6.0基础入门教程

VB最简单入门教程

目录 （提示：按ctrl,并单击鼠标，可以跳到相应页） 1.1 1 我们需要什么 (3) 1.2 2 第二章：事件、属性及数据类型 (3) 1.3 3 第三章：VB语言 (6) 1.4 4-1第四章按钮（一） (12) 1.5 4- 第四章按钮（二） (199) 1.6 5 第五章菜单 (27) 1.7 6-1第六章输入（一） (34) 1.8 6-2第六章输入（二） (42) 1.9 6-3第六章输入（三） (52) 1.10 7第七章输出 (59) 附录 (63) 2.1 VB教程 (63)

1.1 1 我们需要什么 我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。 编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。 Visual Basic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi 又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具----称之为Microsoft Windows 的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具－－－－Visual Basic由此诞生。 何为可视 英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。

vb新操作题(含答案)

一、操作题,每题 10分,6 题共60分 【第4题】 打开文件“考生文件夹\175\工程1、vbp”,完善Command1_Click事件及s函数代码并保存。 实现功能:用递归法求1+2+3+…+100的值,结果输出在窗体上。 Public Function S(n As Integer) As Integer If n = 1 Then S = ① Else S = ② + S(n - 1) End If End Function Private Sub Command1_Click() Dim Sum As Integer Sum = S(③) Print "Sum=" & CStr(Sum) End Sub 【第5题】 打开文件“考生文件夹\851\工程1、vbp”,完善程序实现如下功能并保存: 花果山上有一洞,小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞,编程在Text1中输入台阶数,在Label1中显示有多少种不同的跳法。正确的运行结果如下图所示,调试时输入的台阶数最大不要超过35！ Function s(n As Integer) As Long If n = 1 Or n = 2 Then s = ① Else If n = 3 Then s = 2 Else s = s(n - 1) + s(n - 3) End If End If ①1 ②text1、text ③s(n) ①1 ②n ③100

End Function Private Sub Command1_Click() Dim n As Integer n = Val(②) Label1、Caption = Str(③) End Sub 【第6题】 打开文件“考生文件夹\861\年龄问题、vbp ”,完善程序实现如下功能并保存: 有5个人坐在一起,第5个人说她比第4个人小3岁;第4个人说她比第3个人小3岁;第3个人说她比第2个人小3岁;第2个人又说她比第1个人小3岁;第1个人说她就是38岁。编写程序,计算出第5个人的年龄并显示。 Private Sub cmdDisplay_Click() Print "第5人的年龄:"; age(①) End Sub Function age(n As Integer) As Integer If n = 1 Then age = ② Else age = age(n - 1) - 3 ③ End Function 【第3题】 打开文件“考生文件夹\89\工程1、vbp ”,完善Command1_Click 事件代码并保存。 乘坐飞机的经济舱时,免费托运行李一般不得超过20公斤,超重每公斤按全票价的1、5%计算。 实现功能:输入行李重量及经济舱全票价后,点击按钮,计算出行李托运费用,输出到对应文本框中。 Private Sub Command1_Click() Dim w As Integer '行李重量 Dim pj As Integer '机票价格 Dim fy As Single '托运费用 w = Val(Text1、Text) pj = Val(Text2、Text) If w <= 20 Then ① Else fy = (w - 20) * pj * 0、015 ② Text3、Text = ③ End Sub 【第4题】 打开文件“考生文件夹\122\工程1、vbp ”,完善Command1_Click 事件代码并保存。 王晓珊家距离学校s1(千米),某天她与李明各自同时从家里步行出发上学,王晓珊步行速率v1(千米/小时),李明步行速率v2(千米/小时),结果她们同时到达学校。

vb试题及答案

一、选择题（1-30 题每小题1分，共30分，31-45题每小题2分,共30分，总计60分）要使窗体Form1的标题栏中显示“正在复制文件…”，正确的语句是：a A．Form1.Caption=“正在复制文件…” B．Form1.Title=“正在复制文件…” C．Form1.Text=“正在复制文件…” D．Form1.名称=“正在复制文件…” 如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于：a A．1000 B．100 C．10 D．1 3、下列关于控件的基本操作中，错误的是 A)当控件处于活动状态时，可以对控件进行缩放 B) 在设计阶段不能移动控件 C) Visual Basic 6.0 允许对画好的控件进行复制和删除 D) 可以通过属性窗口改变控件的位置和大小 4、用Visual Basic 开发应用程序的一般步骤有：①设置窗体和控件的属性、②编写代码、③建立用户界面，其中正确的顺序是： A) ①②③B) ①③②C) ③②①D) ③①② 5、为使文本框只能显示不能输入，即只读，应设置文本框的属性是：c A．MaxLength设置为0 B．Cancel设置为True C．Locked设置为True D．Read设置为True 6、InputBox函数返回值的类型为。B A．数值B．字符串C．变体 D．数值或字符串（视输入的数据而定） 7、为了把焦点移到某个指定的控件，所使用的方法是：A A．SetFocus B．Visible C．ReFresh D．GetFocus 8、函数String(3,”str”)的功能是：b A．把数值型数据转换成字符串 B．返回有3个字符串组成的字符串 C．从字符串中第3个字符 D．从字符串中第3个字符的位置开始取字符串 9、双击窗体中的对象后，Visual Basic将显示的窗口是：c A．项目（工程）窗口B．工具箱C．代码窗口D．属性窗口 10、用于获得字符串s最左边4个字符的函数是：a A．Left(s,4) B．Left(1,4) C．LeftStr(s) D．LeftStr(3,4) 11、以下程序段的输出结果是：d a=Sqr(3) b=Sqr(2) c=a>b Print c A．-1 B．0 C．False D．True 12、用下面语句定义的数组的元素个数是：c Dim A (-4 to 6) As Integer A．6 B．7 C．11 D．9

高中信息技术学业水平测试 VB操作题

Vb算法程序题汇总 目录 1、输入5个数并排序（选择排序） 2、判读输入的三条边能否构成三角形 3、图形打印（倒三角） 4、判断是否为闰年 5、产生随机数 6、输入消费金额，计算出实收金额 7、输入用电量，计算出输出电费 8、求出100以内某数的阶乘 9、程序改错，求100以内奇数之和 10、输入学生成绩，显示相应等级（select case结构） 11、图形打印（三角形） 12、用字符串函数Ucase()和转换函数Asc()填空 13、对数组赋值并求和 14、利用函数，把abcd变成BCD 15、输入10个数，求最大值最小值和平均值 16、输入公里数，计算车费 17、已知两边和夹角，求三角形面积 18、输入学生成绩，显示相应等级（select case结构） 19、学生成绩转换（select case结构） 20、求100以内能够被19整除的个数 1、完善程序代码实现当单击"输入并排序"按钮后，从键盘输入5个数，保存在数组中，并显示在窗体上，然后把这5'个数按照从小到大的顺序排列并显示在窗体上。 Private Sub Command1_Click() Dim x As Long Dim n As Integer, i As Integer, s As Long Dim a(1 To 5) As Single For i = 1 To 5 a(i) = Val(InputBox("请在输入第" + Str(i) + "/5个数")) Print a(i); Next i Print For i = 1 To ___①__ Min = a(i): m = i For x = i + 1 To 5

VB程序设计试题及答案一

V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……