vb上机作业练习
VB练习题(上机)含答案
第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1))Elsech1 = ch1 + UCase(Mid(ch, i, 1))End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
Private Sub MyCmd1_Click()Dim a%(29), i%, max%RandomizeFor i = 0 To 29a(i) = Int(Rnd * 1001)Next imax = a(0)For i = 1 To 29If a(i) > max Then max = a(i)Next iPrint maxEnd Sub4 请设计如下图所示窗体界面。
vb上机练习题及答案
vb上机练习题及答案一、基本要求熟悉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机试(上机操作)模拟试卷102(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷102(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个名称为．CDl的通用对话框，通过属性窗口设置CDl的初始路径为C：＼，默认的文件名为None，标题为“保存等级考试”，如图3．125所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Forml的窗体上设计一个菜单。
要求在窗体上添加名为menu0，标题为“菜单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menul子菜单不可用，menu2子菜单已经选中(运行时的效果如图3．126所示)。
再编写适当的事件过程，使得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色(可用)。
要求程序中不得使用变量，且只有一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．fm正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，选择【工程】→【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSofy Common Dialog Control6．0”项目，单击“确定”按钮。
步骤2：在窗体Forml 上画一个通用对话框并设置相关属性。
步骤3：编写Forml的Load事件，加入下面的代码：CD 1．ShowSave步骤4：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，打开VB菜单设计器按要求设计菜单。
步骤2：打开代码编辑窗口，编写“上一菜单项可用”命令的Click事件过程。
参考代码：Private Sub menu2 C1ick( ) menul．Enabled=TrueEnd Sub步骤3：按要求将文件保存至考生文件夹中。
vb上机考试习题以及答案
VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5?5的矩阵，输出该矩阵。
Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load()= 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上机练习(基础操作)
基本操作：1）在名称为Form1的窗体上建立一个名成为L1的标签；两个名称为Cmd1和Cmd2、标题为“显示1”和“显示2”的命令按钮。
编写适当的事件过程，要求运行后，如果单击“显示1”，则会在标签上显示字符串“aaa”；如果单击“显示2”，则会在标签上显示字符串“bbb”。
不能使用任何变量，直接显示字符串，如图1所示。
图12）在名称为Form1的窗体上画一个文本框，名称为Text1，其初始值为0；画一个命令按钮，名称为Cmd1,标题为“开始计数”再画1个名称为“Timer1”的计时器。
要求程序开始运行时不计数，点击“开始计时”按钮后，则使文本框每秒加1。
注意，程序代码中不能使用任何变量。
如图2所示。
图2在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，初始情况下都没有内容。
请编写适当的事件过程，使得运行时，在T1里中输入的任何字符，立即显示在T2中。
注意，程序代码中不能使用任何变量。
如图3所示。
图34）在名称为Form1的窗体上画三个复选框，名称分别为Chk1和Chk2和Chk3，标题为“计算机基础”、“操作系统”和“数据库原理”，其中“操作系统”被选中，“数据库原理”被禁用，如图4所示。
图4在名称为Form1的窗体上画一个列表框，名称分别为L1，通过属性窗口添加4个项目内容。
请编写适当的事件过程，使得运行时，单击列表框中的某1项，则该项就从列表中消失。
如图5所示。
图56）在名称为Form1的窗体上画1个名称为HS1的水平滚动条，其刻度为1~100；画1个命令按钮，名称为C1，标题为“移动”。
请编写适当的事件过程，使得在运行后，没单击按钮一次（假定单击次数少于10次），滚动框向右移动10个刻度。
注意，程序代码中不能使用任何变量。
如图6所示。
图6在名称为Form1的窗体上画1个名称为T1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，并为该菜单建立两个子菜单，其标题分别为“显示”和“清除”，名称为“Dis”和“ Cl”,请编写适当的事件过程，使得在运行后，单击“显示”，则在文本框内显示“计算机登记考试”，单击“清除”，则清除文本框内容。
计算机一级VB上机练习题
2007—2008(2) VB上机练习题1．设计一个数字钟表程序，界面如图所示。
运行时单击窗体，显示当前的年月日星期及时间。
2．设计一个数学函数程序，界面如图所示。
程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。
文本框始终处于选中状态。
3．设计口令检测界面，口令自定，运行初始如第一幅图，若口令错，则如第二幅图；否则，将显示另一欢迎窗口，如第三幅图所示。
在连续三次输入错误口令后，给出警告并结束运行。
4．设计一个程序，用户界面如下图所示。
程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。
5．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。
6．设计一个程序，用户界面如下图所示。
程序运行后，单击Command1按钮，求出最大最小数。
7．设计一个100（随机函数产生）之内的四则运算题，界面如下。
8．设计一个窗体Forml，界面如右图所示。
编写适当的事件过程，程序运行后在第一个文本框中输入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。
9．界面如下图所示。
编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，如果可以在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。
10．某工程运行时，图片框中图可以任意。
单击“隐藏图像”按钮（command2）界面如右图，单击“显示图像”按钮（command1）界面如左图，编写适当的事件过程。
11．在文本框T1中打印100~999之间的所有水仙花数。
（该数为各位数字的立方和。
例如：153=1 3+5 3+3 3）12．有一数列，它的头2个数为0、1，以后的每个数都是其前2个数之和。
编程在文本框T1中输出所有这些数列，直到第30个数或最后一项等于1000为止，同时在另一文本框中输出它们的和。
VB上机综合测试题(十五套)
VB上机综合测试题（一）一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。
三个复选框check1,check2和check3，如图设置属性。
要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分）二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分）三、请设计如下图所示窗体界面。
运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。
请编写程序完成上述功能。
（40分）答案：一、界面设计------10分Private Sub Check1_Click()Text1.FontBold = Check1.Value ------5分End SubPrivate Sub Check2_Click()Text1.FontItalic = Check2.Value------5分End SubPrivate Sub Check3_Click()Text1.FontUnderline = Check3.Value ------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 SubPrivate Sub Option1_Click()------2分Dim i% ------2分n = Val(Text1) ------3分m = 1 ------1分For i = 1 To n ------2分m = m * i -----2分Next i ------2分Text2 = m ------2分End SubPrivate Sub Option2_Click()------1分Dim i% ------2分m = 1 ------1分For i = 1 To n + 2 ------2分m = m * i ------2分Next i ------2分Text2 = m ------2分End SubVB上机综合测试题（二）1．设计如图所示界面，编程实现如下功能：在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占最终成绩的30%，考试成绩占最终成绩的70%；单击“清除”按钮，清除文本框中的内容；单击“退出”按钮，关闭窗口。
VB上机练习
第1章上机练习1.熟悉Visual Studio .NET的IDE界面，练习窗口的浮动、停靠，工具栏的定制。
2.模仿书中的例子，编写“Hello，Visual Basic .NET”程序。
3.学会使用帮助，在编写程序时使动态帮助始终打开，注意观察动态帮助窗口中内容的变化。
4.在帮助菜单下选择对“帮助的帮助”，阅读其中的内容，学习帮助的使用。
5.在窗体上选中不同的控件，按下F1，阅读显示的内容。
第2章上机练习1．使用文本框、标签和按钮，编写一个计算年利息的程序。
用户输入本金、年利率、年限计算应得的利息。
2．编写程序在窗体上放置1个TextBox控件和4个Button控件。
分别按下这4个按钮，可以把文本框的背景色分别设置为红色、蓝色、黑色和绿色。
3．写一个简单的程序来证明当按钮具有焦点时按下回车键，将引起按钮的单击事件。
4．在窗体上放置4个排成矩形的按钮，每个按钮的标题都是PushMe！。
当用户单击其中一个按钮时，此按钮便会消失，其它3个依然存在。
5．窗体有2个文本框，用户可以在其中输入信息，单击其中一个文本框，会变成空白，其中的信息转移到另一个文本框。
6．在窗体上放置3个文本框，按下Tab键后，3个文本框会依次在红、绿、黄3种颜色之间循环显示，如同十字路口的红绿灯一样。
最初，其中一个文本框是绿色，其它2个是灰色。
每当其中一个文本框显示有颜色时（灯亮），其余2个变为灰色（灯灭）。
第3章上机练习1.输入三角形三条边的长度a, b, c,计算并显示三角形的面积。
公式为：面积＝sas-)-, 其中s=(a+b+c)/2s-)(b)((cs2.随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
例如，产生135，输出是531。
3.在高度为6米的地方垂直于地面向上抛起一个小球，初速度为12m/s。
编写程序，根据用户输入的时间（秒）计算出小球离开地面的高度。
如，用户输入3.1，计算3.1秒后小球离开地面的高度。
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》上机操作题2016年计算机二级考试《VB》上机操作题还有一天计算机二级考试就要开考了!小伙伴们，你们都准备好了吗?下面是店铺为大家搜索整理了关于计算机二级考试《VB》上机操作题，欢迎参考练习，希望对大家备考有所帮助!想了解更多相关信息请持续关注我们店铺!一、基本操作题，请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)1、在名称为Forml的窗体上添加两个名称分别为T extl和T ext2的文本框，初始内容均为空;再建立一个下拉菜单，菜单标题为“操作”，名称为Ml，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把T extl中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在T ext2中填人空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sit2.frm。
2、在名称为Forml的窗体上添加两个名称分别为T extl和T ext2的文本框，它们的高、宽分别为300、2400和1200、2400。
窗体的标题为“窗口”。
请通过属性窗口设置适当的属性，满足如下要求：①Text2可以显示多行文本，并且有垂直和水平两个滚动条;②程序运行时在T extl中显示输入的字符为“*”。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。
二、简单应用题3、在考生文件夹下有一个工程文件sjr4.vbp。
窗体上的控件如图所示。
程序运行时，若选中“累加”单选按钮，则“10”、“l2”菜单项不可用，若选中“阶乘”单选按钮，则“1000”、“2000”菜单项不可用(如图所示)。
国家二级VB机试(上机操作)模拟试卷353(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷353(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上画两个名称分别为Framel、Frame2的框架，标题分别为“字号”、“修饰”；在Framel中画两个单选按钮，名称分别为Optionl、Option2，标题分别为“10号字”、“20号字”，且标题显示在单选按钮的左边；在Frame2中画一个名称为Checkl的复选框，标题为“下划线”。
运行后的窗体如图3．174所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Form1的窗体上从上到下画两个文本框，名称分别为Text1、Text2；再画一个命令按钮，名称为Command1，标题为“选中字符数是”。
程序运行时，在Text1中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则在Text2中显示选中的字符个数(如图3．175所示)。
请编写按钮的Click事件过程。
要求：不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
(2)步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性，步骤2：打开代码编辑窗口，编写以下事件过程。
参考代码：Private Sub Command1 Click( )Text2．Text=Form1．Text1．SelLengthEnd Sub 步骤3：按要求将文件保存至考生文件夹中。
解析：(1)本题只需按题目在窗体中画出控件，并设置相关属性即可。
(2)要在Text2中显示Text1中选中的字符个数，需编写语句将Text1的SelLength属性返回值赋值给Text2。
vb上机考试基本操作题
四、基本操作题1. 在考生文件夹中，完成以下要求：1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”，标题改为"字体显示"。
2.请在窗体的适当位置增加以下控件：文本框Text1，Text属性为“VB演示”；复选按钮Check1，Value初值为0，Caption属性为“粗体”；命令按钮Command1，标题为“退出”，结束系统运行。
3.要求用If-Endif语句完成：选中复选按钮，文本框的文字为粗体；不选中，文本框的文字取消粗体，单击命令按钮结束程序运行。
4.请先调试、运行，然后将工程、窗体保存。
Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Command1_Click()EndEnd Sub2. 在考生文件夹中，完成以下要求：1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。
2.请在适当位置增加以下控件：标签Label1，标题为："列表显示"；文本框Text1用于显示在列表框中选中的项；列表框List1。
3.在窗体装载事件中编写代码为列表框List1添加三项显示内容：“足球”，“篮球”，“排球”。
4.请先调试、运行，然后将工程、窗体保存。
Private Sub Form_Load()List1.AddItem "足球"List1.AddItem "篮球"List1.AddItem "排球"End SubPrivate Sub List1_Click()Text1.Text = List1.TextEnd Sub3. 在考生文件夹中，完成以下要求：1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。
国家二级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上机操作练习题及答案
计算机二级VB上机操作练习题及答案计算机二级VB上机操作练习题及答案Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，下面店铺为为大家带来计算机二级VB上机操作练习题及答案，希望大家喜欢！一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。
组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。
运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。
再画两个标题分别为“椭圆”和“圆”的命令按钮。
如下图所示。
要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。
二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。
窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。
程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。
运行窗体如图所示。
要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。
最后程序按原文件名存盘。
vb上机操作题_看
实验一1、(P.28 例2.2) 要求：设定窗体无最大化按钮和最小化按钮Load事件：窗体的标题栏显示“装入窗体”，并装入一背景图片；Click事件：窗体的标题栏显示“单击窗体”，装入另一背景图片；DblClick 事件：标题栏显示“双击窗体”，清除背景图。
（存盘文件：EX1-1.frm、EX1-1.vbp）2、单击标签，交换两个标签显示的内容。
（存盘文件：EX1-2.frm、EX1-2.vbp）3、每单击一次标签，标签向右移动30Twips。
（存盘文件：EX1-3.frm、EX1-3.vbp）4、在文本框中输入密码，点击显示按钮后将密码在标签中显示出来。
要求：在窗体的Load事件中对文本框、标签和按钮进行如下初始化设置；文本框：密码替代字符为*号、字体大小为20磅；标签：有边框、背景色为白色、字体大小为20磅、居中对齐；按钮：字体大小为20磅（存盘文件：EX1-4.frm、EX1-4.vbp）实验二1、在窗体上制作一个文本框和若干标签，每个标签代表一种颜色。
当点击其中一个标签时，文本框中文字的颜色随之而发生相应改变。
（存盘文件：EX2-1.frm、EX2-1.vbp）2、点击同一位置的2个按钮，使标签分别显示出中文和英文的不同文本内容。
要求：使用visible属性来控制两个按钮的显示切换。
（存盘文件：EX2-2.frm、EX2-2.vbp）3、设计如下界面，利用命令按钮控制标签里的文字的字体、字号等。
（存盘文件：EX2-3frm、EX2-3.vbp）4、设置如下的窗体界面，在第一个文本框里输入字符串，显示均为#号：(1)单击“还原”按钮，将#号还原成原字符串；(2)单击“显示”按钮，将原输入的字符串显示在下面的文本框里；(3)单击“清除”按钮，清除两个文本框的内容，光标自动定位在第一个文本框里。
（存盘文件：EX2-4frm、EX2-4.vbp）实验三1、随机产生一个三位正整数，然后逆序显示。
如输入123则逆序显示321。
专升本VB上机编程作业1_题解
专升本Visual Basic上机编程作业（一）及题解一、循环结构程序设计：1、编程找满足条件的值。
例1：编程求解百钱买百鸡问题。
公鸡每只5元，母鸡每只3元，小鸡三只1元，百元钱买百只鸡，问公鸡、母鸡、小鸡各若干？程序代码如下：1Dim x%, y%, z %For x=1 To 20For y=1 To 33Z=100-x-yIf 5*x+3*y+z/3=100 Then Print ”公鸡：”; x ，”母鸡：”; y，”小鸡：” ;zNext yNext x请参考以上程序，完成下列编程。
1.1、（09专升本编程题）鸡免同笼问题：已知笼中鸡和免共36只，它们的脚共有100只，编程计算鸡和免分别有多少只。
Dim x As Integer, y%For x = 1 To 35y = 36 - xIf 2 * x + 4 * y = 100 Then Print "鸡："; x; "免："; yNext x1.2、已知两个三位数相加之和abc+cba=1333，编程计算并输出能满足这个条件的所有a、b、c的值。
Dim a%, b%, c%For a = 1 To 9For b = 0 To 9For c = 1 To 9If (a + c) * 100 + 2 * b * 10 + c + a = 1333 Then Print "a="; a, "b="; b, "c="; cNext cNext bNext a1.3、有一篮鸡蛋（总数小于500），二个一数多一个，三个一数多二个，四个一数多三个，五个一数多四个，六个一数多五个，七个一数正好，编程求鸡蛋的数量。
Dim i%For i = 1 To 499If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then Print "鸡蛋的只数=:"; I ：exit forNext iDim i%i = 0Do Until i >= 500i = i + 1If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then Print "鸡蛋的只数=:"; iLoop1.4、马克思曾经做过这样一道趣味数学题：有30个人在一家小饭馆里用餐，其中有男人、女人和小孩。