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所示。
VB上机综合测试题(十五套)
VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分） 二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分） 三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）
答案： 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() End Sub
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、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
大学VB考试题库
大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.wendangku.net/doc/2d3724395.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。
A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0
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.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。 单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。单击C3按钮结束程序运行。 Private Sub Command1_Click() Text1.Font = 黑体 End Sub Private Sub Command2_Click() Text1.ForeColor = vbRed Text2.ForeColor = vbBlue End Sub Private Sub Command3_Click() End End Sub 2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。 Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbRed End Sub Private Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbGreen End Sub Private Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End Sub Private Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub 3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。 Private Sub Command1_Click() Text1.Text = "" Text2 Text1
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上机程序调试题_题目及参考答案
第二部分VB上机考试模拟试题 一、程序调试题(改错或填空) （二）程序调试题 [题1] Modify.bas模块中的getanswer过程是用于计算一元二次方程的根，并将结果输出来。 Option Explicit Public Sub getanswer() '该过程是用于计算一元二次方程的根，并将结果输出来。 Dim dalt!, a#, b#, c# a = InputBox("输入系数a") b = InputBox("输入系数b") c = InputBox("输入系数c") dalt = b * b - 4 * a * c If ----1---- dalt >0 then dalt = Sqr(dalt) MsgBox Format((-b + dalt) / 2 / a), "0.00" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") Elseif ---2---- dalt =0 then MsgBox Format(-b / 2 / a, "0.00") + Chr(13) + Chr(10) + Format(-b / 2 / a, "0.00") Else dalt= ---3---- Sqr(-dalt) MsgBox Format((-b + dalt) / 2 / a, "0.00") + "+i" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") + "-i" End If End Sub [题2] 打印输出一菱形图案。 Public Sub prt() '打印由#组成的菱形图案 ' # ' ### ' ##### ' ####### ' ######### ' ####### ' ##### ' ### Dim start As String '每行起始空格数 Dim count As Integer '每行#个数 For i = 1 To 9 If i <= 5 Then '------1------ start=space(21-i) count = 2 * i - 1 Else start = Space(11 + i) '-------2------ count=19-2*i End If '------3------ form1.print start; For j = 1 To count Form1.Print "#"; Next j '------4------ form1.print Next i [题3] 过程pyramid用以打印一个数字金字塔，请在横线上填入必要的内容（将横线删除掉后填入正确的内容），使其完整。 Option Explicit Public Sub pyramid() '打印数字金字塔 ' 1 ' 222 ' 33333 ' 4444444 ' 555555555 ' 6666666 ' 77777 ' 888 ' 9 Dim i As Integer Dim j As Integer Dim start As String '每行起始空格数 Dim num As Integer '每行数字个数 For i = 1 To 9 If i <= 5 Then start = Space(20 - i) num = 2 * i - 1 Else start= '------1------ Space(10 + i) num= '------2------ 2 * (10-i) - 1 End If Form1.Print start; For j = 1 To num '------3------ form1.print trim(str(i)); Next j '------4------ form1.print Next i End Sub [题4] 改错。 Option Explicit Public Sub prt() '打印由数字组成的如下所示金字塔图案 ' 9 ' 888 ' 77777 ' 6666666 ' 555555555 ' 44444444444 ' 3333333333333 ' 222222222222222 ' 11111111111111111 Dim i As Integer, j As Integer '****** 错误1 ****** For i = 9 To 1 step -1 Form1.Print Space(i); '****** 错误2 ****** For j = 1 To 2 *(10- i) - 1 '****** 错误3 ****** Form1.Print trim(str(i)); Next j
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程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).
A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile
计算机一级VB上机练习题电子版本
计算机一级V B上机 练习题
2007—2008(2) VB上机练习题 1．设计一个数字钟表程序，界面如图所示。运行时单击窗体，显示当前的年月日星期及时间。 2．设计一个数学函数程序，界面如图所示。程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。文本框始终处于选中状态。 3．设计口令检测界面，口令自定，运行初始如第一幅图，若口令错，则如第二幅图；否则，将显示另一欢迎窗口，如第三幅图所示。在连续三次输入错误口令后，给出警告并结束运行。
4．设计一个程序，用户界面如下图所示。程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。 5．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。 6．设计一个程序，用户界面如下图所示。程序运行后，单击Command1按钮，求出最大最小数。 7．设计一个100（随机函数产生）之内的四则运算题，界面如下。
8．设计一个窗体Forml，界面如右图所示。编写 适当的事件过程，程序运行后在第一个文本框中 输入圆的半径，单击“计算”按钮，分别在第二个 和第三个文本框中显示圆的面积和周长。 9．界面如下图所示。编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，如果可以在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。 10．某工程运行时，图片框中图可以任意。单击“隐藏图像”按钮（command2）界面如右图，单击“显示图像”按钮（command1）界面如左图，编写适当的事件过程。
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、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5) Private Sub Form_Click() Ran domize For i = 1 To 5 Forj = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); Next j Print Next i End Sub 2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4 位四舍五入)。Private Sub Form_Click() For i = 1 To 25 a = In t(R nd * (99 - 10 + 1) + 10) Print a; s = s + a Next i Print Avg = s / 25 Print Avg End Sub 3、在窗体上按下鼠标的右键，记录其坐标。 Private Sub Form_Load() Label1.BorderStyle = 1 Label1.Alig nment = 2 End Sub Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle) If Butt on = 2 The n Label1.C apti on = X & "," & Y End If End Sub 4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1
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经典题目及答案
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中。
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",