郑大远程课后测试 Visual Basic程序设计

合集下载

电大《Visual Basic程序设计》2019-2020期末题库及答案

电大《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年

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 程序设计课后习题参考答案

visual basic 程序设计课后习题参考答案
6
[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程序设计—试验报告册-参考答案

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程序设计教程_课后习题答案及练习

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模拟

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程序设计》试题库及答案

大学《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中,合法的字符串常量是( )。

郑州大学vb上机考试试题真题

郑州大学vb上机考试试题真题

一、单项选择题(50道小题,共50分)1、在Visual Basic中,系统为每个对象预先定义好了一系列的事件。

下列事件中,不属于VB系统提供的事件是( )。

(1分)A、Click()B、Change()C、MyFirst()D、DblClick()2、以下有关Visual Basic语言描述中,错误的是( )。

(1分)A、语句是一行一句,以回车键结束B、用“,”分隔一行中的多个语句D、一条语句放在多行中,则在前一行结束处C、变量名不区分大小写使用续行符“_”连接下一行3、下列叙述中,正确的是( )。

(1分)B、Visual Basic应用程序只能以解释方式A、事件可以由用户触发,也可以由系统触发执行C、保存Visual Basic程序时,只需保存窗D、所有控件都有DblClick事件体文件即可4、下列不属于VB三种模式的是( )模式。

(1分)A、设计B、运行C、代码D、中断5、( )是对象的一个基本要素,它描述了对象在程序中的外观特点。

(1分)A、事件B、属性C、方法D、事件程序6、对象能够识别的操作称为( )。

(1分)A、属性B、方法C、事件D、过程7、VB系统中供用户直接调用,使对象完成一定的操作或实现一定功能的特殊过程称为( )。

(1分)A、事件B、方法C、属性D、文件8、可以用来进行一些简单计算的窗口是( )。

(1分)A、属性窗口B、立即窗口C、工程窗口D、窗体布局窗口9、打开Visual Basic集成环境后,默认显示的工具栏是( )。

(1分)A、编辑工具栏B、标准工具栏C、调试工具栏D、窗体工具栏10、在Visual Basic的中断模式下,按下功能键F8,则( )。

(1分)A、执行中断时的下一个语句B、执行中断时的下一个模块C、退出Visual BasicD、结束当前的运行11、当程序中断修改后再运行时,VB进入( )模式。

(1分)A、设计B、运行C、中断D、编程12、在工具箱窗口关闭的情况下,如果要打开只需选择( )菜单的“工具箱命令”即可。

VB程序设计复习题及答案

VB程序设计复习题及答案

中南大学现代远程教育课程(专科)考试复习题及答案《VB程序设计与应用》一、选择题:在每小题给出的四个选项中,只有一项是符合题目要求的,请把所选项前的字母填在题后的括号内。

1. Visual Basic程序中分隔一行中各语句的字符是()。

[ ]A)‘B):C)\D)_2. 下列可作为Visual Basic的变量名的是()。

[ ]A: Filename B: A(A+B) C: A%D D : Print3. 要让菜单项无效,应将()属性值设置为False。

[ ]A. VisibleB. EnabledC. MoveableD. Checked4. 以下过程是()事件。

Prviate Sub Form_Load( )……End Sub [ ]A: 命令按钮的单击B: 命令按钮的装载C; 窗体的装载D: 窗体的单击5. Vb中描述文件扩展名的是()属性。

[ ]A: Drive B: PatternC: FileName D: Path6. 关于Visual Basic中事件的说法中,不正确的为()。

[ ]A)事件是由Visual Basic预先定义好的,能够被对象识别的动作B)DblClick(双击)是Visual Basic中的一种事件C)一个对象可以识别一个或多个事件D)对于一个系统提供的对象可以识别哪些事件,需要程序员自己定义7. 下列控件中可设置滚动条是()。

[ ]A. 检查框(复选框)B. 框架C. 文本框D. 标签框8. 在Visual Basic中建立一个空窗体,( )不会是其默认名。

[ ]A. Form1B. Form2C. FormxD. Form109. Const One&=1,则One为()类型的常数。

[ ]A)整型B)字节型C)长整型D)单精度型10. 关于逻辑型数据,下列说法错误的是()。

[ ]A. 逻辑型数据只有两种可能值:True或者FalseB. 当把逻辑值转换为数值时False转为0,True转为1C. 当把其他类型数据转换为逻辑数据时,非0数转换为True,0转换为FalseD. 逻辑型数据以2个字节存储11. 以下()不是Visual Basic的特点。

郑大远程课后测试VisualBasic程序设计

郑大远程课后测试VisualBasic程序设计

郑大远程课后测试VisualBasic程序设计第一题、单项选择题(每题1分,5道题共5分)1、启动Visual Basic后, VB为用户新建立的工程的名字是__。

A、窗体1B、工程1C、窗体D、工程2、窗体文件的扩展名______。

A、basB、vbpC、exeD、frm3、有以下程序代码,Label1.Caption ="12345" 其中Label1,Caption, "12345" 分别代表______。

A、对象,方法和值B、对象,属性和值C、对象,属性和方法D、方法,对象和值4、有一命令控件在程序运行后,在窗体中出现的是灰色,是因为该控件的______属性设置为FalseA、NameB、VisibleC、EnabledD、Caption5、对窗体中某一控件使用属性窗口设置属性,首先要先______该控件。

A、保存B、双击C、显示D、选择第二题、多项选择题(每题2分,5道题共10分)1、下列关于Visual Basic的正确说法有A、面向对象的程序设计语言B、采用事件驱动的编程机制C、面向过程的程序设计语言D、可以对数据库进行操作2、Visual Basic 6.0集成开发环境中具有A、状态栏B、菜单栏C、标题栏D、工具栏3、下列命令包括在“工程”菜单中的是A、添加窗体B、添加模块C、添加类模块D、添加工程4、保存工程不正确的为A、先保存窗体文件后保存工程文件B、先保存工程文件后保存窗体文件C、只保存工程文件D、只保存窗体文件5、下列正确的说法有A、对象是一个实体B、窗体和控件均为实体C、对象具有事件D、打印机、屏幕和剪贴板不是对象第三题、判断题(每题1分,5道题共5分)1、创建一个新的应用程序必须要建立一个新工程。

正确错误2、窗体窗口主要是设计应用程序的用户界面。

正确错误3、标准模块文件的扩展名是FRM。

正确错误4、卸载一个窗体需要使用Load语句。

《Visual_Basic程序设计》试题及其答案

《Visual_Basic程序设计》试题及其答案

《Visual_Basic程序设计》试题及其答案Visual_Basic程序设计试题及其答案Visual_Basic程序设计是一门与Windows操作系统密切相关的编程语言,广泛应用于图形用户界面(GUI)的开发。

下面是一套Visual_Basic程序设计的试题,以及详细的答案解析。

一、概念题(共10题,每题2分,共20分)1. 什么是Visual_Basic程序设计?答案:Visual_Basic程序设计是一种基于BASIC语言的集成开发环境(IDE),用于Windows平台的程序开发和编程。

2. Visual_Basic程序设计的特点是什么?答案:Visual_Basic具有简单易学、图形化编程界面、可视化设计、事件驱动等特点。

3. 什么是控件?答案:控件是Visual_Basic程序设计中用于构建用户界面的基本元素,如按钮、文本框、标签等。

4. Visual_Basic程序中的数据类型有哪些?答案:Visual_Basic支持多种数据类型,包括整数、浮点数、字符串、布尔值等。

5. 什么是条件结构?答案:条件结构是一种根据不同条件执行不同操作的程序结构,如If语句和Select Case语句。

6. 什么是循环结构?答案:循环结构是一种重复执行特定操作的程序结构,如For循环和While循环。

7. 什么是函数?答案:函数是一段可重复调用的代码,通常用于实现特定功能,并可以返回结果。

8. 如何定义和调用函数?答案:在Visual_Basic中,可以使用Function关键字定义函数,并使用函数名调用函数。

9. 什么是异常处理?答案:异常处理是一种处理程序运行过程中可能出现的错误或异常情况的机制,以保证程序的稳定性。

10. Visual_Basic程序如何进行调试?答案:Visual_Basic提供了丰富的调试工具,包括断点调试、单步调试等,以帮助程序员发现和解决问题。

二、编程题(共2题,每题40分,共80分)题目一:设计一个Visual_Basic程序,实现计算器的基本功能。

郑州大学 vb考试题加答案

郑州大学 vb考试题加答案

一、单项选择题(50道小题,共50分)1、Visual Basic程序中的注释所使用的字符是( A )。

(1分)A、'B、:C、\D、_2、下列选项中,不属于VB特点的选项是( C )。

(1分)A、可视化程序设计B、面向对象C、窗口中包含有菜单栏和工具栏D、事件驱动下的编程机制3、下列关于Visual Basic的叙述不正确的是( A )。

(1分)A、变量名区分字母大、小写B、不能用系统保留字声明为变量名C、允许在一行中书写多条语句,但要用冒号隔开D、允许一条语句分成若干行书写,但要在上一行末加上空格及下划线作为续行标志4、有程序代码如下:Text1.Text = "郑州大学",则Text1、Text 、"郑州大学"分别代表( C )。

(1分)A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值5、下列叙述中,正确的是( D )。

(1分)A、VB的事件由用户定义B、VB程序以顺序方式执行C、每一个VB程序都是从Main()函数开始执行D、VB运行时,系统等待事件的发生,事件的执行顺序与书写顺序无关6、下列叙述错误的是( A )。

(1分)A、不允许使用行号与标号B、单条语句可分行书写C、同一行上可以书写多条语句D、VB代码不区分字母的大小写7、VB程序中,通常不会产生错误提示的是( D )。

(1分)A、编译错误B、实时错误C、运行时错误D、逻辑错误8、启动Visual Basic后,系统为用户新建的工程起一个名为( A )的临时名称。

(1分)A、工程1B、窗体1C、工程D、窗体9、在工具栏中有一个“启动”按钮,这个按钮的作用是( A )。

(1分)A、运行一个应用程序B、运行一个窗体C、打开被选中对象的属性窗口D、打开被选中对象的代码窗口10、当程序中断修改后再运行时,VB进入( B )模式。

(1分)A、设计B、运行C、中断D、编程11、在VB程序中,逐语句调试的操作键是( A )。

VisualBasic程序设计(第2次考试)带答案(可打印修改)

VisualBasic程序设计(第2次考试)带答案(可打印修改)

B、Listl.AddItem “hello”,Listl.ListCount-1
C、Listl.AddItem “hello”,5
D、Listl.AddItem “hello”,Listl.ListCount
29、使用 Windows XP 保存一新建的工程,其默认的路径是______。(2分)
A、VB
B、复选框内有灰色的勾 D、复选框操作有错误
11、可以用来清除数组内容或对数组重新定义的语句是(2分)
A、Unload
B、Free
C、E件中,记录长度为 L,则第 n 个记录与第1个记录的相对地址为(2分)
A、(n-1)×L
B、n-L
C、(n+1)×L
D、n+L
13、能将文件“aa.dat”改名为“bb.txt”的代码为(2分)
2、编写程序,用普通迭代法求方程 f(x)=x+lgx-2.5=0的近似实根 r, 迭代初值为1.5,精确到0.0001。〔提示:必须把方程 f(x)=0化成 其等价形式 x=g(x)〕。(允许使用其他迭代法)
(10分) 请将你解答本题所写的源程序粘贴到下面 Private Sub Form_Load() Me.AutoRedraw = True Dim x# x = 1.5 Do Until Abs(f(x)) < 0.0001 x = x - f(x) / df(x) Loop Print Format(x, ″0.0000″) Print Format(f(x), ″0.0000″) End Sub
8、在通用对话框中,打开“颜色对话框”的方法是(2分)
A、ShowColor
B、ShowOpen
C、ShowFont
D、ShowSave

2019-2020年电大考试《VisualBasic程序设计》形考册答案及答案

2019-2020年电大考试《VisualBasic程序设计》形考册答案及答案

Visual Basic程序设计_一、单项选择题(共10 道试题,共40 分。

)1. 一个VB应用程序可以包含几个vbp文件?()A. 1个B. 可以没有C. 2个D. 可以包含多个2. 下列()对象在运行时一定是不可见的。

A. LineB. TimerC. ShapeD. Frame3. 如果Winsock1.LocalPort=0,那么应用程序将使用()。

A. 注册端口B. 公认端口C. 常用端口D. 随机端口4. 如果要在文本框中键入字符时,只显示某个字符,如星号(*),应设置文本框的()属性。

A. CaptionB. PasswordCharC. TextD. Char5. 要使图片框自动地与窗体右对齐,应该设置它的()属性。

A. AlignB. AutoSizeC. LeftD. Width6. 要在窗体的标题栏中显示“我的第一个应用程序”,使用的语句是()。

A. Form1.Print"我的第一个应用程序"B. Form.Print"我的第一个应用程序"C. Form.caption="我的第一个应用程序"D. Form1.caption="我的第一个应用程序"7. 表达式7+10 Mod 3*2+2()。

A. 1B. 7C. 6D. 138. 在VB程序的以下几种错误中,最具隐藏性和破坏性的是()。

A. 运行时错误B. 编译错误C. 逻辑错误D. 实时错误9. 按照变量的作用域可将变量划分为()。

A. 公有、私有、系统B. 动态、常数、静态C. 全局变量、模块级变量、过程级变量D. Public、 Private、 Protected10. 无论何种控件,共同具有的属性是()。

A. TextB. NameC. CaptionD. ForeColor二、判断题(共10 道试题,共40 分。

)1. 通过VB编译生成的文件具有“.exe”文件扩展名,该文件只能在VB环境下执行。

郑州大学VB考试模拟试题

郑州大学VB考试模拟试题

第一套试题【HNCE 网上考试系统 v9.6】考试课程: 考试时间:100分钟 考场:第一考场 考试日期:考号:*********** 姓名:***剩余时间: 67:43保存交卷退出帮助A B C D A B C D A 行B 窗体文件CD 工程文件(A Private Sub Command1_Click(): Command1.Caption = "B 考试": End Sub C Private Sub Text1_Change(): Command1.Caption = "D 计算机考试A BC D A B C D A B C D A B C D A B C D A B C D A B C D A B C DA BC DA BCD 令A BC DA BC DA BC DAB 然后按回车键C DA BC DA B C D A B C D A B C D A B C D A B C D A B C D A B C DA B C D A B C D A B C D A B C D A B C D A B C D A B C D A BC D A B C D A B C D A B C D A B C D A B C D A B C D考号:姓名:剩余时间:保存交卷退出帮助强烈建议您使用IE5.0以上,屏幕分辨率800X600以上,真彩,小字体浏览第二套试题【HNCE网上考试系统 v9.6】考试课程:考试时间:100分钟考场:第一考场考试日期: 考号:***********姓名:*** 剩余时间:67:43 保存交卷退出帮助A BC DA BC DA BC DA BC DA BC DA BC DA B C D A B C D A B C D A B C DAPrivate Sub Command1_Click(): Command1.Caption = "B考试": End SubCPrivate Sub Text1_Change(): Command1.Caption = "D计算机考试A B C DA BCD 择A BC DA BC DA BC DA BC DA BC DA BC DA B C D A B C D A B C D A B C D A B C D A B C D A B C D A BC D A B C D A B C D A B C D A B C D A B C D A B C D A BC D A B C D A B C D A B C D A B C D A B C D A B C D考号:***********姓名:剩余时间:99:51 保存交卷退出帮助强烈建议您使用IE5.0以上,屏幕分辨率800X600以上,真彩,小字体浏览第三套试题【HNCE网上考试系统 v9.6】考试课程: 考试时间:100分钟考场:第一考场考试日期:考号:***********姓名:剩余时间:99:51 保存交卷退出帮助本卷共有3道大题:A BC DA BC DA BC DA BC DA BC DA BCD 择A BC DA BC DA BC DA BCD 令A BC DA BC DA BC DA BC DA B C D A B C DAPrivate Sub Command1_Click(): Command1.Caption = "B考试": End SubCPrivate Sub Text1_Change(): Command1.Caption = "D计算机考试AB型CD确定对话框中显示的按钮数A BC DA BC DA BC D A B C D A B C D A B C D A B C D A B C D A B C D A B C DA B C D A B C D A B C D A B C D A B C D A B C D A B C D A BC DA B C D A B C D A B C D A B C D考号:***********姓名:剩余时间:99:51 保存交卷退出帮助强烈建议您使用IE5.0以上,屏幕分辨率800X600以上,真彩,小字体浏览A BC DA BC DA BC工程文件位于同一文件夹D A中的类只能是由系统设计好的B计。

国开作业Visual Basic程序设计-边学边练91参考(含答案)

国开作业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文件列表框能同步协调工作,需要在()。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

第一题、单项选择题(每题1分,5道题共5分)1、启动Visual Basic后, VB为用户新建立的工程的名字是__。

A、窗体1B、工程1C、窗体D、工程2、窗体文件的扩展名______。

A、basB、vbpC、exeD、frm3、有以下程序代码, Label1.Caption = "12345" 其中Label1,Caption, "12345" 分别代表______。

A、对象,方法和值B、对象,属性和值C、对象,属性和方法D、方法,对象和值4、有一命令控件在程序运行后,在窗体中出现的是灰色,是因为该控件的______属性设置为FalseA、NameB、VisibleC、EnabledD、Caption5、对窗体中某一控件使用属性窗口设置属性,首先要先______该控件。

A、保存B、双击C、显示D、选择第二题、多项选择题(每题2分,5道题共10分)1、下列关于Visual Basic的正确说法有A、面向对象的程序设计语言B、采用事件驱动的编程机制C、面向过程的程序设计语言D、可以对数据库进行操作2、Visual Basic 6.0集成开发环境中具有A、状态栏B、菜单栏C、标题栏D、工具栏3、下列命令包括在“工程”菜单中的是A、添加窗体B、添加模块C、添加类模块D、添加工程4、保存工程不正确的为A、先保存窗体文件后保存工程文件B、先保存工程文件后保存窗体文件C、只保存工程文件D、只保存窗体文件5、下列正确的说法有A、对象是一个实体B、窗体和控件均为实体C、对象具有事件D、打印机、屏幕和剪贴板不是对象第三题、判断题(每题1分,5道题共5分)1、创建一个新的应用程序必须要建立一个新工程。

正确错误2、窗体窗口主要是设计应用程序的用户界面。

正确错误3、标准模块文件的扩展名是FRM。

正确错误4、卸载一个窗体需要使用Load语句。

正确错误、运行程序时,双击窗体会发生“”事件。

正确错误《Visual Basic程序设计》第04章在线测试A BC D、下列不合法的常量形式是A BC D、如果将布尔常量值A BC DVisual BasicA循环的循环体至少被执行一次;BC循环的循环体至少被执行一次;D、对于如下结构的循环:条件则下列正确的叙述是:A,则只执行一次循环体;BC,则只执行一次循环体;DA、Not (1 > 2)B、Not (3 + 4 < 4 + 6)C、1 > 2 Or 2 > 3D、2 > 1 And 3 < 22、Dim x%,y%,对于代数式(xy+y)/(x-xy),下列不正确的表达式是A、(xy+y)/(x-xy)B、x*y+y/x-x*yC、(x*y+y)/(x-x*y)D、(x×y+y)/(x-x×y)3、VB中结构化程序设计的语句结构为A、顺序结构B、选择结构C、GOTO语句结构D、循环结构4、在“select Case *”语句中,“*”部分可以是下列的正确选择为A、数值型表达式B、1 To 10C、2,4,6,8D、字符串表达式5、下列有关循环的叙述,正确的为A、For循环中步长可以省略B、循环嵌套时外循环必须完全包含内循环C、循环的步长不能为0D、几种循环语句之间可以互相替换正确错误)的值是“正确错误t:x=正确错误For循环语句之间是不能互相嵌套的。

正确错误、循环变量的值必须向着趋近于循环终值的方向变化。

正确错误A BC D为数组名,合法的数组元素是______。

A BC DSub SSS),下列所有参数都以传址方式进行的调用为A BC D4、下列关于变量作用域由小到大的正确顺序为A、局部变量、窗体变量、全局变量B、窗体变量、局部变量、全局变量C、局部变量、全局变量、窗体变量D、窗体变量、全局变量、局部变量5、若定义了Sub Maxxy(x%,y%),下列正确的调用为A、Maxxy 5,8B、Maxxy “58”,20C、Call Maxxy 5,8D、Call Maxxy(5,8,20)第二题、多项选择题(每题2分,5道题共10分)1、下列不正确的程序段是______。

A、Dim a() as variant:a = Array(1, 2, 3, 4, 5, 6, 7)B、Dim a(1 to 6): a = Array(1,2,3,4,5,6)C、Dim a( ) as integer :a ()= Array(1, 2, 3, 4, 5, 6, 7)D、Dim a : a ()= Array(1, 2, 3, 4, 5, 6, 7)2、设有语句定义 Dim a(3)As integer,则下列正确的语句为A、a(1)=100B、a(2)=Val(InputBox “请输入一个整数”)C、a(0)=a(3)D、a(3)=Array(0,1,2,3)3、下列过程中,能脱离窗体或控件而存在的是A、子过程B、事件过程C、函数过程D、通用过程4、下列正确的说法为A、形参是定义函数或过程时的参数。

B、实参是调用函数或过程时的参数。

C、过程调用时形参把值或地址传送给实参。

D、数组也可以整体作为参数,但只能使用传地址的方式。

5、对于变量来说,下面正确的叙述为A、局部变量可以在过程内声明B、窗体/模块级变量和全局变量在“通用声明”段进行声明C、局部变量可以在“通用声明”段使用Private进行声明D、全局变量可以在“通用声明”段使用Public进行声明第三题、判断题(每题1分,5道题共5分)1、数组可以是动态数组。

正确错误2、动态数组在声明时可以省略数组的大小。

正确错误3、控件数组只能在设计时建立。

正确错误4、不同级的同名变量,系统优先访问作用域小的变量。

正确错误5、静态变量具有局部变量的作用域,全局变量的生存期。

正确错误《Visual Basic程序设计》第08章在线测试A、KeyPress、KeyDown、KeyUpB、KeyDown、KeyUp、KeyPressC、KeyDown、KeyPress、KeyUpD、没有规律2、Timer控件决定该控件是否对时间的推移做响应的属性是A、EnabledB、VisibleC、TimeD、Capable3、菜单能够响应的事件为A、ClickB、DblClickC、MouseUpD、MouseDown4、根据文件的存取方式和结构,下列正确的分类为A、文本文件和随机文件B、顺序文件和二进制文件C、顺序文件和随机文件D、ASCII文件和二进制文件5、在随机文件中,记录长度为L,则第n个记录与第1个记录的相对地址为A、(n-1)×LB、n-LC、(n+1)×LD、n+L第二题、多项选择题(每题2分,5道题共10分)1、下面关于拖放和OLE拖放的叙述中,不正确的是A、只要对控件的属性进行适当的设置,就能将控件从一个地方移动到另一个地方B、文本框、图片框和列表框完全支持自动OLE拖放。

C、当OLEdropMode属性为1时,控件自动实现OLE“放”操作D、当控件的DragMode 设置为1时,它不能够接收Click和MouseDown事件2、下列对象可以用作容器使用的是A、窗体B、框架C、图片框D、图像框3、打开顺序文件的模式有A、EditB、OutputC、AppendD、Input4、下列正确的文件访问模式为A、BinaryB、InputC、RandomD、Append5、下列关于文件说法正确的是A、随机文件中每个记录的长度是相同的B、数据文件一般通过程序来进行管理和存取C、顺序文件组织简单,维护困难D、随机文件的每一个记录都有一个记录号第三题、判断题(每题1分,5道题共5分)1、控件TypeOf的属性决定控件被拖动时显示的图标。

正确错误2、Visual Basic的三种主要模块是标准模块、窗体模块和类模块。

正确错误3、多文档界面是一个应用程序中包含多个窗体。

正确错误4、文件是只能存储在内存中的、用文件名标识的数据的集合。

正确错误5、文件名可以是字符串常量,也可以是字符变量。

正确错误A BC D 、表是有关信息的逻辑组,下列有关表的正确说法为:A BC行和列由表在数据库文件中的物理存储方式决定。

D 、下列关于复杂数据绑定说法中正确的为:A、复杂数据绑定允许将多个数据字段绑定到一个控件,同时显示记录源中的单行或单列。

B件,同时显示记录源中的多列。

C、复杂数据绑定允许将多个数据字段绑定到一个控件,同时显示记录源中的多行。

D件,同时显示记录源中的多行或多列。

A BC D 、关于关系型数据库,正确的描述为:A BC DB、坐标度量单位C、坐标轴的长度与方向。

D、窗体相对位置2、在VB中绘制图形,属于其过程步骤的是:A、先定义图形载体窗体对象或图形框对象的坐标系。

B、设置线宽,线型、色彩等属性。

C、指定画笔的起终点位置。

D、调用绘图方法绘制图形。

3、下列属于VB绘图方法的为:A、CubeB、LineC、CircleD、Pset4、VB采用ADO(ActiveX Data Objects)数据访问技术,编写程序时需要完成以下哪些工作?A、在窗体上添加ADO数据控件B、使用ADO连接对象建立与数据提供者之间的连接C、使用ADO命令对象操作数据源,从数据源中产生记录集并存放在内存中D、建立记录集与数据绑定控件的关联,在窗体上显示数据。

5、Visual Basic支持多种类型的数据库,下列属于VB支持的有:A、Access数据库B、FoxPro数据库C、Microsoft ExcelD、SQL ServerE、Oracle正确错误select语句来说,正确错误、数据绑定就是在运行时自动为与记录集中的元素关联的控件设置属性。

正确错误te方法当前记录立即删除,不加任何的警告或者提示。

正确错误、简单数据绑定就是将控件绑定到单个数据字段。

正确错误。

相关文档
最新文档