2012年9月份VB上机考试预测题2

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％；单击“清除”按钮,清除文本框中的内容；单击“退出”按钮，关闭窗口.（35分）2．设计左图所示界面，编程实现如下功能：单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中（见右图)（25分）。

2012秋第二部分Visual Basi21．可以设置为VB程序运行启动对象的是①工程文件②任意一个窗体③窗体模块中的Main()过程④标准模块中的Main()过程A．①②③B．②③④C．②③ D.②④22．若要引用列表框Listl中最后一个数据项的内容，应使用A．Listl．List(Listl．Count) B．Listl．List(Listl．Count-1)C．Listl．ListIndex D．Listl.Text23．以下关于变量的说法错误的是A.在不同窗体中用Public语句定义的变量可以同名’B.在过程中用Dim语句声明的变量都是局部变量，过程运行结束它们将不再存在C.静态变量在过程运行结束时其值仍保留，以供再次运行该过程时使用，因此它不是局部变量D．在窗体通用声明部分声明的模块级变量，可以在本窗体内的所有过程中使用24．对应数学表达式sin(30。

)+|x2+y1/2|+e x—log10nA．Sin(30*3.14159/180)+Abs(x^2+Sqr(y))+Exp(x)-Log(n)/Log(10)B．Sin(30)+Abs(x^2+Sqr(y))+e^x—Log(n)/Log(10)C．Sin(30*3.14159/180)+Abs(x^2+Sqr(y))+Exp(x)-Log(n)D．Sin(30)+Abs(x^2+Sqr(y))+e^x—Log(n)25．以下关于Ⅱ分支结构语句的说法正确的是A．有If一定有与之配对的ElseB．Else有一定有与之配对的IfC．有If一定有与之配对的End IfD．有End If有一定有与之配对的If26．设有字符串变量s, 其值为”abcd"，可将s的值替换为”aabcd”A．Left(s, 1)="aa”B．Mid(s, 1, 2)= "aa”iC．s="aa"＆Mid(s, InStr(s, "a”))D．s="aaⅣ&Right(s, Len(S)一InStr(s, “a”))27．下列表达式中, 不能将一个4位整数N的百位数字提取出来的是A. N\ 100 Mod 10 B.Mid(CStr(N), 2, 1)C．(N nod 1000)\100 D．N\10 Mod 10028.下列有关转换函数的说法正确的是A.Int和CInt函数的区别仅在于结果的数据类型不同B.Int和Fix函数将非整数数据转换成整数，转换后的结果类型是LongC.CInt函数的功能是将其他类型的数据转换成Integer类型D.在处理负数时，Int和Fix函数的结果是相同的29.以下有关数组的说法错误的是A.用ReDim语句重新定义动态数组时，其下标的上下界可以使用赋了值的变量B.定义数组时，数组维界值可以不是整数C.定义数组时，数组每一维的上界值必须大于下界值D.定义数组时，数组维界值可以是负数30.以下有关自定义函数过程的说法错误的是A.在自定义函数过程中可以多次给函数名赋值B.如果在函数体内没有给函数名赋值，则该函数无返回值C.函数定义时如果没有说明函数名的类型，则该函数的返回值为变体类型D.若用Call语句调用函数，则将丢弃函数的返回值1.下面程序，单击窗体后，窗体上显示的第一行内容是______，第三行内容是______，最后一行内容是______.Option ExplicitPrivate Sub Form_Click()Dim x As Integer，Y As Integer，sum As IntegerFor x=1 To 3For y=1 To 2sum=sum_+yIf sum>2 Then Exit ForNext yPrint sum；xNext xPrint x；yEnd Sub2.执行下面程序，单击Commandl按钮，则窗体上显示的a(1, 3)的值为______，a(2，1)的值，a(2，2)的值为Option ExplicitOption Base 1Private Sub Commandl—Click()Dim a(3，3)As Integer, i As Integer, j As IntegerFor i=1 To 3For j=1 To 3a(i, j)=i*10+jNext jNext iCall JH(a)End SubPrivate Sub JH(x()As Integer)Dim i As Integer，j As Integer，t As IntegerFor i=1 Tn 2For J=1 To 4-it=X(i, j)X(i, j)=x(4-i, 4-j)x(4-i,4-j)=tNext jNext iFor i=1 To 3For j=1 To 3Print x(i, j)；Next jPrintNext iPrintEnd Sub3．执行下面程序，单击Commandl按钮，在Textl中输人"12123152", 则在窗体上显示的第一行内容是，第二行内容是，最后一行内容是。

国家二级VB机试（上机操作）模拟试卷450(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。

窗体的标题为“窗口”。

请通过属性窗口设置适当的属性，满足如下要求：①Text2可以业示多行文本，并且有垂直和水平两个滚动条；②程序运行时在Text1中显示输入的字符为“*”。

程序运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下。

工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。

(2)在名称为Form1的窗体上添加一个名称为Image1的图像框，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件pic1．bmp载入图像框；再画两个命令按钮控件，名称分别为C1、C2，标题分别为“放大”、“缩小”，如图所示。

要求：①请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽度均增加100；单击“缩小”按钮，则将图像框的高度、忧度均减少100，要求程序中不得使用任何变量。

②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。

正确答案：(1)步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3．8和表3．9。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

(2)步骤1：新建一个窗体，按照题目要求建立控件并设置图像框相应属性，如图3．17所示。

步骤2：按照步骤1设置其他控件相关属性，程亭中涉及的控件及属性见表3．10。

步骤3：打开代码编辑窗口，在指定位置编写如下代码。

参考答案Private Sub C1 Click( )’当单击”放大”按钮时，依次将Imagel的高与宽分别加100 Imagel．Height=Imagel．Height+i00 Imagel．Width=Imagel．Width+100 End Sub Private Sub C2 Click( )’当单击”缩小”按钮，则依次将Imagel的高与宽分别减100 Imagel．Height=Imagel．Height—100 Imagel．Width=Imagel．Width一100 End Sub 步骤4：调试并运行程序，关闭程序后按题目要求存盘。

vb上机题库及答案【篇一：vb期末考试上机题编程答案】xt>1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。

所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。

将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在d盘的vbtest文件夹中。

如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；3、单击“清除”按钮，则将列表框和文本框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于判断一个数是否是幸运数。

解：private sub command1_click()dim i as integer, a as integerfor i = 1000 to 9999if k(i) then list1.additem i: a = a + 1next itext1.text = aend subprivate sub command2_click()list1.cleartext1.text =end subprivate sub command3_click()endend subprivate function k(n as integer) as integerdim i as integer, a as integer, s1 as integer, s2 as integer dims as strings = cstr(n)for i = 1 to len(s) / 2s1 = s1 + mid(s, i, 1)s2 = s2 + mid(s, len(s) + 1 - i, 1)next iif s1 = s2 then k = trueend function2. 新建一个工程，编写求某一自然数因子和的程序。

（1）【考点分析】本题考点有：线条的Name、X1、X2、Y1、Y2属性。

【解题思路】通过对于直线Line1、Line2的坐标值的计算，确定线条的X1、X2、Y1、Y2属性的值，画出线段Line3。

步骤1：建立界面，添加Line1、Line2，设计的属性如下表3.253所示。

根据Line1、Line2的坐标值计算出Line13的坐标值，如表3.254所示。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

（2）【考点分析】本题考点有：列表框的的Name、List、ListIndex、Text属性，文本框的Name、Text属性。

【解题思路】根据题意添加控件并通过属性窗口设置相应的属性。

需要注意的是ListIndex是从0值开始计算，所以要是文本框中显示列表框中某项对应的顺序号，要将ListIndex属性值再加上1。

【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.255。

表3.255步骤2：编写程序代码。

参考答案Private Sub List1_Click()Text1 = List1.ListIndex + 1End SubPrivate Sub Text1_Click()Text1 = List1.Text1End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

（1）【考点分析】本题考点有：窗体的Name、MinButton、MaxButton、Caption、Visible 属性和Show方法，菜单项的Click事件，命令按钮的Click事件，文本框的Alignment、FontSize、FontName 属性，列表框的Text、List、ListIndex属性，If判断语句和For循环语句。

【解题思路】根据题意添加控件并通过属性窗口设置相应的属性。

程序一般默认的启动窗体时Form1；初始Form2的Visible属性为False；单击"格式"菜单项，用窗体的Show方法显示窗体2；在窗体2中选择好字号和字体以后，单击确定按钮，再次将窗体2的Visible属性设为False。

国家二级VB机试（上机操作）模拟试卷142(题后含答案及解析) 题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题1．在名称为Form1、标题为“欢迎”的窗体上画1个名称为Label1的标签，其标题内容为“欢迎使用本系统”，标题文字字体和字号分别为“宋体”、“三号”，标签大小能根据标题内容自动调整，效果如图所示。

程序执行时，窗体的最大化按钮不可用(如图所示)，请设置相应属性。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。

正确答案：[操作步骤]步骤1：新建一个窗体，在属性窗口中设置窗体的属性，按照表4．3所示在属性窗口中设置相应属性，其运行效果如图4．3所示。

步骤2：在窗体上添加一个标签控件，在属性窗口中设置标签的属性，按照表4．4所示在属性窗口中设置相应属性，其运行效果如图4．4所示。

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

2．在名称为Form1的窗体上，画1个名称为Label1的标签，其标题为“横坐标X”，且能根据标题内容自动调整标签的大小；再画1个名称为Text1的文本框，其中的文字显示为空白；再画1个名称为Picture1的图片框，大小适中即可。

要求：编写适当的事件过程，使得程序运行时，如果鼠标在图片框中移动，则能在文本框Text1中显示鼠标在图片框中的当前位置的横坐标，运行情况如图所示。

注意：要求程序中不得使用变量，事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

正确答案：[操作步骤]步骤1：新建一个窗体，在窗体上添加一个标签控件，在属性窗口中设置标签的属性，按照表4．5所示在属性窗口中设置相应属性，其运行效果如图4．5所示。

步骤2：在窗体上添加一个文本框控件，在属性窗口中设置文本框的属性，按照表4．6所示在属性窗口中设置相应属性，其运行效果如图4．6所示。

国家二级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机试（上机操作）模拟试卷298(题后含答案及解析)题型有：1.jpg />步骤2：在代码编辑窗口编写以下事件过程。

参考代码：Private Sub Command1_Click( )Command1．Caption=Label1Label1．Visible=FalseEnd Sub 步骤3：按要求将文件保存至考生文件夹中。

第2小题步骤1：新建一个“标准EXE”工程，存窗体Form1上画一个文奉框和三个单选按钮，其属性及值如表4—76所示。

步骤2：在代码编辑窗口，编写三个单选按钮的单击事件过程。

参考代码：Private Sub Op1_Click( )trext1=“颐和园”End SubPrivate Sub Op2_Click( )trext1．Text=“兵马俑”End Subrivate Sub Op3_Click( )Text1．Text=“西湖”End Sub步骤3：按要求将文件保存至考生文件夹中。

解析：第1小题：本题需要在窗体上画出控件并相应设置其属性，然后编写命令按钮的单击事件，使得标签的Visible属性为False并且改变命令按钮的Caption属性。

第2小题：本题只需在三个单选按钮的Click事件过程中，分别为文本框的Text属性赋予相应内容即可。

简单应用题2．(1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为sjt3．frm。

在窗体上有一个名称为Command1、标题为“计算”的命令按钮；两个水平滚动条，名称分别为Hscroll1和Hscroll2，其Max属性均为100，Min属性均为1；四个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“运算数1”、”运算数2”、“运算结果”和空白；此外还有一个包含四个单选按钮的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“／”，如图3—129(a)所示。

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的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。