(完整版)VB上机练习题
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程序设计上机题目451. 基本操作（2小题，每小题15分，共计30分）注意：下面出现的"考生文件夹"均为%USER%**********************************************************************请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1，标题为"图片"的窗体上画1个名称为Image1的图像框，其高为2500，宽为2000。
请通过属性窗口设置适当属性，装入考生目录下的图片文件pic1.jpg，并使图片适应图像框的大小（如图所示）。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
********************************************************************** （2）在名称为Form1的窗体上画1个名称为Text1的文本框，其初始内容为空；再画2个单选按钮，名称分别为Option1、Option2，标题分别为"参加"、"不参加"，Option1的标题在单选按钮的左边，如图所示。
当程序运行时，在Text1中输入一些文字（例如"比赛"），单击Option1时，则把其标题放在输入文字的前面（例如"参加比赛"），单击Option2时，则把其标题放在输入文字的后面（例如"比赛不参加"）。
请编写适当的事件过程，完成上述功能。
注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
评析第1小题：新建一个窗体Form1，通过属性窗口设置窗体Form1的Caption属性为"图片"。
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上机题汇总
以题号保存，如第1题取名：1.Frm 、1.Vbp 。
1、 编制事件过程Command1_Click ，执行该过程时调用InputBox 函数输入x ，按下式计算y 并以标签控件Label1显示y 值。
⎪⎩⎪⎨⎧>+-<=<=-+⋅-<-+=5log 5552sin 5123102x x x x x x x x x y x2、 编程运行时单击命令按钮，输入行数n(n<10)然后在窗体上输出n 层数字金字塔。
3、 编程求f=1-1/(2*3)+1/(3*4)-1/(4*5)+……+1/(19*20)。
在窗体上输出结果，运行效果如下图所示。
4、 计算下式的和，变量x 与n 的数值用输入对话框输入。
在窗体上输出结果，运行效果如下图所示。
)!1(...!4!3!232+++++=n x x x x s n 5、 建立一个5行5列二维数组，要求对角线为1，其余元素为0。
运行结果如图所示。
6、 建立一个5行5列二维数组，要求右上三角元素（含对角线）为1，其余元素为0。
7、 编制程序，用随机函数产生20个两位数的整数，存于4行5列的二维数组中，将数组按矩阵形式输出到窗体，并求出其最大元素及最大元素的行、列坐标。
8、 编制通用函数过程(Sum )，计算1+2+……+N 的值。
在窗体的Click 事件中调用该函数。
9、编制通用函数过程(Fact)，计算N！的值。
在窗体的Click事件中调用该函数。
10、编制通用函数过程(Prime)，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。
在窗体的Click事件中调用该函数。
11、编制通用函数过程(Odd)。
用于判断一个整数的奇偶性。
在窗体的Click事件中调用该函数。
12、编制通用函数过程（Average），计算Double类型一维数组所有元素的平均值。
在窗体的Click事件中调用该函数。
13、编制通用Sub过程(Sort)，用选择法对一维数组按从大到小进行排序。
VB上机试题及答案(考试中心贡献)
（考试中心贡献）ViSual Basic程序设计上机试题第一题：20分1、设计一个如下界面的成绩计算程序。
其中总评成绩中平时占20％，期中和期末各占30%和50%。
程序结果保存为1.frm和1.vbp。
参考代码：Private sub Command1_Click()Label1.caption=0.2*val(text1)+0.3*val(text2)+0.5*val(text3)End SubPrivate sub Command2_Click()Text1=””: Text2=”” : Text3=””Text1.setfocusEnd Sub第二题：20分一个四位数，各位之和等于其前两位，各位之积各于其后二位，试求之。
界面自定。
程序结果保存为2.frm和2.vbp。
参考答案：该题的结果为1236For a=1 to 9For b=0 to 9For c=0 to 9For d=0 to 9X=1000*a+100*b+10*c+dIf a+b+c+d=10*a+b and a*b*c*d=10*c+d then print xNext d,c,b,a第三题：20分3、设计一个如下界面的菜单程序，要求效果：单击菜单项可调出相应功能。
提示：Shell函数的格式为shell 路径，１。
程序结果保存为3.frm和3.vbp。
程序结果保存为3.frm和3.vbp。
参考程序：Private Sub Mnote_Click()Shell "notepad.exe", 1End SubPrivate Sub MExit_Click()EndEnd Sub第四题：25分编程实现如下程序，当在列表框中单击某一学生姓名时，在文本框出现学生的籍贯。
相应的学生信息如下表：要求的程序界面：程序结果保存为4.frm和4.vbp。
参考答案：Dim a, bPrivate Sub Form_Load()a = Array("王芸姗", "林丽菲", "张雪涛")b = Array("安徽", "辽宁", "陕西")For i = LBound(a) To UBound(a)List1.AddItem a(i)Next iEnd SubPrivate Sub List1_Click()Text1 = b(List1.ListIndex)End Sub第五题：25分用形状控件在窗体上画一个蓝色小球，运行时可用上、下、左、右四个方向键控制其移动。
VB上机试题及答案
上机操作练习题1．某数组有20个元素,其值为随机产生的两位整数。
现要求将前10个元素与后10个元素对换。
即第1个元素与第20个元素互换,第2个数与第19个元素互换，…,第10个元素与第11个元素互换.在窗体上输出数组原来各元素的值与对换后各元素的值。
Option explicitDim a(1 to 20) as integer, I as integer，j as integer, t as integerPrivate Sub Form_Load(）ShowPrint "原始数组是：”RandomizeFor i = 1 To 20a(i) = Int（Rnd ＊90）+ 10Print a(i）；If i Mod 10 = 0 Then PrintNext iPrintPrint ”现在数组是：”For i = 1 To 10j = 21 - it = a（i）：a(i）= a(j）：a(j) = tNext iFor i = 1 To 20Print a（i)；If i Mod 10 = 0 Then PrintNext iEnd Sub2．从数组中删除一个数。
先定义一个一维数组，大小、数组的值自定。
从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中"注意:1)如果数组中存在多个与该数相同的元素,每一个都能删除；2）能实现多次删除Private Sub Form_Load（）ShowReDim a（9）As Integerm = 1Print ”原来数组为:”For i = 0 To 9a(i) = InputBox(”请输入第”＆m ＆"个数：”）Print a(i)；m = m + 1Next iPrintn = InputBox(”查找的数是："）i = 0：flag = FalseDoIf a(i) = n Thenj = i：flag = TrueFor k = j To UBound（a) - 1a（k）= a（k + 1)Next kReDim Preserve a(UBound(a) - 1)i = i - 1End Ifi = i + 1Loop While (i <= UBound（a）)If flag = False ThenMsgBox n ＆"不在该数组中”ElsePrint ”删除”＆n ＆"后的数组是：”For i = 0 To UBound(a）Print a(i）；Next iEnd IfEnd Sub3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
国家二级VB机试(上机操作)模拟试卷280(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷280(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1，标题为“组合框”的窗体上画1个名称为Combo1的组合框，利用属性窗口设置适当属性使其在程序刚开始运行时的界面如图3—37所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为Image1的图像框，并通过属性窗口为其装入考生文件夹中的图标文件CARS．ico再画一个名称为Timer1的计时器，一个名称为Command1、标题为“开始”的命令按钮，如图3—37图3—38所示。
要求：通过属性窗口设置适当的属性，再编写适当的事件过程，使得程序运行时，单击“开始”按钮，图片可以每0．2秒向右移动50。
注意：程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个组合框。
按表4—25设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个图像框、一个定时器和一个命令按钮。
按表4—26设置其相关属性。
步骤2：在打开的代码编辑窗口中，编写命令按钮的Click事件代码和定时器的Timer事件代码。
参考代码：Private Sub Command1_Click( )Timer1．Enabled=TrueEnd SubPrivate Sub Timer1_Timet( )Image1．Left=50+Image1．LeftEnd Sub步骤3：按要求将文件保存至考生文件夹中。
VB练习题(上机)含答案
VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
VB基础上机题
练习1：新建一个窗体，名字为myfrm在上面画4个命令按钮，名字分别为cmd1、cmd2、cmd3、cmd4再画一个标签，名字分别为L1用代码完成下列操作。
1.修改窗体的标题。
2.修改命令按钮的标题分别修改为春天、夏天、秋天、冬天3.编写命令按钮的单击事件：单击cmd1:在L1上显示一首关于春天的古诗单击cmd2:在L1上显示一首关于夏天的古诗单击cmd3:在L1上显示一首关于秋天的古诗单击cmd4:在L1上显示一首关于冬天的古诗运行调试后保存，文件名为LX1.frm练习2：新建一个窗体在上面画2个命令按钮，名字分别为cmd1、cmd2用代码完成下列操作。
1.修改命令按钮的标题分别修改为显示、移动2.单击cmd1在窗体上显示一首歌的名字3.单击cmd2让cmd1进行移动（位置自己设定）运行调试后保存，文件名为LX2.frm练习3.程序界面如下：2个标签，四个命令按钮。
两个标签的宽度(width属性)均为40000标签颜色设置(forecolor属性)，字体自己设定程序功能：用户单击前3个按钮中的任何一下，上面的两个标签都能随之改变位置，单击退出，程序结束。
标签的对齐属性：alignment=0 左对齐，=1右对齐，=2居中。
例：private sub command1_click()Label1.alignment=0Label2.alignment=0End sub以上代码完成两个标签的左对齐。
其它代码，自己仿写。
退出的代码：end运行调试后保存，文件名为LX3.frm练习4：标签的属性设置：Caption：Good Luck To You；BorderStyle：1；BackStyle：0；Alignment：2左边标签的属性设置：Caption：右对齐；Font：黑体、小四；Alignment：1右边标签的属性设置：Caption：水平居中；BorderStyle：1；BackStyle：0；Font：楷体_GB2312、小四；Alignment：2练习6：修改Label1的Name属性为L1, Boderstyle:1, Font:宋体,三号; Caption属性为:程序设计修改Command1,Command2的1属性为: Cd1,Cd2;Caption属性为:隐藏和显示.Private Sub Cd1_Click()L1.Visible = FalseEnd SubPrivate Sub Cd2_Click()L1.Visible = TrueL1.Caption = "程序设计"End Sub。
vb上机考试题库及答案86套
vb上机考试题库及答案86套VB上机考试题库及答案86套1. 选择题- 1.1 VB中，用于声明变量的关键字是（）。
- A. Dim- B. Declare- C. Let- D. Set- 答案：A- 1.2 下列哪个选项是VB中合法的变量名？（）- A. 123abc- B. _name- C. name$- D. name 2- 答案：B2. 填空题- 2.1 VB中，使用（）函数可以将字符串转换为数值。
- 答案：Val- 2.2 在VB中，使用（）关键字可以定义一个数组。
- 答案：Dim3. 简答题- 3.1 简述VB中的事件驱动编程的概念。
- 答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。
4. 编程题- 4.1 编写一个VB程序，实现计算两个数的和并输出结果。
- 答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2Debug.Print "The sum is: " & sum```5. 判断题- 5.1 VB中，使用“=”符号可以比较两个变量的值是否相等。
（） - 答案：错误。
应该使用“==”符号进行比较。
- 5.2 在VB中，可以使用“End”关键字来结束一个程序的执行。
（）- 答案：正确。
6. 综合应用题- 6.1 设计一个VB程序，实现用户输入姓名和年龄，程序输出“欢迎你，[姓名]，你今年[年龄]岁。
”- 答案：```vbSub Main()Dim name As StringDim age As Integername = InputBox("请输入你的姓名：")age = Val(InputBox("请输入你的年龄："))MsgBox "欢迎你，" & name & "，你今年" & age & "岁。
VB上机综合测试题十五套
VB上机综合测试题（一）一、如下所示，在窗体上，放置一个文本框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上机题库(题+答案)
一、基本操作题下面出现的“考生文件夹”均为c:\wexam\20060001。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
1．在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”两个主菜单项（名称分别为vbFile和vbHelp），其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项（名称分别为vbOpen、vbClose和vbExit）。
只建立菜单，不必定义其事件过程。
注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。
2．在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。
编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。
程序中不能使用任何变量，直接显示字符串。
注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。
一、基本操作题答案1．【解题步骤】（1）打开“菜单编辑器”。
（2）菜单设计见表4-1。
表4-1标题名称内缩符号文件vbFile0打开vbOpen1关闭vbClose1退出vbExit1帮助vbHelp0（3）按要求设计含有“文件”和“帮助”的菜单栏。
（4）为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。
（5）设计完成之后，按规定方式存盘。
2．【解题步骤】（1）建立界面和控件并设置控件属性。
程序中用到的控件及其属性见表4-2。
表4-2控件属性设置值按钮Name Cmd1Caption喜欢按钮Name Cmd2Caption不喜欢（2）编写程序代码。
参考代码：Private Sub Cmd1_Click()Print"数理化"End SubPrivate Sub Cmd2_Click()Print"政史地"End Sub（3）调试并运行程序。
9月计算机二级《VB》上机操作题练习
9月计算机二级《VB》上机操作题练习2016年9月计算机二级《VB》上机操作题练习一、基本操作题(1)在名称为Forml的窗体上用名称为shapel的形状控件画一个长、宽均为1200的正方形。
请设置适当的属性以满足下列要求：①窗体的标题为“正方形”，窗体的最小化按钮不可用。
②正方形的边框为虚线(线型不限)。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。
(2)在名称为Forml、标题为“标签”的窗体上，添加一个可自动调整大小的标签，名称为l_abell，其标题为“计算机等级考试”，字体大小为三号字;再添加两个命令按钮，标题分别是“宋体”和“黑体”，名称分别为Commandl、Command2，如图所示。
要求：编写两个命令按钮的Click事件过程。
程序运行后，如果单击“宋体”命令按钮，则标签标题显示为宋体字体;如果单击“黑体”按钮，则标签标题显示为黑体字体。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
二、简单应用题(1)在考生文件夹下有一个工程文件sjt3.vbp，其窗体上有一个控件数组，名称为Labell，含三个标签，标题分别是“开始时间”、“结束时间”和“通话费用”;有一个名称为T extl的控件数组，含三个初始内容为空的文本框;此外还有两个名称分别为Cmdl和Cmd2的命令按钮，标题分别是“通话开始”和“通话结束”。
其中通过属性窗口对“通话结束”命令按钮的初始状态设置为不可用，如图所示。
该程序的功能是计算公用电话计时收费。
计时收费的标准是：通话时间在3分钟以内时，收费0.5元;3分钟以上时，每超过1分钟加S0.15元，不足1分钟按1分钟计算。
程序执行的操作如下：①如果单击“通话开始”按钮，则在“开始时间”右侧的文本框中显示开始时间，且“通话结束”命令按钮变为可用，“通话开始”命令按钮变为不可用。
vb上机考试试题
vb上机考试试题一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的属性？A. DimB. PublicC. PrivateD. Property2. VB中的“Option Explicit”语句的作用是什么？A. 定义变量类型B. 强制显式变量声明C. 隐藏变量D. 设置变量的作用域3. 在VB中，以下哪个控件用于显示图像？A. LabelB. TextBoxC. PictureBoxD. ComboBox4. 如果要为VB中的按钮控件添加点击事件，应该使用哪个事件？A. ClickB. DoubleClickC. MouseDownD. KeyPress5. 在VB中，以下哪个函数可以用于将字符串转换为数值？A. Str()B. Val()C. Chr()D. Asc()6. VB中的“Select Case”语句最多可以有多少个Case分支？A. 1B. 2C. 10D. 无限制7. 在VB中，以下哪个属性用于设置控件是否可见？A. VisibleB. EnabledC. CaptionD. Text8. 当在VB中创建一个数组时，数组的下标默认从哪个数字开始？A. 0B. 1C. 100D. -19. 在VB中，以下哪个方法用于获取文本框中输入的文本？A. TextB. CaptionC. ValueD. Name10. VB中的“With”语句用于什么目的？A. 初始化变量B. 创建对象C. 引用对象的多个属性或方法D. 定义数据类型二、填空题（每空3分，共30分）11. 在VB中，使用________关键字可以创建一个类。
12. 如果要让一个变量在整个应用程序中都可访问，应该使用________关键字声明它。
13. 在VB中，一个事件处理程序的名称通常由触发事件的控件名称、一个下划线和一个________组成。
14. 要循环遍历一个数组中的所有元素，可以使用________循环。
VB上机综合考试题十五套
Tｅxt2 = m----－-２分
Eｎd Sub
ＰriｖatｅＳub Optioｎ２_Cliｃｋ()----－-1分
Dimi%－-－---2分
ｍ＝１－-----1分
Forｉ=１Tｏn + 2----－-2分
m＝m * i--－－－-2分
Ｎeｘtｉ－-----２分
Text2＝ｍ－－----2分
EndＳuｂ
VB上机综合测试题（二)
1.设计如图所示界面，编程实现如下功能:在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中,其中，平时成绩占最终成绩的30％，考试成绩占最终成绩的70%；单击“清除”按钮,清除文本框中的内容；单击“退出”按钮,关闭窗口。（3５分）
２．设计左图所示界面,编程实现如下功能:单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中（见右图）（25分）。
IfＣheck１(ｋ).ｖaluｅ= 1 Thｅn--－--2分
Text1．Tｅxt＝Tｅｘt1.Tｅxt & Check1(k）．Caｐtｉon＆"＂----－-2分
EndＩf----－－2分
Nｅxtｋ----－-2分
ＥndSub
三、
界面设计----－10-分
Ｐriｖate SuｂCｏmｍａnd１_Ｃliｃk（)------2分
PrivatｅSub Chｅck3_Clｉck()
Text1.FontUnｄｅｒｌine= Check3.Value----－-5分
Ｅnd Suｂ
二、
界面设计-－----10分
ＰriｖateSub Cmd1_Clｉcｋ()-－--－-２分
Ｄｉma％（19), i%, suｍ!, aｖer!--－－－-４分
计算机等级考试VB上机练习题集
计算机等级考试上机练习题一、程序设计题（一）操作说明：浙江省计算机等级考试（二级VB）上机测试的程序设计题，从2002年秋季开始，其题型及考试要求都有较大变化。
要求考生在老考生目录中，按照题目要求，自己新建一工程文件Design.Vbp，按题目要求完成界面设计和编写相应事件代码。
程序设计题的操作步骤如下：1．考生在单击“回答”按钮后，便可启动Visual Basic6.0系统，同时运行考生目录中的Design.exe文件，以便考生设计时随时同程序设计要求最终效果比较。
2．程序界面设计，要求考生设置窗体指定的一些属性，在窗体添加控件，并设置控件的某些属性。
3．编写程序代码，根据题目的要求，在代码窗口中编写相应事件的程序代码，调试运行程序使其程序的运行效果与运行Design.exe的效果相同。
4．将工程以文件名“Design.Vbp”，窗体以文件名“Design.Frm”保存在考生文件夹中。
（二）样题选编1．请参考Design.exe程序的运行结果，如图1所示。
新建一个工程，完成“添加与删除”程序的设计。
将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：（1）窗体的标题为“添加与删除”，固定边框。
（2）在窗体中引入一个文本框Text1，再在文本框的下面引入一个列表框List1，列表框内容中有四项，分别为“Word、Excel、PowerPoint、Outlook”。
（3）单击“添加”按钮（Command1），将文本框中的内容加到列表框中的第一题，如果文本框中没有内容，则给出提示“没有内容，不予添加”。
（4）单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择删除的项目”。
图1 “添加与删除”程序运行结果图2 “加法器”程序运行效果2．请参考Design.exe程序的运行结果，如图2所示。
新建一个工程，完成“加法器”程序的设计。
VB上机练习题
1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。
单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。
单击C3按钮结束程序运行。
Private Sub Command1_Click()Text1.Font = 黑体End SubPrivate Sub Command2_Click() Text1.ForeColor = vbRedText2.ForeColor = vbBlue End SubPrivate Sub Command3_Click() End End Sub2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。
鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。
Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbRed End SubPrivate Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbGreen End SubPrivate Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End SubPrivate Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。
单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。
单击C3按钮结束程序运行。
Private Sub Command1_Click()Text1.Font = 黑体End SubPrivate Sub Command2_Click() Text1.ForeColor = vbRedText2.ForeColor = vbBlue End SubPrivate Sub Command3_Click() End End Sub2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。
鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。
Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbRed End SubPrivate Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbGreen End SubPrivate Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End SubPrivate Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。
Private Sub Command1_Click()Text1.Text = ""Text2Text1Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command2_Click() EndEnd Sub Private Sub Text1_Change()Text2.Text = Text1.TextText3.Text = Text1.TextEnd Sub注：“字体不同”可以在属性那调“Font”4.设计一个窗体，如上图所示。
当单击某个命令按钮时，对文本框中的文字完成相应的设置。
其中，每单击一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小5磅，“粗体”按钮将使文本框中的文字加粗，“斜体”按钮将使文本框中的文字倾斜，“下划线”按钮将使文本框中的文字加下划线，“删除线”按钮将使文本框中的文字加删除线。
Private Sub Command1_Click() Text1.FontSize = Text1.FontSize + 5 End SubPrivate Sub Command2_Click() Text1.FontSize = Text1.FontSize - 5 End SubPrivate Sub Command3_Click() Text1.FontBold = TrueEnd Sub Private Sub Command4_Click() Text1.FontItalic = TrueEnd SubPrivate Sub Command5_Click() Text1.FontUnderline = True End SubPrivate Sub Command6_Click() Text1.FontStrikethru = True End Sub5.设计一个窗体，如下图所示。
程序中将π定义成符号常量（用Const ）,运行时，输入底面半径r 和圆柱高h，然后单击“计算”命令按钮，在相应文本框中显示计算结果。
运算结果为只读。
Private Sub Command1_Click()Const pi = 3.14h = Val(Text1)r = Val(Text2)Text3.Text = pi * r ^ 2Text4.Text = 2 * pi * r * hText5.Text = pi * r ^ 2 * hEnd Sub6.设计界面如上图所示。
单击“出题”按钮，产生任意两个【1，100】之间的随机整数于Text1、 Text2中，单击“计算”按钮，求两个数的和。
运算结果为只读。
Private Sub Command1_Click() Text1.Text = Int(100 * Rnd + 1) Text2.Text = Int(100 * Rnd + 1) End Sub Private Sub Command2_Click()a = Val(Text1.Text)b = Val(Text1.Text)Text3.Text = a + bEnd Sub7．设计一个数字钟表程序，界面如图所示。
运行时单击窗体，显示当前的年月日星期及时间。
Private Sub Form_Click()Label2.Caption = Year(Now)Label4.Caption = Month(Now)Label6.Caption = Day(Now)Label9.Caption = Weekday(Now)Label11.Caption = TimeEnd Sub8．设计一个数学函数程序，界面如图所示。
程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。
文本框始终处于选中状态。
Private Sub Command1_Click() Label3.Caption = Abs(Val(Text1)) Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text) End Sub Private Sub Command2_Click() Label3.Caption = Sqr(Val(Text1)) Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text) End SubPrivate Sub Command3_Click() Label3.Caption = Fix(Val(Text1)) Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text) End SubPrivate Sub Command4_Click() Label3.Caption = Int(Val(Text1)) Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text) End SubPrivate Sub Command5_Click() Label3.Caption = Sgn(Val(Text1)) Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text) End Sub9．设计一工程，在文本框中输入一整数，单击“判断”按钮，判断能否同时被3、5、7整除，若能用MsgBox函数显示“能同时被3、5、7整除”，否则显示“不能整除”。
Private Sub Command1_Click()a = Val(Text1)If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 ThenMsgBox "能同时被3、5、7整除"ElseMsgBox "不能整除"End IfEnd Sub10．设计一个计算购书价钱的程序，界面如下图所示。
为了提高运行速度，设置Tab键序，使得输入完单价后，焦点定位到输入数量文本框中。
单击“计算总价”或用访问键，算出总价。
总价文本框要求为只读属性。
完成相应功能。
Private Sub Command1_Click()a = Val(Text1)b = Val(Text2) Text3.Text = a * b End Sub Private Sub Command2_Click() EndEnd Sub11．设计一工程，界面如上图所示。
程序运行，单击“计算”，求出对应角度的三角函数的绝对值于文本框Text2中，同时要求选中文本框Text1内容，以便继续输入。
Private Sub Command1_Click()a = Val(Text1)b = a * 3.14 / 180c = Abs(Sin(b))d = Abs(Cos(b))Text2.Text = Text2.Text & a & Space(10) & Format(c, "0.000") _& Space(10) & Format(d, "0.000") & vbCrLfText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub12．设计一个程序，用户界面如下图所示。
程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。
Private Sub Command1_Click()a = Val(Text1)b = Val(Text2)c = Val(Text3)Text4.Text = a * b * cEnd Sub Private Sub Command2_Click() Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End Sub13．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。