VB基础知识练习及答案

第一章第二章课后练习题

一、选择题

1、Visual Basic 6.0分为3种版本，不属于这3种版本的是（D）。

A）学习版B）专业版C）企业版D）业余版

2、下列方法中不能退出Visual Basic的是（B）

A）按Alt+Q组合键

B）按下Alt+F组合键，然后按Esc键

C）按F10键，然后按F键，再按X键

D）打开“文件”菜单→“退出”命令

3、Visual Basic集成的主窗口中不包括(A)

A）属性窗口B）标题栏C）菜单栏D）工具栏

4、下列操作可以打开立即窗口的是(C)

A）Ctrl+D B）Ctrl+F C）Ctrl+G D）Ctrl+E

5、下列关于Visual Basic特点的描述，哪个是正确的（D）。

A）面向对象B）可视化C）事件驱动D）以上全部都是

6、只有在执行某种动作后，才会执行某段程序，这种机制称为（A）

A）事件驱动B）面向对象C）面向过程D）可视化

7、在Visual Basic 中建立应用程序所需要的控件，应使用（B）

A）属性窗口B）工具箱窗口C）立即窗口D）菜单设计窗口

8、通过（B）可以在设计时，直观地调整窗体在屏幕上的位置。

A）代码窗口B）窗体布局窗口C）窗体设计窗口D）属性窗口

9、Visual Basic窗体设计器是用来设计（B）

A）应用程序的代码段B）应用程序的界面C）对象的属性D）对象的事件

10、在Visual Basic 6.0集成开发环境中，按下列组合键可以打开工程管理器窗口的是（C）A）Shift+F7 B）Ctrl+G C）Ctrl+R D）Shift+F4

11、Visual Basic 6.0集成开发环境中，如果没有显示出某个窗口，可以通过（C）菜单之下的命令使其显示。

A）文件B）编辑C）视图D）工程

12、下列不是Visual Basic 6.0中打开工程方法的是（A）

A）按Alt+O组合键B）执行文件菜单中的打开工程命令

C）按Ctrl+O组合键D）单击标准工具栏上的打开工程按钮

13、下面关于Visual Basic 6.0工具栏的说法不正确的是（B）

A）工具栏的位置可以任意改变B）工具栏一定在菜单栏的下方

C）工具栏可以显示或隐藏D）Visual Basic 有多个工具栏14、在VB中，被称为对象的是（C）

A）窗体B）控件

C）控件和窗体D）窗体、控件和属性

15、关于VB“方法”的概念错误的是（C ）

A）方法是对象的一部分B）方法是预先定义好的操作

C）方法是对事件的响应D）方法用于完成某些特定的功能

16、确定窗体控件启动位置的属性是（C）

A）Width和Height B）Width或Height

C）StartUpPositon D）Top和Left

17、下列说法正确的是（A）

A）对象的可见性可设为True或False

B）标题的属性值不可设为任何文本

C）属性窗口中属性只能按字母顺序排列

D）某些属性的值可以跳过不设置，自动设为空值

18、下列说法错误的是（B）

A）方法是对象的一部分

B）在调用方法时，对象名是不可缺少的

C）方法是一种特殊的过程和函数

D）方法调用格式和对象属性使用格式相同

19、下列说法错误的是（C）

A）窗体文件的扩展名为.frm

B）一个窗体对应一个窗体文件

C）VB中一个工程只包含一个窗体

D）VB中一个工程最多可以包含255个窗体

20、一个工程必须包含的文件的类型是（A）

A）*.vbp *.frm *.frx B）*.vbp *.cls *.bas

C）*.bas *.ocx */res D）*.frm *.cls *.bas

21、新建一个窗体，其BorderStyle属性设置为Fixed Single，但运行时却无最大化和最小化按钮，可能的原因是（B）

A）BorderStyle的值设为Fixed.Single，其设置值的作用即禁止最大化和最小化按钮

B）窗体的MaxButton和MinButton值设为False

C）正常情况下新建的窗体都没有最大化和最小化按钮

D）该窗体可用鼠标拖动框的方法改变窗体的大小

22、下列不能打开代码窗口的操作是（D）

A）双击窗体上的某个控件B）双击窗体

C）单击视图菜单中的“代码窗口”D）单击窗体或控件

23、下列不能打开属性窗口的操作是（D）

A）执行视图菜单中的属性窗口命令B）按功能键F4键

C）按Ctrl+T组合键D）单击工具栏上的属性窗口按钮

24、确定一个控件在窗体上位置的属性是（D）

A）Width和Height B）Width或Height C）Top或Left D）Top和Left

25、24、确定一个控件在窗体上大小的属性是（A）

A）Width和Height B）Width或Height C）Top或Left D）Top和Left

26、为了同时改变一个活动控件的高度和宽度，正确的操作是（A）

A）拖拉控件4个角上的某个小方块B）只能拖拉位于控件右下角的小方块

C）只能拖拉位于控件左下角的小方块D）不能同时改变控件的高度和宽度

27、关于Visual Basic应用程序，正确的叙述是（A）

A）Visual Basic程序运行时，总是等待事件被触发

B）Visual Basic程序设计的核心是编写事件过程的程序代码

C）Visual Basic程序是以线性方式顺序执行的

D）Visual Basic的事件可以由用户随意定义，而事件过程是系统预先设置好的

28、以下叙述中正确的是（A）

A）窗体的Name属性指定窗体的名称，用来标记一个窗体

B）窗体的Name属性的值是显示在窗体标题栏中的文本

C）可以在运行期间改变对象的Name属性的值

D）对象的Name属性可以为空

29、窗体的Caption属性的作用是（B）

A）确定窗体的名称B）确定窗体标题栏的内容

C）确定窗体边界的类型D）确定在窗体输出字符的字体

30、要使Form1窗体的标题栏显示“欢迎使用Visual Basic”，以下语句正确的是（D）A）Form1.Caption=“欢迎使用Visual Basic”（注：引号为中文标点）

B）Form1.Caption=’欢迎使用Visual Basic’

C）Form1.Caption=欢迎使用Visual Basic

D）Form1.Caption=”欢迎使用Visual Basic”

31、当窗体被加载时运行，发生的事件是（A）

A）Load B）Unload C）Resize D）DragDrop

32、决定标签内显示内容的属性是（D）

A）Text B）Name C）Alignment D）Caption

33、为了使标签中的内容居中显示，应将Alignment属性设置为（C）

A）0 B）1 C）2 D）3 34、33、为了使标签中的内容居右显示，应将Alignment属性设置为（B）

A）0 B）1 C）2 D）3

35、不论何控件，共同具有的属性是（B）

A）Text B）Name C）ForeColor D）Caption

36、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（C）

A）工程资源管理器窗口B）工具箱窗口C）代码窗口D）属性窗口

37、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（C）

A）按钮B）标签C）通用对话框D）文本框

38、以下不属于同类的是（A）

A）Click B）Name C）Caption D）Top

39、在Visual Basic环境下，当要编写一个新程序时，所做的第一件事是（B）

A）编写代码B）新建一个工程C）打开属性窗口D）打开立即窗口

40、为了保存一个Visual Basic应用程序，下列说法中正确的是（D）

A）只保存窗体模块文件（.frm）B）只保存工程文件（.vbp）

C）分别保存工程文件和标准模块文件（.bas）

D）分别保存工程文件、窗体文件和标准模块文件

41、Visual Basic的工程文件的扩展名是（C）

A）.for B）.frm C）.vbp D）.bas

42、Visual Basic的文件的扩展名是（B）

A）.for B）.frm C）.vbp D）.bas

43、下列关于面向对象编程的叙述错误的是（D）

A）属性是描述对象特征的数据B）方法指示对象的行为

C）事件是能够被对象识别的动作D）Visual Basic程序的运行机制是面向对象

44、下列叙述中正确的是（C）

A）任何一个对象的所有属性既可在属性窗口中设置，也可以以程序代码的方式设置

B）在属性窗口中设置的属性是在设计阶段完成的，因而这些属性值不能改变

C）在程序中通过编程设置属性值是在运行阶段给属性赋值

D）用程序方式给属性赋值的格式是“属性名：属性值”

二、填空题

1、与传统的程序设计语言相比，Visual Basic最突出的特点是（事件驱动编程机制）。

2、如果不使用鼠标，用键盘打开菜单和执行菜单命令，第一步应按（功能键F10或Alt键）键。

3、建立一个新的标准模块，应该选择（“工程”菜单）菜单下的“添加模块”命令。

4、VB采用（面向对象）和（事件驱动）的程序设计机制，把（过程化）和（结构化）编程集合在一起，是一种易学、实用的面向对象的（软件）开发工具。

5、Visual的意思是（视觉的）或（可视的），也就是直观的编程方法。是指开发图形用户界

面的（方法）。

6、Visual Basic1.0版本由（Microsoft ）公司于（1991 ）年推出。目前使用最广泛的是（Visual Basic6.0 ）版本。

7、VB的特点（面向对象的可视化设计平台）、（事件驱动的编程机制）、（结构化的设计语言）、（充分利用Windows资源）、（开放的数据库功能与网络支持）。

8、DDE（动态数据交换）、OLE（对象链接与嵌入）、DLL（动态链接库）、ODBC（开放式数据连接）、SQL （结构化查询语言）、可执行文件的扩展名（）。

9、Visual Basic 是一种面向（对象）的程序设计语言，采用了（事件驱动）编程机制。

10、Visual Basic 中能够将计算机结果立即显示出来的窗口称为（立即）窗口。

11、可以通过（文件）菜单中的（退出）命令退出Visual Basic 。

12、在Visual Basic 6.0集成开发环境窗口的标题栏中，可以显示出工程的3种状态，分别是（设计）（运行）和（Break）。

13、新建一个工程可以通过（文件）菜单中（新建工程）菜单命令，也可以通过组合键（Ctrl+N ）实现。

14、Visual Basic 窗体设计器的用途是设计应用程序窗体的（外观）。

15、VB程序设计采用的编程机制是（事件驱动）。

16、VB对象可以分为两类，分别为（预定义对象）和（用户定义对象）。

17、在面向对象的程序设计中，我们可以将同类事物抽象为（类），其中所包含的个体称为（对象）。

18、在Visual Basic中，工具箱中的控件是Visual Basic预先设计的标准（类或控件类），除此之外程序员也可根据需要定义自己的类。

19、在面向对象的程序设计中，对象的三要素指的是（属性）、（方法）、（事件）。

20、在面向对象的程序设计中，对象的特征称为（属性），对象的某种行为称为（方法），对象对外界刺激的反映称为（事件）。

21、在面向对象的程序设计中，对象属性的名称称为（属性名），其取值称为（属性值）。

22、在Visual Basic中，控件或窗体的属性值可以在程序的（设计）阶段和程序的（运行）阶段设置。

23、与控件或窗体位置及大小有关的４个属性分别是（Top）（Left）（Weight）（Height）。

24、如果要在程序的运行阶段通过语句设置属性的取值，其一般格式为（对象名.属性名＝属性值）。

25、在面向对象的程序设计中，由（属性）定义其外观特征，由（方法）定义其行为，由（事件）定义其与用户的交互。

26、若用户单击了窗体Form1，则此时发生的事件应为（Click）。27、假定一个名称为Label1的标签，运行程序时，为了能够在其中显示“Hello！”，所使用的语句为（Label1.Caption=”Hello！”）。

28、要删除活动对象，只需选中控件后按（Delete）键。

29、VB系统为每个对象预先定义了一系列的事件，如单击（Click）、双击（DblClick）、装载（Load）、鼠标移动（MouseMove）、改变（Change）等。

30、在Visual Basic中由（事件）控制整个程序的执行流程。

31、窗体Form1中有控件Label1和Command1，请在下面的程序中填加适当的语句，在窗体的单击事件中，使Label1上显示“你好！”，使Command1上显示“VB练习”，使Command1按钮高度改为８００像素

Private Sub Form_Click()

（Label1.Caption = "你好！" ）

（Command1.Caption = "VB练习" ）

（Command1.Height = 800 ）

End Sub

在按钮Command1的单击事件上移动按钮的位置到３００，１５００像素

Private Sub Command1_Click()

（Command1.Move 300, 1500）

End Sub

在按钮Command2的单击事件上显示Form2，隐藏Form1

Private Sub Command2_Click()

（Form2.Show）

（Form1.Hide）

End Sub

在窗体Form2的单击事件上输出“欢迎来到Visual Basic世界！”

Private Sub Form_Click()

（Form2.Print "VB欢迎来到Visual Basic世界！" ）

End Sub

32、要使工程１脱离VB能够运行，可用（文件）菜单下的（生成工程１）命令。

vb实验教程答案

第一章 答案： 一、单项选择题 1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C 二、判断题 1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T 第二章 一、单项选择题 1. B 2. D 3. A 4. D 5. B 6.A 7. D 8. D 9. D 10. A 11. A 12. A 13. C 14. C 15. A 16. C 17. A 18. D 19. A 20. D 21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B 31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A 41. D 二、判断题 1. True 2. True 3. False 4. False 5. False 6. False 7. False 第三章 一、单项选择题 1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A 16.C 17.B 二、判断题 1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F 11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F . 第四章 一、单项选择题 1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A 21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D 二、判断题 1.F 2.T 3.F 4.F 5.T 6.F 7.T 三、操作题 1.参考代码： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Dim sum As Integer For i = 2 To 10000 sum = 0 For j = 1 To i / 2 k = i Mod j If 0 = k Then sum = sum + j End If Next j

vb程序设计实验教程习题答案

实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5

（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③

vb实验作业参考答案

VB实验作业参考答案 作业一窗体设计 (2) 作业二计算器 (4) 作业三人民币张数求电阻值 (6) 作业四（必做）建康城 (8) 作业五阶乘累加 (9) 作业六（必做）九九乘法表 (11) 作业七（必做）I NPUT B OX 函数输入12个整数，赋值给3×4的二维数组 (12) 作业八递归函数计算两个正整数的最大公约数，递归公式为 (13) 作业九（必做）家电提货单 (15) 作业十统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。 (17) 作业十一设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。 (19) 作业十二通过菜单选择，对字体、字号进行设置 (21)

作业一 1.简答题(略) 2.编程题： 1)单击窗体后在窗体上显示“您好！×××同学”。 要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。 答案参照课本P27的例1-6。 2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写： （1）用代码初始化各控件（提示：可写在Form_Load事件中）。 （2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。 （3）结束程序运行的代码（命令按钮）。 程序代码： Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Form1.Width / 2 Text1.Height = Form1.Height / 2 Command1.Left = Form1.ScaleWidth - Command1.Width

vb6.0实验六习题与答案

实验六 专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的 1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（Slider）、时钟、图形控件； 2、学习在窗体中创建常用控件 2、学习在属性窗口和在程序代码中设置属性 3、学习调用控件的方法 4、学习编写各控件和鼠标与键盘的事件过程 二、实验内容 1、单选按钮、复选框、框架 1）设置窗体F1的标题为“复选框、框架和单选按钮”；在窗体中设置复选框Ch1、Ch2 Ch1和Ch2的高度和宽度分别为360和1000；并程序运行时，Check2处于非少许状态。框架Fr1包含单选按钮Op1和Op2。 2）设计窗体，要求 ①标题为“设置字体”； ②在窗体中设置有边框的标签控件Label1，高度和宽度分别为450和3800，标题为“欢迎使用VB”，字号为“四号”，居中显示； ③标题为“字体”框架包含两个标题分别为“楷体_GB2312”和“华文新魏”的单选按钮Op1和Op2； ④标题为“斜体”框架包含两个标题分别为“是”和“否”的单选按钮。 ⑤编写相应控件的事件过程，使得程序运行时，单击“楷体_GB2312”，标签控件的字体为楷体_GB2312，单击“华文新魏”，标签控件的字体为华文新魏；单击“是”，标签控件的字体为斜体，单击“否”，标签控件的字体取消斜体。 Private Sub Option1_Click() Label1.FontName = Option1.Caption End Sub Private Sub Option2_Click()

Vb上机实验答案

第一题 1.制作如图所示窗体界面。（用真实的姓名、班级及学号） 2.使时间每隔1秒刷新一次 3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大 值 4.在列表框中输入20、22、24、26、28 Private Sub Command1_Click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("please input a number") Next i mmax = a(1) For i = 1 To 5 If a(i) > mmax Then mmax = a(i) End If Next i MsgBox mmax End Sub Private Sub Timer1_Timer() Label2.Caption = Time End Sub 第二题 1.两个文本框里输入两个数字从而确定一个范围。 2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和， 结果显示在label3中。 https://www.wendangku.net/doc/954455423.html,bel3的背景色每隔1.5秒蓝红交替。

Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text s = 0 For i = a To b If a Mod 3 = 0 Or b Mod 5 = 0 Then Label3.Caption = Label3.Caption & i & "," s = s + i * i End If Next i Label3.Caption = s End Sub Private Sub Timer1_Timer() If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End If End Sub 第三题 1、单击按钮，在文本框中显示1到终值的所有整数的平方和 2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数 Private Sub Command1_Click()

vbvb期末考试实验答案作业

请参考10_2.exe程序的运行结果，新建一个工程，完成"调色板"程序的设计，该程序由红绿兰三原色进行调色，如果预览满意，单击"应用"按钮，将调好的颜色作为文本框中文字的颜色。将完成后的工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_2目录下。 具体要求如下： 1. 应用程序界面设计参考图示。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。[注意：滚动条最大值为255] 4. 要求在任意一个颜色成分输入文本框中输入一个0-255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 5. 单击"应用"按钮后将调好的颜色作为文本框中文字的颜色。 思考题：拖动滚动条时有没有触发滚动条的Change事件？ 提示: 1. 应用程序界面设计参考图示。 程序界面右下角的预览框架里的长方形是形状控件Shape1（工具箱中的），将其FillStyle属性设置为0。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 三个滚动条的Min设为0，Max设为255；三个文本框的Text属性设为空字串。

3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。 颜色是利用Rgb(r,g,b）函数来表示，其中r,g,b是红、绿、兰颜色的饱和度，分别通过滚动条来控制。 Private Sub HScroll1_Change(Index As Integer) Text1(Index).Text = HScroll1(Index).Value Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End Sub 4. 要求在任意一个颜色成分输入文本框中输入一个0—255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 设计文本框的Change事件： Private Sub Text1_Change(Index As Integer) HScroll1(Index).Value = Val(Text1(Index).Text) End Sub 5. 单击“应用”按钮后将调好的颜色作为文本框中文字的颜色。 Text2.ForeColor = Shape1.FillColor 下载10_1.exe 请参考10_1.exe程序的运行结果，新建一个工程，完成"过程练习"程序的设计，并将工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_1目录下。 具体要求如下： 1. 各题必须按要求用通用过程或函数过程进行编程。 2. "第一题"：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。 3. "第二题"：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。 4. "第三题"：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。 5. "第四题"：编写一个每行可以打印5个下标变量的打印数组的通用过程，。随机产生一个∈[100，500]、有20个下标变量的数组，调用该通用过程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。 思考题：通用过程与函数过程的区别？ 提示:

vb实验编程答案

实验教程 实验三顺序结构程序设计编程题参考答案（第47页） 1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox分别进行输入，使用Print 方法输出。 2. 输入圆的半径，输出其周长、面积。要求使用TextBox控件进行输入，使用Label控件输出。 3. 输入一元二次方程ax2+bx+c=0 的系数a、b、c，输出两个实根。要求使用TextBox控件分别进行输入，使用Label控件输出。 实验四选择结构程序设计编程题参考答案（第58页） 1. 输入一个，判断其是否能同时被3和7整除。 2. 输入三个数，输出其中的最大值。 6. 编程及输出分段函数的值。由键盘输入t的值，计算y的值 7. B；20～29 为青年，输出B； 50 8. 输入年份，输出对应的属相。已知1984年为鼠年，要求使用Select Case语句实现。实验五循环结构程序设计编程题参考答案（第77页） 1.编写程序，求s=1×2×3 + 2×3×4 + … + n×(n+1) ×(n+2)的值，n由程序输入。 Y=

2.有一个分数序列 ，求出这个序列前 20项的和。 3. 求∑= 10 1 ! n n （即1！+2！+3！+…+10！） 4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。 5. 输出所有的“水仙花数”。“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，371是一个水仙花数，因为371=33+73+13 6. 打印如图所示的乘法表 实验六定长数组的使用编程题参考答案（第96页） 1.定义一个包含10个数组元素的数组a，为其数组元素分别赋值为2、4、6、8、…20，并输出。 2. 输入十个评委的分数，去掉最高分和最低分后，计算最后的平均分并输出。 3.输入5个学生的姓名与一门课程的成绩，按成绩的升序输出姓名和成绩。分别使用比较 ,... 13 21 , 8 13 , 5 8 , 3 5 , 2 3 , 1 2

VB实验任务8答案

实验任务八 课程名称：程序设计基础VB 实验名称——八、循环结构程序设计（2） 一、实验目的： 1.进一步掌握循环语句的基本结构 2.清楚循环流程，掌握循环语句的描述 4.掌握多重循环结构程序的设计方法 二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）： 程序完善题的做题技巧和方法 建议，先根据程序运行的参考界面和题目要求，分析代码中变量和对象各自的作用（一般从输入或输出方面着手推导和分析），然后填充程序[希望同学们通过实践掌握] 实验1 阅读程序，人工列表写出下列循环的运行次数和执行结果(注意输出格式)，并上机验证结果，并充分使用单步

实验2实验书103页实验5-11 改错题。窗体如图所示。要求程序运行时，在文本框text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的项目。编程以下程序实现此功能。 在调试时发现，如输入“陈”，可以正确删除所有“陈”的项目，但输入“刘”，但输入“刘”，则只删除了“刘邦”，如图b 所示，这说明程序不能适应所有情况，需要修改。 Private Sub Command1_Click() Dim n%, k% n = Len(Text1.Text) For k = List1.ListCount - 1 To 0 Step -1 If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k End If Next k End Sub 实验3 实验书实验6-5 编程实现求Armstrong 数，Armstrong 数具有如下特征：一个n 位数等于其各位数的n 次方之和。例如，153=13+53+33 1634=14+64+34+44 提示：把数值转换成字符串后，利用Mid 函数取每一位上的数。 法一： Private Sub Command1_Click() Dim i As Integer, a As Integer, j%, b As Integer, k%, c%, h As Long, d As Long For i = 10 To 99 a = Val(Left(a, 1)) ^ 2 + Val(Right(a, 1)) ^ 2 If a = i Then Print i Next i For j = 100 To 999 b = Val(Left(j, 1)) ^ 3 + Val(Mid(j, 2, 1)) ^ 3 + Val(Right(j, 1)) ^ 3 If b = j Then Print b Next j For k = 1000 To 9999 c = Val(Left(k, 1)) ^ 4 + Val(Mid(k, 2, 1)) ^ 4 + Val(Mid(k, 3, 1)) ^ 4 + Val(Right(k, 1)) ^ 4 If k = c Then Print c 法二： Dim n%, k% n = Len(Text1.Text) For k = 0 To List1.ListCount - 1 If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k k = k - 1 End If Next k

VB实验教材习题答案 (1)

第1章VB集成环境与VB概述一、选择题 第2章常用控件与界面设计一、选择题

第3章数据、表达式与简单程序设计一、选择题 第4章选择分支与循环 一、选择题 二、填空题 1．5 7 13 12 14 11 2. 3 1 5 3 4 1 3. right(a$,i) 4. 4 5. 6-i 6. 6 11 10 21 13 34 7. 5 14 13 8. Is else end select

9. a*(2*i-1)*(-1)*x/(2*i+2) i+1 10. 0 n-1 11. 1 t*(-1)*x^2/((2*k-1)*(2*k)) Abs(t)>eps 12. count1=count+1 count1>0 13. sum=0 sum+j st & k & “+” 14. 9 x 三、编程题 1. Option Explicit Private Sub Command1_Click() Dim s As String, i As Integer, ch As String * 1 Dim a As Integer, b As Integer, c As Integer s = Text1.Text For i = 1 To Len(s) ch = Mid(s, i, 1) If (ch >= "0" And ch <= "9") Then a = a + 1 ElseIf (ch >= "A" And ch <= "Z") Or (ch >= "a" And ch <= "z") Then b = b + 1 Else c = c + 1 End If Next Print "数字个数"; a Print "字符个数"; b Print "其他字符"; c End Sub 2. Option Explicit Private Sub Command1_Click() Dim i As Integer, n As Integer Dim a As Integer, b As Integer, c As Integer For i = 1 To 50 n = Int(Rnd * 90 + 10) Print n; If i Mod 10 = 0 Then Print If n <= 40 Then a = a + 1 ElseIf n <= 70 Then b = b + 1 Else

vb实验指导答案

实验一 2. Private Sub Command1_Click() Label1.ForeColor = vbRed End Sub Private Sub Command2_Click() Label1.BackColor = vbBlue End Sub Private Sub Command3_Click() Label1.ForeColor = Form1.ForeColor Label1.BackColor = Form1.BackColor End Sub Private Sub Command4_Click() End End Sub 3. Private Sub Command1_Click() Text1.FontSize = 30 Command1.Enabled = False Command2.Enabled = True Command3.Enabled = True End Sub Private Sub Command2_Click() Text1.FontSize = 6 Command2.Enabled = False Command1.Enabled = True Command3.Enabled = True End Sub Private Sub Command3_Click() Text1.FontSize = 9 Command3.Enabled = False Command1.Enabled = True Command2.Enabled = True End Sub 4. Private Sub Command1_Click() a = 3.14 r = Val(Text1.Text) Text2.Text = 2 * a * r Text3.Text = a * r * r End Sub Private Sub Command2_Click() Text1.Text = ""

vb程序设计实验指导习题答案

P178 五 1 Private Sub Form_DblClick() '双击窗体时，通过InputBox输入n，求1/2+1/2^2....+1/2^n Dim n As Integer n = InputBox("输入n的值：") For i = 1 To n s = s + 1 / 2 ^ i Next Print "1/2+1/2^2+...+1/2^" & n & "=" & s End Sub P185五 Dim a(9) As Integer Private Sub Command1_Click() '在文本框显示10个两位随机整数，逗号分隔 Text1.Text = "" For i = 0 To 9 a(i) = Int(Rnd * 90 + 10) Text1.Text = Text1.Text & a(i) & "," Next i Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End Sub Private Sub Command2_Click() '消息框显示最小值 m = a(0) For i = 1 To 9 If a(i) < m Then m = a(i) Next MsgBox "10个数的最小值为：" & m End Sub Private Sub Command3_Click() '消息框显示最大值 m = a(0) For i = 1 To 9 If a(i) > m Then m = a(i) Next MsgBox "10个数的最大值为：" & m End Sub Private Sub Command4_Click() '消息框显示平均值 For i = 0 To 9 m = m + a(i) Next MsgBox "10个数的平均值为：" & m / 10 End Sub P169 2 P169 3 Private Sub Command1_Click() Label1.Top = Label1.Top - Label1.Height / 2 Label1.Height = Label1.Height * 2 Label1.Left = Label1.Left - Label1.Width / 2 Label1.Width = Label1.Width * 2 Label1.FontSize = Label1.FontSize * 2 End Sub P169 4 Private Sub VS1_Change() Text1.Text = VS1.V alue End Sub Private Sub VS1_Scroll() Text1.Text = VS1.V alue End Sub P169 5 Private Sub Command1_Click() For i = List1.ListCount - 1 To 0 Step -1 List2.AddItem List1.List(i) Next i List1.Clear End Sub

vb6.0实验八习题与答案

实验八 专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的 1、掌握通用过程和函数的定义及调用方法 2、了解参数的传递 3、掌握简单的递归算法 二、实验内容 1、在窗体层编写过程Proc1(a() as integer)其功能：给数组a赋[0，99]的随机整数，并显示在Text1中；Proc2(a() as integer)其功能是把数组a进行逆序存放。单击“生成随机数”按钮用于调用Proc1过程；单击“调用proc”按钮，调用Proc2过程；单击“输出结果”按钮，将调用Proc2的结果显示在Text2中。 D i m b(9)A s I n t e g e r D i m s t r a A s S t r i n g P r i v a t e S u b C o m m a n d1_C l i c k() C a l l p r o c1(b()) E n d S u b S u b p r o c1(a()A s I n t e g e r) R a n d o m i z e F o r i=0T o U B o u n d(a) a(i)=I n t(R n d*100) T e x t1.T e x t=L T r i m(T e x t1.T e x t)+S t r(a(i)) N e x t i E n d S u b P r i v a t e S u b C o m m a n d2_C l i c k() C a l l p r o c2 E n d S u b S u b p r o c2() F o r i=9T o0S t e p-1 s t r a=s t r a&b(i)&"" N e x t i E n d S u b

VB程序设计教程实验指导与习题解答上机答案

自测1 程序代码 Private Sub Command1_Click() = + 3 End Sub Private Sub Command2_Click() = True End Sub Private Sub Command3_Click() = True End Sub Private Sub Command4_Click() = 10 = False = False End Sub

初始窗口： 单机放大之后窗口： 单机下划线之后窗口： 单击加粗之后窗口： 单击还原之后窗口： 自测2 程序代码 Private Sub Command1_Click() Label1 = "visual basic" Text1 = "程序设计题" End Sub Private Sub Command2_Click() Text1 = "visual basic" Label1 = "程序设计题" End Sub 初始窗口：

单击显示之后窗口： 单击交换之后的窗口： 自测题3 Private Sub Command1_Click() = * End Sub Private Sub Command2_Click() = + 30 = + 20 = 1 End Sub 初始窗口： 单击缩小两倍之后的窗口： 单击向右下角移动之后的窗口：自测题4 程序代码

Private Sub Command1_Click() = "VB学习" Print "简单的VB程序设计" End Sub Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub Private Sub Command3_Click() End End Sub 初始化窗口： 单击显示之后的窗口： 单击清除之后的窗口：

VB课本各个实验课后题答案

实验3 3-2el Private Sub Command1_Click() Dim n% n = Abs(Val(Text1)) Label2 = Format(n ^ 2, "#.000") & Space(2) & Format(Sqr(n), "#.000") & Space(2) & Format(n ^ 3, "#.000") & Space(2) & Format(n ^ (1 / 3), "#.000") End Sub Private Sub Form_Load() End Sub 3-3 Private Sub Command1_Click() Dim x%, y% x = Int(Rnd * 900 + 100) Print "产生的随机数："; x y = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100 Print "反序数："; Format(y, "000") End Sub Private Sub Command2_Click() Dim x%, y As String x = Int(Rnd * 900 + 100) Print "产生的随机数："; x y = Trim(Str(x)) Print "反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1) End Sub Private Sub Form_Load() End Sub 3-4 Private Sub Command1_Click() Dim m%, n% Randomize m = Val(Text1): n = Val(Text2) x = Int(Rnd * (n - m) + m) y = Int(Rnd * (n - m) + m) z = Int(Rnd * (n - m) + m) Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & z End Sub

vb实验编程答案

欢迎阅读 实验教程 实验三 顺序结构程序设计编程题参考答案 （第47页） 1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox 分别进行输入，使用Print 方法输出。 2. 输入圆的半径，输出其周长、面积。要求使用TextBox 控件进行输入，使用Label 3. 实验四1. 2. 6. 7. ；20～29508. 实验五1. 编写程序，求s=1×2×3 + 2×3×4 + … + n ×(n+1) ×(n+2)的值，n 由程序输入。 2.有一个分数序列 ，求出这个序列前20项的和。 3. 求∑=10 1!n n （即1！+2！+3！+…+10！） 4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这 , (13) 21,813,58,35,23,12

些数并统计个数。 5. 输出所有的“水仙花数”。“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，371是一个水仙花数，因为371=33+73+13 6. 打印如图所示的乘法表 （第 1.8、 (20) 2. 3.输入 4. 输出

5. 输入5×5的矩阵，求出每列元素之和，并把和值最大的那一列上的各元素和第一列各元素进行对调。 7. 输入十个学生的三门课程的成绩，并进行如下操作。 (1) 计算并输出每门课程的平均分。 (2) 输出每门课程中的最高分与最低分。 (3) (4) 实验七动态数组、控件数组与自定义类型的数组编程题参考答案（第10页） 6. 自定义学生类型，包括学生姓名、学号和成绩，输入学生人数n，并输入学生的信息，按成绩进行降序排序后输出。程序界面设计如下图。 实验七过程编程题参考答案（第123页）

大一《VB面向对象程序设计》作业及实验报告书_答案[1]

实验一 一 DDBAB,CC(D)DDC,ADDCA 二 windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 代码 双击任意控件或右健快捷菜单选“代码窗口”vb的安装文件夹 属性 方法 font load 对象 实验二 一 BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素 picture load locked font,alignment gotfocus,lostfocus 属性窗口，代码 实验三 一

A(BC)(BC)AA,A(BCD)DBB,B 二 3，4，5，6，8，10，11，12，14，15，16 三 abs(x+y) (3+x*y)^2 (-b+sqr(b^2-4*a*c)/(2*a) sin(30*3.14/180)+exp(2) 四 int(rnd*71+20) x*y<0 x mod 3=0 or xmod 7=0 x>=10 and x<20 x>="A" and x<="Z" left(s,3) 或者,mid(s,1,3) 实验四 一 CDCDA,DBBAC 二 (1) 48.71E-01,-4.8712 (2) 关系，逻辑，数值 (3) 900，100，mid(a,2,1),c (4) m 1,2,3 print m & "月是第二季度" end select 三 (1) x=4 y=13 (2) 10 实验五 一 BCBAC 二 （1）for x=2 to 10 s*(1-1/x) (2) t<1E-6 (3) j

vb实验编程答案

v b实验编程答案 Company number：【0089WT-8898YT-W8CCB-BUUT-202108】

实验教程 实验三 顺序结构程序设计编程题参考答案 （第47页） 1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox 分别进行输入，使用Print 方法输出。 2. 输入圆的半径，输出其周长、面积。要求使用TextBox 控件进行输入，使用Label 控件输出。 3. 输入一元二次方程ax 2+bx+c=0 的系数a 、b 、c ，输出两个实根。要求使用TextBox 控件分别进行输入，使用Label 控件输出。 实验四 选择结构程序设计编程题参考答案 （第58页） 1. 输入一个，判断其是否能同时被3和7整除。 2. 输入三个数，输出其中的最大值。 6. 编程及输出分段函数的值。由键盘输入t 的值，计算y 的值 7. 输出B ；20～29508. 语句实现。 实验五 循环结构程序设计编程题参考答案 （第77页） 1. 编写程序，求s=1×2×3 + 2×3×4 + … + n ×(n+1) ×(n+2)的值，n 由程序输 入。 2.有一个分数序列 ，求出这个序列前20项的和。 Y= , (13) 21 ,813,58,35,23,12

3. 求 ∑ = 10 1 ! n n （即1！+2！+3！+…+10！） 4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。 5. 输出所有的“水仙花数”。“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，371是一个水仙花数，因为371=33+73+13 6. 打印如图所示的乘法表 实验六定长数组的使用编程题参考答案（第96页） 1.定义一个包含10个数组元素的数组a，为其数组元素分别赋值为2、4、6、8、…20，并输出。 2. 输入十个评委的分数，去掉最高分和最低分后，计算最后的平均分并输出。 3.输入5个学生的姓名与一门课程的成绩，按成绩的升序输出姓名和成绩。分别使用比较互换法、选择法和冒泡法实现。

郑州大学VB实验报告书 参考 答案

郑州大学VB实验报告书参考答案。。 以下内容均来自百度文库，所以仅供参考。。 不过经亲自测试习题及实验（一）的答案基本正确，除了实验题的3，4小题没有改字形字体颜色什么的。。 实验一 一、选择题 DDBAB,C(CD)DDC,ADDCA 二、填空题 Windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 编写代码 双击任意控件或右健快捷菜单选“代码窗口” vb的安装文件夹 属性 方法 font load 对象 三、编程

1-1 Private Sub Command1_Click() Print Sqr(8), 8 ^ (1 / 3) End Sub 1-2 Private Sub Command2_Click() For i = 100 To 110 Print Sqr(i) Next i End Sub 1-3（基本设置在属性窗口完成！）Private Sub Command3_Click() Print "郑州大学在前进!" End Sub 1-4（基本设置在属性窗口完成！）Private Sub Command4_Click() Label1 = "蓝天、白云、绿水、青山" End Sub 实验二 一

BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素picture load locked font,alignment gotfocus,lostfocus 属性窗口，代码 三 2-1 Private Sub Command1_Click() Label3 = Text1 * Text2 End Sub Private Sub Command2_Click() Label3 = Text1 / Text2 End Sub 2-2 Private Sub Command1_Click() Picture1.Visible = True

VB实验参考答案

《https://www.wendangku.net/doc/954455423.html,程序设计》实验参考答案 实验1-3 Dim n% = 0 Private Sub Form1_Click(……) Handles Me.Click n = n + 1 TextBox1.Text = n End Sub 实验1-4 Private Sub Form1_Load(……) Handles MyBase.Load Me.Text = "装入窗体" Me.BackgroundImage = Image.FromFile("tongji.bmp") '当前目录为Bin的Debug Me.Cursor = New Cursor("key04.ico") Me.Icon = New Icon("MISC34.ICO") End Sub Private Sub Form1_Click(……) Handles MyBase.Click Me.Text = "单击窗体" ' Me.Size = New Size(264 + 10, 256 + 30) '图片大小为× Me.BackgroundImage = Image.FromFile("tongji-2.bmp") End Sub Private Sub Form1_DoubleClick(……) Handles MyBase.DoubleClick

Me.Text = "双击窗体" Me.MaximizeBox = False Me.MinimizeBox = False Me.BackgroundImage = Nothing Me.Cursor = Cursors.Default End Sub Private Sub Form1_Resize(……) Handles Me.Resize Me.Size = New Size(264 + 10, 256 + 30) Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D End Sub 实验1-5 Private Sub Button1_Click(……) Handles Button1.Click TextBox1.Font = New Font("隶书", 20) End Sub Private Sub Button2_Click(……) Handles Button2.Click TextBox2.Text = TextBox1.SelectedText TextBox2.Font = TextBox1.Font End Sub 实验1-6 Dim w%, h%