郑大远程课后测试 Visual Basic程序设计
国开作业Visual Basic程序设计-边学边练91参考（含答案）
题目：每次重新设置驱动器列表框的Drive属性时，都将引发（）事件。
可在该事件过程中编写代码修改目录列表框的路径，使目录列表框内容随之发生改变。
选项A：Change选项B：Click选项C：ChDrive选项D：List答案：Change题目：目录列表框用来显示当前驱动器下目录结构。
刚建立时显示当前驱动器的顶层目录和当前目录，如果要显示其他驱动器上的目录信息，必须改变路径，即重新设置目录列表框的（）属性。
选项A：ListCount选项B：Path选项C：ListIndex选项D：List （ index ）答案：Path题目：以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。
将程序段补充完整。
Private Sub Drive1_Change()Dir1.Path=Drive1.DriveEnd SubPrivate Sub Dir1_Change()（）End Sub选项A：File1.Path=Dir.Path选项B：File.Path=Dir1.Path选项C：File.Path=Dir.Path选项D：File1.Path=Dir1.Path答案：File1.Path=Dir1.Path题目：在Visual Basic中，文件系统控件包括驱动器列表框（DriveListBox）、（）和文件列表框（FileListBox）。
三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。
选项A：磁盘列表框选项B：属性列表框选项C：目录列表框（DirListBox）选项D：光盘驱动器列表框答案：目录列表框（DirListBox）题目：顺序文件的读操作通过下列（）语句可以实现。
选项A：Input #和Read#选项B：Read#和Get#选项C：Get#和Input ##选项D：LineInput #和Input #答案：LineInput #和Input #题目：当改变驱动器列表框中的驱动器时，为了使目录列表框中的内容同步跟着改变，应当（）选项A：在Dir1_Change()事件中加入代码Dir1.Path=Drive1.Drive选项B：在Dir1_Channge()事件中加入代码Drive1.Drive =Dir1.Path选项C：在Dirve1_Channge()事件中加入代码Drive1.Drive =Dir1.Path选项D：在Dirve1_Channge()事件中加入代码Dir1.Path=Drive1.Drive答案：在Dirve1_Channge()事件中加入代码Dir1.Path=Drive1.Drive题目：为了使drive1驱动器列表框、dir1目录路径列表框和file1文件列表框能同步协调工作，需要在（）。
电大《Visual Basic程序设计》2019-2020期末题库及答案
《Visual Basic程序设计》2019-2020期末题库及答案一、单选题1. 以下不属于Visual Basic6.0的特点的选项是（）。
A、可视化编程B、算法设计C、面向对象程序设计D、事件驱动2.在设计阶段，当双击窗体时，所打开的窗口是（）。
A、工程资源管理器窗口B、工具箱窗口C、代码编辑器窗口D、属性窗口3.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（）。
A、单击窗体上没有控件的地方B、单击任一个控件C、不执行任何操作D、双击窗体的标题栏4.在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是（）。
A、设计模式B、中断模式C、执行模式D、编写代码模式5.当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（）。
A、HelpB、F1C、EscD、F106.在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是（）。
A、窗体布局窗口B、代码编辑器窗口C、属性窗口D、工程资源管理器窗口7. 11.窗体设计窗口的主要功能是（）。
A、设计控件外观B、编写源程序代码C、建立用户界面D、设置对象属性8. VB6.0集成开发环境可以（）。
A、编辑、调试、运行程序，但不能生成可执行文件B、编辑、生成可执行文件、运行程序，但不能调试程序C、编辑、调试、生成可执行程序，但不能运行程序D、编辑、调试、运行程序，也能生成可执行文件9. Visual Basic应用程序处于执行模式时，这时（）。
A、既不能设计界面，也不能编写代码B、可以编辑代码，不能设计界面C、可以设计界面，不能编辑代码D、既能设计界面，也能编写代码10.后缀为.vbp的文件表示VB 的（）。
A、类模块文件B、窗体文件C、工程文件D、标准类模块文件11.为了保存一个Visual Basic应用程序，下列说法正确的是（）。
A、只保存窗体文件（.frm）B、只保存工程文件（.vbp）C、分别保存工程文件和标准模块文件(.bas)D、分别保存工程文件、窗体文件和标准模块文件12.下面关于工程的概念中错误的是（）。
Visual Basic程序设计学习通超星课后章节答案期末考试题库2023年
Visual Basic程序设计学习通超星课后章节答案期末考试题库2023年1.( )是对象的一个基本要素,它描述了对象在程序中的外观特点。
参考答案:属性2.a=1 a=a+6执行完后 a中的值是：参考答案:73.Dim Abc(2,3)所定义的数组元素个数是( )。
参考答案:124.text1=val(text1)+5 在这个语句中，省略默认属性的名字是参考答案:Text5.VB程序中通常不会产生错误提示的( )。
参考答案:逻辑错误6.Visual Basic6.0集成开发环境有三种工作模式,下列不属于三种工作模式之一的是( )。
参考答案:编写代码模式7.下列关于“Do While 条件 : 循环体: Loop”这种循环结构的叙述中,正确的叙述为( )。
参考答案:如果“条件”为常数0,则一次循环体也不执行8.下列数据中,VB允许出现的常量格式是( )。
参考答案:12E39.下列语句中,不可以实现进入循环体中执行循环操作的是( )。
参考答案:For x=3 To 110.下面值为真的逻辑表达式是( )。
参考答案:"That" > "Thank"11.下面的4个用于数组声明的语句中，正确的是( )。
参考答案:Dim x(20)12.为使计时器控件每隔1秒产生一个计时器事件(Timer),则应将其Interval属性值设置为( )。
参考答案:100013.以下关于MsgBox函数的叙述,错误的是( )。
参考答案:可以省略任何参数14.使图像框Image控件中的图像自动适应控件的大小应( )。
参考答案:将控件的 Stretch属性设为True15.函数Int(Rnd * 6 + 1)的取值范围是( )。
参考答案:从1到6(包括1和6)16.变量S初始值为0,执行命令for k=1 to 5、s=s+k、next k后,s的值为( )。
参考答案:1517.启动VB应用程序后,就意味着要建立一个新( )。
visual basic 程序设计课后习题参考答案
［Exit Function］ End Function
(4). Function 过程的调用方法： ①直接调用 像使用 VB 内部函数一样，只需写出函数名
和相应的参数即可 ②用 Call 语句调用 与调用 Sub 过程一样来调用 Function
过程，当用这种方法调用 Function 过程时，将会放弃返回值 3、简述 VB 过程中参数传递的两种方式。
第五章 数 组
4
一、选择题
1 2 3 4 5 6 7 8 9 10 DADEBBCCC A
二、填空题
1 2、12、1、3、-1、2 0123 2222
2 2101 4444
3 name、index 4 preserve、erase 5 ubound、lbound
第六章 过 程
一、选择题
1 2 3 4 5 6 7 8 9 10 DCDCBABAB D 11 12 13 14 15 16 17 18 19 20 ACCDABCDB C
二、填空题
1 bas 2 形式、实际 3 a()、Ubound(b)、n=n-1 4 30、70 5 fedcba、static
三、简答题
6 static 7 static 8 12、7 9 visual basic 程序设计 10 -100
1、简述事件过程和通用过程的含义和联系。
5
VB 应用程序是由过程组成的，过程是完成某种特殊功能的一 组独立的程序代码。VB 中的过程有两大类：事件过程和通用过程
Visual basic 程序设计习题参考答案
第一章 Visual basic 程序设计
一、选择题
1 2 3 4 5 6 7 8 9 10
DC
CDCBAC B
VisualBasic程序设计—试验报告册-参考答案
实验一VERSION 5.00Begin VB.Form Form1Caption = "Form1" ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 4680 StartUpPosition = 3 ' 窗口缺省Begin mandButton Command1Caption = "Command1"Height = 375Left = 2640TabIndex = 0Top = 2400Width = 1575EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = True Attribute VB_Exposed = FalsePrivate Sub Command1_Click()Print Sqr(8), 8 A (1 / 3)End SubVERSION 5.00Begin VB.Form Form1Caption = "Form1" ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 4680 StartUpPosition = 3 ' 窗口缺省Begin mandButton Command1Caption = "Command1"Height = 495Left = 3720TabIndex = 0Top = 2640Width = 855EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim i%For i = 100 To 110Print i, i A (1 / 2)NextEnd SubVERSION 5.00Begin VB.Form Form1AutoRedraw = -1 'TrueCaption = "Form1"ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 4680BeginProperty FontName =" 楷体_GB2312"Size = 21.75Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyForeColor = &H000000FF&LinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 4680 StartUpPosition = 3 ' 窗口缺省EndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = True Attribute VB_Exposed = False窗口缺省蓝天、白云、绿水、青山宋体"Private Sub Form_Load()Print: PrintPrint " 郑州大学在前进！ "End SubVERSION 5.00Begin VB.Form Form1Caption = "Form1" ClientHeight = 3780ClientLeft = 60ClientTop = 345 ClientWidth = 6285LinkTopic = "Form1"ScaleHeight = 3780ScaleWidth = 6285 StartUpPosition = 3 ' Beginbel Label1Caption = " BeginProperty FontName = " Size = 21.75 Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'False EndPropertyForeColor = &H00FF0000&TabIndex = 0 Top = 1080Width = 4935EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = False 实验 2VERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3090 Height Left = 975= 600ClientLeft = ClientTop ClientWidth60 = 450 = 3615BeginProperty FontName Size Charset Weight Underline Italic = = " 宋体"12= 134= 700= 0 'FalseStrikethrough = 0 'FalseEndProperty LinkTopic ScaleHeight ScaleWidth = "Form1" = 3090= 3615StartUpPosition = 3 ' 窗口缺省Begin mandButton Command2Caption Height Left = TabIndex Top Width End = " 商" = 3751920= 4= 1680= 975Begin mandButton Command1Caption Height Left = TabIndex Top Width End = " 乘积" = 375 600= 3= 1680 = 975Begin VB.TextBox Text2Height Left = TabIndex Top Width End = 375 1920 = 2 = 840= 1095Begin VB.TextBox Text1Height Left = TabIndex Top = 375480= 1 = 840Width = 1095EndBegin bel Label3BorderStyle = 1 'Fixed SingleCaption = "Label3"Height = 375Left = 2040TabIndex = 6Top = 2400Width = 975EndBegin bel Label2Caption = " 计算结果为：Height = 375Left = 480TabIndex = 5Top = 2400Width = 1575EndBegin bel Label1AutoSize = -1 'TrueCaption = " 请输入两个数：Height = 240Left = 960TabIndex = 0Top = 360Width = 1785EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)End SubPrivate Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3090ClientLeft = 60ClientTop = 450ClientWidth = 5490BeginProperty FontName = " 宋体"Size = 12Charset = 134Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'False EndPropertyLinkTopic = "Form1"ScaleHeight = 3090ScaleWidth = 5490 StartUpPosition = 3 ' 窗口缺省Begin mandButton Command3Caption = " 隐藏"Height = 375Left = 4080TabIndex = 3Top = 2040Width = 975EndBegin mandButton Command2Caption = " 图片2"Height = 375Left = 4080TabIndex = 2Top = 1320Width = 975EndBegin mandButton Command1Caption = " 图片1"Height = 375宋体" Left = 4080TabIndex = 1Top= 600 Width= 975 EndBegin VB.PictureBox Picture1AutoSize = -1 'TrueBeginProperty FontName= " Size = 9Charset= 134 Weight= 400 Underline =0 'False Italic = 0'False Strikethrough = 0 'FalseEndPropertyHeight = 1935Left = 600ScaleHeight = 1875ScaleWidth = 2715TabIndex = 0Top= 480 Width= 2775 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = True Attribute VB_Exposed = FalsePrivate Sub Command1_Click() Picture1.Picture = LoadPicture("d:\tu1.jpg") End SubPrivate Sub Command2_Click() Picture1.Picture = LoadPicture("d:\tu2.jpg") End SubPrivate Sub Command3_Click() Picture1.Visible = False End SubVERSION 5.00Begin VB.Form Form1Caption = " 收款机 " ClientHeight = 2730ClientLeft = 60ClientTop = 450ClientWidth = 4680BeginProperty FontName = " 宋体"Size = 12Charset = 134Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyLinkTopic = "Form1" ScaleHeight = 2730 ScaleWidth = 4680StartUpPosition = 3 ' 窗口缺省Begin mandButton Command1Caption = " 总价为"Height = 375Left = 600TabIndex = 4Top = 1920Width = 1695EndBegin VB.TextBox Text2Height = 495Left = 3000TabIndex = 3Top = 960Width = 1335EndBegin VB.TextBox Text1Height = 495Left = 3000TabIndex = 2Top = 240Width = 1335EndBegin bel Label3Alignment = 2 'CenterBorderStyle = 1 'Fixed Single Height = 495Left = 2760TabIndex = 5Top = 1920Width = 1455EndBegin bel Label2Alignment = 2 'CenterCaption = " 货物的单价（元）：Height = 375Left = 360TabIndex = 1Top = 1080Width = 2295EndBegin bel Label1Alignment = 2 'CenterCaption = " 货物的数量(个)：Height = 375Left = 360TabIndex = 0Top = 360Width = 2295EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Label3 = Text1 * Text2 End SubBegin VB.Form Form1Caption = "Form1"ClientHeight = 1890ClientLeft = 60ClientTop = 450 ClientWidth = 4365LinkTopic = "Form1" ScaleHeight = 1890 ScaleWidth = 4365StartUpPosition = 3 ' 窗口缺省Begin mandButton Command2 Caption = "清除"BeginProperty FontName = " 宋体"Size = 12 Charset =134Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 375Left = 2400TabIndex = 3Top = 1200Width = 975EndBegin mandButton Command1 Caption = "复制"BeginProperty FontName = " 宋体"Size = 12Charset = 134Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 375Left = 720TabIndex = 2Top = 1200Width = 975EndBegin VB.TextBox Text2Height = 495Left = 2160TabIndex = 1Top = 360Width = 1695EndBegin VB.TextBox Text1Height = 495Left = 480TabIndex = 0Top = 360Width = 1455EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Text2 = Text1End SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""End SubPrivate Sub Form_Load()Command1.Visible = FalseCommand2.Visible = False End SubPrivate Sub Text1_Change()Command1.Visible = TrueCommand2.Visible = True End SubVERSION 5.00Begin VB.Form Form1Begin mandButton Command2 Caption = " 停止"Height = 495Caption = "Form1"ClientHeight = 3300ClientLeft =60 ClientTop = 450ClientWidth = 4695BeginProperty FontName= " Size =12 Charset= 134 Weight =700 Underline= 0 'False Italic =0 'False Strikethrough = 0 'False EndPropertyLinkTopic ="Form1" ScaleHeight3300 ScaleWidth = 4695StartUpPosition = 3 'Begin VB.Timer Timer1Enabled= 0 'False Interval =500 Left =3120 Top = 1320End 宋体" 窗口缺省Left = 2640TabIndex = 1Top = 2400Width = 975EndBegin mandButton Command1 Caption = " 移动"Height = 495Left = 840TabIndex = 0Top = 2400Width = 1095EndBegin VB.Image Image1Height = 1800Left = 840Top = 360Width = 1500EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Form_Load()Image1.Picture = LoadPicture("d:\tu3.jpg")End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth -Image1.Width))Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height))End Sub实验3VERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 4680StartUpPosition = 3 ' 窗口缺省Begin mandButton Command1Caption = "Command1"Height = 495Left = 3720TabIndex = 0Top = 2640Width = 855EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = True Attribute VB_Exposed = FalsePrivate Sub Command1_Click()Print 2 * 3 A 2 * 8 / 4 + 3 A 2Print Sqr(Sqr(64))Print #2/27/2004# - 10Print Int(-3.1415926)Print Int(Abs(99 - 100) / 2)Print Fix(-3.1415926)Print Int(-3.5), Int(3.5)Print Fix(3.5), Fix(3.5)Print Sgn(7 * 3 + 2)Print LCase("Hello")Print Val("16Year")Print Str(-459.65)Print Len("Hello 程序设计ok") Print "MNT" & 123 & "ABC" Print 123 + Mid("123456", 3, 2)Print 123 & Mid("123456", 3, 2)Print DateAdd("m", 1, #2/27/2004#)End SubCaption = "Form1" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 6825 BeginProperty FontName = " 宋体"Size = 15Charset = 134Weight = 700Underline = 0 'False Italic = 0 'FalseStrikethrough = 0 'False EndProperty LinkTopic = "Form1" ScaleHeight = 3195 ScaleWidth = 6825StartUpPosition = 3 ' 窗口缺省Begin VB.TextBox Text1Height = 495Left = 3120 TabIndex = 2Text = "Text1"Top = 240Width = 1695EndBegin mandButton Command1Caption = " 计算平方立方(根) " BeginProperty FontName = " 宋体" Size = 14.25 Charset = 134Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'False EndProperty Height = 495Left = 1680TabIndex = 0 Top= 960Width = 3015EndBegin bel Label2Caption = "Label2"Height = 735Left = 480TabIndex = 3Top = 1920Width = 5895EndBegin bel Label1Caption = " 输入一个数"Height = 495Left = 1320TabIndex = 1Top = 240Width = 1935EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim n%n = Abs(Val(Text1))Label2 = Format(n A 2, "#.000") & Space(2) & Format(Sqr( n), "#.000") & Space(2) & Format(n A 3, "#.000") & Space(2) & Format(n A (1 / 3), "#.000") End SubBegin VB.Form Form1Caption = "Form1"ClientHeight = 3330ClientLeft = 60ClientTop = 345ClientWidth = 5985LinkTopic = "Form1"ScaleHeight = 3330ScaleWidth = 5985StartUpPosition = 3 ' 窗口缺省Begin mandButton Command2Caption = " 方法二"Height = 495Left = 3840 TabIndex = 1Top = 1800Width = 1215EndBegin mandButton Command1Caption = " 方法一"Height = 495Left = 3840TabIndex = 0Top = 600Width = 1215EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim x%, y%x = Int(Rnd * 900 + 100)Print " 产生的随机数："; xy = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100Print " 反序数："; Format(y, "000")End SubPrivate Sub Command2_Click()Dim x%, y As String x = Int(Rnd * 900 + 100)Print " 产生的随机数："; xy = Trim(Str(x))Print " 反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1) End Sub Begin VB.Form Form1 Caption = "Form1" ClientHeight = 4275 ClientLeft = 60 ClientTop = 345 ClientWidth = 6975 LinkTopic = "Form1" ScaleHeight = 4275ScaleWidth = 6975 StartUpPosition = 3 ' 窗口缺省Begin VB.TextBox Text2Height = 615Left = 4080TabIndex = 5Top = 960Width = 1215EndBegin mandButton Command1 Caption = " 开始产生" Height = 495Left = 2640TabIndex = 3Top = 1920Width = 1215EndBegin VB.TextBox Text1Height = 615Left = 1200TabIndex = 0Top = 960Width = 1215EndBegin bel Label3Caption = "Label3"Height = 375Left = 840TabIndex = 4Top = 2880Width = 4695EndBegin bel Label2Alignment = 2 'CenterCaption = " 到" BeginProperty FontName = " 隶书"Size = 15Charset = 134Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 375Left = 2760 TabIndex = 2Top = 1080Width = 975EndBegin bel Label1Caption = " 输入随机数范围：" BeginProperty FontName = " 隶书" Size = 14.25Charset = 134Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 495Left = 480 TabIndex = 1Top = 360Width = 2655EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = False Attribute VB_PredeclaredId = TrueAttribute VB_Exposed = False 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 SubVERSION 5.00Begin VB.Form Form1 Caption = "Form1"ClientHeight = 3270ClientLeft = 60ClientTop = 450ClientWidth = 6000LinkTopic = "Form1"ScaleHeight = 3270ScaleWidth = 6000StartUpPosition = 3 ' 窗口缺省Begin mandButton Command3 Caption = " 星期几" Height = 495Left = 360TabIndex = 2Top = 2280Width = 1455EndBegin mandButton Command2 Caption = " 时间" Height = 495Left = 360TabIndex = 1Top = 1440Width = 1455EndBegin mandButton Command1 Caption = " 日期" Height = 495Left = 360TabIndex = 0Top = 600Width = 1455EndBegin bel Label3BorderStyle = 1 'Fixed SingleCaption = "Label3"Height = 495Left = 2520TabIndex = 5Top = 2280Width = 2535EndBegin bel Label2BorderStyle = 1 'Fixed SingleCaption = "Label2"Height = 495Left = 2520TabIndex = 4Top = 1440Width = 2535EndBegin bel Label1BorderStyle = 1 'Fixed SingleCaption = "Label1"Left = 2520TabIndex = 3Top = 600Width = 2535EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = False Private Sub Command1_Click() Label1.Caption = Date End SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date))End Sub实验4VERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 4305ClientLeft = 60ClientTop = 450ClientWidth = 6345BeginProperty FontName = " 宋体"Size = 14.25Charset = 134Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyLinkTopic = "Form1"ScaleWidth = 6345StartUpPosition = 3 ' 窗口缺省Begin mandButton Command1Caption = " 转换"Height = 495Left = 2160TabIndex = 2Top = 1800Width = 1455EndBegin VB.TextBox Text1Height = 495Left = 3480TabIndex = 1Top = 720Width = 1455EndBegin bel Label2Height = 975Left = 360TabIndex = 3Top = 2760Width = 5775EndBegin bel Label1Caption = " 请输入弧度数值：Height = 495Left = 600TabIndex = 0Top = 720Width = 2415EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption Explicit分" & cc & " Private Sub Command1_Click()Dim x!, a!, aa%, b!, bb%, c!, cc$x = Val(Text1)a = x * 180 / 3.14 aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")Label2 = " 弧度 " & Text1 & " 转换为 " & aa & " 度 " & bb & " 秒" End SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3255ClientLeft = 60ClientTop = 450ClientWidth = 4980LinkTopic = "Form1"ScaleHeight = 3255ScaleWidth = 4980StartUpPosition = 3 ' 窗口缺省Begin mandButton Command1Caption = " 判断 "Height = 495Left = 1560 TabIndex = 2Top = 1440Width = 1335EndBegin VB.TextBox Text1Height = 615Left = 960TabIndex = 0Top = 600Width = 2655EndBegin bel Label2Height = 735Left = 960 TabIndex = 3Top = 2160Width = 2775EndBegin bel Label1Caption = " 输入一个年份：" Height = 375Left = 1320TabIndex = 1Top = 240Width = 1935EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 Then Label2 = Text1 & " 年是闰年"ElseLabel2 = Text1 & " 年不是闰年"End IfEnd Sub VERSION 5.00Begin VB.Form Form1 Caption = "Form1"ClientHeight = 3090ClientLeft = 60ClientTop = 450ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3090ScaleWidth = 4680StartUpPosition = 3 ' 窗口缺省Begin mandButton Command1Caption = "3 个数排序"Height = 495Left = 1800 TabIndex = 0Top = 1320Width = 1215EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False AttributeVB_PredeclaredId = True Attribute VB_Exposed = FalsePrivate Sub Command1_Click（）Dim x%, y%, z%x = InputBox（" 输入第一个数"） y = InputBox（" 输入第二个数"） z = InputBox（" 输入第三个数"） If x > y Then t = x: x = y: y = t If y > z Then t = y: y = z: z = t If x > y Then t = x: x = y: y = t Print x, y, z End Sub VERSION 5.00 Begin VB.Form Form1Caption = "Form1" ClientHeight = 5430 ClientLeft = 60 ClientTop = 450 ClientWidth = 6975 LinkTopic = "Form1" ScaleHeight = 5430 ScaleWidth = 6975 StartUpPosition = 3 '窗口缺省Begin mandButton Command2Caption = " 结束"Height = 495 Left = 3840 TabIndex = 1 Top = 2040Width = 1215EndBegin mandButton Command1 Caption = " 计费"Height = 495Left = 1080 TabIndex = 0 Top = 2040Width = 1215EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()x = Val(InputBox(" 请输入上网时间:")) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100fei = x * 1End SelectMsgBox " 上网费用为:" & fei & " 元"End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 4050 ClientLeft = 60 ClientTop = 450 ClientWidth = 6285 LinkTopic = "Form1" ScaleHeight = 4050 ScaleWidth = 6285 StartUpPosition = 3 ' 窗口缺省Begin mandButton Command1Caption = " 弧度转换为度分秒Height = 615秒"Left = 2160TabIndex = 0Top = 1560Width = 2415EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()x = InputBox(" 请输入弧度数值 ", " 弧度转换 ", 0)xx = Val(x)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")MsgBox " 弧度 " & x & " 转换为 " & aa & " 度 " & bb & " 分 " & cc & " EndSubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 5430ClientLeft = 60ClientTop = 450ClientWidth = 6975LinkTopic = "Form1"ScaleHeight = 5430ScaleWidth = 6975StartUpPosition = 3 ' 窗口缺省Begin mandButton Command2Caption = " 结束 "Height = 495Left = 3840 TabIndex = 1Top = 2040Width = 1215EndBegin mandButton Command1Caption = " 计费 "Height = 495Left = 1080TabIndex = 0Top = 2040Width = 1215End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() Dox = Val(InputBox(" 请输入上网时间:", , -1)) If x <> -1 ThenSelect Case x Case Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100fei = x * 1End Selectzongfei = zongfei & Space(3) & fei MsgBox zongfei, , " 上网费用为" ElseExit Do End IfLoopEnd SubPrivate Sub Command2_Click()EndEnd Sub实验5VERSION 5.00Begin VB.Form Form1Caption = "Form1" ClientHeight = 3090ClientLeft = 60 ClientTop = 450ClientWidth = 4680LinkTopic = "Form1" ScaleHeight = 3090 ScaleWidth = 4680 StartUpPosition = 3 ' 窗口缺省Begin mandButton Command1 Caption = "Command1"Height = 495Left = 1800TabIndex = 0 Top = 1320Width = 1215EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click()For n = 1 To 100 s = s + n Next n Print sEnd Sub VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3090 ScaleWidth = 4680 StartUpPosition = 3 ' 窗口缺省Begin mandButton Command1Caption = "Command1"Height = 495Left = 1920 TabIndex = 0Top = 1680Width = 1215EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()For i = 0 To 20For j = 0 To 33If i * 5 + j * 3 + 1 / 3 * (100 - i - j) = 100 Then Print i, j, 100 - i - jNextNextEnd SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3090ClientLeft = 60ClientTop = 450ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3090ScaleWidth = 4680StartUpPosition = 3 ' 窗口缺省Begin mandButton Command1Caption = "Command1"Height = 495Left = 1800TabIndex = 0Top = 1320Width = 1215EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click() n = 0DoIf n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Don = n + 1LoopPrint nEnd SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3090ClientLeft = 60ClientTop = 450ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3090ScaleWidth = 4680StartUpPosition = 3 ' 窗口缺省Begin mandButton Command2 Caption = " 方法2"Height = 495Left = 2880TabIndex = 1Top = 1320Width = 1215EndBegin mandButton Command1 Caption = " 方法1"Height = 495Left = 2880TabIndex = 0Top = 480Width = 1215End。
visual_Basic程序设计教程_课后习题答案及练习
第三章 VB基本语言
一、填空题
1、一般可以使用__________关键字声明常量。
2、______类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种
数据类型。
3、变量的声明分为两种方法：__________和____________。 4、在VB中，用___________________语句设定数组的下界，用_____________ 和__________________语句分别返回数组的上、下界。 5、在代码模块中加入Option Explicit的目的是 _____________________。 6、function aa (a1 as date,optional a2 as boolean) as single，写出optional 命令的作用__________________。 7、在VB中，我们用一个简单的______语句就能实现退出程序。 8、生成消息框的命令是____________，生成输入框的命令是 ____________。 9、通用对话框（commondialog）属activex控件，它可以显示多个标准 对话框，包括打开/另存为、字体、打印等对话框，若要显示所有文 件，则应设置其属性filter=____________，若要使它显示为打印对话 框，则应使用什么方法____________。 10、从字符串中任意位置截取字符的函数是__________。 11、语句For j = 3 To 20 Step 3 使循环体执行了______次。 12、对于正在使用的动态数组Arraya()，要增加一个单元，但不能破坏数组内的数据，则应
二、选择题
1、下面不是VB工作模式的是（ ） A．设计模式 B．运行模式 C．汇编模式 D．中断模式 2、可视化编程的最大优点是（ ） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（ ） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键 C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（ ） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（ ） A．可视化 B．面向对象 C．面向图形 D．事件驱动
vb模拟
【HNCE网上考试系统 v9.6】? 本套软件使用权属于：郑州大学考试课程:VB-程序设计-练习? 考试时间:90分钟? 考场:第一考场? 考试日期:剩余时间：89:55 保存交卷退出帮助本卷共有2道大题:一、单项选择题（50道小题，共50分）1、要求在程序运行时，一旦点击文本框使之获取焦点，就自动选中文本框内的所有文本，则需要编写事件过程______。
（1分）A、Text1_Change()B、Text1_GotFocus()C、Text1_KeyPress(KeyAscii?As?Integer)D、Text1_SetFocus()2、如果对文本框Text1设置了PasswordChar=“$”，且程序运行时向文本框中输入“abcd”，则文本框中显示的是______。
（1分）A、1个“$”B、4个“$”C、不显示内容D、“*”3、与传统的程序设计语言相比较，Visual?Basic最突出的特点是______。
（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持4、Cls方法可以清除窗体或图片框中的______。
（1分）A、在设计阶段使用Picture设置的背景位图B、在设计阶段放置的控件C、在运行阶段产生的图形和文字D、以上全部内容5、决定窗体标题栏显示内容的属性是______。
（1分）A、TextB、NameC、CaptionD、BackStyle6、以下不合法的常量是______。
（1分）A、10^2B、100C、100.0D、10E+017、若要使标签控件显示时，不覆盖其背景内容，应设置的属性是______。
（1分）A、ForecolorB、BackColorC、BackStyleD、BorderStyle8、已知x=2,?y=9,?z=－4，逻辑表达式x>y?OR?z>x?AND?NOT?z>y的值是______。
（1分）A、TrueB、-1C、0D、False9、设a=3，b=5，则以下表达式值为假的是______。
大学《Visual Basic程序设计》试题库及答案
单选题在数组的声明格式中，数组名后可以是( )。
收藏A.小括号()B.方括号[]C.尖括号<>D.花括号{}回答错误!正确答案： A下列语句中，必须使用字符串变量的语句是( )。
收藏A.Print #B.Write #C.Line Input #D.Input #回答错误!正确答案： C启动Visual Basic后, VB为用户建立的第一个窗体是()。
收藏A.窗体B.FormC.Form1D.窗体1回答错误!正确答案： C在使用Open语句打开文件时，若省略“For方式”，则打开的文件存取方式为收藏A.随机存取方式B.二进制方式C.顺序输出D.顺序输入回答错误!正确答案： A设a = "MicrosoftVisualBasic" ，则以下使变量b的值为"VisualBasic"的语句是( )。
收藏A.b = Mid(a, 10)B.b = Right(a, 10)C.b = Left(a, 10)D.b = Mid(a, 11, 10)回答错误!正确答案： A用Open语句打开一个随机文件时，若省略“Len＝记录长度”，则记录的长度为收藏A.64B.128C.1024D.256回答错误!正确答案： B打开菜单编辑器的热键为收藏A.Ctrl+EB.Alt+MC.Alt+ED.Ctrl+M回答错误!正确答案： A对于如下结构的循环：Do 循环体Loop Until 条件则下列正确的叙述是：。
收藏A.如果“条件”为常数-1，则至少执行二次循环体；B.如果“条件”为常数-1，则只执行一次循环体；C.如果“条件”为常数0，则一次循环体也不执行。
D.如果“条件”为常数0，则只执行一次循环体；回答错误!正确答案： B如果在定义一个过程时，没有使用任何限制的关键字，则定义的过程属于收藏A.PrivateB.StaticC.随机的D.Public回答错误!正确答案： D在Visual Basi6.0中，合法的字符串常量是( )。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
错误
《Visual Basic程序设计》第04章在线测试
《Visual Basic程序设计》第04章在线测试
剩余时间：
52:47
窗体顶端
答题须知：1、本卷满分20分。
2、答完题后，请一定要单击下面的“交卷”按钮交卷，否则无法记录本试卷的成绩。
3、在交卷之前，不要刷新本网页，否则你的答题结果将会被清空。
D、打印机、屏幕和剪贴板不是对象
第三题、判断题（每题1分，5道题共5分）
1、创建一个新的应用程序必须要建立一个新工程。
正确
错误
2、窗体窗口主要是设计应用程序的用户界面。
正确
错误
3、标准模块文件的扩展名是FRad语句。
正确
错误
5、运行程序时，双击窗体会发生“MouseDown”事件。
A、局部变量、窗体变量、全局变量
B、窗体变量、局部变量、全局变量
C、局部变量、全局变量、窗体变量
D、窗体变量、全局变量、局部变量
5、若定义了Sub Maxxy（x％，y％），下列正确的调用为
A、Maxxy 5，8
第一题、单项选择题（每题1分，5道题共5分）
1、下面关系运算中，输出结果为“True”的是 。
A、“1” + 2 ＝ “12”
B、“1”+ “2” ＝ “3”
C、“1” & 2 ＝“12”
D、“1” & “2”＝“3”
2、下列不合法的常量形式是
A、“100”
B、100.0
C、1OE+0.5
D、Const G ＝ 23 + 12
C、标题栏
D、工具栏
3、下列命令包括在“工程”菜单中的是
A、添加窗体
B、添加模块
C、添加类模块
D、添加工程
4、保存工程不正确的为
A、先保存窗体文件后保存工程文件
B、先保存工程文件后保存窗体文件
C、只保存工程文件
D、只保存窗体文件
5、下列正确的说法有
A、对象是一个实体
B、窗体和控件均为实体
C、对象具有事件
A、保存
B、双击
C、显示
D、选择
第二题、多项选择题（每题2分，5道题共10分）
1、下列关于Visual Basic的正确说法有
A、面向对象的程序设计语言
B、采用事件驱动的编程机制
C、面向过程的程序设计语言
D、可以对数据库进行操作
2、Visual Basic 6.0集成开发环境中具有
A、状态栏
B、菜单栏
D、While…Wend循环的循环体至少被执行一次。
5、对于如下结构的循环： Do 循环体 Loop Until 条件则下列正确的叙述是： 。
A、如果“条件”为常数0，则只执行一次循环体；
B、如果“条件”为常数-1，则至少执行二次循环体；
C、如果“条件”为常数-1，则只执行一次循环体；
D、如果“条件”为常数0，则一次循环体也不执行。
3、如果将布尔常量值True赋给一个整型变量，则整型变量的值为
A、O
B、-1
C、True
D、False
4、对于Visual Basic的循环语句，下列正确的说法是： 。
A、Do While…Loop循环的循环体至少被执行一次；
B、Do Until…Loop循环的循环体至少被执行一次；
C、Do…Loop Until循环的循环体至少被执行一次；
A、a
B、a(a)
C、a(a(2))
D、a[2]
3、对于过程Sub SSS（x,y,z），下列所有参数都以传址方式进行的调用为
A、Call SSS（3，5，z）
B、Call SSS（x+3，y+5，z）
C、Call SSS（x，y，z）
D、Call SSS（x+y，x－y，z）
4、下列关于变量作用域由小到大的正确顺序为
A、（xy+y）/(x-xy)
B、x*y+y/x-x*y
C、（x*y+y）/(x-x*y)
D、（x×y+y）/(x-x×y)
3、VB中结构化程序设计的语句结构为
A、顺序结构
B、选择结构
C、GOTO语句结构
D、循环结构
4、在“selecｔ Case *”语句中，“*”部分可以是下列的正确选择为
A、数值型表达式
B、1 To 10
C、2,4,6,8
D、字符串表达式
5、下列有关循环的叙述，正确的为
A、For循环中步长可以省略
B、循环嵌套时外循环必须完全包含内循环
C、循环的步长不能为0
D、几种循环语句之间可以互相替换
第三题、判断题（每题1分，5道题共5分）
1、运算符按顺序进行运算。
正确
错误
2、Chr$ （67）的值是“C”。
第一题、单项选择题（每题1分，5道题共5分）
1、启动Visual Basic后, VB为用户新建立的工程的名字是＿＿。
A、窗体1
B、工程1
C、窗体
D、工程
2、窗体文件的扩展名＿＿＿＿＿＿。
A、bas
B、vbp
C、exe
D、frm
3、有以下程序代码， Label1.Caption ＝ "12345" 其中Label1,Caption, "12345" 分别代表＿＿＿＿＿＿。
A、对象，方法和值
B、对象，属性和值
C、对象，属性和方法
D、方法，对象和值
4、有一命令控件在程序运行后，在窗体中出现的是灰色，是因为该控件的＿＿＿＿＿＿属性设置为False
A、Name
B、Visible
C、Enabled
D、Caption
5、对窗体中某一控件使用属性窗口设置属性，首先要先＿＿＿＿＿＿该控件。
2、答完题后，请一定要单击下面的“交卷”按钮交卷，否则无法记录本试卷的成绩。
3、在交卷之前，不要刷新本网页，否则你的答题结果将会被清空。
第一题、单项选择题（每题1分，5道题共5分）
1、用dim a(-10 to 10,5)定义的数组，元素个数是＿＿＿＿＿＿。
A、100
B、120
C、26
D、126
2、a为数组名，合法的数组元素是＿＿＿＿＿＿。
正确
错误
3、x＝y：y＝t：x＝t可以完成x和y的值交换。
正确
错误
4、If语句和For循环语句之间是不能互相嵌套的。
正确
错误
5、循环变量的值必须向着趋近于循环终值的方向变化。
正确
错误
窗体底端
《Visual Basic程序设计》第06章在线测试
剩余时间：
43:18
窗体顶端
答题须知：1、本卷满分20分。
第二题、多项选择题（每题2分，5道题共10分）
1、在下列逻辑表达式中，逻辑值为"假"的是
A、Not (1 ＞ 2)
B、Not (3 + 4 ＜ 4 + 6)
C、1 ＞ 2 Or 2 ＞ 3
D、2 ＞ 1 And 3 ＜ 2
2、Dim x％，y％，对于代数式（xy+y）/(x-xy)，下列不正确的表达式是