12年九套VB上机题
国家二级VB机试(上机操作)模拟试卷400(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷400(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visua，Basic应用程序(包括界面和代码)。
(1)在名称为Form1标题为“选课”的窗体上画一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框处于选中状态，运行时的窗体如图3—147所示。
请画控件并设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为HS1的水平滚动条，其刻度值范围为1～100；画一个命令按钮，名称为C1，标题为“移动滚动框”。
请编写适当的事件过程，使得在运行时，每单击命令按钮一次(假定单击次数少于10次)，滚动框向右移动10个刻度。
运行时的窗体如图3—148所示。
要求程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个“标准EXE”工程。
步骤2：在窗体Form1中加入一个复选框，并用“复制”和“粘贴”的方法，生成包含四个元素的复选框数组。
步骤3：分别设置窗体和复选框数组中各元素的相关属性。
步骤4：按要求将文件保存至考生文件夹中。
(2)【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置相应属性。
步骤2：在代码编辑窗口，编写命令按钮的Click事件过程。
参考代码：Private Sub C1_Click( )HS1．Value＝HS1．Value＋10End Sub 步骤3：按要求将文件保存至考生文件夹中。
简单应用题2．(1)在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为M1、M2、M3。
2012秋江苏省计算机等级考试vb真题试卷
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笔试模拟试题(九套)
附录1 Visual Basic笔试模拟试题（1~6套）笔试模拟试题 1第一部分软件技术基础（共15分）一、是非判断题（每小题1分，共10分）（判断下列各题是否正确，如正确，在客观答题纸上对应编号选A，否则选B）1．在操作系统中，作业调度和进程调度没有区别。
（）2．数据类型是具有共同属性的一类变量的抽象。
（）3．瀑布模型中需求分析的主要工作是确定要开发的软件做什么。
（）4．软件设计阶段产生的最重要的文档之一是概要设计说明书。
（）5．在进行插入排序时，其数据比较次数和数据的初始排列无关。
（）6．软件测试不是为了证明软件的正确性，而是立足于软件有错误而进行的。
（）7．线性表若采用链式存储表示时所有结点之间的存储单元地址必须连续。
（）8．中断处理通常是按中断优先级响应和进行中断的。
（）9．缓冲池可作为CPU和I/O设备之间信息传输的集散地。
（）10．进程调度是根据一定的调度算法，从等待队列中挑选出合适的进程。
（）二、选择题（每小题1分，共5分）1．把高级语言的源程序翻译成二进制代码的过程称为：（A ）（A）编译（B）连接（C）运行（D）重定位2．把逻辑地址转变为内存的物理地址的过程称作：（D ）（A）地址分配（B）地址连接（C）地址调用（D）地址变换3．白盒法又称为逻辑覆盖法，主要用于：（D ）（A）功能测试（B）系统测试（C）α测试（D）单元测试4．在操作系统中，进程最基本的特征是：（A ）（A）动态性和并发性（B）顺序性和可再现性（C）和程序的对应性（D）执行过程的封闭性5．以下哪一项不是软件危机的表现形式。
（C ）（A）成本高（B）生产率低（C）技术发展快（D）质量得不到保证第二部分Visual Basic语言程序设计（共85分）一、单项选择题（每小题1分，共10分）1. 数学表达式|（2x+3y）sinz|的VB表达式为（ C ）。
（A）| ( (2*x+3*y)*sin(z) )| （B）Abs( (2x+3y)*sin(z) )（C）Abs( (2*x+3*y)*sin(z) ) （D）Abs( (2*x+3*y)*sinz )2. 在下列VB运算符中，运算优先级最低的是（A ）。
VB期末考试试卷2012版(含答案)
'********** End ********** fun = Sum End Function Private Sub Form_Load() Show Print fun() NJIT_VBபைடு நூலகம்End Sub Private Sub NJIT_VB() Dim i As Integer Dim s As String Dim fOut As Integer fOut = FreeFile Open App.Path & "\out.dat" For Output As #fOut Print #fOut, fun() Close #fOut End Sub
8
C:DrawWidth 属性 D:DrawStyle 属性
答案：B 第 19 题 （2.0 分） 关于顺序文件和随机文件的说法错误的是(). A:顺序文件中记录的逻辑顺序与存储顺序是一致的 B:随机文件的结构特点是固定记录长度以及每条记录均有记录号 C:随机文件的操作与顺序文件相同 D:随机文件读写操作比顺序文件灵活
答案：A 第 17 题 （2.0 分） 在 VB 中没有提供下列()事件. A:MouseDown B:MouseUp C:MouseOver D:MouseMove
答案：C 第 18 题 （2.0 分） 在 VB 中,坐标轴的默认刻度单位是缇,用户可以根据实际需要使用()来改变刻度单位. A:Scale 属性 B:ScaleMode 属性
答案：C 第 15 题 （2.0 分） 下列程序： Sub mtv(ByVal m As Integer, ByVal n As Integer) m = m+7 n = n* 5 Print"m=";m;"n="n; End Sub Sub Form_Click() Dim a As Integer, b As Integer a = 8: b = 7 mtv a,b
2012届毕业班VB清考试卷
东莞理工学院（本科）试卷（2012届清考卷）2011 --2012 学年第二学期《Visual Basic程序设计》试卷开课单位：计算机学院，考试形式：闭卷，允许带笔入场注意：请务必将答案填写在答题卷上，否则视为答题无效。
一、单选题(30小题，每小题1.5分，共45分)1、以下不属于Visual Basic系统的文件类型是____________。
A、.frmB、.batC、.vbpD、.vbg2、Visual Basic 是一种面向对象的程序设计语言，_________不是面向对象系统所包含的三要素。
A、属性B、变量C、事件D、方法3、在VB中通过____________属性来设置字体颜色。
A、FontColorB、ForeColorC、BackColorD、ShowColor4、若要使命令按钮不可操作，要对________属性设置。
A、EnabledB、VisibleC、BackcolorD、Caption5、"x是小于100的非负数"，用VB表达式表示正确的是____________。
A、0 <= x 0r x < 100B、0 <= x < 100C、0 <= x And x < 100D、0 <=x , x < 1006、设a=21，b=75，则执行c=Int((b-a)*rnd+a)+1后，c的值为_______。
A、1～76之间B、22～75之间C、22～76之间D、1～95之间7、设a=2，b=3，c=4，d=5，下列表达式a>b AND c<=d OR 2*a>c的值是_______。
A、TrueB、FalseC、-1D、18、用于获得字符串S从第5个字符开始的3个字符的函数是_______。
A、Mid$(S,5,3)B、Middle(S,5,3)C、Right$(S,5,3)D、Left$(S,5)9、字符串“东莞News Center”的长度是_______。
12年九套VB上机题
第1套VB上机题参考代码如下:Private Sub Command1_Click()Text1.Text = ""If Check1.Value = 1 ThenText1.Text = Check1.CaptionEnd IfIf Check2.Value = 1 ThenText1.Text = Text1.Text + Check2.CaptionEnd IfEnd Sub本题可以用双重循环来实现该数列的求和计算。
外循环用于求和，内循环计算某项的分母。
参考代码如下:Dim s As Single, n As Integer, t As Single, i As Integer Private Sub C1_Click()s = 1n = 1Don = n + 1t = 1For i = 1 To 2 * n - 1t = t * i '计算阶乘Next is = s + (-1) ^ (n - 1) / t '求和Loop Until 1 / t < 0.00001 '外循环结束条件Text1.Text = sEnd SubPrivate Sub C2_Click()Call putdata("kssj.dat", Text1.Text)'调用putdata过程把结果写入文件End Sub操作步骤如下：1. 打开考生文件夹中的工程Menu1.Vbp。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3. 在“标题”栏中输入菜单项的标题“文件(&F)”，在“名称”栏中输入菜单项的名称“文件”。
4. 单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“新建”；使用类似的操作，输入如下所示的菜单：文件(F) 数据处理新建计算──────退出Ctrl+X5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
vb上机题库及答案
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. 新建一个工程，编写求某一自然数因子和的程序。
2012年9月份VB上机考试预测题7
（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。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第1套VB上机题参考代码如下:Private Sub Command1_Click()Text1.Text = ""If Check1.Value = 1 ThenText1.Text = Check1.CaptionEnd IfIf Check2.Value = 1 ThenText1.Text = Text1.Text + Check2.CaptionEnd IfEnd Sub本题可以用双重循环来实现该数列的求和计算。
外循环用于求和，内循环计算某项的分母。
参考代码如下:Dim s As Single, n As Integer, t As Single, i As Integer Private Sub C1_Click()s = 1n = 1Don = n + 1t = 1For i = 1 To 2 * n - 1t = t * i '计算阶乘Next is = s + (-1) ^ (n - 1) / t '求和Loop Until 1 / t < 0.00001 '外循环结束条件Text1.Text = sEnd SubPrivate Sub C2_Click()Call putdata("kssj.dat", Text1.Text)'调用putdata过程把结果写入文件End Sub操作步骤如下：1. 打开考生文件夹中的工程Menu1.Vbp。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3. 在“标题”栏中输入菜单项的标题“文件(&F)”，在“名称”栏中输入菜单项的名称“文件”。
4. 单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“新建”；使用类似的操作，输入如下所示的菜单：文件(F) 数据处理新建计算──────退出Ctrl+X5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6. 单击“工程”菜单的“添加模块”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块的功能是：计算1+1/3+1/5+……+1/(2N-1)，直到1/(2N-1)小于0.0001。
填空的参考答案如下：'*****question*****temp = 1 / (2*n-1)'*****question*****Loop Until temp < 0.00017. 添加如下所示的菜单事件过程代码：Private Sub 退出_Click()EndEnd SubPrivate Sub 计算_Click()calculateEnd Sub第二套VB上机题参考代码如下:Private Sub Combo1_Click()Select Case Combo1.ListIndexCase 0Text2.Text = UCase(Text1.Text)Case 1Text2.Text = LCase(Text1.Text)Case 2Text2.Text = Len(Text1.Text)End SelectEnd SubPrivate Sub Form_Load()Combo1.AddItem "小写转大写"Combo1.AddItem "大写转小写"Combo1.AddItem "测长度"End Sub参考程序如下：Dim N As Integer, S As Single, I As Integer, T As Single Private Sub Command1_Click()S = 0For N = 1 To 10 '外循环求和T = 1For I = 1 To N '内循环求阶乘T = T * INext IS = S + TNext NText1.Text = S '计算结果在文本框中显示End SubPrivate Sub Command2_Click()Call putdata("kssj.dat", S)'调用putdata过程把计算结果写入文件End Sub操作步骤如下：1. 打开考生文件夹中的工程Menu1.Vbp。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“调试(&D)”，在“名称”栏中输入菜单项的名称“调试”。
4. 单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“逐语句”；使用类似的操作，输入如下所示的菜单：调试(D) 数据处理逐语句计算──────退出Ctrl+X5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6. 单击“工程”菜单的“添加模块”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块的功能是：求s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值。
填空的参考答案如下：'*****question*****For j = 1 To i'*****question*****s = s + j7. 添加如下所示的菜单事件过程代码：Private Sub 退出_Click()End第三套VB上机题参考代码如下:Private Sub Command1_Click()Command2.Enabled = TrueLabel1.FontSize = Label1.FontSize + 10If Label1.FontSize > 30 Then Command1.Enabled = False End SubPrivate Sub Command2_Click()Command1.Enabled = TrueLabel1.FontSize = Label1.FontSize - 10If Label1.FontSize < 10 Then Command2.Enabled = False End Sub参考代码如下：'变量sum用于保存数字字符个数'变量str1用于保存从数据文件中读入的字符串Dim sum As Integer, str1 As StringPrivate Sub C1_Click()Call getdata("ini.txt", str1)'调用getdata过程读入字符数据Text1.Text = str1'在文本框中显示str1的内容End SubPrivate Sub C2_Click()Dim c As String, i As Integersum = 0'以下逐字查找str1中的数字字符For i = 1 To Len(str1)c = Mid(str1, i, 1)If c >= "0" And c <= "9" Thensum = sum + 1End IfNext iText2.Text = Str(sum) '显示统计结果End SubPrivate Sub C3_Click()'调用putdata过程把统计结果写入磁盘文件Call putdata("kssj.dat", sum)End Sub操作步骤如下：1. 打开考生文件夹中的工程Menu1.Vbp。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“播放(&P)”，在“名称”栏中输入菜单项的名称“播放”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“打开”；使用类似的操作，输入如下所示的菜单：播放(P) 数据处理打开计算──────退出Ctrl+X5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6. 单击“工程”菜单的“添加模块”命令，将考生文件夹下的“CDMK.Bas”文件添加到本工程。
该模块中的calculate过程的功能是：在窗体上打印如下图所示的九九乘法表。
填空的参考答案如下：'*****question*****For j = 1 To i'*****question*****char = j & "×" & i & "=" & (i * j)7. 添加如下所示的菜单事件过程代码：Private Sub 退出_Click()EndEnd SubPrivate Sub 计算_Click()calculateEnd Sub8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。
第四套VB上机题参考代码如下：Private Sub HScroll1_Scroll()Timer1.Interval = HScroll1.Value'计时器时间间隔为水平滚动条的值End SubPrivate Sub Text1_Change()Label1.Caption = Text1.Text'文本框中内容作为标签的标题End SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left - 100If Label1.Left < -100 Then Label1.Left = 5000End Sub参考程序代码如下：Dim s1 As Integer, s2 As Integer Private Sub Command1_Click() Call getdataFor i = 1 To 50If a(i) >= 60 Thens1 = s1 + 1Elses2 = s2 + 1End IfNext iText1.Text = Str(s1)Text2.Text = Str(s2)End SubPrivate Sub Command2_Click() Call putdata("kssj.dat", s1, s2) End Sub操作步骤如下：1. 打开考生文件夹中的工程Menu1.Vbp。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“文件(&F)”，在“名称”栏中输入菜单项的名称“文件”。