VB上机练习题
全国计算机二级《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练习题及答案VB（Visual Basic）是一种面向对象的编程语言，被广泛应用于软件开发中。
通过练习题的形式可以巩固和提升对VB语言的理解和应用能力。
本文将提供一些VB练习题及其答案，帮助读者巩固VB编程技巧。
题目一：计算器程序设计一个简单的计算器程序，要求能够进行基本的加、减、乘、除运算。
解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“Calculator”。
首先，在窗体上添加一些按钮来表示数字和运算符。
然后，添加一个用于显示运算结果的文本框控件。
接下来，为数字按钮和运算符按钮分别添加点击事件处理程序。
在点击数字按钮时，将按钮对应的数字追加到文本框中。
在点击运算符按钮时，根据按钮的内容判断并执行相应的运算。
最后，通过运用VB的计算表达式功能和控件之间的交互，实现基本的加减乘除运算。
题目二：学生成绩管理设计一个程序用于管理学生成绩，要求能够输入学生信息、查询学生成绩、计算学生平均成绩等操作。
解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“StudentGrade”。
首先，设计一个学生类（Student），包括学号、姓名、各科目成绩等属性。
然后，创建一个用于存储学生信息的集合（如数组或集合类）。
接下来，在窗体上添加文本框、按钮等控件，用于输入学生信息和进行相关操作。
通过按钮点击事件处理程序，实现以下功能：1.输入学生信息：获取文本框中的学生信息，并创建一个新的学生对象，将其添加到学生信息集合中。
2.查询学生成绩：根据学生学号或姓名等关键信息，在学生信息集合中查找对应学生，并显示其成绩信息。
3.计算学生平均成绩：遍历学生信息集合，计算每个学生的平均成绩，并显示在窗体上。
通过以上步骤，可以实现一个简单的学生成绩管理系统。
题目三：数据排序设计一个程序用于对一组数字进行排序，要求能够实现升序和降序排列。
解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“DataSorting”。
全国计算机二级考试VB上机综合练习
全国计算机二级考试VB上机综合练习2016全国计算机二级考试VB上机综合练习2016年3月计算机等级备考正在火热进行中，为了帮助考生们更好、更有准备地参加考试，下面店铺为考生搜索整理了关于计算机二级考试VB上机综合练习，供参考学习，希望对您都有帮助。
想了解更多相关信息请持续关注我们店铺。
1) 新建一个工程，实现单击Command1将text1中的内容复制到Text2中。
2) 新建一个工程，实现单击Commmand1将Text1的内容剪切到Text2中。
3) 新建一个工程，实现功能单击Text1框时，Text1中的内容被复制到Text2中。
4) 新建一个工程，窗体上一个text文本框，两个command按钮，caption分别为“剪切”，“恢复”，运行后要求在text1中输入文本，点“剪切”，把text1中的内容剪切掉，点“恢复”，把text1中的内容恢复出来。
提示：定义一个变量用来存放text1中的内容。
5) .新建一个工程，一个文本框text1，一个Command1按钮，单击Command1使用户输入字母一律转换为大写显示保存。
6) 新建一个工程，实现功能：在窗体中实现由下向上滚动显示“您好!网络之家”这几个字，到达顶部后再从下向上滚动。
7) .新建一个工程，共三个窗体，在窗体Form1界面创建有“Form2”，“Form3”的两个子菜单的“Forms”菜单，选择Form2子菜单，显示窗体Form2，选择Form3子菜单，显示窗体Form3。
8) 新建一个工程，在界面上放置一个工具条Toobar1,在工具条上有三个按钮，按下第一个按钮时用MsgBox显示：“第一个按纽被按下”;按下第二个按纽时用MsgBox显示：“第二个按纽被按下”;按下第三个按纽时用MsgBox显示：“第三个按钮被按下”。
三个按钮要求用控件数组实现。
9) 新建一个工程，包含两个窗体Form1、Form2。
实现功能制作---欢迎界面，在form1上显示“欢迎使用”，时间为三秒，三秒后，Form1消失，Form2出现。
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上机考试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．某数组有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课堂练习
VB课堂练习一一．填空题1．在对象名与事件名之间用[ ]符号连接。
窗体的对象名用[ ]表示。
2．Visual Basic 的窗体和控件是具有自己的[ ]、[ ]和方法的对象。
3．窗体和控件的大部分属性可以通过[ ]设置、也可以通过[ ]设置。
4．在面向对象程序设计中，对象是一个由[ ]和[ ]组成的概念。
5．Visual Basic 中的对象包括[ ]、[ ]和[ ]。
6．Name属性的含义是[ ]，窗体的默认Name属性是[ ]。
7．Show 方法的作用是[ ]，Hide 方法的作用是[ ]。
8. 一个窗体对象，其最先发生的事件是[ ]事件，最后发生的事件是[ ]事件。
9. 移动窗体时，为了初始化该窗体中的各控件，可选用窗体的[ ]事件；关闭窗体用[ ]事件。
10.窗体对象可以识别KeyPress、KeyUp、KeyDown事件，在按下某键时，这三个事件发生的顺序是：[ ]、[ ]、[ ]。
二．选择题1.在Visual Basic设计界面中不能隐藏的窗口是( )。
A）工程窗口B）属性窗口C）立即窗口D）窗体窗口2.以下可以构成语句的一项是( )。
A）对象名.属性B）对象名.方法名C）对象名.事件名D）对象名.函数名3.以下不是Visual Basic 的特点的选项是( )。
A）可视编程B）算法设计C）事件驱动D）面向对象4.在Visual Basic中通过( )属性来设置字体的颜色。
A）FontColor B）ClipControlC）BackColor D）ShowColor5.设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用( )属性。
A）ControlBox B）ClipControlC）BordeStyle D）AutoRedraw7.( )是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
A）文件B）属性C）方法D）窗体8.以下不属于同类的是( )。
VB考试题目
一、单选题（每题1分，共76题）1.想要显示一个输入框，它的标题栏上显示“示例”，提示信息是“请输入一个正整数”，输入框内默认内容为“1”，其语句是A=InputBox(“请输入一个正整数”,”示例”,”1”)</p>B. A=InputBox(”示例”,“请输入一个正整数”,”1”)</p>C. A=InputBox(”1”,”示例”,“请输入一个正整数”)</p>D. A=InputBox(“请输入一个正整数”,”1”,”示例”)</p>2.若要使标签控件显示时不覆盖其背景内容，应设置标签控件的A. BackColor</p>B. BorderStyle</p>>C. ForeColor</p>D. BackStyle</p>3.下面变量名是错误的A. 姓名B. aC. a123D. a.1</p>4.启动窗体在程序运行后，不进行任何操作的情况下会发生A. Initialize和Load</p>B. Show</p>C. Activate</p>D. A和C</p>5.当标签的标题内容太长，需要根据标题自动调整标签的大小时，应设置标签的属性为TrueA. AutoSize</p>B. WordWrap</p>C. Enabled</p>D. Visible</p>6.语句Form1.Hide中，Hide是Form1对象的一个（ ）</p>A. 方法</p>B. 参数</p>C. 属性</p>D. 事件</p>7.对象窗口是用来设计（ ）</p>A. 应用程序的代码段</p>B. 应用程序的界面</p>C. 对象的属性</p>D. 对象的事件</p>8.如果变量赋值为str1=”练习”，var1=5，则语句Print ”第”& var1 &”次”& str1 输出的结果为A. 第5次练习</p>B. 第5次str1</p>C. 第var1次练习</p>D. 第var1次str1</p>9.假定一个VB应用程序由一个窗体模块和一个标准模块构成，为了保存该应用程序，以下正确的操作是（ ）</p>A. 只保存窗体模块文件</p>B. 分别保存窗体模块、标准模块和工程文件</p>C. 只保存窗体模块和标准模块文件</p>D. 只保存工程文件</p>>10.下列是窗体对象的方法而不是属性（ ）</p>A. Name </p>B. Move</p>C. Caption</p>D. Enabled</p>11.窗体Form1的Caption属性为frm，它的Load事件过程名为（ ）</p>A. Form_Load</p>B. Form1_Load</p>C. frm_Load</p>D. Me_Load</p>12.在VB程序中，语句的续行符是（ ）</p>A. &</p>B. _</p>C. ;</p>D. :</p>13. 在用户的应用程序执行期间发生，比如单击鼠标或按键盘中的键（ ）A. 方法</p>B. 属性</p>C. 事件</p>D. 工程</p>14.控件中最适合做标题的控件是。
- 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 = vbRed Text2、ForeColor = vbBlue End Sub Private Sub Command3_Click() EndEnd Sub2、新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。
鼠标在窗体空白地方按下时使Text1得内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1得内容为“在窗体上抬起了鼠标”。
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1、BackColor = vbRedEnd SubPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1、BackColor = vbGreenEnd 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 = ""Text2、Text = ""Text3、Text = ""End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Text1_Change()Text2、Text = Text1、TextText3、Text = Text1、TextEnd SubText2Text1注：“字体不同”可以在属性那调“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 SubPrivate Sub Command2_Click()a = Val(Text1、Text)b = Val(Text1、Text) Text3、Text = a + b End 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 SubPrivate 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 SubPrivate 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不及格。