全国计算机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中的设置建立菜单项。
表2步骤3：打开代码编辑窗口，编写菜单命令的单击事件过程。
参考代码： Private Sub Shape1_Click() Me.Sha1.Shape = 1End Sub Private Sub Shape2_Click()Form1.Sha1 = 3 End Sub二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp ，窗体上已经有两个文本框，名称分别为Text1、Text2；一个命令按钮，名称为C1，标题为"确定"；请画两个单选按钮，名称分别为Op1、Op2，标题分别为"男生"、"女生"；再画两个复选框，名称分别为Ch1、Ch2，标题分别为"体育"、"音乐"。
请编写适当的事件过程，使得在运行时，单击"确定"按钮后实现下面的操作： ①根据选中的单选按钮，在Text1中显示"我是男生"或"我是女生"。
②根据选中的复选框，在Text2中显示"我的爱好是体育"、"我的爱好是音乐"或"我的爱好是体育音乐"，如图3所示。
注意：不得修改已经给出的程序和已有控件的属性。
在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击"确定"按钮。
必须使用窗体右上角的关闭按钮结束程序，否则无成绩。
图3步骤1：打开考生文件夹下的本题工程文件sjt3.vbp 。
步骤2：在窗体Form1中加入两个单选按钮和两个复选框，分别设置它们的相关属性，属性及其值如表3所示。
表3步骤3：打开代码编辑窗口输入如下代码： 参考代码：Private Sub C1_Click() Dim a As String a = "我是"If Op1.Value ThenText1.Text = a & Op1.Caption ElseText1.Text = a & Op2.Caption End Ifa = "我的爱好是" If Ch1.Value = 1 ThenText2.Text = a & Ch1.Caption a = Text2.Text End IfIf Ch2.Value = 1 ThenText2.Text = a & Ch2.Caption End If End Sub步骤4：按<F5>键运行程序，先选中选中一个单选按钮和至少一个复选框，并单击"确定"按钮，然后单击窗体右上角的关闭按钮结束程序。
(2)在考生文件夹下有一个工程文件sjt4.vbp 。
窗体上有一个名称为List1的列表框，名称为Timer1的计时器，名称为Label1的标签，如图4所示。
请通过属性窗口向列表框添加四个项目，分别是"第一项"、"第二项"、"第三项"、"第四项"。
程序运行后，将计时器的时间间隔设置为1秒钟，每一秒钟从列表框中取出一个项目显示在Label1的标签中，首先显示"第一项"，然后，依次显示"第二项"、"第三项"、"第四项"，如此循环。
在给出的窗体文件中已经有了全部控件和程序，但不完整，请添加List1中的项目，去掉程序中的注释符，把程序中的？改为正确的内容。
注意：考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。
图4【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp ，通过属性窗口向列表框添加四个项目，分别是："第一项"、"第二项"、"第三项"、"第四项"。
步骤2：在代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。
参考代码：i = 0Timer1.Interval = 1000Label1.Caption = List1.List(i)三、综合应用题在窗体上画一个文本框，名称为Text1(可显示多行)，然后再画三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为"读数"、"统计"和"存盘"，如图5所示。
程序的其功能是：单击"读数"按钮，则把考生目录下的in5.txt 文件中的所有英文字符放入Text1(可多行显示)；单击"统计"按钮，找出并统计英文字母i 、j 、k 、l 、m 、n(不区分大小写)各自出现的次数；单击"存盘"按钮，将字母i ～n 出现次数的统计结果依次存到考生目录下的顺序文件out5.txt 中。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp ，窗体文件名为sjt5.frm 。
图5【操作步骤】步骤1：新建一个"标准EXE"工程，如表4在窗体中画出控件并设置其相关属性。
表4步骤2：打开代码编辑窗口，编写相应事件过程。
参考代码： Option Base 1Dim sum(6) As IntegerPrivate Sub Command1_Click()Open App.Path & "\in5.txt" For Input As #1Text1.Text = Input(LOF(1), #1) Close #1 End Sub Private Sub Command2_Click()For i = 1 To 6sum(i) = 0 Next iIf Len(Text1.Text) = 0 Then MsgBox "请先使用"读数"功能！" ElseFor i = 1 To Len(Text1.Text) c = LCase(Mid(Text1.Text, i, 1)) Select Case c Case "i"sum(1) = sum(1) + 1 Case "j" sum(2) = sum(2) + 1 Case "k" sum(3) = sum(3) + 1 Case "l"sum(4) = sum(4) + 1 Case "m"sum(5) = sum(5) + 1 Case "n"sum(6) = sum(6) + 1 End Select Next i End If End Sub Private Sub Command3_Click() Open App.Path & "\out5.txt" For Output As #1 For i = 1 To 6Print #1, sum(i)Next i Close #1 End Sub第二套题干167 一、基本操作题 请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
(1)在名称为Form1、标题为"测试"的窗体上画一个名称为Frame1、标题为"字体"的框架。
在框架内画两个单选按钮，其名称分别为Opt1和Opt2，标题分别为"隶书"和"宋体"。
程序运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。
图1 图2 【操作步骤】步骤1：新建一个"标准EXE"工程，如表1在窗体上绘制控件并设置属性。
表1 控件属性设置(2)在名称为Form1的窗体上用名称为shape1的形状控件画一个圆，其直径为1000(高、宽均为1000)；再画两个命令按钮，标题分别是"垂直线"和"水平线"，名称分别为Command1、Command2，如图2所示。
然后编写两个命令按钮的Click 事件过程。
程序运行后，如果单击"垂直线"命令按钮，则圆的内部用垂直线填充；如果单击"水平线"命令按钮，则圆的内部用水平线填充。
注意：程序中不得使用变量，每个事件过程中只能写一条语句。
国家二级VB机试(上机操作)模拟试卷401(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷401(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“鼠标光标形状”的窗体上画一个名称为Text1的文本框。
请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画两个标签，名称分别为Labe11、Labe12，标题分别为“开始位置”、“选中的字符数”；画三个文本框，名称分别为Text1、Text2、Text3，再画一个名称为Command1，标题为“显示选中信息”的命令按钮。
程序运行时，在Text1中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号显示在Text2中，选中的字符个数显示在Text3中，如图3—152所示。
要求：画出所有控件，编写命令按钮的Click事件过程。
注意：要求程序中不得使用变量，事件过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建“标准EXE”工程，按要求画出控件并设置相应属性。
步骤2：按要求将文件保存至考生文件夹中。
(2)【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：在代码编辑窗口，编写命令按钮的单击事件过程。
参考代码：Private Sub Command1_Click( )Text2＝Text1．SelStart＋1Text3＝Text1．SelLengthEnd Sub 步骤3：按要求将文件保存至考生文件夹中。
计算机vb试题及答案
计算机vb试题及答案(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)A.对象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)A.内模式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考试试题及答案
全国计算机vb考试试题及答案一、单项选择题（每题2分，共20分）1. VB中，下列哪个选项不是基本数据类型？A. IntegerB. StringC. DoubleD. Object答案：D2. 在VB中，下列哪个关键字用于声明一个过程？A. FunctionB. SubC. DimD. Call答案：B3. 在VB中，下列哪个选项不是控制结构？A. If...Then...ElseB. For...NextC. While...WendD. Dim答案：D4. 在VB中，下列哪个选项不是数组的声明方式？A. Dim arr(10) As IntegerB. Dim arr() As IntegerC. ReDim arr(10)D. Dim arr As Integer答案：D5. 在VB中，下列哪个选项不是事件处理程序？A. ClickB. LoadC. UnloadD. Print答案：D6. 在VB中，下列哪个选项不是窗体的属性？A. NameB. CaptionC. SizeD. Text答案：D7. 在VB中，下列哪个选项不是控件的属性？A. TextB. BackColorC. FontD. Form答案：D8. 在VB中，下列哪个选项不是文件操作的函数？A. OpenB. CloseC. SeekD. Find答案：D9. 在VB中，下列哪个选项不是错误处理的语句？A. On ErrorB. ResumeC. Exit SubD. Err答案：C10. 在VB中，下列哪个选项不是字符串函数？A. LenB. LeftC. RightD. Sqr答案：D二、填空题（每题2分，共20分）1. 在VB中，使用________函数可以将文本转换为大写。
答案：UCase2. 在VB中，使用________函数可以获取当前系统日期。
答案：Date3. 在VB中，使用________函数可以获取当前系统时间。
计算机二级VB上机试题及答案
计算机二级VB上机试题及答案计算机二级VB上机试题及答案在各领域中，我们最少不了的就是试题了，试题可以帮助主办方了解考生某方面的知识或技能状况。
什么样的试题才能有效帮助到我们呢？下面是店铺帮大家整理的计算机二级VB上机试题及答案，希望对大家有所帮助。
（1）在名为Form1的窗体上绘制一个名为Cmd1的命令按钮，其标题为“移动按钮”。
编写适当的事件过程，使得程序运行时，每单击命令按钮一次，该按钮向右移动50，注意：程序中不得使用变量，事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。
（2）在Form1 的窗体上绘制一个名为Lab1 的标签框，设置相关属性，使标签有框架。
然后建立一个名为 mnuOp 的主菜单，其标题为“操作”，该菜单有两个名称分为mnuOpDis 和mnuOpHide 的菜单项，其标题分别为“显示”和“隐藏”。
编写适当的事件过程，程序运行后，若单击“操作”菜单中的.“显示”命令，则在标签框中显示“二级Visual Basic”；如果单击“隐藏”命令，则隐藏标签框。
注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp，窗体文件名为 vbsj2.frm。
第1小题【审题分析】要实现本题要求的功能，只需在命令按钮的单击事件过程中，设置命令按钮的 Left 属性值增加50。
【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体中画一个名Cmd1 命令按钮，并设置其Caption 属性值为"移动按钮"。
步骤2：打开代码编辑窗口，编写命令按钮的 Click 事件过程。
参考代码：Private Sub Cmd1_Click（）Cmd1.Left = Cmd1.Left + 50End Sub步骤3：按要求将文件保存至考生文件夹中。
第2小题【审题分析】本题需用菜单设计器建立菜单，并编写"显示"和"隐藏"菜单项的单击事件过程。
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. 新建一个工程，编写求某一自然数因子和的程序。
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上机试题及答案(三)基本操作（2小题，每题15分，共30分）****************************************************************请根据以下各小题的要求设计VB应用程序（包括界面和代码）。
请根据以下各个小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画两个文本框，名称分别为T1、T2，初始情况下都没有内容。
请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图所示）。
程序中不得使用任何变量。
*注意：存盘时必须存放在考生文件下，工程文件名为sjt1.vbp，窗体文件名为stj1.frm。
（2）在名称为Form1的窗体上画一个文本框，名称为Text1，内容为"VB程序设计"；再画两个命令按钮，其名称分别为Command1和Command2，标题分别为"扩大"和"缩小"，如图所示，编写适当的事件过程。
程序运行后，每单击Command1命令按钮一次，文本框中的文本的字体扩大1.2倍；每单击Command2按钮一次，文本框中文本的字体缩小1.2倍。
程序运行的界面如图所示。
****************************************************************参考答案与分析（1）【解析】本题主要考查的是文本框的Change事件的用法。
当用户向文本框中输入新信息，或程序把Text属性设置为新值从而改变文本框的Text属性时，将触发Change 事件。
程序运行后，在文本框中每键入一个字符，就会引发一次Change事件。
在本题中要求当在一个文本框中输入字符时在另一个文本框中立即显示该字符，就可以通过在文本框1即T1的Change事件中将T1的Text属性赋值给T2的Text 属性，就可以实现两个文本框中的内容的同步变化。
全国计算机等级考试VB语言模拟试题(附答案)
全国计算机等级考试VB语言模拟试题（附答案）一、选择题（每题2分，共20分）1. 以下不属于VB的数据类型的是（）A. 整数类型B. 浮点数类型C. 字符串类型D. 布尔类型答案：D2. 在VB中，变量必须声明在（）A. 过程中B. 窗体中C. 模块中D. 以上都可以答案：A3. VB中，数组的默认下标范围是（）A. 0 到 10B. 0 到 65535C. -32768 到 32767D. 1 到 100答案：B4. 以下叙述错误的是（）A. VB是面向对象的程序设计语言B. VB中的窗体是VB应用程序的基本组成部分C. VB中的模块是VB应用程序的基本组成部分D. VB中的工程是VB应用程序的基本组成部分答案：C5. 在VB中，以下哪个不是事件过程？（）A. ClickB. LoadC. WriteD. Run答案：D6. 在VB中，要将字符串转换为数值型数据，应使用（）A. Val函数B. Int函数C. Str函数D. Date函数答案：A7. 下面哪个函数可以实现求绝对值的功能？（）A. Abs(x)B. Sqr(x)C. Int(x)D. Fix(x)答案：A8. VB中，DateDiff函数用于计算两个日期之间的（）A. 年数B. 月数C. 星期数D. 天数答案：D9. VB中，Randomize语句的作用是（）A. 初始化随机数发生器B. 生成一个随机数C. 清除随机数发生器D. 设置随机数的范围答案：A10. 下列哪个关键字用于定义常量？（）A. DimB. ConstC. LetD. Var答案：B二、填空题（每题2分，共20分）1. 在VB中，______用于声明一个变量。
答案：Dim2. VB中，______语句用于打开一个文件。
答案：Open3. 在VB中，______函数用于求一个数的平方根。
答案：Sqr4. VB中，______语句用于关闭打开的文件。
答案：Close5. 在VB中，______用于定义一个过程。
全国计算机 二级 VB上机操作题 题目答案及解析
85 （1）【考点分析】本题考点有：文本框的Name、Height、Width、Font、FontSize属性，窗体的Caption、MaxButton、MinButton属性。
【解题思路】根据题意添加控件并设置相应属性。
不显示窗体的最大化和最小化按钮只需将其MaxButton和MinButton属性设为False即可。
【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。
程序中用到的控件及属性见表3.275。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
（2）【考点分析】本题考点有：图像框的Name、Picture、Stretch属性，命令按钮的Name、Caption属性。
【解题思路】图像框（Image）的Picture属性用于在设计阶段设置在图像框中显示的图片，它的Stretch（自动伸缩）属性用来设定载入其中的图片是否需要自动调整大小，以适应图像框的大小。
本题要在单击按钮时实现"向右移动"或"向下移动"的功能，应在程序中动态设置图像框的Left和Top属性。
【操作步骤】步骤1：建立界面，添加并设置控件的属性。
程序中用到的控件及属性见表3.276。
4 步骤2：编写程序代码。
参考答案Private Sub Command1_Click()Image1.Left = Image1.Left + 100End SubPrivate Sub Command2_Click()Image1.Top = Image1.Top + 100End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（1）【考点分析】本题考点有：命令按钮的Caption属性和Click事件，直线控件的X1、X2、Y1、Y2属性，形状控件的Shape属性，Sin( )函数，Cos( )函数以及计时器的Enabled属性和Timer事件。
【解题思路】Sin( )函数和Cos( )函数分别返回变量的正弦和余弦值；通过X1、X2、Y1、Y2属性来设置直线的端点。
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的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。