2010春VB06上机答案
2010上半年计算机等考二级VB真题及答案
一、关于复习时间安排大三下学期，3~6月份，初期复习时间不宜太长，每天三四个小时即可。
复习重点在于数学和英语。
暑假，7、8月份，把握复习的关键时期，建议留校复习，每天复习七至八小时，重点仍是数学和英语。
大四上学期，9~1月7、8号，真正开始全面复习。
重点转移到数学、英语、专业课。
至于政治可以开始稍晚一些，10月份开始。
关于的复习时间，我可以大胆的说10小时，每天坚持下来绝对够了。
二、关于复习过程中心态一般决定考研的人，刚开始什么都不懂，患得患失，很是迷茫。
大家都是这样，我曾经也是这么过来的。
但自己制定一个计划，静下心来踏踏实实的复习，经历过了才知道一切如此简单。
补习班要不要报，很多人纠结于这个问题。
显然不用报，我负责的告诉你们。
以我自身以及周围同学的经历，补习班实在没有必要。
实在想买个心里安慰的话，就买个政治冲刺班（学长的免费安慰你们咋就不信呢？）。
我还要吐槽一下，考试前几天某补习机构说他们必然压中今年政治大题，然后给我们一本80页的资料书。
你怎么不给我几本政治课本说答案都在里面呢？考研是个漫长的征程，制定计划，最好劳逸结合，该休息时就休息。
去年我每个周六都给自己放假一天，即使最后的冲刺阶段也是至少休息半天。
正如我的ID，DOTA是我的主要娱乐项目。
当年十一那几天假期，我白天看书复习，晚上通宵DOTA，想想真是疯狂。
三、关于各科复习的建议1。
数学这次数三考了145，还是可以给大家介绍下我的经验。
从复习开始之时，数学就一直是重中之重，占了总复习时间的相当部分。
第一阶段：大三下学期开始看高数、线代、概率的课本，至于用什么版本。
真心觉得没那么大影响，用你大学本科的课本就行。
关键是扎实的了解课本知识，理解考点，不要似懂非懂的扫一遍。
课后习题不用全做，选作部分即可。
关于考试内容可参见去年考试大纲，每年变化不大。
第二阶段：暑假之前已看完一遍课本，脑海中已有数学的大概框架了。
暑假开始复习李永乐的复习全书，这是毫无争议的。
2010全国VB考题及答案123
2010年3月全国计算机等级考试二级VB笔试试卷(含参考答案)一、选择题（每题2分，共70分）（1）下列叙述中正确的是( )A)对长度为n的有序链表进行查找，最坏情况下需要比较次数为nB)对长度为n的有序链表进行对分查找，最坏情况下需要比较次数为（n/2）C)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数（log2n）D)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数（nlog2n）（2）算法的时间复杂是指( )A)算法的执行时间 B)算法所处理的数据量C)算法程序中的语句或指令条数 D)算法在执行过程中所需要的基本运算次数（3）软件按功能可以分为：应用软件、系统软件和支持软件（或工具软件），下面属于系统软件的是( )A)编辑软件 B)操作系统 C)教务管理系统 D）浏览器（4）软件（程序）调试的任务是( )A)诊断和改正程序中的错误 B)进肯能多的发现程序中的错误C)发现并改正程序中的所有错误 D)确定程序中错误的性质（5）数据流程图（DFD图）是( )A)软件概要设计的工具 B)软件详细设计的工具C)机构化方法的需求分析工具 D)面向对象方法的需求分析工具（6）软件生命周期可以分为定义阶段，开发阶段和维护阶段。
详细设计属于( )A)定义阶段 B)开发阶段 C)维护阶段 D)上述三个阶段（7）数据库管理系统中负责数据模式定义的语言是A）数据定义语言B）数据管理语言C）数据操纵语言D）数据控制语言（8）在学生管理的关系数据库中，存取一个学生信息的数据单位是A）文件B）数据库C）字段D）记录（9）数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的A）需求分析阶段B）逻辑设计阶段C）概念设计阶段D）物理设计阶段（10）有两个关系R和T如下：则由关系R得到关系T的操作是A）选择B）投影C）交D）并（11）在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是（12）设x是整型变量，与函数Ⅱf(x>0,-x,x)有相同结果的代数式是A）|x|B）-|x|C）xD）-x（13）设窗体文件中有下面的事件过程：Private Sub Command1_Click（）Dim sa%=100Print aEnd Sub其中变量a和s的数据类型分别是A）整型，整型B）变体型，变体型C）整型，变体型D）变体型，整型（14）下面哪个属性肯定不是框架控件的属性A）TextB）CaptionC）LeftD）Enabled（15）下面不能在信息框中输出“VB”的是A）MsgBox "VB"B）x=MsgBox（"VB"）C）MsgBox（"VB"）D）Call MsgBox "VB"（16）窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程Private Sub Option1_C1ick（Index As Integer）…End Sub下面关于此过程的参数Index的叙述中正确的是A）Index为1表示单选按钮被选中，为O表示未选中B）Index的值可正可负C）Index的值用来区分哪个单选按钮被选中D）Index表示数组中单选按钮的数量（17）设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发A）Text1的SetFocus事件B）Text1的GotFocus事件C）Text1的LostFocus事件D）窗体的GotFocus事件（18）VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母A）这3个事件都会触发B）只触发KeyPress事件C）只触发KeyDown、KeyUp事件D）不触发其中任何一个事件（19）下面关于标准模块的叙述中错误的是A）标准模块中可以声明全局变量B）标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程C）标准模块中可以包含一些Public过程D）一个工程中可以含有多个标准模块（20）设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是A）Form1_MouseDownB）Win_MouseDownC）Form_MouseDownD）MouseDown_Form1（21）下面正确使用动态数组的是A）Dim arr() As Integer…ReDim arr(3,5)B）Dim arr() As Integer…ReDim arr(50)As StringC）Dim arr()…ReDim arr(50) As IntegerD）Dim arr(50) As Integer…ReDim arr(20)（22）下面是求最大公约数的函数的首部Function gcd(ByVal x As Integer, ByVal y As Integer) As Integer若要输出8、12、16这3个数的最大公约数，下面正确的语句是A）Print gcd(8,12)，gcd(12,16)，gcd(16,8)B）Print gcd(8,12,16)C）Print gcd(8)，gcd(12)，gcd(16)D）Print gcd(8,gcd(12,16))（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所示的规律继续输出数据，则接在上述程序段后面的程序段应该是A）For i=1 To 5For j=1 To 3Print a（j,i）;NextPrintNextB）For i=1 To 3For j=1 To 5Print a（j,i）;NextPrintNextC）For j=1 To 5For i=1 To 3Print a（j,i）;NextPrintNextD）For i=1 To 5Print a（i,j）;NextPrintNext（24）窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序Private Sub Commandl_Click（）Dim nIf Text1.Text<>"23456" Thenn=n＋1Print "口令输入错误" & n & "次"End IfEnd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。
2010年春季计算机等级考试VB上机考试题
重庆市高等院校非计算机专业计算机等级考试Visual Basic 2010年第1次考试上机试卷第1套2010年4月24日一、设计下图所示界面的程序，程序运行后，输入球的半径，单击“球体积”、“球表面积”复选框，根据复选框是否勾选，决定是否在右侧相应的文本框内显示球体积（πR ）和球表面积（4πR ）的计算值。
（40分，存盘时工程文件名为Ex11nnnn.Vbp ，窗体文件名为Ex11nnnn.Frm ，其中nnnn 为考生准考证号的右4位）2433二、编写具有下图所示界面的应用程序，程序运行后，在“起始值”和“结束值”两个文本框中分别输入一个整数（大小不限），单击“计算累加和”按钮，就能在文本框下方的Label 控件中显示起始值与结束值之间所有奇数的累加和。
（30分，存盘时工程文件名为Ex12nnnn.Vbp ，窗体文件名为Ex12nnnn.Frm ，其中nnnn 为考生准考证号的右4位）三、程序的功能是：学生成绩数据已经保存在数组a 中，学生姓名已经保存在数组b 中，单击窗体，就能在窗体上显示成绩最好的学生姓名及其成绩。
（30分，要求根据程序代码改错，改错时，不得增加和删除语句。
将修改正确的程序存盘，工程文件名为Ex13nnnn.Vbp ，窗体文件名为Ex13nnnn.Frm ，其中nnnn 为考生准考证号的右4位）Private Sub Form_Click()Dim a As Variant, b As Stringa = Array(85, 77, 92, 66, 44)b = Array("黄玉梅", "朱明霞", "孙家宝", "赵天明", "杨百万")Max = a(0)：student = b(0)For i = 1 To 5If b(i) > Max ThenMax = a(i)：student = b(i)End IfNext iPrint "成绩最好的学生是："; student; "考试成绩为："; Max; "分" End Sub参考答案及评分标准：第一题参考代码Private Sub Check1_Click()r = Val(T ext1.Text)If Check1.Value = 1 Thenv = 4 * 3.14159 * r ^ 3 / 3Text2.Text = vElseText2.Text = ""End IfEnd SubPrivate Sub Check2_Click()r = Val(T ext1.Text)If Check2.Value = 1 Thenv = 4 * 3.14159 * r ^ 2Text3.Text = vElseText3.Text = ""End IfEnd Sub评分标准：界面设计15分保存文件5分每个事件过程10分第二题参考代码：Private Sub Command1_Click()X1 = Val(Text1.Text)X2 = Val(Text2.Text)Sum = 0If X1 < X2 Then n = 1 Else n = -1For i = X1 To X2 Step nIf i Mod 2 <> 0 ThenSum = Sum + iEnd IfNext iLabel3.Caption = "从" + Text1.Text + "到" + Text2.Text + "之间所有奇数的累加和＝" + Str(Sum)End Sub评分标准：界面设计5分循环结构正确5分（控制条件不正确者酌情扣分）判断条件正确5分求和正确5分输出格式正确5分正确存盘5分第三题改错参考答案：Private Sub Form_Click()Dim a As Variant, b As Varianta = Array(85, 77, 92, 66, 44)b = Array("黄玉梅", "朱明霞", "孙家宝", "赵天明", "杨百万")Max = a(0)student = b(0)For i = 1 To 4If a(i) > Max ThenMax = a(i)student = b(i)End IfNext iPrint "成绩最好的学生是："; student; "考试成绩为："; Max; "分" End Sub评分标准：共3处错误，每改一处错误正确存盘8分（共24分）6分重庆市高等院校非计算机专业计算机等级考试Visual Basic 2010年第1次考试上机试卷第2套2010年4月24日1．设计右图所示界面的程序，程序运行后，输入圆的半径，单击“圆面积”、“圆周长”复选框，然后单击“计算”按钮，根据复选框是否勾选，决定是否在右侧相应的文本框内显示圆面积和圆周长的计算值。
江苏省vb上机必备(真题)
一、呕心沥血2010年（秋）上机Visual Basic（VB01）二、三、改错本程序的功能是，找出10～100之间的所有只有奇数真因子的整数。
所谓数据n的真因子是指除1和n之外的因子。
Private Sub Cmd1_Click()Dim fac() As Integer, n As IntegerDim i As Integer, sn As String, flag As Boolean'flag = FalseFor n = 10 To 100flag = False Array Call jsyz(n, fac, flag)If flag Thensn = n & ":"For i = 1 To UBound(fac)sn = sn & fac(i) & ","Next iList1.AddItem Left(sn, Len(sn) - 1)End IfNext nEnd SubPrivate Sub jsyz(n As Integer, fa() As Integer, flag As Boolean)Dim i As Integer, k As IntegerFor i = 2 To n - 1If n Mod i = 0 ThenIf i Mod 2 <> 0 Thenk = k + 1ReDim Preserve fa(k)fa(k) = iElseExit SubEnd IfEnd IfNext iIf k <> 0 Then flag = TrueEnd Sub二、编程题【题目】编写程序，随机生成一个元素值为10～40之间整数的4行5列数组；找出该二维数组的最大元素与最小元素,并将最大元素与最小元素的值以及相应的行号和列号输出到图片框中。
（注意：等于数组最大元素值与最小元素值的数组元素都可能有多个）2010年（秋）上机Visual Basic（VB02）一、改错【题目】本程序的功能是，查找首末两位数字之和与中间两位数字之和相等的四位素数。
全国计算机VB上机题库及答案(全)
全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】考前复习必看资料：PiaoMo整理—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。
窗体的标题为"按钮窗口"。
运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。
图1【操作步骤】步骤1：新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。
表1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。
程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。
注意：程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。
图2【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。
步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。
2010上半年计算机等考二级VB真题及答案
D、读写磁头是既能从磁表面存储器读出信息又能把信息写入磁表面存储器的装置
41． 一个非零的无符号二进制整数，若在其右边末尾加上两个"0"形成一个新的无符号二进制整数，则新的数是原来数的( )倍。 四 或 4
42． 为解决某一问题而设计的指令序列称为( )。 程序
34． 下列四条叙述中，正确的一条是( )。A
A、假若CPU向外输出20位地址，则它能直接访问的存储空间可达1MB
B、PC机在使用过程中突然断电，SRAM中存储的信息不会丢失
C、PC机在使用过程中突然断电，DRAM中存储的信息不会丢失
D、外存储器中的信息可以直接被CPU处理
15． 微机中1K字节表示的二进制位数是( )。D A、1000 B、8x1000 C、1024 D、8x1024
16． 计算机硬件能直接识别和执行的只有( )。D A、高级语言 B、符号语言 C、汇编语言 D、机器语言
17． 用于保存计算机输入输出数据的材料及其制品称为( )。A
一级WINDOWS超级模拟考试（十）
43． 汉字国标码中共收集了个汉字及符号。D
A、3755 B、3008 C、6763 D、7445
44． 个人计算机属于( )。C
A、小巨型机 B、小型计算机 C、微型计算机 D、大型计算机
45． 存储器中的信息可以是指令，也可以是数据，计算机是靠( )来判别的。D
全国计算机等级考试一级B模拟试题及答案
1． 目前各部门广泛使用的人事档案管理、财务管理等软件，按计算机应用分类，应属于( )。D
A、实时控制 B、科学计算 C、计算机辅助工程 D、数据处理
2010VB本科期末上机考试练习题答案
1、单击窗体在窗体上输出10个两位随机整数，并求出其平均数。
运行效果如下图所示：Private Sub Form_Click()Dim a(10) As Integer, i As Integer, s As IntegerFor i = 1 To 10a(i) = Int(Rnd * (99 - 10 + 1)) + 10s = s + a(i)Print a(i)Next iPrint "平均数为" & s / 10End Sub2、随机产生20个200～400之间的随机整数，按每行5个输出到窗体上，并求出其中的最大值。
Private Sub Form_Click()Dim i As Integer, a(20) As Integer, max As IntegerPrint "原始数据为："max = 0For i = 1 To 20a(i) = Int(Rnd * (400 - 200 + 1)) + 200Print a(i);If i Mod 5 = 0 Then PrintIf max < a(i) Then max = a(i)Next iPrint "最大值为：" & maxEnd Sub3、产生20个两位的随机整数，输出这20个数（以每行5个的形式输出这20个数，其中的偶数用红色显示），找出其中的最大值和最小值，计算并输出平均值。
运行效果如下图所示：Private Sub Form_Click()Dim a(20) As Integer, i As Integer, max As Integer, min As Integer, s As IntegerPrint "原数组为："max = 0min = 100Form1.ForeColor = vbBlackFor i = 1 To 20a(i) = Int(Rnd * (99 - 10 + 1)) + 10If a(i) Mod 2 = 0 ThenForm1.ForeColor = vbRedElseForm1.ForeColor = vbBlackEnd IfPrint a(i); 先变色，再输出If i Mod 5 = 0 Then Prints = s + a(i)If max < a(i) Then max = a(i)If min > a(i) Then min = a(i)Next iPrintForm1.ForeColor = vbBlackPrint "max=" & maxPrint "min=" & minPrint "aver=" & s / 20End Sub4、产生10个随机两位正整数，放入一数组中，并按从小到大的顺序排列。
VB语言程序设计课后编程及上机调试参考答案
For k = 100 To 999 a = Int(k / 100) b = Int((k - 100 * a) / 10) c = k Mod 10 If a * a * a + b * b * b + c * c *;1 End If
Next k Print " 一共有 " & n & " 个水仙花数 " End Sub
程序设计教程 "
ex0102
Private Sub Command1_Click()
Txt.Text = "
我有电脑 "
End Sub
Private Sub Command2_Click()
Txt.Text = "
我没有电脑 "
End Sub
Private Sub Command3_Click()
Txt.Text = "" '
s=s+k Next k Show Print "1 ～100 范围内的奇数和： "; s End Sub
ex0502 Private Sub Form_Load()
Dim s As Single Show s=0 For k = 1 To 200
s = s + k / (1 + k * k) Next k Print Int(s * 10 + 0.5) / 10 End Sub
x = Mid(s, k, 1) t = UCase(x) If t >= "A" And t <= "Z" Then
y=y+x End If Next k Text2.Text = y End Sub
vb上机练习试题及答案
第一章概述一、基本要求（1）熟悉VB集成开发环境（2）掌握代码窗口的应用及录入、编辑代码的基本方法（3）了解VB程序设计的基本步骤二、实习内容（1）实习熟悉VB集成开发环境各组成部分（2）输入一个数，求该数的平方并显示结果第二章一、基本要求（1）熟练掌握各种运算符的应用和优先顺序（2）掌握各种常用函数的功能、参数和返回值（3）掌握立即窗口的使用方法二、实验内容（1）回答整形、长整型、单精度、双精度类型数据占用字节数。
（2）已知直角三角形的两条直角边长，求斜边长。
Privat e Sub Comman d1_Cl ick()Dim a%, b%, c%a = Val(InputB ox("输入第一条直角边长"))b = Val(InputB ox("输入第二条直角边长"))c = Sqr(a ^ 2 + b ^ 2)PrintcEnd Sub（3）给小学生随机出两位数和一位数的加法题。
Privat e Sub Comman d1_Cl ick()Dim a%, b%, c%a = Val(InputB ox("输入两位数"))b = Val(InputB ox("输入一位数"))c = a + bPrintcEnd Sub（4）用文本框输入一个带小数的数，对输入的数四舍五入保留2位小数。
Privat e Sub Comman d1_Cl ick()Dim x#, y!x = Text1.Texty = Round(x, 2)PrintyEnd Sub（5）输入某人姓名，判断是否你的本家。
Privat e Sub Comman d1_Cl ick()Dim a$, b$, p As Boolea nb = "李"a = InputB ox("输入某人的姓名")If Left(a, 1) = b Thenp = TrueEnd IfPrintpEnd Sub（6）任意输入西安地区的固定电话号码（原为7位），将其升为8位（在原号码前面加8）。
2010年春季计算机等级考试VB笔试试题(含答案)
二级Visual Basic 语言笔试试题(A)(共100分)注意事项：1. 一、二、三题为客观题，请将答案做在机读答题卡上2. 四、五、六题为主观题，请将答案做在答题纸上一.单项选择题（每小题1分，共20分）1．用来描述“x为小于10的非负数”的正确Visual Basic表达式是（C ）（A）0<=x<10 （B）0<x<10 （C）0<=x And x<10 （D）0<=x Or x<105 2. 标签控件(Label)中显示的文字内容，由（C ）属性的值决定。
（A）Text （B）0<x<10 （C）Caption （D）Alignment3. 下列各个选项中，能构成语句的是（ B ）（A）对象名.属性名（B）对象名.方法名（C）对象名.事件名（D）对象名.函数名4. 若要在文本框Text1中显示变量a和b的值，应选用的语句是（B ）（A） = a & b （B）Text1.T ext = a & b（C）Text1.Caption = a & b （D）Text1.Text= a,b5. 在Visual Basic语言中，用于表示“回车”的符号常量是（D ）（A）Enter （B）Return （C）CrLf （D）vbCrLf6. 将焦点移到某个名为Object的控件，所使用的方法是（ A ）（A）Object.SetFocus （B）Object.Visible（C）Object.Refresh （D）Object.GetFocus7. 设x=10，则执行y = IIf(x<10,-1,0) 之后，y的值为（B）（A）10 （B）0 （C）-1 （D）不确定8. 在默认情况下，语句Dim a(5, 6) As Double定义的数组a中拥有的元素个数为（ D ）（A）20 （B）30 （C）40 （D）429. 语句Print "Sqr(16)=";Sqr(16) 的输出结果为（B ）（A）Sqr(16)=Sqr(16) （B）Sqr(16)= 4（C）"4="4 （D）4=Sqr(16)10. 函数表达式Val("98年3月5日")的返回值为（B ）（A）98年3月5日（B）98 （C）1998 （D）011．为菜单项设置快捷键，应在该选项的Caption属性的快捷键字符前面加上字符（C ）（A）# （B）@ （C）& （D）！12．将文本框（TextBox）的Enabled属性设置为False的作用是（C）（A）使文本框不可见（B）使文本框内容不显示（C）使文本框中无法输入字符（D）使文本框无边框13．设P的值为－3，则-p^2的值为（ B ）（A）9 （B）-9 （C）6 （D）-614．保存一个Visual Basic应用程序至少需要要保存两个文件，它们是（B）（A）文本文件(.txt)和工程文件(.vbp)（B) 窗体文件(.frm)和工程文件(.vbp)（C) 窗体文件(.frm)和标准模块文件(.abs)（D）类模块文件(.cls)和工程文件(.vbp)15．清除列表框的所有选项，应该使用的方法是（ A ）（A）Clear （B）AddItem （C）Remove （D）ReFresh16. 程序运行状态，改变Visual Basic程序窗口大小，则自动触发的窗体事件是（B）（A）Click （B）Resize （C）Load （D）UnLoad 17．要求每0.2秒触发一次Timer事件，定时器的Interval属性应被设置为（D）（A）0.02 （B）0.2 （C）2 （D）20018．语句X = Rnd * 1000 执行之后，变量X可能的取值范围是（ C ）（A）0≤X＜1 （B）0≤X≤1（C）0≤X＜1000 （D）0≤X≤1000 19．在Visual Basic程序运行期间始终不可见的控件是( C )（A）Label （B）Frame （C）Timer （D）ListBox 20．下列函数表达式中，返回值最大的是（A ）（A）Len("d:\background.jpg")（B）Val("d:\background.jpg")（C）Month(now)（D）WeekDay(now)21．下列窗体事件过程最先被执行的是（ A ）（A）Load() （B）Click() （C）MouseDown() （D）Unload()22. 能产生下面形式消息框的语句是（ D ）（A）n = MsgBox("文件尚未保存,是否关闭？", vbOKCancel + vbQuestion, "请确认") （B）n = MsgBox("文件尚未保存,是否关闭？", vbYesNoCancel + vbInformation, "确认") （C）n = MsgBox("文件尚未保存,是否关闭？",vbOKCancel + vbInformation, "确认") （D）n = MsgBox("文件尚未保存,是否关闭？", vbYesNoCancel + vbQuestion, "确认")23．下列程序段执行后，窗体上显示输出的结果为（ D ）Private Sub Form_Click()Dim a, b, ca = 5:b = 7:c = a = bPrint cEnd Sub（A）5 （B）7 （C）0 （D）False24．已知程序中有如下事件过程，则程序运行时（ C ）Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenCurrentX = X：CurrentY = Y：Print "*"End IfEnd Sub（A）在窗体上移动鼠标光标，将沿光标移动轨迹画出由“*”组成的曲线（B）在窗体上按下鼠标左键并移动鼠标光标，将沿光标移动轨迹画出由“*”组成的曲线（C）在窗体上按下鼠标右键并移动鼠标光标，将沿光标移动轨迹画出由“*”组成的曲线（D）在窗体上按下鼠标左键并立即释放，能在光标位置画出一个“*”25. Visual Basic允许在一个行内书写多个语句，但各语句之间必须使用（ C ）符号分隔开来。
2010VB上机实验
2009-2010学年春季学期Visual Basic程序设计上机实验目录实验一：VB集成环境及简单应用程序的建立 (1)实验二：顺序结构程序设计 (5)实验三：选择结构程序设计 (7)实验四：循环结构程序设计 (11)实验五：常用内部控件的程序设计 (12)实验六：数组的使用 (18)实验七：过程的创建和使用 (23)实验一：VB集成环境及简单应用程序的建立(一)实验目的：熟悉VB集成开发环境的使用；掌握VB应用程序设计思想，能完成简单的程序设计。
(二)实验要求：在自己的机器上新建一个文件夹，名称为自己的学号。
按照要求完成各题，保存时必须保存在自己的文件夹中。
(三)同学们上机容易出现的问题：1.一道题建立一个工程，做一道题时启动VB，做完后保存，关闭VB。
2.写程序代码时，符号要用英文输入法输入。
例如字符串的定界符引号：form1.caption="程序举例"3.写代码时，一定注意对象的名称是否正确，例如打入label1. 后，如果没有VB自动提示，肯定是名称写错了，检查修改。
为避免麻烦，可以把标签等对象名重新命名，例如命名成简单的a。
修改name名称属性。
4.保存：点击保存按钮，或文件→保存工程。
生成可执行程序：文件→生成.exe(四)实验内容：1.独立完成例1-3-1，保存时窗体文件名为1.frm，工程文件名为1.vbp，生成可执行程序文件名为1.exe。
(教材P7)2.独立完成例1-4-1，保存时窗体文件名为 2.frm，工程文件名为2.vbp，生成可执行程序文件名为2.exe。
(教材P23)3.独立完成例1-4-2，保存时窗体文件名为 3.frm，工程文件名为3.vbp，生成可执行程序文件名为3.exe。
(教材P26)4.第1章课后作业第6题，保存时窗体文件名为4.frm，工程文件名为4.vbp，生成可执行程序文件名为4.exe。
(教材P28)5.第1章课后作业第7题，保存时窗体文件名为5.frm，工程文件名为5.vbp，生成可执行程序文件名为5.exe。
VB练习题(上机)含答案
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的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
VB期末考试上机题编程答案
VB 期末考试上机题编程答案详细要求：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 IntegerDim s 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.新建一个工程，编写求某一自然数因子和的程序。
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() Label1.BorderStyle = 1Label1.Alignment = 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenLabel1.Caption = 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的个数。
江苏省2010春VB笔试卷和答案
2010年春江苏省计算机二级VB试卷第一部分: 计算机基础知识1．下面关于通信技术的叙述中，错误的是___1___ 。
A．任何一个通信系统都有信源、信道和信宿这三个基本组成部分B．为了实现远距离传输信息，在模拟通信和数字通信中均采用载波技术C．为了降低传输信息的成本，在通信中广泛采用多路复用技术D．数字通信系统的一个主要性能参数是信道带宽,它指实际进行数据传输时单位时间内传输的二进位数目2．在下列有关集成电路及其使用的叙述中，错误的是___2___ 。
A．集成电路的制造工序繁多，工艺复杂且技术难度高B．经过抛光后的硅片称为晶圆，每个晶圆最多可以制成一个合格的集成电路芯片C．IC卡分为接触式IC卡和非接触式IC卡，后者通常又称为射频卡或感应卡D．集成电路使用十分广泛，目前我国第2代居民身份证中就有集成电路芯片3．在下列有关数字技术的一些叙述中，错误的是_____3_____ 。
A．数字技术是采用有限个状态(例如"0"和"1")来表示、处理、存储和传输信息的B．在逻辑代数中，1和1进行逻辑加(V)和逻辑乘(^)的结果相同c．任何一个十进制数，均可以精确地转换成等值的二进制数D．在PC机中，通常用原码表示正整数、用补码表示负整数4．在下列有关PC机主机的叙述中，错误的是___4___ 。
A．BIOS和CMOS存储器安装在主板上，普通用户一般不能自己更换B．由于PC机主板的物理尺寸等没有标准化，所以不同PC机的主板均不能互换C．芯片组是PC机各组成部分相互连接和通信的枢纽，一般由2块VLSI芯片组成D．芯片组决定了主板上所能安装的内存最大容量、速度及可使用的内存条类型5．在下列4个Intel微处理器产品中，采用双核结构的是_____5_____ 。
A. Core 2 Duo B．Pentium PROC．Pentium III D．Pentium 46．在下列四种PC机主存储器类型中，目前常用的是_____6_____ 。
2010春机试试卷及参考答案
2010春机试试卷及参考答案2010年春VFP01⼀、项⽬、数据库和表操作（12分）打开T盘根⽬录中的项⽬⽂件JXGL，在该项⽬中已有⼀数据库JXSJ。
1．在JXSJ（1）设置AB表的长表名为：发表论⽂登记表；（2）设置BMBH字段的格式：删除输⼊的前导空格；（3）创建唯⼀索引，索引名为abcd，要求按作者姓名排序，姓名相同时再按论⽂名排序；（4）设置LX字段的显⽰类为复选框控件类。
3．为KC表设置删除触发器：Lx字段值为“专业核⼼课程’’的记录不允许删除。
4．JS表已存在主索引GH，索引表达式为GH，KCAP表已存在普通索引GH，索引表达式为GH，以JS 表为主表、KCAP表为⼦表按GH建⽴永久关系，并设置两表之间的参照完整性：更新级联。
⼆、设计查询（8分）课程表（KC）中含有课程代码（kcdm，C）、课程名称（kcmc，C）和学分（xf，N）等字段，在成绩表（cj）中含有学⽣学号（xh，c）、成绩（cj，N）、课程代码（kcdm，C）等字段。
按如下要求修改JXGL 项⽬中的查询CHAXUN：若成绩不低于60分学⽣可以取得对应课程的学分，总学分⼤于或等于20的学⽣可以毕业，则基于KC表和CJ表查询所有不能毕业的学⽣列表。
要求查询输出字段为：学号、总学分，查询结果按总学分降序排序。
三、设计菜单（5分）JXGL项⽬中已存在菜单MENU，其中已定义了“⽂件”菜单栏及其中的“退出菜单”项。
按如下要求设计菜单，完成后的运⾏效果如图1所⽰。
1．在“⽂件”菜单栏右侧创建“教学管理”菜单栏；2．在“教学管理”菜单栏下创建⼦菜单“学⽣”和“课程”：3．为“学⽣”菜单项没置跳过条件：XS表打开时才可操作：4．在菜单项“学⽣”和“课程”之问插⼊分组线；5．设置整个菜单的清理代码：CLOSE TABLES ALL。
四、设计表单（10分）JXGL项⽬中已经存在表单Formj，该表单⽤来设置表单中表格控件Grdl的相关属性，如图2所⽰。
vb上机答案全部
实验一Form1.print “程序设计基础教程”End subPrivate sub form_dblclick()Form1.clsEnd subDim a as single,b as single,c as single a=val(text1.text)b=val(text2.text)c=a*btext3.text=str(c)end subDim n as integer,a as singlen=val(text1.text)a= n^(1/3)text2.text=str(a)end subText1.text=“visual basic 程序设计”end subPrivate Sub Command2_click()Text1.text=“”end subText2.text=left(text1.text,5)end subPrivate Sub Command2_click()Text3.text=len(text1.text)end subForm1.Move 0, 0End SubPrivate Sub Command2_Click()Form1.Height = Form1.Height * 1.2Form1.Width = Form1.Width * 1.2End Sub7.Const pi as single=3.14159Command1_click()Dim a as single,b as single,c as single,s as single a=val(text1.text)b=val(text2.text)c=val(text3.text)s=a*b*sin((c*pi)/180)/2text4.text=round(s ,2)end sub实验二顺序Const pi as single=3.14159Private Sub Command1_click()Dim r as single,v as singler=val(text1.text)v=4/3 *pi*r^3label1.caption=format(v, “0.00”)end subDim a as single,b as single,c as single,d as single a=val(text1.text)b=val(text2.text)c=val(text3.text)d=(a+b+c)/3text4.text=format(d, “0.00”)end subText1.locked=falseEnd subPrivate Sub Text1_changeCommand2.enable=trueEnd subPrivate Sub Command_click()Text1.locked=trueCommand2.enable=falseEnd subText1.text=“欢迎光临”End subCommand2_click()Text1.text=“谢谢再见”End subText1.selstart=8Text1.sellength=9End subCommand2_click()Label2.caption=text1.seltext End subConst pi as single=3.14159Dim r as single,h as singlePrivate Sub Command click()Dim s as singler=text1.texth=text2.texts=2*pi*r^2+2*pi*r*htext3.text=format(s, “0.000”) end subPrivate Sub command2 click()dim v as singlev=pi*r^2*htext4.text=format(v, “0.000”) end subDim a as string,b as stringPrivate Sub Command1_click()a=text1.textb=text2.texttext3.text=“a” & “b”end subPrivate Sub command2_click()dim t as stringa=text1.textb=text2.textt=aa=bb=ttext1.text=atext2.text=blabel1.caption=“交换成功”end sub实验三选择Dim n as integerIf (n mod 3=0 )and (n mod 7=0 ) then Label2.caption=“Yes”ElseLabel2.caption=“No”End ifEnd subDim x as single,y as singlex=text1.texty=text2.textif x>0 and y>0 thentext3.text=“第一象限”elseif x<0 and y>0 thentext3.text=“第二象限”elseif x<0 and y<0 thentext3.text=“第三象限”else x>0 and y<0 thentext3.text=“第四象限”end ifend subDim a as single,b as single,c as single,d as single a=text1.textb=text2.textc=text3.textd=a+b+cif d>=270 thenif d>=285 thentext4.text=“Gold Medal”elsetext4.text=“Silver Medal”end ifelseif d>240 thentext4.text=“Bronze Medal”elseif a>95 or b>95 or c>95 thentext4.text=“Honor Medal”elsetext4.text=“No Medal”end ifend ifend subText.text=“我是博士生”End subOption2_clickText.text=“我是硕士生”End subOption3_clickText.text=“我是本科生”End subIf Check1.Value ThenLabel1.FontUnderline = TrueElseLabel1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value ThenLabel1.FontStrikethru = TrueElseLabel1.FontStrikethru = FalseEnd IfEnd SubDim n as singlen=text1.textif n=<4 thentext2.text=format（10，“0.0”）elseif n>4 and n<=15 thentext2.text=format（10+1.2*(n-4)，“0.0”）elsetext2.text=format（1.8*n，“0.0”）end ifend subIf text1.text=“Teacher” thenIf text2.text=“123456” thenLabel3.caption=“登录成功”ElseLabel3.caption=“密码不正确”End ifElseif text1.text=“Student” thenIf text2.text=“654321” thenLabel3.caption=“登录成功”ElseLabel3.caption=“密码不正确”End ifElseLabel3.caption=“用户未注册”End ifEnd sub实验四循环Dim n As Integer, i As Integer, a As Long n = Text1.Texta = 0For i = 1 To nIf (i Mod 3 = 0) And (i Mod 7 <> 0) Thena = a + iEnd IfNext iLabel1.Caption = aEnd SubDim n As Integer, m As Integer, i As Integern = Text1.Text n=val(text1.text)m = Text2.Text m=val(text2.text)If m >= n Then for i=n to 1 step -1For i = n To 1 Step -1 if n mod i=0 and m mod i=0 then If (m Mod i = 0) And (n Mod i) = 0 Then text3.text=str(i)Text3.Text = I exit forExit For end ifEnd If next iNext iElseFor i = m To 1 Step -1If (m Mod i = 0) And (n Mod i = 0) ThenText3.Text = iExit ForEnd IfNext iEnd IfEnd SubDim n As Integer, m As Integer, i As Integer, a As Integer, s As Integer, flag AsBooleanm = Text1.Textn = Text2.Texts = 0For a = m To nflag = TrueFor i = 2 To a - 1If a Mod i = 0 Thenflag = FalseExit ForEnd IfNext iIf flag = True Then s = s + a Next aText3.Text = sEnd SubTimer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseLabel1.Left = 100End SubPrivate Sub Timer1_Timer() Label1.Left = Label1.Left + 100 End SubDim n As Single, i As Single, a As Single, s As Single n = Label1.Captions = 0For i = 1 To nFor a = 1 To is = s + aNext aNext iText1.Text = sEnd SubPrivate Sub HScroll1_Change()Label1.Caption = HScroll1.ValueEnd SubDim s As Single, n As Long, t As Long, i As Longs = Text1.Textt = 1For i = 1 To Len(s)If Right(s, 1) = "1" Thenn = n + tEnd Ift = t * 2s = Left(s, Len(s) - 1)Next iLabel1.Caption = nEnd SubPrivate Sub Command2_Click()Dim a As Long, q As Longa = Text1.TextDo While (a > 0)q = a Mod 2 & qa = a \ 2LoopLabel1.Caption = qEnd SubTimer1.Enabled = TrueCommand1.Enabled = FalseCommand1.Caption = "继续"Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Command2.Enabled = FalseCommand1.Enabled = TrueTimer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Label1.FontSize = Label1.FontSize * 1.1 If Label1.FontSize > 100 ThenLabel1.FontSize = 8End IfEnd Sub实验五数组Private Sub Command1_Click()Dim i As IntegerText1.text=""For i = 1 To 10a(i) = Int(Rnd * 81) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer Text2.text=""For i = 1 To 9For j = i + 1 To 10If a(i) > a(j) Thent = a(j)a(j) = a(i)a(i) = tEnd IfNext jNext iFor i = 1 To 10If a(i) Mod 3 = 0 ThenText2.Text = Text2.Text & a(i) & Space(2) End IfNext iEnd SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 10a(i) = Int(Rnd * 26) + 65Text1.Text = Text1.Text & a(i) & Space(2)Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, max As Integermax = a(1)For i = 2 To 10If max < a(i) Thenmax = a(i)End IfNext iText2.Text = maxText3.Text = Chr(max)End SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 100a(i) = Int(Rnd * 26) + 65Text1.Text = Text1.Text & Chr(a(i)) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, b As Integer, j As Integer r = 0b = Asc(Text2.Text)For i = 1 To 100If a(i) = b Thenj = j + 1End IfNext iText3.Text = jEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerText1.Text = ""For i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i, j) & Space(2) Next jText1.Text = Text1.Text & vbCrLfNext iEnd SubPrivate Sub Command2_ClickDim i as Integer ,j as Integer ,s as Integer For i = 1 to 5j = 6 – is=s+a( i ,j )next iLabel1.caption =sEnd SubPrivate Sub Command1_Click()Dim n As Integer, i As Integeri = Val(Text1.Text)ReDim a(1 To i)a(1) = 1a(2) = 1For n = 3 To ia(n) = a(n - 1) + a(n - 2)Next nText2.Text = a(i)End SubPrivate Sub Command1_Click()Dim i As IntegerText1.text=""For i = 1 To 50a(i) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As IntegerText2.Text = 0For i = 1 To 50If a(i) Mod 3 = 0 And a(i) Mod 7 = 0 Then Text2.Text = Val(Text2.Text) + a(i)End IfNext iEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerText1.Text = ""For i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 41) + 10Text1.Text = Text1.Text & a(i, j) & Space(2)Next jText1.Text = Text1.Text & vbCrLfNext iEnd SubPrivate Sub Command2_Click()Dim i As Integer,j as integerFor i=1 to 4t=a(i,1)a(i,1)=a(i,3)a(i,3)=tNext tFor i = 1 To 4For j = 1 To 4Label1.Caption = Label1.Caption & a(i, j) & Space(2) Next jLabel1.Caption = Label1.Caption & vbCrLfNext iEnd Sub实验六常用控件Private Sub Op_Click(Index As Integer)Dim a As Integer, b As Integer, c As Integera = Val(Text1.Text)b = Val(Text2.Text)Select Case IndexCase 0c = a + bCase 1c = a - bCase 2c = a * bCase 3c = a / bEnd SelectText3.Text = Str(c)End SubPrivate Sub Command1_Click()Dim n As IntegerFor n = 1 To 10a(n) = Int(Rnd * 81) + 10List1.AddItem a(n)Next nEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, k As Integer, t% For i = 1 To 9For k = i + 1 To 10If a(i) > a(k) Thent = a(i)a(i) = a(k)a(k) = tEnd IfNext kNext iFor i = 1 To 10List2.AddItem a(i)Next iEnd SubPrivate Sub Command1_Click()Timer1.Enabled = FalseCommand2.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Timer1.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Timer1_Timer()List1.AddItem Int(Rnd * 90000 + 10000) End SubDim n As Integer, s As Integers = 0For n = 0 To 4If List1.Selected(n) = True Thens = s + 1End IfNext nText1.Text = sEnd SubList1.AddItem Combo1.TextEnd SubPrivate Sub List1_DblClick()List1.RemoveItem List1.ListIndexEnd SubText1.Text = Combo1.TextEnd SubPrivate Sub Command2_Click()Combo1.List(Combo1.ListIndex) = Text1.TextEnd SubPrivate Sub Timer1_TimerDim n as integerIf n>Combo1.ListCount-1 then n=0Combo1.ListIndex = nn=n+1End SubPrivate Sub Command1_ClickTimer1.Enabled =TrueCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2.ClickTimer1.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled =FalseEnd SubPrivate Sub Command3_Click()For j = 0 To Combo1.ListCount - 1If Combo1.List(j) = Trim(Text1.Text) Then Exit ForEnd IfNext jIf j = Combo1.ListCount ThenLabel1.Caption = "No Found"ElseLabel1.Caption = "Found"End IfEnd Sub实验七过程Dim i As Integer, n As Integer, p As Double n = Val(Text1.Text)p = 0For i = 1 To np = p + fact(i)Next iText2.Text = Str(p)End SubFunction fact(ByVal n As Integer) As Double Dim i As Integer, p As Doublep = 1For i = 1 To np = p * iNext ifact = pEnd FunctionDim x As Integer, y As Integer, z As Integer x = Val(Text1.Text)y = Val(Text2.Text)z = Val(Text3.Text)Swap x, ySwap x, zSwap y, zText4.Text = x & " " & y & Space(2) & z End SubPrivate Sub Swap(ByRef x%, ByRef y%)Dim t As IntegerIf x < y Thent = x: x = y: y = tEnd IfEnd SubDim m As Integer, n As Integerm = Val(Text1.Text)n = Val(Text2.Text)Text3.Text = m * n / Gcd(m, n)End SubFunction Gcd(ByVal m%, ByVal n%) As Integer Dim i As IntegerFor i = m To 1 Step -1If m Mod i = 0 And n Mod i = 0 ThenGcd = iExit FunctionEnd IfNext iEnd FunctionDim x As Integer, n As Integerx = Val(Text1.Text)n = Val(Text2.Text)Text3.Text = Square(x, n)End SubFunction Square(ByVal x%, ByVal n%) As Double Dim i As IntegerFor i = 0 To nSquare = Square + x ^ iNext iEnd FunctionDim m As Integer, n As Integer, i As Integer Text3.Text = ""m = Val(Text1.Text): n = Val(Text2.Text)For i = m To nIf Isprime(i) ThenText3.Text = Text3.Text & i & " "End IfNext iEnd SubFunction Isprime(n As Integer) As Boolean Dim i As IntegerIsprime = TrueFor i = 2 To n - 1If n Mod i = 0 ThenIsprime = FalseExit FunctionEnd IfNext iEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerReDim a(9)Text1.Text = ""For i = 0 To 9a(i) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubFunction sort(b() As Integer)Dim i As Integer, j As Integer, t As Integer For i = 0 To 8For j = i + 1 To 9If b(j) < b(i) Thent = b(j)b(j) = b(i)b(i) = tEnd IfNext jNext iFor i = 0 To 9sort = sort & b(i) & Space(2)Next iEnd FunctionPrivate Sub Command2_Click()Label1.Caption = sort(a())End SubDim i As Integersak = 0For i = 0 To k - 1sak = sak + a * 10 ^ iNext iEnd FunctionPrivate Sub Command1_Click()Dim i As Integer, n As Integer, s As Long, a As Integer a = Val(Text1.Text)n = Val(Text2.Text)s = 0For i = 1 To ns = sak(a, i) + sNext iText3.Text = sEnd Sub实验八图形Picture1.Picture = LoadPicture(App.Path & "\Wys.bmp") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture()End Sub2.If Check1.Value = 1 ThenImage1.BorderStyle = 1ElseImage1.BorderStyle = 0End IfEnd SubPrivate Sub Check2_Click()If Check1.Value = 1 ThenImage1.Picture = LoadPicture(App.Path & "\Pic.jpg") ElseImage1.Picture = LoadPicture()End IfEnd SubShape1.Shape = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Shape1.FillStyle = VScroll1.ValueEnd SubPrivate Sub Command1_Click()Picture1.Line (0, 600)-(1600, 600)End SubPrivate Sub Command2_Click()Picture1.ClsPicture1.Circle (800, 600), 500, , , , 2End SubIf keyascii>48 or keyascii<57 ThenKeyascii=0Label1.Caption = "非法输入"ElseLabel1.Caption = "合法输入"End IfEnd SubImage1.Stretch = TrueImage1.Width = Image1.Width * Sqr(2 ^ (1 / 2)) Image1.Height = Image1.Height * Sqr(2 ^ (1 / 2)) End SubPrivate Sub Command2_Click()Image1.Stretch = TrueImage1.Width = Image1.Width * Sqr(2)Image1.Height = Image1.Height * Sqr(2)End SubPrivate Sub Command3_Click()Image1.Stretch = FalseEnd SubPicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End subHsgreen_changePicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End subHsred_changePicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End sub实验九文件Private Sub Command1_Click()Dim i As IntegerText1.Text = ""i = 1Open App.Path & "\Grade.txt" For Input As #1Do While Not EOF(1)Input #1, a(i)Text1.Text = Text1.Text & a(i) & Space(2)i = i + 1LoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As Integers = 0For i = 1 To 30If a(i) = 100 Thens = s + 1End IfNext iText2.Text = sEnd SubDim s As StringText1.Text = ""Open App.Path & "\Infile.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text & s & vbCrLfLoopClose #1End SubPrivate Sub Command2_Click()Dim a As Stringa = UCase(Text1.Text)Text1.Text = aOpen App.Path & "\Outfile.txt" For Output As #1 Print #1, aClose #1End SubPrivate Sub Command1_Click()Dim s As String, i As IntegerText1.Text = ""i = 1Open App.Path & "\Datain.txt" For Input As #1 Do While Not EOF(1)Input #1, a(i)Text1.Text = Text1.Text & a(i) & Space(2)i = i + 1LoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As Integers = 0For i = 1 To 20If a(i) Mod 3 = 0 ThenText2.Text = Text2.Text & a(i) & Space(2)End IfNext iEnd SubDim s As StringText1.Text = ""Open App.Path & "\Dialog.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text & s & vbCrLfLoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As String, r As Integer r = 0For i = 1 To Len(Text1.Text)s = Mid(Text1.Text, i, 1)If Asc(s) >= 65 And Asc(s) <= 90 Thenr = r + 1End IfNext iText2.Text = rEnd SubPrivate Sub Command3_Click()Dim i As Integer, s As String, r As Integer r = 0For i = 1 To Len(Text1.Text)s = Mid(Text1.Text, i, 1)If Asc(s) >= 97 And Asc(s) <= 122 Thenr = r + 1End IfNext iText3.Text = rEnd SubFile1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Dim a As StringIf Right(File1.Path, 1) = "\" Thena = File1.Path + File1.FileNameElsea = File1.Path + "\" + File1.FileNameEnd IfText1.Text = aEnd Sub实验十界面设计Text1.locked=falseFSave.enable=trueEnd subFSave_clickText1.locked=tureFSave.enable=falseEnd sub2.dis_clicktext1.text=“计算机等级考试”end sub3.clea_clicktext1.text=“”end sub4.sqadd_clicklabel1.caption=(val(text1.text)^2)+(val(text2.text)^2) end subsqsub_clicklabel1.caption=(val(text1.text)^2)-(val(text2.text)^2) end submnuclean_clicktext1.text=“”text2.text=“”label1.caption=“”end sub4.Private Sub MnuRed_Click()Shape1.FillColor = vbRedEnd SubPrivate Sub MunBlue_Click()Shape1.FillColor = vbBlueEnd Sub5.Private Sub Command1_Click()Dim a As Integer, i As Integera = Text1.TextFor i = 1 To aIf Sqr(i) = Int(Sqr(i)) ThenList1.AddItem iEnd IfNext iEnd Sub制作人：102宿舍、尤昌波只供参考。
2010上半年计算机等考二级VB真题及答案
1题:备份一般有3种方式，即完全备份、增量备份、（）。
A) 选择备份B) 安全备份C) 集中备份D) 差分备份答案:DD) 差分备份--------------------------------3题:不属于关联分析的关键要素是（）。
A) 支持度B) 置信度C) 满意度D) 提升度答案:CC) 满意度--------------------------------4题:不属于优化行为的是（）。
A) 虚拟化B) 外包C) 调优D) 咨询答案:DD) 咨询--------------------------------5题:初步用户手册在( )阶段编写。
A) 可行性研究B) 需求分析C) 软件概要设计D) 软件详细设计答案:BB) 需求分析--------------------------------6题:测评时系统必须连续运行的时间为（）。
A) 不少于15天B) 不少于1个月C) 不少于2个月D) 不少于3个月答案:B--------------------------------7题:财务管理的关键动作不包括（）。
A) 测算B) 预算D) 结算答案:AA) 测算--------------------------------8题:持续改进的戴明环中不包括（）。
A) 策划B) 改进C) 实施D) 反馈答案:DD) 反馈--------------------------------9题:对局域网来说，网络控制的核心是（）。
A) 工作站B) 网卡C) 网络服务器D) 网络互连设备答案:CC) 网络服务器--------------------------------10题:第四层交换负载均衡的原理，就是按照IP地址和（）进行虚拟连接的交换，直接将数据包发送到目的计算机的相应端口中。
A) TCP端口B) UDP端口C) FTP端口D) HTTP端口答案:AA) TCP端口--------------------------------11题:对数据仓库业务分析的主题确立的原则不包括（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2010年（春）上机 Visual Basic（VB06）答案
一、改错
【题目】本程序的功能是把一个英语句子中各个单词用一个数字作为其标识。
方法是：将该单词的每个字符的ASCII代码值相加，再用组成该句子的单词个数整除。
Option Explicit
Dim ub As Integer
Private Sub Command1_Click()
Dim st() As String, k As Integer, s As String
Dim p As String, i As Integer, ub As Integer 'err ub 重复说明
s = Text1
'p = "" 'err 位置错
For i = 1 To Len(s)
If Mid(s, i, 1) = " " Or Mid(s, i, 1) = "." Then
k = k + 1
ReDim Preserve st(k) 'err 无Preserve
st(k) = p
p = ""
Else
p = p & Mid(s, i, 1)
End If
Next i
ub = UBound(st)
For i = 1 To ub
List1.AddItem st(i) & "--" & hash(st(i))
Next i
End Sub
Private Function hash(s As String) As Integer
Dim i As Integer, sum As Integer
For i = 1 To Len(s)
sum = sum + Asc(Mid(s, i, 1))
Next i
hash = sum \ ub
End Function
二、编程题
【题目】编写程序，删除数组的最大元素与最小元素。
算法提示：先找出数组的最大元素、最小元素及各自位置；删除数组元素时，先删除序号大的元素，再删除序号小的元素。
Option Explicit
Private Sub Command1_Click()
Dim a() As Integer, i As Integer, n As Integer
Dim maxv As Integer, minv As Integer, maxp As Integer, minp As Integer
n = InputBox("元素个数:", "数组处理", 10)
ReDim a(n)
Randomize
For i = 1 To n
a(i) = Int(Rnd * 90) + 10
Text1 = Text1 & Str(a(i))
Next i
Call maxmin(a, maxv, maxp, minv, minp)
If maxp > minp Then
Call del1(a, maxp) : Call del1(a, minp)
Else
Call del1(a, minp) : Call del1(a, maxp)
End If
For i = 1 To UBound(a)
Text2 = Text2 & Str(a(i))
Next i
End Sub
Private Sub maxmin(a() As Integer, max As Integer, maxp As Integer, min As Integer, minp As Integer)
Dim i As Integer
max = a(1): maxp = 1: min = a(1): minp = 1
For i = 2 To UBound(a)
If a(i) > max Then
max = a(i): maxp = i
ElseIf a(i) < min Then
min = a(i): minp = i
End If
Next i
End Sub
Private Sub del1(a() As Integer, p As Integer)
Dim i As Integer
For i = p To UBound(a) - 1
a(i) = a(i + 1)
Next i
ReDim Preserve a(UBound(a) - 1)
End Sub
Private Sub Command2_Click()
Text1 = "": Text2 = ""
End Sub
Private Sub Command3_Click()
End
End Sub。