vb实验报告(答案).docx

《vb实验报告(答案).docx》由会员分享，可在线阅读，更多相关《vb实验报告(答案).docx（37页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、(此文档为 word 格式，下载后您可任意编辑修改！)试验报告（1）院（系）：课程名称：日期：班级学号实验室专业姓名计算机号实验名称VB 环境的熟悉与应用成绩评定所用软件Visual Basic 6.0教师签名实验目1熟悉 VB 的系统环境，了解VB 程序的编写、保存和编译的方法过程。的2初步了解几个常用控件的使用方法。或要求1、 在 vb 中 C 被称为对象。2、 A.窗体B.控件C.窗体和控件D.窗体、控件和属性3、 设在名称为 form1 的窗体上只有 1 个名称为 C1 的命令按钮,下面叙述中正确的是( B )4、 A.窗体的 Click 事件过程的过程名是 form1_Click 5

2、、 B.命令按钮的 Click 事件过程名是 C1_Click6、 C.命令按钮的 Click 事件过程的过程名是 Command1_Click7、 编译执行程序的快捷键是_Ctrl+F5_。实8、 启动 visual basic 后标题栏中显示的信息是（C）。验步A.工程-Mmicrosoft Visual Basic 设计骤B.工程-Mmicrosoft Visual Basic 中断、心C.工程 1-Mmicrosoft Visual Basic 设计得D.工程 1-Mmicrosoft Visual Basic 中断体会 9、 Visual Basic 集成开发环境主要窗口包括 窗体设

3、计窗口；代码设计窗口；_属性窗口；_工程资源管理器窗口_；_工具箱窗口。10、 属性显示方式分两种，即按 字母 顺序和按_分类 顺序， 分别通过单击相应的按钮来实现。11、 编一程序，程序运行的初始界面如图 1-1 所示，当用户在文本框中输入姓名，例如输入“张三”，单击“你输入的姓名是:”按钮（command1），则程序的运行情况如图 1-2 所示，如果单击“结束”按钮（command2），即结束程序运行。注意：保存时必须存放在自己创建的文件夹下，窗体文件名为kt1.frm，工程文件名为 kt1.vbp。图 1-1图 1-21） 在窗体设计窗口设计如图 1-1 界面2） 修改控件属性控件对象属

4、性名属性值Command1Caption你的姓名是：Command2Caption结束Label1Caption欢迎使用 vbLabel2Caption请输入你的姓名3） 编辑代码Private Sub Command1_Click() Text2 = Text1End SubPrivate Sub Command2_Click() EndEnd Sub12、在名称为 Form1 的窗体上建立两个名称分别为 Cmd1 和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。编写适当的事件 过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗

5、体上显示“政史地”。注意：保存时必须存放在自己创建的文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp，并且在生成对应的可执行程序（.exe）。1)界面设计：在窗体设计窗口设计如图 1-3 界面图 1-32）属性设置控件对象属性名属性值Command1Caption喜欢Command2Caption不喜欢3） 代码设计Private Sub Cmd1_Click() Print 数理化End SubPrivate Sub Cmd2_Click() Print 政史地End Sub心得体会：（可以从以下几个方面来总结：你在上机过程中遇到了哪些难题？你是怎么克服的？你对你的程序的评价

6、？你的收获有哪些？你有什么没有解决的问题？等）试验报告（2）院（系）：课程名称：日期：班级学号实验室专业姓名计算机号实验名称掌握 VB 基本控件成绩评定所用软件VB6.0教师签名实验目1.熟练掌握 VB 中基本控件的属性，方法和事件的2.通过编程能够实现简单的功能或要求1、 以下能在窗体 Form1 的标题栏中显示“Visual Basic 窗体”的语句是（ C ）。A. Form1.Name = Visual Basic 窗体B. Form1.Title = Visual Basic 窗体C. Form1.Caption = Visual Basic 窗体D. Form1.Text = Vi

7、sual Basic 窗体。2、 在 VB 中，要将一个窗体加载到内存进行预处理但不显示，应该使用语句（ B ）。A. ShowB. HideC. LoadD. Unload3、 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是（ C ）。实A. 设置 Enabled 的值为 TrueB. 设置 TabIndex 的值为 1验步C. 设置 TabIndex 的值为 0D. 设置 Index 的值为 0骤4、 设窗体上有一个文本框 Text1，要求只能显示信息，不能输入，、则应设置（ B ）。心A. Text1.MaxLength = 0B. Text1.Enabled

8、 = False得体C. Text1.Visible = FalseD. Text1.Width = 0会5、设置命令按钮的属性时，只有将（ A ）属性设置为 1，Picture属性才有效，否则无效。A、 StyleB、 CaptionC、EnabledD、Default 6.窗体文件的扩展名是( C )A、.basB、.clsC、.frmD、.res7、在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(keyascii as integer)End Sub若焦点位于文本框中，则能够触发 KeyPress 事件的操作是( D

9、)A.单击鼠标B.双击文本框C.鼠标滑过文本框D.按下键盘上的某个键8、在文本框中，要使键入的所有字符都显示*号。这时应该设置 D 属性为*A、TextB、MultiLineC、ScrollBarsD、PasswordChar 9、唯一能区别一个控件的属性是 C 。A、CaptionB、TextC、NameD、Index10、确定一个控件在窗体上位置的属性是 Left 和 Top 。11、窗体边框类型的默认值是 2 。12、若要设置窗体为固定对话框，并包含控制菜单框和标题栏，但没有最大最小化按钮，则应进行的属性设置是_BorderStyle=1_。13、在窗体(form1)上画一个文本框(te

10、xt1)控件和两个按钮控件(command1、command2)分别显示“向左”、“向右”。其中两个命令按钮一个显示左移，一个显示右移。要求在每次按下命令按钮后文本框可以向左或向右移动（不用考虑窗体边界）。1) 界面设计2）属性设置控件对象属性属性值Command1Caption向左Command2Caption向右4） 代码设计Private Sub Command1_Click() Text1.Left = Text1.Left - 50End SubPrivate Sub Command2_Click() Text1.Left = Text1.Left + 50End Sub14、在窗体

11、上部设置一个文本框（ text1），文本框的下面设置 3 个命令按钮，其中左边按钮（command1）中标有“单击此按钮”， 中间按钮（command2）中标有“清除”，右边按钮（command3） 中标有“程序结束”。当程序运行时，用鼠标单击左边按钮时， 屏幕上部的文本框中显示“欢迎使用 vb 6.0”;如果单击中间按钮，则清除文本框中显示的内容；而如果单击右边的按钮，则结束程序。1)界面设计2） 属性设置控件对象属性属性值Command1Caption单击此按钮Command2Caption清除Command3Caption程序结束3） 代码设计Private Sub Command1_C

12、lick() Text1 = 欢迎使用 vb 6.0 End SubPrivate Sub Command2_Click() Text1 = End SubPrivate Sub Command3_Click() EndEnd Sub15 、在窗体上画一个文本框（ text1 ）内容为空；两个命令按钮（command1、command2），上面分别显示“消失”、“出现”。当单击“消失”按钮时，文本框在窗体上消失；当单击“出现”按钮时文本框在窗体上显示，并且在文本框中显示“ Hello World” 字样，字体大小为 16。1)界面设计2） 属性设置控件对象属性属性值Command1Captio

13、n消失Command2Caption出现3） 代码设计Private Sub Command1_Click() Text1.Visible = FalseEnd SubPrivate Sub Command2_Click() Text1.Visible = TrueText1 = Hello World Text1.FontSize = 16 End Sub16、在名称为 Form1 的窗体上，画一个文本框和命令按钮。文本框的名称为 Txt1，内容为全国计算机等级考试二级。命令按钮的名称为 Cmd1，标题为计算。编写适当的事件过程，使得程序运行时，选择文本框中的几个字符，然后单击命令按钮，将所

14、选择的字符数在窗体上输出。程序中不得使用任何变量。注意：保存时窗体文件名为 kt2.frm，工程文件名为 kt2.vbp。1） 界面设计2） 属性设置控件对象Text1 Command1Cmd1属性Name NameCaption属性值Txt1 Cmd1计算Txt1Caption全国计算机等级考试二级3）代码设计Private Sub Cmd1_Click() Print Txt1.SelTextEnd Sub17、在名称为Form1 的窗体上画一个文本框，其名称为 Text1，编写适当的事件过程。程序运行后，如果单击窗体，则可使文本框移到窗体的左上角；而如果改变文本框中的内容，则可使文本框移

15、到窗体的右上角。1） 界面设计2） 属性设置(采用默认值)控件对象属性属性值3） 代码设计Private Sub Form_Click() Text1.Left = 0Text1.Top = 0 End SubPrivate Sub Text1_Change()Text1.Left = Form1.Width - Text1.Width Text1.Top = 0End Sub18、命令按钮，字号、内容和格式的复制练 习，效果如图 3-1， 设置属性，并且编程实现。1） 属性设置控件对象属性属性值2） 代码设计心得体会：（可以从以下几个方面来总结：你在上机过程中遇到了哪些难题？你是怎么克服的？

16、你对你的程序的评价？你的收获有哪些？你有什么没有解决的问题？等）试验报告（3）院（系）：课程名称：日期：班级学号实验室专业姓名计算机号实验名称掌握 VB 运算符和表达式成绩评定所用软件Vb6.0教师签名实验目1掌握基本语句（Print 语句、赋值语句、Dim 语句等）的使用。的2掌握表达式的正确书写方法及函数、运算符的正确使用。或要求1、 有如下语句 print chr(65); Asc(“def”); Sqr(4)，其执行结果是 A1002 。2、已知字符串 A 的值为“AbcDe“，现在把它全部转换为大写字母， 正确的语句是 Ucase(“AbcDe“) 。3、 有如下程序a=300 :

17、b=20a=a + b : b=a b a=a bprint a实print b验步分析该程序的功能是 a 与 b 互换 骤4、可以同时删除字符串前导和尾部空白的函数是（ C） 。、心A. LtrimB. RtrimC. TrimD. Mid得5、下列不正确的标识符是（B）。体A.a123B.a?bC.a12_3D.abcdefg会6、如果一个变量未经定义就直接使用，则该变量的类型为 ( D ) A.IntegerB.ByteC.BooleanD.Variant7、编程实现如下功能：在窗体上建有 2 个标签控件(Label1、Label2) 分别显示“华氏温度”和“摄氏温度”、2 个文本框(T

18、ext1、Text2) 和两个命令按钮(Command1、Command2)分别显示“华氏转摄氏” 和“摄氏转华氏”。 Text1、Text2 分别用于输入和显示华摄氏温度，其 Text 属性为空；Command1、Command2 分别用于“华氏转摄氏”、“摄氏转华氏” (Caption 属性)，温度转换公式为： F=9/5*C+32(其中 F 为华氏温度，C 为摄氏温度)。1） 界面设计2） 属性设置控件对象属性属性值3） 代码编辑8、在名称为 Form1 的窗体上画两个文本框，名称分别为 T1 和 T2， 初始情况下都没有内容。请编写适当的事件过程，使得运行时， 在 T1 中输入的任何字

19、符，立即显示在 T2 中。程序中不得使用任何变量。1） 界面设计2） 属性设置控件对象属性属性值3） 代码编辑9、在名称为Form1 的窗体上画一个文本框，其名称为 T1，宽度和高度分别为 1400 和 400；再画两个命令按钮，其名称分别为 C1 和C2，标题分别为“显示”和“扩大”，编写适当的事件过程。程序运行后，如果单击C1 命令按钮，则在文本框中显示“等级考试”；如果单击 C2 命令按钮，则使文本框在高、宽方向上各增加一倍， 文本框中的字体大小扩大到原来的 3 倍。1） 界面设计2） 属性设置控件对象属性属性值3） 代码编辑心得体会：（可以从以下几个方面来总结：你在上机过程中遇到了哪些

20、难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？你有什么没有解决的问题？等）试验报告（4）院（系）：课程名称：日期：班级学号专业姓名实验VB 控制结构名称所用VB6.0软件实验室计算机号成绩评定教师签名实1. 掌握数据的动态输入 InputBox 和信息提示 MsgBox；验2. 掌握逻辑表达式及关系表达式的正确书写形式。目3. 掌握 IF 语句写格式及其正确使用。的4. 掌握情况控制语句的使用及与多分支条件语句的区别。或5. 掌握 For 语句的使用。要6. 掌握 Do 语句各种形式的使用。求1、 设 a=2,b=3,c=4,d=5, 求下列表达式的值：2、(1) a bANDc=

21、d False 3、(2) b a True _4、(3) a cORd bORc bANDc c False 7、(6) 32*bORa=cANDb cORc d 实False 验步2、 将下列数学式子写成 vb 表达式：骤(1)cos2(c+d) Cos(2 * (a + d) 、(2)5+3(a+b) 5+3*(a+b) 心(3) cosx(sinx+1) Cos(x) * (Sin(x) + 1) 得(4) e2+2 exp(2)+2 体3、以下语句的输出结果是（C） 。会Print Format (32548.5,“.00”)A. 32548.5B. 32,548.5C.50D. 3

22、2,548.504、设 x=4,y=8,z=7,以下表达式的值是( D ) xz) Or zxA.1B.-1C.TrueD.False5、在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() a$=VisuaLBasic Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是(A)A.VVVB.VisC.sicD.11 6、设有如下声明：Dim X As Integer如果 Sgn(X)的值为-1，则 X 的值是(D)A.整数B.大于 0 的整数C.等于 0 的整数D.小于

23、0 的整数7、在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下代码：Private Sub Command1_Click() a = InputBox(请输入 A 的值) a = Val(a)b = InputBox(请输入 B 的值) b = Val(b)x = InputBox(请输入 X 的值) x = Val(x)a = a + b + x Print aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入123，则输出结果为 6 。8、在窗体上添加一个名称为 command1 的命令按钮，然后编写如下事件过程。Private Sub Command1_Cl

24、ick() x = InputBox(Input)Select Case x Case 1, 3Print 分支 1 Case Is 4 Print 分支 2 Case ElsePrint else 分支 End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是 else 分支_。9、下列语句正确的是(C)A. If A B Then PrintA 不等于 BB. If A B Then PrintfA 不等于 BC. If A B Then PrintA 不等于 BD. If A BPrintA 不等于 B10、计算 z 的值，当 x 大于 y 时，z=x；否

25、则 z=y。下列语句错误的是( A )A. If x=y Then z=x:z=yB. If x=y Then z=x Else z=yC. z=y:If x=y Then z=xD. If x =6 Print Number,sEnd Sub程序运行后，输出的结果是( C )A.23B.318C.18D.102016、在窗体上画一个名称为Commandl 的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click() c=1234c1=Trim(Str(c)For i=1 To 4Print NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容

26、：1121231234则 在 下 划 线 处 应 填 入 的 内 容 为 ( B ) A.A.Right(cl,i)B.Left(cl,i)C.Mid(cl,i,1)D.Mid(cl,i,i)17、有下面一个程序段，从文本框中输入数据，如果该数据满足条件， 除以 4 余 1，除以 5 余 2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Command1_Click() x=Val(Text1.Text)If x mod 4=1 and x mod 5=2 Then Print xElseText1.Text= Text1.setfocus_End If En

27、d Sub18、下列程序的功能是：当x50 时，y=0.8x；当50x100 时，y=0.7x；当 x100 时，没有意义。请填空。Private Sub Command1_Click()Dim x As Single x=InputBox(请输入 x 的值！) Select Case x_Case Is50 y=0.8 * xCase_else y=0.7 * xEnd Select_ Print输入的数据出界！End Select Print x,yEnd Sub 19、有如下程序Private Sub Command1_Click() Dim i%, j%For i = -3 To 3P

28、rint Tab(7 + Abs(i);For j = 1 To 7 - 2 * Abs(i) Print *;Next j Print Next iEnd Sub执行程序后结果是 。20、有如下程序 i = 0: n = 0DoWhilei =65 And n0 ThenPrint Chr(i);pp(i) End IfNext22、在文本框中输入半径，计算后在标签中输出圆周长和面积。1)界面设计2） 属性设置控件对象属性属性值3） 代码编辑23、通过随机函数产生 2 个两位正整数显示在标签 label1、label2 中， 并且求这 2 个数之和并显示到 label3 中。1)界面设计2）

29、 属性设置控件对象属性属性值3） 代码编辑24、利用随机函数模拟投币，每次随机产生一个 0 或者 1 的整数，1 代表正面，0 代表反面，窗体上有三个文本框，用于显示用户输入投币的总次数、出现正面的次数、出现反面的次数。编程实现。1） 界面设计2） 属性设置控件对象属性属性值3） 代码编辑25、输入矩形的长和宽，计算面积，要求对输入的长和宽进行合法性检查，调用 Isnumeric 函数。（如果非法输入则将对应文本框的内容清除，可以重新输入。）注：在检测到是非法输入时，可尝试用 msgbox 过程给用户一个提示：msgbox“输入非法”，“实验 6”1)界面设计2）代码编辑26、已知学号由 9

30、个数码组成，如，其中从左算起前 2 位表示年级，第 5 个数码表示学生类型，学生类型规定：2-博士生，3-硕士生，4-本科生，5 专科生；设计程序，从文本框(text1)中输入一个学号，单击按钮(command1)后在另外两个文本框中显示该生的年级(text2)及学生类型(text3)。提示：要用到字符串操作函数对学号（），进行取字串，然后判断。例如：X=text1.textx 中是学号字符串第 5 个数码表示学生类型，则 mid(x,5,1),将字符串中第五个字符取出，如果取出的字符是 4-本科生，进行判断后在 text3中显示If mid(x,5,1)=4then text3.text=

31、”本科生” 1）界面设计2）代码编辑27、输入三个数（x,y,z），通过编程，使得 xyz,然后将排序好的数列输出。（用两种方法）1） 界面设计2） 代码编辑方法一方法二28、编写一个程序，输入上网时间并且计算上网费用，计算方法基数 30 元上网时间=50 小时同时为了鼓励多上网，每月收费做多不超过 150 元。1） 界面设计2） 代码编辑29、勾股定理中三个数的关系是 a2+b2=c2。编写程序，输出 1-20 以内满足条件的整数组合。例如：3，4，530、（1）以上三角的形式输出九九乘法表（2）以下三角的形式输出九九乘法表31、编写一个程序，输出所有水仙花数。所谓水仙花数，是指一个三位数，

32、其各位数字立方和等于该数字本身，153 是一个水仙花数， 153=13+53+3332、编程计算下列 S 的值。(1)S=1+2+3+100 (2)S=123100心得体会：（可以从以下几个方面来总结：你在上机过程中遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？你有什么没有解决的问题？等）试验报告（5）院（系）：课程名称：日期：班级学号专业姓名实验数组名称所用VB6.0软件实验室计算机号成绩评定教师签名实验1、理解和掌握数组的基本概念以及静态数组的声明方式和使用目2、理解动态数组的声明方式和使用的3、理解掌握数组的基本操作或4、掌握控件数组在程序设计中的应用方法和技巧要5

33、、掌握自定义数据类型的定义和使用求1、 下面数组声明语句中正确的是 B 。A. Dim A3,4 As IntegerB. Dim A(3,4) As IntegerC. Dim A3.4 As IntegerD. Dim A(3.4) As Integer 2、 下面数组声明语句中正确的是 C 。A. Dim A1,5 AsStringB. Dim A1to5,1to5 As String 实C. Dim A(1 to 5) As StringD. Dim A(1:5,1:5) As String 验3、 读下列程序步Dim a(5)骤For I=1 to 5、A(I)=I*I心Next I

34、得Print a(I-1)体执行程序段的结果是 25 。会4.设有声明语句Dim b(-1 To 10,2 To 9,20) As Integer则数组 b 中全部元素的个数为 2016 。5、在窗体上画一个名称为 Command1 的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_Click() d=0c=10x=Array(24) For i=1 To 5If x(i)c Then d=d+x(i) c=x(i)Elsed=d-c End IfNext i Print dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为( C

35、 ) A.89B.99C.23D.776、在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim array1(10,10)As Integer Dim i,j As IntegerFor i=1 To 3 For j=2 To 4array1(i,j)=i+jNext j Next iText1.Text=array1(2,3)+array1(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是(A) A.12B.13C.14D.157. 下列程序段的执行结果为(

36、 C )Dim t(10)For k = 2 To 10 t(k) =11-kNext k x=6Print t(2 + t(x)A.2B.3C.4D.5 8、下列程序段的执行的结果是( A )Dim a(10)，b(10) i=3For j=1 To 5a(j)=jb(i)=2 * i + j Next jPrint b(i)；a(i)A.113B.315C.311D.1539、以下定义数组或给数组元素赋值的语句中，正确的是( A )A.Dim a As VariantB.Dim a(10)As Integer a=Array()a=Array()C.Dim a%(10) a(1)=ABCD

37、E10、有如下事件过程Private Sub Command1_Click()Dim a a=array(“a”,”b”,”c”,”d”,”e”,”f”,”g”) Print a(1); a(3); a(5)End Sub执行程序段的结果是 ”b” ”d” ”f” 。11、有如下程序段Dim a(4) As Integer,b(4) As Integer For k=0 to 2a(k+1)=Val(InputBox(“请输入数据：”) b(3-k)=a(k+1)Next k Print b(k)执行程序段的结果是 b(3) 。12、有如下程序段Dim max As Integer,imax

38、As Integer Max=ia(1):imax=1:sum=ia(1)For I=2 to 10 sum=sum+ia(I)If ia(I)Max Then Max=ia(I)imax=I End IfNext IPrint Max,imax执行程序段的功能是_找出数组 ia 中最大元素及所在的位置 。13、在窗体上画一个命令按钮 Command1，然后编写如下代码Private Sub Command1_Click()Dim a(5,5) For I=1 To 3 For j=1 to 4A(I,j)=I*j Next jNext IFor n=1 To 2 For m=1 to 3Pr

39、int a(m,n)； Next mNext n End Sub执行 Command1 的单击事件后输出结果是 1 2 3 2 4 6 。14、以下能正确定义数据类型 TelBook 的代码是( A )A.Type TelBookB.Type TelBookName As String*10Name As String*10TelNum As IntegerTelNum As IntegerEnd TypeEnd TelBookC.Type TelBookD.Typedef TelBook NameString*10NameString*10TelNumIntegerTelNumInteger

40、End Type TelBookEnd Type15、在窗体上有一个名称为 Label1 的标签和一个名称 List1 的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签 Label1 中显示所选中的项目。请在空白处填入适当的内容，将程序补充完整。Private Sub Form_Load() list1.AddItem 北 京 list1.AddItem 上 海 list1.AddItem河北End SubPrivate Sub List1_【DblClick】 () label1.Caption=_【List1.Text】 End Sub16.设有如下程序： Option Base 0Private Sub Form_Click() Dim aDim i As Integer a=Array(7,8,9)For i=0 To 3 Print a(5