计算机二级考试VB上机练习题
〖第1题〗『程序填空』(1分)(题号:532) 【程序填空】''题目：输入n个数，n由用户输入。 ' 程序的功能是将输入的n个数反向输出? 请在【】处填入正确的 Private Sub Form_Load() Dim n As Integer Dim k As Integer Dim m As Integer Dim h As Integer Dim t As Integer Show Dim a(100) As Single n = Val(InputBox("输入个数n")) Print "处理前数据 :" '**********SPACE********** For k = 1 To 【?】 a(k) = Val(InputBox("请输入第" & k & "个数")) Print a(k); Next k Print '**********SPACE********** m = Int(【?】) For k = 1 To m h = n - k + 1 '**********SPACE********** t = a(h): 【?】: a(k) = t Next k Print "处理的结果 :" For k = 1 To n Print a(k); Next k End Sub 答案：1). n 2). n / 2 3). a(h) = a(k) 〖第2题〗『程序填空』(1分)(题号:498) '【程序填空】 ''题目：本程序执行功能为，命令按钮单击一次后，窗体上输出结果为： '36 '25 '16 '9 请在【】处填入正确的内容 Private Sub Command1_Click() Dim xx(6) As Integer Dim k% Open App.Path & "\al.dat" For Output As #1 For I = 1 To 6 '**********SPACE********** j = 【?】 Print #1, j Next I Close #1 Open App.Path & "\a1.dat" For Input As #2 k = 0 Do While Not EOF(2) '**********SPACE********** k = 【?】 Input #2, xx(k) Loop Close #2 '**********SPACE********** For I = k To k / 2 Step【?】 Form1.Print xx(I) Next I End Sub 答案： 1). I * I 2). k + 1 或 1 + k 3). -1 〖第3题〗『程序填空』(1分)(题号:501) '【程序填空】 ''题目：本程序执行后，最终在窗体上打印数字7。 请在【】处填入正确的内容 Private Sub Command1_Click() Dim a As String '**********SPACE********** Open App.Path & "\abc.bat" For 【?】 As #1 n = 8 For I = 1 To n Print #1, I + 1 Next I Close #1 '**********SPACE********** Open App.Path & "\abc.bat" For 【?】 As #1 For I = 1 To n Input #1, a If I Mod 5 = 0 Then '**********SPACE********** Print CInt(a) + 【?】 End If Next I Close #1 End Sub 答案： 1). Output 2). Input 3). 1 〖第4题〗『程序填空』(1分)(题号:46) '【程序填空】 ''题目：从键盘输入学生分数，统计学生总人数和各分数段人数， ' 即优秀（90-100）、良好（80-89）、中等（70-79）、 ' 及格（60-69）、不及格（60以下）的人数。 Private Sub Form_Click() Dim score%, n1%, n2%, n3%, n4%, n5% msg = "请输入分数（-1结束）" msgtitile = "输入数据" score = Val(InputBox(msg, msgtitle)) '**********SPACE********** While 【?】 total = total + 1 '**********SPACE********** Select Case 【?】 Case Is >= 90 n1 = n1 + 1 Case Is >= 80 n2 = n2 + 1 Case Is >= 70 n3 = n3 + 1 Case Is >= 60 n4 = n4 + 1 Case Else n5 = n5 + 1 '**********SPACE********** 【?】 score = Val(InputBox(msg, msgtitle)) Wend Print n1, n2, n3, n4, n5,total End Sub 答案： 1). score >=0 ★And★ score <= 100 或 0<=score ★And★ score <= 100 或 0<=score ★And★ 100>=score 或 score >=0 ★And★ 100>=score 2). score 3). End Select 〖第5题〗『程序填空』(1分)(题号:503) '【程序填空】 ''题目：用户界面如图所示，用实现左右两个组合框中数据的左移和右移功能。 ' 程序开始运行时，在左边组合框中生成10个由小到大排列的随机三位 ' 正整数 (假设在设计阶段该组合框的Sorted属性值已设置为True), 现要求完成: ' （1）单击"＞＞"钮，左边组合框中的10个数全部移动到右边组合框，并由大到 ' 小排列，同时使"＜＜"钮能响应，"＞＞"钮不能响应。 ' （2）单击"＜＜"钮，右边组合框中的10个数全部移到左边的组合框，并由小到 ' 大排列，同时使"＞＞"钮能响应，"＜＜"钮不能响应； ' （3）单击"结束"按钮，结束程序运行。 请在【】处填入正确的内容 Private Sub cmdLeft_Click() Dim i As Integer For i = 0 To comboRight.ListCount - 1 comboLeft.AddItem comboRight.List(i) Next i comboRight.Clear '**********SPACE********** 【?】= False '**********SPACE********** 【?】 = True End Sub Private Sub cmdRight_Click() Dim i As Integer '**********SPACE********** For i = 0 To 【?】 - 1 comboRight.AddItem comboLeft.List(i) Next i '**********SPACE********** 【?】.Clear cmdRight.Enabled = False cmdLeft.Enabled = True End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim i As Integer Label1.Caption = "组合框1" Label2.Caption = "组合框2" cmdRight.Caption = ">>" cmdRight.Enabled = True cmdLeft.Caption = "<<" cmdLeft.Enabled = False cmdExit.Caption = "结束" comboLeft.Text = "" For i = 1 To 10 comboLeft.AddItem Int(Rnd * 900) + 100 Next i comboRight.Text = "" End Sub 答案： 1). cmdLeft.Enabled 2). cmdRight.Enabled 3). comboLeft.ListCount 4). comboLeft 〖第6题〗『程序填空』(1分)(题号:511) '【程序填空】 ''题目：程序输出结果为：n=3 x=42 y=9 请在【】处填入正确的内容 Private Sub Command1_Click() Dim n, x, y As Integer '**********SPACE********** n = 0: x =【?】: y = 0 Do While x < 20 '**********SPACE********** n = n 【?】 y = x + y x = x * (x + 1) '**********SPACE********** 【?】 Form1.Print "n=" & Str(n) Form1.Print "x=" & Str(x) Form1.Print "y=" & Str(y) End Sub 答案： 1). 1 2). + 1 3). Loop 〖第7题〗『程序填空』(1分)(题号:523) '【程序填空】 '题目：下面的程序用于求三个数中最大数 '请在【】处填入正确的内容 Private Sub Command1_Click() Dim a, b, c, max, min As Integer a = Val(InputBox("请输入第一个数： ")) b = Val(InputBox(" 请输入第二个数： ")) c = Val(InputBox("请输入第三个数： ")) '**********SPACE********** 【?】 = a min = a '**********SPACE********** If b > max Then 【?】 If b < min Then min = b '**********SPACE********** If 【?】 Then max = c ' If c < min Then min = c Print "最大数为： "; max Print "最小数为："; min End Sub 答案： 1). max 2). max = b 3). c > max 或 max < c 〖第8题〗『程序填空』(1分)(题号:507) '【程序填空】 '题目： 本程序实现功能：将顺序文本文件 “MYFILE.TXT” 的 ' 内容一个字符一个字符地读入文本框txtTest中 请在【】处填入正确的内容 Private Sub Form_Click() Dim InputData As String * 1 txtTest.Text = "" '**********SPACE********** Open App.Path & "\MYFILE.TXT" For 【?】 As #1 '**********SPACE**********
全国计算机二级《VB》练习题及答案
全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行，目前处于紧张的备考阶段，以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后，VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中，VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段：a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
全国计算机等级考试二级VB上机试题及答案(五)
全国计算机等级考试二级VB上机试题及答案(四)基本操作（2小题，每题15分，共30分）****************************************************************请根据以下各小题的要求设计VB应用程序（包括界面和代码）。
请根据以下各个小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名为Form1的窗体上画一个框架，名称为Frm1，标题为"框架"，高度为2000，宽度为3000；再在框架中画一个文本框，名称为Text1，高度为300，宽度为1000，文本框的初始内容设置为"文本框"。
程序运行时的界面如图所示。
（2）在名称为Form1的窗体上，画一个框架，两个单选按钮，一个命令按钮。
框架的名称为Frm1，标题为"地点"。
两个单选按钮在Frm1框架中，名称为Opt1，Opt2，标题分别为"图书馆"，"教室"。
命令按钮的名称为Cmd1，标题为"屏蔽"。
编写适当的事件过程，当程序运行时，如果单击Cmd1按钮，框架就会被屏蔽。
程序运行时的界面如图所示。
****************************************************************参考答案与分析（1）【解析】在窗体中画一个框架，则只需要从工具箱中拖出框架控件放在窗体上即可，而要在框架上画文本框，则是从工具箱中将文本框拖放到框架中。
所以，考生必须注意的是，应该先在窗体上画框架，然后在框架中画文本框。
【答案】第一步：启动VB，新建一个工程文件。
第二步：单击工具箱中框架控件，在窗体上画一个框架，将其Name属性设为Frm1；Caption属性第三步：调试并运行程序。
程序设计完成经调试无误后进行存盘。
执行"文件"菜单中的"保存工程"命令，打开"文件另存为"对话框，窗体文件名为"Stj1.form"，单击保存按钮。
全国计算机等级考试二级VB上机试题及答案(三)
全国计算机等级考试二级VB上机试题及答案(三)基本操作（2小题，每题15分，共30分）****************************************************************请根据以下各小题的要求设计VB应用程序（包括界面和代码）。
请根据以下各个小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画两个文本框，名称分别为T1、T2，初始情况下都没有内容。
请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图所示）。
程序中不得使用任何变量。
*注意：存盘时必须存放在考生文件下，工程文件名为sjt1.vbp，窗体文件名为stj1.frm。
（2）在名称为Form1的窗体上画一个文本框，名称为Text1，内容为"VB程序设计"；再画两个命令按钮，其名称分别为Command1和Command2，标题分别为"扩大"和"缩小"，如图所示，编写适当的事件过程。
程序运行后，每单击Command1命令按钮一次，文本框中的文本的字体扩大1.2倍；每单击Command2按钮一次，文本框中文本的字体缩小1.2倍。
程序运行的界面如图所示。
****************************************************************参考答案与分析（1）【解析】本题主要考查的是文本框的Change事件的用法。
当用户向文本框中输入新信息，或程序把Text属性设置为新值从而改变文本框的Text属性时，将触发Change 事件。
程序运行后，在文本框中每键入一个字符，就会引发一次Change事件。
在本题中要求当在一个文本框中输入字符时在另一个文本框中立即显示该字符，就可以通过在文本框1即T1的Change事件中将T1的Text属性赋值给T2的Text 属性，就可以实现两个文本框中的内容的同步变化。
计算机二级VB考试上机操作题及答案
计算机二级VB考试上机操作题及答案计算机二级VB考试上机操作题及答案2017一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。
组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。
运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。
再画两个标题分别为“椭圆”和“圆”的命令按钮。
如下图所示。
要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。
二、简单应用题(1)在考生文件夹下有一个工程文件sjt3.vbp。
窗体Forml上有两个标题分别是“读数据”和“查找”的命令按钮。
请画1个名称为Textl、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。
程序功能如下。
①在考生文件夹下的`in.3.dat文件中存有100个正整数。
单击“读数据”按钮，则将文件in3.dat中的数据读入数组a中。
②单击“查找”按钮，则查找数组a中所有为7的倍数的数据，并将这些数据顺次显示在Textl文本框内(数据之间用空格隔开)。
“读数据”按钮的Click事件过程已经给出，请编写程序完成“查找”按钮的Click事件过程，实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须使用“查找”按钮完成查找过程，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。
最后将程序按原文件名存盘。
(2)考生文件夹下有一个工程文件sit4.vbp。
全国计算机等级考试二级VB上机试题及答案十
全国计算机等级考试二级VB上机试题及答案(十一)基本操作（2小题，每题15分，共30分）****************************************************************请根据以下各小题的要求设计VB应用程序（包括界面和代码）。
请根据以下各个小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个列表框，其名称为List1，通过属性窗口向列表框中输入9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Hscroll，Min属性和Max分别为0和100，如图所示，编写适当的事件过程。
程序运行后，如果单击列表框中的某个项目内容，并把滚动条的滚动框移动到相应的位置，如图所示。
要求：不得使用任何变量。
（2）在名称为Form1的窗体中画一个图像框，名称为Image1，其高、宽分别为1800、4500，通过属性窗口把考生文件夹下的图像文件smile.bmp装入图像框；再画一个命令按钮，名称为Cmd1，标题为"放大"。
请编写适当事件过程，程序运行后，单击"放大"按钮，则把图像框的高度、宽度均增加100，同时图像也随之自动放大。
注意：程序中不得使用任何变量。
程序运行时的界面如图所示。
****************************************************************参考答案与分析（1）【解析】滚动条的属性设置：Min--最大值属性。
默认值为32767；Max--最小值属性，默认值为0；Value--返回或设置滚动条的当前位置的值，返回直介于Max 和Man属性之间的值，包括这两个值。
要实现滚动条的返回值与List的设置值同步变化，在两者之间建立等式关系即可。
而Text属性对应的变量类型为字符串，所以这里用了一个转化函数Val（）来实现。
计算机二级考试《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上机模拟题及答案
计算机二级考试VB上机模拟题及答案1.基本操作题(1)将“销售表”中的日期在2000年12月31日前(含2000年12月31日)的记录复制到一个新表2001.dbf中。
(2)将“销售表”中的日期(日期型字段)在2000年12月31日前(含2000年12月31日)的记录物理删除。
(3)打开“商品表”，使用BROWSE命令浏览时，使用“文件”菜单中的选项将“商品表”中的记录生成文件名为“商品表.htm”的HTML格式文件。
(4)为“商品表”创建一个主索引，索引名和索引表达式均是“商品号”;为“销售表”创建一个普通索引(升序)，索引名和索引表达式均是“商品号”。
【参考答案】(1)在“命令”窗口输入命令：SELECT*FROM销售表WHERE日期<=CTOD("12/31/00")INTO TABLE 2001系统将自动查找日期在2000年12月31日前的记录，并复制到一个新表2001.dbf中。
(2)在“命令”窗口输入两条命令：DELETE FROM销售表WHERE日期<=CTOD("12/31/00")&&逻辑删除记录PACK &&物理删除记录通过以上两条命令物理删除“销售表”中日期(日期型字段)在2000年12月31日前的记录。
(3)具体步骤如下：① 在“命令”窗口输入两条命令：USE商品表 &&打开商品表BROWSE &&打开表记录浏览窗口② 在“文件”菜单中选择“另存为HTML(H)...”菜单命令，如图4-18所示。
③ 弹出“另存为HTML”的对话框中，系统默认以“商品表.htm”名保存该文件，单击“确定”按钮保存文件。
(4)具体步骤如下：① 在“命令”窗口输入两条命令：USE商品表 &&打开商品表MODIFY STRUCTURE &&打开表设计器② 在“商品表”的表设计器中，单击“字段”选项卡，选择“商品号”字段，在“索引”下拉列表框中为该字段选择一个排序方式。
计算机二级vb考试题库及答案
计算机二级vb考试题库及答案1. 在Visual Basic中，下列哪个是合法的变量名？A. 2variableB. variable2C. _variableD. variable-2答案：B2. 下列哪个选项不是Visual Basic中的保留关键字？A. DimB. IfC. ThenD. MyVar答案：D3. 在Visual Basic中，哪个函数可以用来计算一个数的绝对值？A. AbsB. SgnC. RoundD. Int答案：A4. 在Visual Basic中，下列哪个控件通常用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A5. 在Visual Basic中，如何声明一个整型变量？A. Dim myVar As IntegerB. Integer myVarC. myVar IntegerD. myVar = Integer答案：A6. 在Visual Basic中，使用哪个语句可以结束一个循环？A. ContinueB. ExitC. BreakD. End答案：B7. 在Visual Basic中，哪个函数可以用来将字符串转换为大写？A. UCaseB. LCaseC. StrConvD. Trim答案：A8. 在Visual Basic中，下列哪个选项是正确的事件处理程序的声明方式？A. Private Sub Button1_Click()B. Public Sub Button1_Click()C. Protected Sub Button1_Click()D. Friend Sub Button1_Click()答案：A9. 在Visual Basic中，下列哪个选项表示“不等于”的逻辑运算符？A. =B. <>C. ==D. <=答案：B10. 在Visual Basic中，如何使用If...Then...Else语句进行条件判断？A. If condition Then[Statements]Else[Statements]End IfB. If condition Then[Statements]Else If condition[Statements]End IfC. If condition Then[Statements]ElseIf condition[Statements]End IfD. If condition Then [Statements]Else[Statements]End If答案：D。