VB笔试中的典型程序题
计算机省二vb笔试试题及答案
计算机省二vb笔试试题及答案近年来，计算机行业的快速发展引发了对计算机技能的需求不断提高。
VB（Visual Basic）作为一种广泛应用于软件开发的编程语言，已经成为计算机省二笔试的重要内容之一。
为了帮助考生更好地备考，本文将介绍一些常见的VB笔试试题，并提供相应的答案和解析。
一、基础知识题1. VB是什么的缩写？答案：VB是Visual Basic的缩写。
解析：这是一个基础知识题，考察考生对VB的基本了解。
VB是一种基于事件驱动的编程语言，其开发环境提供了一系列可视化的GUI开发工具。
2. VB中，哪个控件可以用于显示文本信息？答案：Label控件。
解析：在VB中，Label控件用于在窗体上显示文本信息，可以用于显示静态文字或者动态改变的文字。
3. VB中，哪个控件用于接受用户的输入？答案：TextBox控件。
解析：TextBox控件可以用于接受用户的文本输入，用户可以通过键盘输入文本信息。
二、语法题1. VB中，声明一个整型变量的语句是什么？答案：Dim 变量名 As Integer。
解析：在VB中，使用Dim语句声明一个变量，后面跟上变量名和变量类型。
整型变量的类型为Integer。
2. VB中，如何定义一个过程（Sub）？答案：Sub 过程名()解析：在VB中，使用Sub关键字定义一个过程，过程名用于标识该过程，小括号内可以放置参数。
3. VB中，如何通过代码将一个Label控件的文本内容改为“Hello World”？答案：Label1.Text = "Hello World"解析：在VB中，通过控件名和属性名来访问和设置控件的属性。
Label1是一个Label控件的名称，通过修改其Text属性来改变文本内容。
三、编程题请编写一个VB程序，实现一个简单的计算器，实现加法、减法、乘法和除法四种基本运算。
```vbPublic Class Form1Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 + num2txtResult.Text = result.ToString()End SubPrivate Sub btnSubtract_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubtract.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 - num2txtResult.Text = result.ToString()End SubPrivate Sub btnMultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMultiply.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 * num2txtResult.Text = result.ToString()End SubPrivate Sub btnDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDivide.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 / num2txtResult.Text = result.ToString()End SubEnd Class```解析：上述代码使用了VB的基本语法和控件操作，分别为加法、减法、乘法和除法实现了相应的运算逻辑。
vb笔试样题
vb笔试样题（A）工程1 (B) 窗体1 (C) 工程(D) 窗体2.任何控件都具有的属性是().（A）TEXT (B) CAPTION (C) 名称(D)FORECOLOR3.能够改变窗体边框线类型的属性是()。
（A）FontStyle (B) BorderStyle (C) BackStyle (D) Border4.清除列表框的所有选项应选择下列哪种方法().（A）Clear (B) Cls (C) Clear Item(D) RemoveItem5."如果没有在列表框中选择项目,且列表框的MultiSelect属性值为默认值(0~None),则执行语名List1.RemoveItem List1.ListIndex的结果是()."（A）删除列表框的最后一项(B) 删除列表框的第一项(C) 出错(D) 删除列表框中的最后添加的一项6."如果设计时在属性窗口将命令按钮的()属性设置为False,则运行时按钮从窗体上消失."（A）Visible (B) Enabled (C) Disabled (D)Default7.如果要给字体加删除线,可以选择下列那种属性().（A）FontName (B) FontSize (C) FontStrikethru (D) FontUnderLine 8.如果要在菜单中添加一个分隔线,则应将其Caption属性设置为().（A）= (B)* (C) & (D) —9.如果要在命令按钮上显示图形文件,应设置命令按钮的().（A）Style属性和Graphics属性(B) Style属性和Picture属性(C) Picture属性(D) Graphics属性10.若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的()属性.（A）BACKCOLOR (B) BORDERSTYLE (C) FORECOLOR (D) BACKSTYLE 11.不管一个对象的属性如何设置,程序运行时始终都能接收焦点的方法是().A:用Tab键B:用鼠标C:用方向键D:不能实现12.用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是().A:6 B:7 C:8 D:913.表达式(-1)*Sgn(-100+Int(Rnd*100))的值是().A:0 B:1 C:-1 D:随机数14.可以用作其它控件容器的控件有().A:窗体控件,列表控件,图像控件B:窗体控件,文本框控件,框架控件C:窗体控件,框架控件,图片框控件D:窗体控件,标签控件,图片控件第 1 页共9 页出题教师：柏晓辉负责人签字：15.下列表达式中,其值为0的是().A:7/9 B:7 mod 15 C:7\9 D:15 mod 916.以下能判断是否到达文件尾的函数是().A:BOF B:LOC C:LOF D:EOF17.设置列表框选中的文本用()属性.A:selected B:caption C:text D:list18.为了把焦点移到某个指定的控件,所使用的方法是().A:SetFocus B:Visible C:Refresh D:GetFocus19.表达式INT(8*SQR(36)*10^(-2)*10+0.5)/10的值是().A:0.48 B:0.048 C:0.5 D:0.0520.以下不具有Picture属性对象是().A:窗体B:图片框C:图像框D:文本框21.下列方法中可用于列表框动态添加数据的是().A:add B:additem C:addlist D:removeitem22.如果X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是().A:0.01*int(x+0.05) B:0.01*int(100*(x+0.005))C:0.01*int(100*(x+0.05)) D:0.01*int(x+0.005)23.控件内的对齐方式()属性决定.A:Alignment B:WordWrap C:AtuoSize D:Style24.将CommonDialog通用对话框的类型设置为字体对话框,可设置该控件的()属性.A:Font B:Filter C:flags D:Action25.在窗体上建立了多个控件,如Text1、Label1、Command1,若要使程序一运行焦点就定位在Command1控件上,应将Command1控件的()设置为0.A:Index B:Tabindex C:Tabstop D:Enabled二、填空题（共65分，1-10：10X1分=10分、11-30：20X2分=40分、31-35：5X3分=15分）1、Visual Basic应用程序中标准模块文件的扩展名是【1】。
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笔试模拟试卷128(题后含答案及解析)
VB笔试模拟试卷128(题后含答案及解析)题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．如果要改变窗体的标题，需要设置窗体对象的______ 属性。
A．NameB．CaptionC．BorderStyleD．BackColor正确答案：B解析：窗体的Caption属性决定了窗体对象在显示时的标题。
2．有如下程序，其运行结果为______。
Dim Sum As String*4 Read Sum, X, Y% Print Sum, Z Date “X+Y:之和”, 300, 200. 613 End A．X+Y:之和501B．X+Y之和500.613C．X+Y: 501D．X+Y: 500．613正确答案：C解析：由于“Dim Sum As String*4”定义字符型变量Sum的长度为4个字节，因而Read语句读Sum变量时，仅读对应字符常量的前4个字符；Y%为整形变量，在Read-Data语句中，对应的数值常量经四舍五入后读入，所以选择C。
3．符号%是声明______ 类型变量的类型定义符。
A．VafiantB．IntegerC．SingleD．String正确答案：B解析：Integer数据类型Integer变量存储为16位(两个字节)的数值形式，其范围为-32768～32767。
Integer的类型声明字符是百分比符号(%)。
4．表达式26/4*3的值是______ 。
A．1B．2C．18.75正确答案：B解析：运算符“*’的优先级大于“\”，所以先进行4×3的运算，再进行26\12的运算，最后的结果是2，故应选B。
5．Print方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是______。
A．逗号B．空格C．冒号D．分号正确答案：A解析：Print方法中，使用紧凑格式输出，各表达式的分隔符应是分号，使用标准格式输出，各表达式的分隔符应是逗号。
全国计算机等考试VB语言笔试试题及答案(一)
全国计算机等考试VB语言笔试试题及答案(一)全国计算机等级考试(VB语言)笔试试题及答案为了让广大考生能更好的备考，本文将为大家提供全国计算机等级考试VB语言笔试试题及相关答案解析。
VB语言考试是比较热门的一种考试，因此备考也是非常重要的。
下面是试题及答案解析，希望对大家有所帮助。
一、单选题1、在VB语言中，执行时间比较久的程序可以采用的方法是：A.增加循环次数B.加快程序运行速度C.使用进度条等控件D.以上都不对【答案及解析】C。
在程序运行期间，如果程序执行时间太长，可以使用进度条控件使用户知道程序正在执行，以及当前运行到哪一步，提升程序的运行效率和用户体验。
2、在VB语言中，某控件的Tag属性表示：A.控件的位置B.控件所在窗口的名称C.控件的类型D.控件存储数据的指针【答案及解析】D。
在VB语言中，每个控件都可以设置其Tag属性，Tag属性可以存储控件相关的任何数据，该属性非常灵活方便。
3、在VB语言中，数组存储数据的方式是：A.栈存储B.堆存储C.静态存储D.以上都错【答案及解析】B。
在VB语言中，数组存储在堆中，即动态内存分配，这样以便在程序运行时更好地管理和利用内存。
二、多选题1、在VB语言中，下列哪些是合法的数组定义方式？（）A. Dim arr(3,5) As IntegerB. Dim arr(3)(5) As IntegerC. Redim arr(3,5)D. Dim arr() As Integer【答案及解析】A、D。
A、D都是合法的数组定义方式。
选项B是二维数组，但是定义方式不合法。
选项C是改变数组大小的方式，不是定义数组的方式。
2、在VB语言中，下列哪些事件是窗体的事件？( )A.LoadB.MouseMoveC.ClickD.Resize【答案及解析】A、D。
Load和Resize是窗体的事件，B和C是每个控件都有的事件。
三、判断题1、在VB语言中，Option Explicit语句可以保证变量在使用前被声明，从而减少程序出错的几率。
最新VB经典例题13道(附答案)
V B经典例题13道(附答案)1.一串字符求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, c, q, w, rs = TextBox1.TextFor i = 1 To Len(s)c = Mid(s, i, 1)If UCase(c) >= "A" And UCase(c) <= "Z" Thenq = q + 1ElseIf c >= "0" And c <= "9" Thenw = w + 1Elser = r + 1End IfNextLabel1.Text = "字母有" & q & "个数字有" & w & "个其他有" & r & "个" End Sub2.一串字符以？结尾，求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, z, x, c, is = TextBox1.Texta = Mid(s, 1, 1)i = 1Do While a <> "?"If UCase(a) >= "A" And UCase(a) <= "Z" Thenz = z + 1ElseIf a >= "0" And a <= "9" Thenx = x + 1Elsec = c + 1End Ifi = i + 1a = Mid(s, i, 1)LoopLabel1.Text = z & x & cEnd Sub3.给定一个数字求它是几位数字，如（1）.12345 (2).-12345 (3).123.45 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicks = TextBox1.Textc = Trim(Str(s))If Int(c) = c ThenIf c >= 0 ThenLabel1.Text = "是" & Len(c) & "位数"ElseLabel1.Text = "是" & Len(c) - 1 & "位数"End IfElseIf c >= 0 ThenFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "ElseFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j - 1 & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "End IfEnd IfEnd Sub4.求圆周率公式Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, s, n, pia = 1n = 1While Math.Abs(1 / n) > 0.0001pi = pi + a * (1 / n)n = n + 2a = -aLabel1.Text = 4 * piEnd Sub5.求自然对数e 公式e=1+1+1/2!+1/3!+…+1/n!+….Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, e1, ln = 1e1 = 1While 1 / n > 0.01l = 1For i = 1 To nl = l * iNextn = n + 1e1 = e1 + 1 / lEnd WhileLabel1.Text = e1End Sub6.右直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To ns = ""Label1.Text &= Space(n - i)For j = 1 To is &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub7．等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To nLabel1.Text &= Space(n - i)For j = 1 To 2 * i - 1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub8．倒等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = 2 * i - 1 To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub9．右上角的直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = i To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub10．菱形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel1.Text = ""For i = 1 To 6s = ""Label1.Text &= Space(i - 1)For j = 1 To 12s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub11.水仙花数字三位数字的个位数字的立方和等于该数字本身（1）.判断输入的数字是否是水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cs = Val(TextBox1.Text)Label1.Text = ""a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & "是水仙花数"ElseLabel1.Text &= s & "不是水仙花数"End IfEnd Sub（2）.找出所有的水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cLabel1.Text = "水仙花数是" & vbCrLfFor s = 100 To 999a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & vbCrLfNextEnd Sub12.完全数正整数的因数之和等于这个数（1）.判断输入的数字是不是完全数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, j, l, a(100)s = Val(TextBox1.Text)j = 1For i = 1 To s - 1If s Mod i = 0 Thena(j) = ij = j + 1End IfNextFor i = 1 To jl = l + a(i)NextIf l = s ThenLabel1.Text = s & "是完全数"ElseLabel1.Text = s & "不是完全数"End IfEnd Sub（2）.找出1到n内的完全数,n 由用户输入Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, jn = Val(TextBox1.Text)Label1.Text = ""For p = 2 To nj = 0For i = 1 To p - 1If p Mod i = 0 Thenj = j + iEnd IfNextIf j = p ThenLabel1.Text &= p & " "End IfNextEnd Sub13.显示1，1，2，3，5，8，13，21…… F(i)=f(i-1)+ f(i-2)Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim f(30)f(1) = 1f(2) = 1For i = 3 To 30f(i) = f(i - 1) + f(i - 2)NextLabel1.Text = ""For i = 1 To 30Label1.Text &= f(i) & ","If i Mod 6 = 0 Then Label1.Text &= vbCrLfNextEnd Sub。
计算机二级vb笔试试题及答案
计算机二级vb笔试试题及答案1. 写一个程序，求1到100之间所有偶数的和。
```Dim sum As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMsgBox "1到100之间所有偶数的和为：" & sum```2. 编写一个程序，判断一个输入的年份是否为闰年。
```Dim year As Integeryear = InputBox("请输入年份：")If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then MsgBox year & "年是闰年。
"ElseMsgBox year & "年不是闰年。
"End If```3. 编写一个程序，输出1到20之间的所有质数。
```Dim i, j As IntegerFor i = 2 To 20For j = 2 To i - 1If i Mod j = 0 ThenExit ForEnd IfNext jIf j = i ThenMsgBox iEnd IfNext i```4. 请简述 VB 中的数组的定义及使用方法。
VB 中的数组可以使用 `Dim` 语句定义，语法为 `DimarrayName(subscripts)`，其中 `arrayName` 为数组名，`subscripts` 为数组的维数和维数的范围。
数组的使用方法包括：- 将值存储到数组中：可以使用 `arrayName(index) = value` 的语法将指定位置的值存储到数组中。
- 获取数组中的值：可以使用 `value = arrayName(index)` 的语法获取数组中指定位置的值。
VB笔试经典138题
删除王希林提醒广大考生：下面的138道题目，在二级考试中命中率极高。
一、选择题(1) 下面叙述正确的是(C)A. 算法的执行效率与数据的存储结构无关B. 算法的空间复杂度是指算法程序中指令（或语句）的条数C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止D. 以上三种描述都不对(2) 以下数据结构中不属于线性数据结构的是(C)A. 队列B. 线性表C. 二叉树D. 栈(3) 在一棵二叉树上第5层的结点数最多是(B) 注：由公式2k-1得A. 8B. 16C. 32D. 15(4) 下面描述中，符合结构化程序设计风格的是(A)A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑B. 模块只有一个入口，可以有多个出口C. 注重提高程序的执行效率D. 不使用goto语句(5) 下面概念中，不属于面向对象方法的是 (D) 注：P55-58A. 对象B. 继承C. 类D. 过程调用(6) 在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是(B)A. 可行性分析B. 需求分析C. 详细设计D. 程序编码(7) 在软件开发中，下面任务不属于设计阶段的是(D)A. 数据结构设计B. 给出系统模块结构C. 定义模块算法D. 定义需求并建立系统模型(8) 数据库系统的核心是(B)A. 数据模型B. 数据库管理系统C. 软件工具D. 数据库(9) 下列叙述中正确的是(C)A.数据库是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致(10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108A. 内模式B. 外模式C. 概念模式D. 逻辑模式(11) 算法的时间复杂度是指(C)A. 执行算法程序所需要的时间B. 算法程序的长度C. 算法执行过程中所需要的基本运算次数D. 算法程序中的指令条数(12) 算法的空间复杂度是指(D)A. 算法程序的长度B. 算法程序中的指令条数C. 算法程序所占的存储空间D. 算法执行过程中所需要的存储空间(13) 设一棵完全二叉树共有699个结点，则在该二叉树中的叶子结点数为(B) 注：利用公式n=n0+n1+n2、n0=n2+1和完全二叉数的特点可求出A. 349B. 350C. 255D. 351(14) 结构化程序设计主要强调的是(B)A.程序的规模B.程序的易读性C.程序的执行效率D.程序的可移植性(15) 在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是(D) 注：即第一个阶段A. 概要设计B. 详细设计C. 可行性分析D. 需求分析(16) 数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。
VB笔试-试卷31_真题(含答案与解析)-交互
VB笔试-试卷31(总分94, 做题时间90分钟)1. 选择题选择题（）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1.三种基本结构中，能简化大量程序代码行的是（）。
SSS_SINGLE_SELA 顺序结构B 分支结构C 选择结构D 重复结构分值: 2答案:D解析：重复结构又称为循环结构，它根据给定的条件，判断是否需要重复执行某一相同或类似的程序段，利用重复结构可以简化大量的程序行。
2.下列关于栈的描述正确的是（）。
SSS_SINGLE_SELA 在栈中只能插入元素而不能删除元素B 在栈中只能删除元素而不能插入元素C 栈是特殊的线性表，只能在一端插入或删除元素D 栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素分值: 2答案:C解析：根据数据结构对栈的定义及其特点可知：栈是限定只在表尾进行插入或删除操作的线性表，因此栈是先进后出的线性表，对栈的插入与删除操作，不需要改变栈底元素。
栈是限定只在表尾进行插入或删除操作的线性表。
3.下列有关数据库的叙述，正确的是（）。
SSS_SINGLE_SELA 数据处理是将信息转化为数据的过程B 数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变C 关系中的每一列称为元组，一个元组就是一个字段D 如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字。
分值: 2答案:D解析：数据处理是指将数据转换成信息的过程，故选项A叙述错误；数据的物理独立性是指数据的物理结构的改变不会影响数据库的逻辑结构，故选项B叙述错误；关系中的行称为元组，对应存储文件中的记录，关系中的列称为属性，对应存储文件中的字段，故选项C叙述错误。
4.概要设计中要完成的事情是（）。
SSS_SINGLE_SELA 系统结构和数据结构的设计B 系统结构和过程的设计C 过程和接口的设计D 数据结构和过程的设计分值: 2答案:A解析：软件概要设计的基本任务是：设计软件系统结构；数据结构及数据库设计；编写概要设计文档；概要设计文档评审。
(完整word版)VB程序设计试题题库及答案.doc
VB程序设计笔试题题库一、选择题1 下列常量中，是 Integer类型常量的是（C ）。
A、123&B、-38844C、123%D、327682 下面选项中 () 是字符连接运算符 . （ A ）A、&B、AndC、%D、Mod3下面关于 VB 的集成开发环境（ IDE ）的叙述中，不正确的是（B ）。
A、IDE是设计、调试、运行 VB程序的工具。
B、用户不能随意关闭 IDE中的窗口。
C、" 窗体设计 " 窗口是用来设计应用程序界面（窗体）的。
D、打开 / 关闭各窗口的命令主要在 IDE的" 视图 " 菜单中。
4 len( “程vb序设计”)=( C ) 。
A、 5B、2C、 6D、105 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 DA、7B、0C、2D、46 赋值语句 A=123 + Mid$( “123456”,3,2)执行后， A= （ A ）。
A、157B、12334C、123D、"12334"7 在一个语句内写多条语句时 , 用来分隔每条语句的符号是 ( C ).A、,B、;C、:D、、8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。
A、将 True 转换为 1 ，将 False 转换为 0B、将 True 转换为 1 ，将 False 转换为 -1C、将 True 转换为 0 ，将 False 转换为 -1D、将 True 转换为 -1 ，将 False 转换为 09 表达式 2+3*4^5-SIN(X+1)/2 中最先进行的运算是 ( D ).A、SINB、4^5C、3*4D、x+110 如果 x=2 ，则表达式 x+1>2 Or sin(x)>0.9 And 3>x+3 的值（ B ）。
A、不能计算B、 TrueC、5D、False11 随机产生 [10，50] 之间整数的正确表达式是（ D ）。
全国计算机vb考试试题及答案
全国计算机vb考试试题及答案VB（Visual Basic）是一种基于事件驱动的编程语言，广泛应用于软件开发领域。
全国计算机VB考试试题及答案是针对VB编程技能进行考核的一套完整题目和对应的答案。
本文将提供一些典型的VB考试试题及其答案，以供学习和参考使用。
一、选择题1. 下列哪个不是VB中的数据类型？A. IntegerB. StringC. BooleanD. Point答案：D2. VB中定义变量需要使用关键字：A. DimB. PrivateC. VarD. Let答案：A3. 下列哪个事件是Windows窗体的加载事件？A. ClickB. LoadC. MouseMoveD. KeyDown答案：B4. 在VB中，使用MsgBox函数可以弹出：A. 消息对话框B. 输入对话框C. 选择对话框D. 文件对话框答案：A5. 下列哪个方法可以用于将一组数据绑定到ListBox控件上？A. AddItemB. RemoveItemC. ClearD. DataSource答案：D二、填空题1. VB中通过使用____来表示一行注释。
答案：'（单引号）2. 在VB中，可以使用____控件来显示表格数据。
答案：DataGridView3. 在VB中，使用____关键字可以实现条件判断。
答案：If4. 在VB中，____是一种常用的循环结构。
答案：For5. MsgBox函数中，使用____参数可以指定消息框的按钮。
答案：Buttons三、编程题请编写一个VB程序，实现以下功能：1. 创建一个Windows窗体，窗体标题为“学生成绩管理系统”。
2. 在窗体中添加一个Label控件，显示文本为“请输入学生姓名：”。
3. 添加一个TextBox控件，用于接收用户输入的学生姓名。
4. 添加一个Button控件，显示文本为“查询”。
5. 当用户点击“查询”按钮时，弹出消息框，显示用户输入的学生姓名。
Visual Basic语言笔试试题及答案
Visual Basic语言笔试试题(共100分)注意事项：1. 一、二、三题为客观题，请将答案做在机读答题卡上2. 四、五、六题为主观题，请将答案做在答题纸上一、单项选择题 (每题1分，共20分)01．在VB中，对于没有赋值的数值变量，系统默认的值为：(A)0 (B)“0” (C)1 (D)-102．对于以下程序段（其中Text1是一个文本框控件）：Text1 = “你好”Text1 = “欢迎”Text1.Visible = False其运行结果为：(A) Text1中显示：你好 (B) Text1中显示：欢迎(C) Text1不可见 (D) Text1中显示：你好欢迎03．表达式4 + 5 \ 6 * 7 / 8 Mod 9的值是：(A)4 (B)5 (C)6 (D)704．在VB中，以下可以获得焦点的控件是：(A)图像框Image (B)标签Label(C)计时器Timer (D)命令按钮CommandButton 05．函数表达式String(2, "Ok")的返回值是：(A)2 (B)Ok (C)OO (D)OkOk06．下列属性中，为文本框的默认属性的是：(A)Caption (B)Enabled (C)Name (D)Text07．对窗体Form1编程，有Form1.BackColor=RGB(0,255,0)语句，则：(A)窗体Form1的背景色被设置为红色(B)窗体Form1的背景色被设置为黑色(C)窗体Form1的背景色被设置成绿色(D)窗体Form1的背景色被设置成蓝色08．在VB中，未作任何申明，直接使用的变量的数据类型为：(A)Integer (B)Long(C)String (D)Variant09．下列事件中，由系统触发的窗体事件是：(A) Click事件 (B) DblClick事件(C) Activate事件(D) Timer事件10．循环语句 For i = -3.5 To 20 Step 4 决定循环体的执行次数为：(A)4次 (B)5次 (C)6次(D)7次11．在VB中，计时器Timer支持的事件为：(A) Change (B) Scroll (C) Load (D) Timer 12． Visual Basic工程文件的扩展名是：(A) .Frm (B) .Bas (C) .Vbp (D) .Vbw13．下列语句中，可以完成打开二进制文件ABC.dat的操作语句是：(A) Open “ABC.dat” For Input As #1(B) Open “ABC.dat” For Output As #1(C) Open “ABC.dat” For Binary As #1(D) Open “ABC.dat” For Append As #114．用VB绘制图形，能改变图形线条样式的属性是：(A)ScaleWidth (B) DrawStyle(C) BorderWidth (D) FillStyle15．计时器Timer控件触发Timer事件的时间间隔为：(A)每秒触发一次(B)每隔InterVal属性中设定的时间触发一次(C)每毫秒触发一次(D)每隔Windows系统设定的时间间隔触发一次16．在控件数组中，所有控件必须相同的属性是：(A)Caption(B)Enabled (C)Index(D)Name17．在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。
VB笔试章节练习试卷23(题后含答案及解析)
VB笔试章节练习试卷23(题后含答案及解析) 题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．下列程序段的执行结果为______。
x = 0: y = 1 z = 1: n = 0 Do x = x + y + z n = n + 1 Loop While x ＜10 Print x; n A．10 5B．x nC．9 5D．10 6正确答案：A2．下列程序段的执行结果为Private Sub Command1_Click( ) a=InputBox(“请输入a值”) c=“您要查询的是”&IIf(a＞0，”天气”，”“) &IIf(a＜0，”电话号码”，”“) &IIf(a=0，”邮编”，”“) Text1.Text=c End Sub程序运行后，如果从键盘上输入”16”，则在文本框显示的内容是______。
A．您要查询的是天气B．您要查询的是邮编C．您要查询的是电话号码D．False正确答案：A3．执行下面的程序段后，x的值为______。
x=5 For i=3 To 8 Step 2x=x+1 Next iA．5B．6C．7D．8正确答案：D4．下列程序段的执行结果为______。
x=5 y=3 If Not x ＞1 Then y=y+1 Else x=x-1 Print x；yA．5 3B．5 4C．3 4D．4 3正确答案：D5．下列程序段的执行结果为______。
Private Sub Command1_Click( ) a=1：b=1 Select Case a Case 1 Select Case b Case 0Print “你好!”Case 1Print “Hello!”End Select Case 2 Print”谢谢使用!”End Select End SubA．你好!B．谢谢使用!C．Hello!D．你好!谢谢使用!正确答案：C6．单击命令按钮，并在对话框内依次输入99，73，84，88，-1，下列程序段的执行结果为______。
VB笔试章节练习试卷21(题后含答案及解析)
VB笔试章节练习试卷21(题后含答案及解析) 题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．单击一次命令按钮之后，下列程序代码的执行结果为______。
Private Sub Command1_ Click( ) a = fun(4) + fun(5) Print a; End Sub Public Function fun (n As Integer) Static Num For i = 1 To n Num = Num + i Next i fun = Num End FunctionA．15B．20C．35D．40正确答案：C2．下面过程定义语句可以使过程调用后不影响主调过程中的实际参数的是______。
A．Sub Com (By Val a，By ValB)B．Sub Com (a，By ValB)C．Sub Com (a，B)D．Sub Com (By Val a，B)正确答案：A3．单击一次窗体之后，下列程序代码的执行结果为______。
Private Sub Command1_ Click( ) Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 Call fun1 (x, y, z) Print x; y; z Call fun2(x, y, z) Print x; y; z End Sub Private Sub fun1(x As Integer, y As Integer, z As Integer) x = 10 * z y=z*z+ x z=x+ y+ z End Sub Private Sub fun2 (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) x=10*z y=z*z+ x z=x+ y +z End Sub A．1 2 3 30 39 72B．1 2 3 1 2 3C．30 39 72 1 2 3D．30 39 72 30 39 72正确答案：D4．单击一次窗体之后，下列程序代码的执行结果为______。
VB考试必备十道编程题VB考试必备的十道编程题
VB考试必备十道编程题VB考试必备的十道编程题DimmAInteger,nALong,ADoublen=1=0Form=1To10n=m某n=+1/nNe某tPrintEndSubDimmADouble,nALong,ADouble,pAInteger=0:n=-1:m=1:p=1DoWhile1/m>=0.0001m=m某pp=p+1n=-n=+n/mLoop=Format(,\PrintEndSub（3）裴波那契数列前两项是1、1，以后的每一项是其相邻前两项之和。
求数列前三十项的和FSMgBo某(FS)EndSuba=Chr(Int(97+26某Rnd))print(a)EndSub随机输出一个大写字母a=Chr(Int(65+26某rnd))Print(a)EndSubFori=0To10Ifa(i)Mod2=0Then=+a(i)EndIfNe某tPrint\所有偶数和为：\EndSub（6）如果一个三位数等于其各位数字的立方和，择成其为水仙花数。
输入一个三位数，判断是否属于水仙花数。
a=InputBo某(\请输入一个三位数！\i=a\\100j=a\\10Mod10k=aMod10Ifa=i^3+j^3+k^3ThenMgBo某(\EleMgBo某(\EndIfEndSuba=InputBo某(\请输入年份\IfaMod400=0OraMod4=0AndaMod100<>0ThenMgBo某(\EleMgBo某(\EndIfEndSubIfa+b>cAndb+c>aAnda+c>bThenp=(a+b+c)/2=Sqr(p某(p-a)某(p-b)某(p-c))MgBo某()EleMgBo某(\不能构成三角形\EndIfEndSubDima%,b%,c%,m%,n%,p%a=InputBo某(\b=InputBo某(\c=InputBo某(\Ifa>=bThenm=a:a=b:b=mEndIfIfa>=cThenn=a:a=c:c=nEndIfIfb>=cThenp=b:b=c:c=pEndIfPrint\EndSubc=(aMod100)\\10m=(aMod1000)\\100n=a\\1000Print\个位数是\十位数是\百位数是\千位数是\EndSub。
VB笔试模拟试卷206(题后含答案及解析)
VB笔试模拟试卷206(题后含答案及解析)题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．有以下程序：Sub subP(b( )As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click( ) Dim a(1 To 4)As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subPa( ) For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为( ) A．2 4 6 8B．5 6 7 8C．10 12 14 16D．出错正确答案：A2．下列程序段的执行结果为( )。
I=4 x=5 Do I=I+1 x=x+2 Loop Until I＞=7 Print”I=“;I Print”x=“;xA．I=4 x=5B．I=7 x=15C．I=6 x=8D．I=7 x=11正确答案：D3．设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程：Private Sub Command1_Click( ) Static b As Variant b=Array(1,3,5,7,9) End Sub 此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。
为实现此功能，省略号处的程序段应该是( )。
A．For i=0 To 5-1\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp NextB．For i=0 To 5 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp NextC．For i=0 To 5\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp NextD．For i=1 To 5\2 tmp=b(i) b(i)＝b(5-i-1) b(5-i-1)=tmp Next正确答案：C4．下面的数组声明语句中( )是正确的。
VB笔试模拟试卷219(题后含答案及解析)
VB笔试模拟试卷219(题后含答案及解析) 题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．执行以下程序段a$=“abbacddcba”For i=6 To 2 Step-2 X=Mid(a,i,i) Y=Left(a,i) Z=Right(a,i) z=UCase(X&Y&z) Next i Print z 输出结果为( )A．ABCB．BBABBAC．ABBABAD．AABAAB正确答案：B2．已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是( )A．If x＞=60 Then Print”及格”Else If x＞=70 Then Print”中”Else If x＞=80 Then Print”良”Else If x＞=90 Then Print”优”Else Print”不及格”End IfB．If x＜90 Then Print”良”Else If x＜80 Then Print”中”Else If x＜70 Then Print”及格”Else If x＜60 Then Print”不及格”Else Print”优”End IfC．If x＞=90 then Print”优”Else If x＞=80 Then Print”良”Else If x＞=70 Then Print”中”Else If x＞=60 Then Print”及格”Else Print”不及格”End If End SelectD．Select Case x Case x＞=90 Print”优”Case x＞=80 Print”良”Case x＞=70 Print”中”Case x＞=60 Print”及格”Case Else Print”不及格”正确答案：C3．运行以下程序，输出结果是( )。
分享VB笔试题目
分享VB笔试题目下面分享的是VB笔试题目：(1)下列叙述中正确的是A)在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化B)在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变化C)在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化D)上述三种说法都不对(2)下列叙述中正确的是A)线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B)线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构C)线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D)上述三种说法都不对(3)软件测试的目的是A)评估软件可靠性B)发现并改正程序中的错误C)改正程序中的错误D)发现程序中的错误(4)下面描述中，不属于软件危机表现的是A)软件过程不规范B)软件开发生产率低C)软件质量难以控制D)软件成本不断提高(5)软件生命周期是指A)软件产品从提出、实现、使用维护到停止使用退役的过程B)软件从需求分析、设计、实现到测试完成的过程C)软件的开发过程D)软件的运行维护过程55个最常被问到的面试问题用镜框法说说你自己。
回答以不超过2分钟为宜。
要去繁就简，不要闲聊。
应涉及以下4方面的内容：从事什么工作，做了几年教育程度证书主要职责及成绩工作风格的个人总结(若有可能再加上职业目标)按下面的程序提前准备：我叫作为一名[头衔]，我工作过X年现在，我是[公司]的[头衔]此前，我曾是[公司]的[头衔]我喜欢工作带给我的挑战，尤其是它允许我发挥出自己的主要优势，包括[A, B, 以及C].然后, 提出自己的问题：我哪方面对您最有意义，贵公司的需求是什么？，通过聚焦问题来帮助面试官。
2.带简历来了吗？是的。
准备2-3份复印件。
不要提供简历除非有要求。
3.你对我们了解有多少?面试前先研究一下目标公司。
基本的研究是准备该问题唯一的途径。
做一下家庭作业，你会在该问题上拿到高分。
谈谈其产品、服务、历史及公司的人，尤其是如果有朋友在里面的话谈谈他/她。
VB程序设计考试试题库——考试专用
程序设计题1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。
2、题目：(事件)单击窗体。
(响应)求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中3、题目：单击窗体。
(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。
4、题目：(事件)单击窗体。
(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。
5、题目：(事件)双击窗体。
(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。
将所有的换法的数目存入变量N中6、题目：单击窗体。
)求1!+2!+3!+4!+5!并将结果输出到窗体上。
结果存入变量S中7、题目：(事件)单击窗体。
(响应)生成一个一维数组(10个数组元素依此为：' 15、23、72、43、96、23、3、65、88、17写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。
将最大值，最小值，平均值分别存入变量Max,Min,Aver中8、题目：(事件)单击窗体。
(响应)在窗体上输出100~200之间的所有合数。
求出所有数之和存入SUM 中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。
9、题目：(事件)单击窗体。
(响应)求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L 中。
10、题目：(事件)单击窗体。
(响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。
将结果存入变量J中。
1题n = InputBox("输入一个自然数")If n > 0 Thenresult = "正数"ElseIf n < 0 Thenresult = "负数"ElseIf n = 0 Thenresult = "零"End IfMsgBox "输入的数据" & n & "为：" & result2题Dim i As IntegerFor i = 201 To 300If ((i Mod 3) = 0) And ((i Mod 7) = 0) ThenPrint (CStr(i))sum = sum + iEnd IfNextPrint sum3题Dim i As Integers = 0For i = 1 To 10s = s + 1 / (i ^ i)NextPrint (s)4题Dim i, j, k, m As Integers = 0 :i = 2:j = 1For k = 1 To 10s = s + i / jm = jPrint (CStr(i)) & "/" & CStr(j)j = ii = i + mNext5题Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If ((i + 2 * j + k * 5) = 100) ThenPrint (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNextNextNext6题Dim i, j, k As IntegerFor i = 1 To 5k = 1For j = 1 To ik = k * jNexts = s + kNextPrint (CStr(s))7题Dim a(9) As IntegerDim i, s As Integera(0) = 15：a(1) = 23：a(2) = 72a(3) = 43：a(4) = 96：a(5) = 23a(6) = 3：a(7) = 65：a(8) = 88a(9) = 17：max = a(0)：min = a(0) s = 0For i = 0 To 9If a(i) > max Thenmax = a(i)End IfIf a(i) < min Thenmin = a(i)End Ifs = s + a(i)Nextaver = Int(s / 10)Print (CStr(max))Print (CStr(min))Print (CStr(aver))8题Dim i, j, s As IntegerFor i = 100 To 200For j = 2 To Sqr(i)If (i Mod j) = 0 ThenPrint (CStr(i))sum = sum + iExit ForEnd IfNextNextPrint sum9题Dim i%，j%，b As Booleanl = 1：b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNextIf b = False Thenl = l * iEnd Ifb = FalseNextPrint Str(l)10题Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Thenj = j - 1 / iEnd IfNextPrint j11、题目：(事件)单击窗体。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、不使用数组，递推数列前N项1、（2011年9月第一大题第26小题）有一个数列，它的前3 个数为0，1，1，此后的每个数都是其前面3 个数之和，即0，1，1，2，4，7，13，24，……要求编写程序输出该数列中所有不超过1000 的数。
Private Sub Form_Click()Dim i As Integer, a As Integer, b As IntegerDim c As Integer, d As Integera = 0b = 1c = 1? a; b; c;d = a + b + cWhile d <= 1000Print d;a = bb = cc = dd = a + b + cWendEnd Sub2、（2010年9月第一大题第27小题）Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1,1,2,3,5,8,13, ……。
编程判断某大于1的整数x是否是Fibonacci数列中的某个数组，若是，函数返回True，否则返回False。
Function Isfab(x as integer) as BooleanDim a as integer, b as Integer, c as Integer, flag as Booleanflag=FalseA=1: b=1Do While x>bc=a+ba=bb=cIf x=b Then flag=TrueLoopIsfab=flagEnd Function二、求多项式的和1、（2011年9月第一大题第20小题）计算s=1+22+32+…+n2+…，直到s>10000 为止。
Private Sub Form_Click()Dim s As Integer, x As Integers = 0x = 0Do While s <= 10000x = x + 1s = s + x ^ 2LoopPrint sEnd Sub2、（2011年9月第一大题第21小题）计算：S=1!+2!+3!+4!Private Sub Form_Click()Dim s As Long, f As LongDim n As Integer, i As Integerf = 1n = 4For i = 1 To nf = f * is = s + fNext iPrint sEnd Sub3、（2010年3月第一大题第27小题）计算13+23+33+ (103)Private Sub Command1_Click( )a=10s=0Dos=s+a*a*aa=a-1Loop Until a<=10Print sEnd Sub4、（2011年9月第二大题第8小题）计算并输出以下表达式的值：1+(1+3)+(1+3+5)+...+(1+3+5+ (39)Private Sub Command1_Click()t = 0m = 1Sum = 0Dot = t + mSum = Sum + tm = m + 2Loop While m<=39Print SumEnd Sub5、（2010年3月第一大题第26小题）利用公式)12(1)1(71513114/)1(--++-+-=-n n π计算π的近似值。
( n 取到20000 )Private Sub Command1_Click( )PI=1Sign=1N=20000For k=3 to n Step 2Sign=-SignPI=PI+Sign/kNext kPrint PI*4End Sub6、（2009年9月第一大题第27小题）计算1+2+22+23+24+…+210的值Private Sub Commandl Click()Dim a%，S%，k% 5s=1a=2For k=1 To 10s=s+aa=a*2Next kTextl.Text=sEnd Sub三、奇偶数、素数1、（2011年3月第一大题第30小题）输出10个数中奇数的个数Private Sub Command1_Click()Dim a(10), x%For k = 1 To 10a(k) = Int(Rnd * 90 + 10)x = x + a(k) Mod 2Next kPrint xEnd Sub2、（2011年3月第二大题第7小题）在键盘输入任意的1个正整数时，输出不小于该整数的最小素数。
Private Sub Command1_Click()Dim m As Integer, x As IntegerDim flag As Booleanflag = Falsen = Val(InputBox("请输入任意1 个正整数"))Do While Not flaga = 2flag = trueDo While flag And a <= Int(Sqr(n))If n / a = n \ a Thenflag = FalseElsea=a+1End IfLoopIf Not flag Then n = n + 1LoopPrint nEnd Sub3、（2007年4月第二大题第9小题）某人编写下列函数来判断a 是否为素数，若是，则函数返回True；否则返回False。
Function prime(a As Integer)As BooleanDim k As Integer，isprime As BooleanIf a<2 Thenisprime=FalseElseisprime=Truek=2Do While k<a/2 And isprimeIf a Mod k=0 Thenisprime=FalseElsek=k+1End IfLoopEnd Ifprime=isprimeEnd Function在测试时发现有1 个非素数也被判断为素数，这个错判的数是4。
四、排序1、（2011年3月第二大题第8小题）先将随机产生的10个不同的整数放入数组a中，再将这10 个数按升序方式输出。
Private Sub Form_Click()Dim a(10) As Integer, i As IntegerRandomizei = 0Donum = Int(Rnd * 90) + 10For j = 1 To i …检查新产生的随机数是否与以前的相同，相同的无效If num = a(j) ThenExit ForEnd IfNext jIf j > i Then …如果产生的数没有在数组a中出现过，则将其加入数组a中i = i + 1a(i) = numEnd IfLoop While i < 10…下面二重循环为排序For i = 1 To 9For j = i+1 To 10If a(i) > a(j) Then temp = a(i): a(i) = a(j): a(j)=tempNext jNext iFor i = 1 To 10Print a(i)Next iEnd Sub2、（2010年3月第一大题第34小题）排序的另一种形式。
Private Sub Command1_Click( )Dim arr(5) as IntegerFor k=1 to 5Arr(k)=kNext kProg arr()For k=1 to 5Print arr(k)Next k…下面是排序算法的另一种形式Sub prog(a( ) as Integer)n=Ubound(a)For i=n to 2 step -1For j=1 to n-1If a(j)<a(j+1) Thent=a(j)a(j)=a(j+1)a(j+1)=tEnd IfNext jNext iEnd Sub五、整数及其各数位上的数字1、（2010年9月第一大题第30小题）把数组中所有元素转换成一个四位数。
(输出1234)Private Sub Command1_Click( )Dim aa=Array(1, 2, 3, 4)i=3j=1Do While i>=0s=s+a(i)*jj=j*10LoopPrint sEnd Sub2、（2010年3月第一大题第30小题）取出一个整数各个数位上的数。
Private Sub Command1_Click( )Dim x%X=Inputbox(“请输入一个3位整数”)Print x Mod 10, x\10, (x mod 10)\10End Sub3、（2008年9月第一大题第35小题，2007年9月第二大题第9小题）反序输出整数n的每一位数字Private Sub pro(n As Integer)While (n>0)Print n Mod 10;n=n\10WendPrint六、数组、矩阵及其变换1、（2010年9月第一大题第33小题）下列程序的输出结果是（）。
Option Base 1Private Sub Form_Click( )Dim arr(4,4) as IntegerFor i=1 to 4For j=1 to 4arr(i,j)=(i-1)*2+jNextNextFor i=3 to 4For j=3 to 4Print arr(j, i)NextPrintNextEnd Sub2、（2010年3月第一大题第23小题）有如下程序段，其功能是按图1所示的规律输出数据。
Dim a(3, 5) as IntegerFor i=1 to 3For j=1 to 5A(i,j)=i+jPrint a(i,j)NextPrintNext若还要输出如图2所示数据，则接在上述程序段后面的程序段如下：For i=1 to 5For j=1 to 3Print a(j,i)NextPrintNext3、（2010年3月第二大题第9小题、2008年4第二大题第9小题）数组元素的对换。
Option Base 1Private Sub Command1_Click( )Dim a(10) as IntegerFor i=1 to 10A(i)=iCall swap(a)For i=1 to 10Print a(i)Next iEnd Sub…下面的过程是交换形参数组b中对称位置元素的值Sub swap(b( ) as Integer)N=UBound(b)For i=1 to n/2T=b(i)b(i)=b(n)b(n)=tn=n-1Next iEnd Sub4、（2008年9月第二大题第10小题）计算并输出数组Arr 中10 个数的正数之和pos 与负数之和neg，Option Base 1Private Sub Command1_Click( )Dim ArrArr=Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72)pos=0neg=0For k=1 To 10If Arr(k)>0 Thenpos=pos+arr(k)Elseneg=neg+arr(k)End IfNext kPrint pos, negEnd Sub5、（2007年9月第一大题第31小题）够返回数组a 中10 个数中最大数的函数过程，代码下列：Function MaxValue(a( )As Integer)As IntegerDim max%max=a(1)For k=2 To 10If a(k)>max Thenmax=a(k)End IfNext kMaxValue=maxEnd Function或：Function MaxValue (a( )As Integer)As IntegerDim max%max=1For k=2 To 10If a(k)>a(max) Thenmax=kEnd IfNext kMaxValue=a(max)End Function6、（2006年9月第二大题第10小题）下列程序的功能是：将一维数组A 中的100 个元素分别赋给二维数组B 的每个元素并打印出来，要求把A(1)到A(10)依次赋给B(1,1)到B(1,10)，把A(11)到A(20)依次赋给B(2,1)到B(2,10),……，把A(91)到A(100)依次赋给B(10,1)到B(10,10)。