首页 VB习题库

VB习题库

举报
开通vip

VB习题库一、选择题 一、选择题 (1)以下关于Visual Basic特点的叙述中,错误的是(C)。 A)Visual Basic是采用事件驱动编程机制的语言 B)Visual Basic程序既可以编译运行,也可以解释运行 C)构成Visual Basic程序的多个过程没有固定的执行顺序 D)Visual Basic程序不是结构化程序,不具备结构化程序的三种基本结构 (2)为了消除窗体上的一个控件,下列正确的操作是(C)。 A)按回车键 B)按Esc键 C)选择(单击)要清除的控件,然后按Del键 D)选择(单击)要清除的...

VB习题库
一、选择题 一、选择题 (1)以下关于Visual Basic特点的叙述中,错误的是(C)。 A)Visual Basic是采用事件驱动编程机制的语言 B)Visual Basic程序既可以编译运行,也可以解释运行 C)构成Visual Basic程序的多个过程没有固定的执行顺序 D)Visual Basic程序不是结构化程序,不具备结构化程序的三种基本结构 (2)为了消除窗体上的一个控件,下列正确的操作是(C)。 A)按回车键 B)按Esc键 C)选择(单击)要清除的控件,然后按Del键 D)选择(单击)要清除的控件,然后按回车键 (3)以下叙述中错误的是(C)。 A)打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件 B)当程序运行时,双击一个窗体,则触发该窗体的DblClick事件 C)Visual Basic应用程序只能以解释方式执行 D)事件可以由用户引发,也可以由系统引发 (4)以下叙述中,错误的是()。 A)在Visual Basic中,对象所能响应的事件是由系统定义的 B)对象的任何属性既可以通过属性窗口设定,也可以通过程序语句设定 C)Visual Basic中允许不同对象使用相同名称的方法 D)Visual Basic中的对象具有自己的属性和方法 (5)以下叙述中正确的是()。 A)窗体的Name属性指定窗体的名称,用来标识一个窗体 B)窗体的Name属性值是显示在窗体标题栏中的文本 C)可以在运行期间改变窗体的Name属性的值 D)窗体的Name属性值可以为空 (6)以下关于文件的叙述中,错误的是()。 A)顺序文件中的记录一个接一个地顺序存放 B)随机文件中记录长度是随机的 C)执行打开文件的命令后,自动生成一个文件指针 D)LOF函数返回给文件分配的字节数 (7)以下叙述中错误的是()。 A)Visual Basic是事件驱动型可视化编程工具 B)Visual Basic应用程序不具有明显的开始和结束语句 C)Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性 D)Visual Basic中控件的某些属性只能在运行时设置 (8)以下叙述中错误的是()。 A)双击鼠标可以触发DblClick事件 B)窗体或控件的事件的名称可以由编程人员确定 C)移动鼠标时,会触发MouseMove事件 D)控件的名称可以由编程人员设定 (9)在设计窗体时双击窗体的任何地方,可以打开的窗口是( )。 A)代码窗口 B)属性窗口 C)工程资源管理器窗口 D)工具箱窗口 (10)在程序运行时,下列叙述中正确的是( )。 A)用鼠标右键单击窗体中无控件的部分,会执行窗体的Form_Load事件过程 B)用鼠标左键单击窗体的标题栏,会执行窗体的Form_Click事件过程 C)只装入而不显示窗体,也会执行窗体的Form_Load事件过程 D)装入窗体后,每次显示该窗体时,都会执行窗体的Form_Click事件过程 (11)以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是(C)。 A)Form1.Name="VisualBasic窗体" B)Form1.Title="VisualBasic窗体" C)Form1.Caption="VisualBasic窗体" D)Form1.Text="VisualBasic窗体" (12)以下叙述中错误的是()。 A)事件过程是响应特定事件的一段程序 B)不同的对象可以具有相同名称的方法 C)对象的方法是执行指定操作的过程 D)对象事件的名称可以由编程者指定 (13)设a=2,b=3,c=4,d=5,下列表达式的值是(D)。 Not a<=c Or 4*c=b^2 And b<>a+c A)-1 B)1 C)True D)False (14)设a=5,b=10,则执行c=Int((b-a)*Rnd+a)+1后,c值的范围为()。 A)5~lO B)6~9 C)6~10 D)5~9 (15)设有如下语句: Dim a,b As Integer c="VisualBasic" d=#7/20/2005# 以下关于这段代码的叙述中,错误的是(C)。 A)a被定义为Integer类型变量 B)b被定义为Integer类型变量 C)c中的数据是字符串 D)d中的数据是日期类型 (16)设a=4,b=3,c=2,d=1,下列表达式的值是()。 a>b+1 Or cb>c后,窗体上显示的是(A)。 A)True B)False C)1 D)出错信息 (22)若变量a未事先定义而直接使用(例如:a=O),则变量a的类型是( A )。 A)Integer B)String C)Boolean D)Variant (23)为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为( C )。 A)Dim pi As Integer B)Dim pi(7) As Integer C)Dim pi As Single D)Dim pi As Long (24)表达式2*3^2+4*2/2+3^2的值是( B )。 A)30 B)31 C)49 D)48 (25)设a=4,b=5,c=6,执行语句Print a"XYz" B)"VisualBasic"<>"visualbasic" C)"the"="there" D)"Integer"<"Int" (28)下列变量名中合法的是( )。 A)x2-1 B)print C)str_n D)2x (29)把数学表达式 表示为正确的Visual Basic表达式应该是( D )。 A)(5x+3)/(2y-6) B)x*5+3/2*y-6 C)(5*x+3)÷(2*y-6) D)(x*5+3)/(y*2-6) (30)可以产生30~50(含30和50)之间的随机整数的表达式是( )。 A)Int(Rnd*21+30) B)Int(Rnd*20+30) C)Int(Rnd*50-Rnd*30) D)Int(Rnd*30+5) (31)以下合法的Visual Basic标识符是()。 A)ForLoop B)Const C)9abc D)a#x (32)表达式5 Mod 3+3\5*2的值是()。 A)0 B)2 C)4 D)6 (33)设x=4,y=8,z=7,以下表达式的值是()。 xz) Or z2*b Or a=c And b<>c Or c>d A)1 B)True C)False D)2 (35) 执行语句Open "Tel.dat" For Random As #1 Len=50后,对文件Tel.dat中的数据能执行的操作是()。 A)只能写,不能读 B)只能读,不能写 C)既可以读,也可以写 D)不能读,不能写 (36)以下能判断是否到达文件尾的函数是()。 A)BOF B)LOC C)LOF D)EOF (37)在窗体上有一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 是()。 A)108 B)18 C)810 D)出错 (38)设x=4,y=6,则以下不能在窗体上显示出“A=10”的语句是()。 A)Print A=x+y B)Print "A=";x+y C)Print "A="+Str(x+y) D)Print "A=" & x+y (39)假定有如下的命令按钮(名称为Command1)事件过程: Private Sub Command1_Click() x=InputBox("输入:","输人整数") MsgBox "输入的数据是:",,"输入数据:"+x End Sub 程序运行后,单击命令按钮,如果从键盘上输入整数10,则以下叙述中错误的是()。 A)x的值是数值10 B)输人对话框的标题是“输入整数” C)信息框的标题是“输人数据:10” D)信息框中显示的是“输入的数据是:” (40)执行下列语句: strlnput=InputBox("请输入字符串","字符串对话框","字符串") 将显示输入对话框。此时如果直接单击“确定”按钮,则变量strInput的内容是( )。 A)"请输入字符串" B)"字符串对话框" C)"字符串" D)空字符串 (41)下列叙述中正确的是( )。 A)MsgBox语句的返回值是一个整数 B)执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作 C)MsgBox语句的第一个参数不能省略 D)如果省略MsgBox语句的第三个参数(Title),则信息框的标题为空 (42)以下关于MsgBox的叙述中,错误的是()。 A)MsgBox函数返回一个整数 B)通过MsgBox函数可以设置信息框中图标和按钮的类型 C)MsgBox语句没有返回值 D)MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数量 (43)下面关于文件的叙述中错误的是()。 A)随机文件中各条记录的长度是相同的 B)打开随机文件时采用的文件存取方式应该是Random C)向随机文件中写数据应使用语句Print #文件号 D)打开随机文件与打开顺文件一样,都使用Open语句 (44)窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 程序运行时,单击命令按钮,就可把文本框中的内容写到文件out.txt中,每次写入的内容附加到文件原有内容之后。下面能够正确实现上述功能的程序是() 。 A)Private Sub Command1_Click() Open "out.txt" For Input As #1 Print #1,Text1.Text Close #1 End Sub B)Private Sub Command1_Click() Open "out.txt" For Output As #1 Print #1,Text1.Text Close #1 End Sub C)Private Sub Command1_Click() Open "out.txt" For Append As #1 Print #1,Text1.Text Close #l End Sub D)Private Sub Command1_Click() Open "out.txt" For Random As #1 Print #1,Text1.Text Close #1 End Sub (45)在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Commandl,然后编写如下事件过程: Private Sub Form_Load() List1.AddItem "Item 1" Listl.AddItem "Item 2" Listl.AddItem "Item 3" End Sub Private Sub Commandl_Click() List1.List(List1.Listcount)= "AAAA" End Sub 程序运行后,单击命令按钮,其结果为()。 A)把字符串“AAAA”添加到列表框中,但位置不能确定 B)把字符串“AAAA”添加到列表框的最后(即“Item 3”的后面) C)把列表框中原有的最后一项改为“AAAA” D)把字符串“AAAA"插入到列表框的最前面(即“Item 1”的前面) (46)为了使列表框中的项目呈多列显示,需要设置的属性为()。 A)Columns B)Style C)List D)MultiSelect (47)在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是()。 A)Private Sub Text1_Click() Label1.Caption=Text1.Text End Sub B)Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub C)Private Sub Label1_Change() Label1.Caption=Text1.Text End Sub D)Private Sub Label1_Click() Label1.Caption=Text1.Text End Sub (48)在窗体上画一个名称为List1的列表框,一个名称为Label1的标签,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名从列表框中消失,并在标签中显示出来。下列能正确实现上述操作的程序是()。 A)Pivate Sub List1_Click() Label1.Caption=List1.ListIndex List1.RemoveItem List1.Text End Sub B)Prirate Sub List1_Click() Label1.Name=List1.ListIndex List1.RemoveItem List1.Text End Sub C)Private Sub List1_Click() Label1.Caption=List1.Text List1.RemoveItem List1.ListIndex End Sub D)Private Sub List1_Click() Label1.Name=List1.Text List1.RemoveItem List1.ListIndex End Sub (49)设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是()。 A)窗体的Click事件过程的过程名是Myform_Click B)命令按钮的Click事件过程的过程名是C1_Click C)命令按钮的Click事件过程的过程名是Command1_Click D)上述3种过程名称都是错误的 (50)设窗体上有1个滚动条,要求单击滚动条右端的 按钮一次,滚动块移动一定的刻度值,决定此刻度值的属性是() A)Max B)Min C)SmallChange D)LargeChange (51)若设置了文本框的属性PasswordChar="$",则运行程序时向文本框中输入8个任意字符后,文本框中显示的是()。 A)8个"$" B)1个"$" C)8个"*" D)无任何内容 (52)设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是()。 A)Combo1.RemoveItem Combo1.Text B)Combo1.RemoveItem 4 C)Combo1.RemoveItem Combo1.ListCount D)Combo1.RemoveItem 5 (53)工程中有2个窗体,名称分别为Form1、Form2,Form1为启动窗体,该窗体上有命令按钮Command1。要求程序运行后单击该命令按钮时显示Form2,则按钮的Click事件过程应该是()。 A)Private Sub Command1_Click() Form2.Show End Sub B)Private Sub Command1_Click() Form2.Visible End Sub C)Private Sub Command1_Click() Load Form2 End Sub D)Private Sub Command1_Click() Form2.Load End Sub (54)在窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮,要求在程序执行时,每单击命令按钮一次,文本框向右移动一定距离。下面能够正确实现上述功能的程序是() A)Private Sub Command1_Click() Text1.Left=100 End Sub B)Private Sub Command1_Click() Text1.Left=Text1.Left-100 End Sub C)Private Sub Command1_Click() Text1.Move Text1.Left+100 End Sub D)Private Sub Command1_Click() Text1.Move Text1.Left End Sub (55)以下叙述中错误的是()。 A)顺序文件中的数据只能按顺序读写 B)对同一个文件,可以用不同的方式和不同的文件号打开 C)执行Close语句,可将文件缓冲区中的数据写到文件中 D)随机文件中各记录的长度是随机的 (56)要使一个文本框可以显示多行文本,应设置为True的属性是()。 A)Enabled B)MultiLine C)MaxLenth D)Width (57)在窗体上有一个名为Text1的文本框。当光标在文本框中时,如果按下字母“A”,则可被调用的事件过程是()。 A)Form_KeyPress() B)Text1_LostFocus() C)Text1_C1ick() D)Text1_Change() (58)设在窗体上有一个名称为Command1的命令按扭和一个名称为Text1的文本框。要求单击Command1按钮时可把光标移到文本框中。下面正确的事件过程是()。 A)Private Sub Command1_Click() Text1.GotFocus End Sub B)Private Sub Command1_Click() Command1.GotFocus End Sub C)Private Sub Command1_Click() Text1.SetFocus End Sub D)Private Sub Command1_Click() Command1.SetFocus End Sub (59)设在窗体Form1上有一个列表框List1,其中有若干个项目。要求单击列表框中某一项时,把该项显示在窗体上,正确的事件过程是()。 A)Private Sub List1_Click() Print List1.Text End Sub B)Private Sub Form1_Click() Print List1.Text End Sub C)Private Sub List1_Click() Print Form1.Text End Sub D)Private Sub Form1_Click() List1.Print List1.Text End Sub (70)若窗体上的图片框中有一个命令按钮,则此按钮的Left属性是指()。 A)按钮左端到窗体左端的距离 B)按钮左端到图片框左端的距离 C)按钮中心点到窗体左端的距离 D)按钮中心点到图片框左端的距离 (71)在窗体上有如右图所示的控件,各控件的名称与其标题相同,并有如下程序: Private Sub Form_Load() Command2.Enabled=False: Check1.Value=1 End Sub 刚运行程序时,看到的窗体外观是(A)。 (72)设在窗体中有一个名称为List1的列表框,其中有若干个项目(如图)。要求选中某一项后单击Command1按钮,就删除选中的项,则正确的事件过程是()。 A)Private Sub Command1_Click() List1.Clear End Sub B)Private Sub Command1_Click() List1.Clear List1.ListIndex End Sub C)Private Sub Command1_Click() List1.RemoveItem List1.ListIndex End Sub D)Private Sub Command1_Click() List1.RemoveItem End Sub (73)某人在窗体上画了一个名称为Timerl的计时器和一个名称为Label1的标签,计时器的属性设置为Enabled=True,Interval=O,并编程如下。希望在程序运行时,可以每2秒在标签上显示一次系统当前时间。 Private Sub Timerl_Timer() Label1.Caption=Time$ End Sub 在程序执行时发现未能实现上述目的,那么,他应做的修改是()。 A)通过属性窗口把计时器的Interval属性设置为2000 B)通过属性窗口把计时器的Enabled属性设置为False C)把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$ D)把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time (74)设窗体上有一个图片框Picture1,要在程序运行期间装入当前文件夹下的图形文件File1.jpg,能实现此功能的语句是()。 A)Picture1.Picture= "File1.jpg " B)Picture1.Picture=LoadPicture("File1.jpg ") C)LoadPicture("File1.jpg ") D)Call LoadPicture("File1.jpg ") (75)设窗体上有一个列表框控件List1,且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是()。 A)List1.List B)List1.ListIndex C)List1.Index D)List1.Text (76)如果要改变窗体的标题,则需要设置的属性是()。 A)Caption B)Name C)BackColor D)BorderStyle (77)设组合框Combo1中有3个项目,则以下能删除最后一项的语句是()。 A)Combo1.RemoveItem Text B)Combo1.RemoveItem 2 C)Combo1.RemoveItem 3 D)Combo1.RemoveItem Combo1.Listcount (78)以下关于焦点的叙述中,错误的是()。 A)如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据 B)当文本框失去焦点时,触发LostFocus事件 C)当文本框的Enabled属性为False时,其Tab顺序不起作用 D)可以用TabIndex属性改变Tab顺序 (78)以下关于文件的叙述中,错误的是()。 A)使用Append方式打开文件时,文件指针被定位于文件尾 B)当以输入方式(Input)打开文件时,如果文件不存在,则建立一个新文件 C)顺序文件各记录的长度可以不同 D)随机文件打开后,既可以进行读操作,也可以进行写操作 (80)窗体上有一个名称为Frame1的框架,如下图所示,若要把框架上显示的“Frame1”改为汉字“框架”,下列正确的语句是( )。 A)Frame1.Name="框架" B)Frame1.Caption="框架" C)Frame1.Text="框架" D)Frame1.Value="框架" (81)设有语句:Open "d:\Test.txt" For Output As 1,以下叙述中错误的是()。 A)若d盘根目录下无Test.txt文件,则该语句创建此文件 B)用该语句建立的文件的文件号为1 C)该语句打开d盘根目录下一个已存在的文件Test.txt,之后就可以从文件中读取信息 D)执行该语句后,就可以通过Print语句向文件Test.txt中写入信息 (82)目录列表框的Path属性的作用是()。 A)显示当前驱动器或指定驱动器上的某目录下的文件名 B)显示当前驱动器或指定驱动器上的目录结构 C)显示根目录下的文件名 D)显示指定路径下的文件 (83)在窗体上画两个单选按钮(名称分别为Option1、Option2,标题分别为“宋体”和“黑体”)、1个复选框(名称为Check1,标题为“粗体”)和1个文本框(名称为Text1,Text属性为“改变文字字体”),窗体外观如下图所示。程序运行后,要求“宋体”单选钮和“粗体”复选框被选中,则下列能够实现上述操作的语句序列是( )。 A)Option1.Value=False B)Option1.Value=True Check1.Value=True Check1.Value=O C)Option2.Value=False D)Option1.Value=True Check1.Value=2 Check1.Value=1 (84)下列控件中,没有Caption属性的是( )。 A)复选框 B)单选按钮 C)组合框 D)框架 (85)用来设置文字字体是否斜体的属性是( )。 A)FontUnderline B)FontBold C)FontSlope D)Fontltalic (86)窗体上有名称为Command1的命令按钮和名称为Text1的文本框。 Private Sub Command1_Click() Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text="等级考试" End Sub 运行以上程序,单击命令按钮后( )。 A)文本框中显示的是“程序设计”,且焦点在文本框中 B)文本框中显示的是“等级考试”,且焦点在文本框中 C)文本框中显示的是“程序设计”,且焦点在命令按钮上 D)文本框中显示的是“等级考试”,且焦点在命令按钮上 (87)设窗体上有名称为Option1的单选按钮,且程序中有语句:If Option1.Value=True Then,下列语句中与该语句不等价的是( )。 A)If Option1.Value Then B)If Option1=True Then C)If Value=True Then D)If Option1 Then (88)设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下列叙述中正确的是( )。 A)程序运行时,若使滚动块向左移动,滚动条的Value属性值就增加 B)程序运行时,若使滚动块向左移动,滚动条的Value属性值就减少 C)由于滚动条的Max属性值小于Min属性值,程序会出错 D)由于滚动条的Max属性值小于Min属性值,程序运行时滚动条的长度会缩为一点,滚动块无法移动 (89)以下叙述中错误的是() A)在KeyPress事件过程中不能识别键盘的按下与释放 B)在KeyPress事件过程中不能识别回车键 C)在KeyDown和KeyUp事件过程中,将键盘输入的“A”和“a”视作相同的字母 D)在KeyDown和KeyUp事件过程中,从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符 (90)设窗体上有一个文本框,名称为Text1,程序运行后,要求该文本框只能显示信息,不能接收输人的信息,以下能实现该操作的语句是()。 A)Text1.MaxLength=0 B)Text1.Enabled=False C)Text1.Visible=False D)Text1.Width=0 (91)在窗体上画一个名称为Text1的文体框,然后画一个名称为Hscroll1的滚动条,其Min和Max属性分别为0和100。程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示。 以下能实现上述操作的程序段是() A)Private Sub Hscroll1_Change() Text1.Text=Hscroll1.Value End Sub B)Private Sub Hscroll1_Click() Text1.Text=Hscroll1.Value End Sub C)Private Sub HScro111_Change() Text1.Text=Hscroll1.Caotion End Sub D)Private Sub Hscroll1_Click() Text1.Text=HScroll1.Caotion End Sub (92)在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是()。 A)Timer1.Interval=O.5 B)Timer1.Interval=5 C)Timer1.Interval=50 D)Timer1.Interval=500 (93)当一个复选框被选中时,它的Value的属性的值是()。 A)3 B)2 C)1 D)0 (94)在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签,两个名称分别为Command1和Command2标题分别为“开始”和“停止”的命令按钮,然后画一个名称为Timer1的计时器控件。并把其Interval属性设置为500,如图所示。 编写如下程序: Private Sub Form_Load() Timer1.Enabled=False End Sub Private Sub Command1_Click() Timer1.Enabled=True End Sub Private Sub Timer1_Timer() If Label1.LeftO And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后,单击窗体,输出结果为()。 A)12 B)30 C)24 D)18 (104)在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程: Private Sub Command1_Click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is>=10,Is<=-10 y=x Case -10 To 10 y=-x End Select End Sub 程序运行后,在文本框中输入3,然后单击命令按钮,则以下叙述中正确的是()。 A)执行y=x*x B)执行y=-x C)先执行y=x*x,再执行y=-x D)程序出错 (105)在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a=O For i=1 To 2 For j=1 To 4 If j Mod 2<>0 Then a=a-1 End If a=a+1 Next j Next i Print a End Sub 程序运行后,单击命令按钮,输出结果是()。 A)0 B)2 C)3 D)4 (106)设a=5,6=6,c=7,d=8,执行下列语句后,x的值为()。 x=IIF((a>b) And( c>d),10,20) A)10 B)20 C)True D)False (107)若看到程序中有以下事件过程,则可以肯定的是,当程序运行时( )。 Private Sub Click_MouseDown(ButtOn As Integer,_ Shift As Integer,X As Single,Y As Single) Print "VB Program" End Sub A)用鼠标左键单击名称为“Command1”的命令按钮时,执行此过程 B)用鼠标左键单击名称为“MouseDown”的命令按钮时,执行此过程 C)用鼠标右键单击名称为“MouseDown”的控件时,执行此过程 D)用鼠标左键或右键单击名称为“Click”的控件时,执行此过程 (108)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer.n As Integer For i=O To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是()。 A)5 B)4 C)3 D)2 (109)在窗体上画一个命令按钮和两个标签,其名称分别为Command1、Label1和Label2,然后编写如下事件过程: Private Sub Command1_Click() a=0 For i=1 To 10 a=a+1 b=0 For j=1 To 10 a=a+1 b=b+2 Next j Next i Label1.Caption=Str(a) Label1.Caption=Str(b) End Sub 程序运行后,单击命令按钮,在标签Label1和Label2中显示的内容分别是()。 A)10和20 B)20和10 C)200和1lO D)110和20 (110)下面循环语句中在任何情况下都至少执行一次循环体的是()。 A)Do While <条件> B)While <条件> 循环体 循环体 Loop Wend C)Do D)Do Until <条件> 循环体 循环体 Loop Until <条件> Loop (111)为了计算l+3+5+…+99的值,某人编程如下: k=1 s=0 While k<=99 k=k+2 : s=s+k Wend Print s 在调试时发现运行结果有错误,需要修改。下列错误原因和修改 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 中正确的是()。 A)While…Wend循环语句错误,应改为For k=1 To 99…Next k B)循环条件错误,应改为While k<99 C)循环前的赋值语句k=l错误,应改为k=O D)循环中两条赋值语句的顺序错误,应改为s=s+k:k=k+2 (112)下面程序在调试时出现了死循环: Private Sub Command1_Click() n=InputBox("请输人一个整数") Do If n Mod 2=0 Then n=n+1 Else n=n+2 End If Loop Until n=1000 End Sub 下面关于死循环的叙述中正确的是()。 A)只有输入的n是偶数时才会出现死循环,否则不会 B)只有输入的n是奇数时才会出现死循环,否则不会 C)只有输入的n是大于1000的整数时才会出现死循环,否则不会 D)输人任何整数都会出现死循环 (113)某人设计了如下程序用于计算并输出7!(7的阶乘): Private Sub Command1_Click() t=O For k=7 To 2 Step -l t=t*k Next Print t End Sub 执行程序时,发现结果是错误的。下面的修改方案中能够得到正确结果的是()。 A)把t=0改为t=1 B)把For k=7 To 2 Step -1改为For k=7 To 1 Step -1 C)把For k=7 To 2 Step -1改为For k=1 To 7 D)把Next改为Next k (114)在窗体上画一个名称为Command1的命令按钮,并编写以下程序: Private Sub Command1_Click() Dim n%,b,t t=1: b=1: n=2 Do b=b*n: t=t+b: n=n+1 Loop Until n>9 Print t End Sub 此程序计算并输出一个表达式的值,该表达式是()。 A)9 ! B)10! C)1+!2!+…+9! D)1!+2!+…+10! (115)在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1,Text2的文本框.然后编写如下事件过程: Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x=10 Case 2,4,6 x =20 Case Is < 10 x =30 Case 10 x=40 End Select Text2.Text = x End Sub 程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是()。 A)10 B)20 C)30 D)40 (116)设有以下循环结构: Do 循环体 Loop While<条件> 则以下叙述中错误的是()。 A)若“条件”是一个为0的常数,则一次也不执行循环体 B)“条件”可以是关系表达式、逻辑表达式或常数 C)循环体中可以使用Exit Do语句 D)如果“条件”总是为True,则不停地执行循环体 (117)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim num As Integer num = 1 Do Until num> 6 Print num; num =num +2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是()。 A)1 3.4 5.8 B)1 3 5 C)1 4 7 D)无数据输出 (118)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim a As Integer, s As Integer a=8 s=l Do s=s+a a=a-1 Loop While a<=O Print s;a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是()。 A)7 9 B)34 0 C)9 7 D)死循环 (119)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() For n=1 To 20 If n Mod 3 <>0 Then m=m+n\3 Next n Print n End Sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是()。 A)15 B)18 C)21 D)24 (120)设有如下程序: Private Sub Command1_Click( ) Dim sum As Double, x As Double sum=0 n=0 For i=1 To 5 x =n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值,这个表达式是() A)1 + 1/2 + 2/3 + 3/4 + 4/5 B)1 + 1/2 + 2/3 + 3/4 C)1/2 +2/3 +3/4 +4/5 D)1 +1/2 +1/3 +1/4 +1/5 (121)在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程: Private Sub Command1_Click() Counter=0 For i=l To 4 For j=6 To 1 Step -2 Counter=Counter+1 Next j Next i Label1.Caption=Str(Counter) End Sub 程序运行后,单击命令按钮,标签中显示的内容是( )。 A)11 B)12 C)16 D)20 (122)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是( )。 A)2 B)3 C)4 D)5 (123)下列说法中正确的是( )。 A)当焦点在某个控件上时,按下一个字母键,就会执行该控件的KeyPress事件过程 B)因为窗体不接受焦点,所以窗体不存在自己的KeyPress事件过程 C)若按下的键相同,KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同 D)在KeyPress事件过程
本文档为【VB习题库】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_221050
暂无简介~
格式:doc
大小:2MB
软件:Word
页数:33
分类:其他高等教育
上传时间:2011-01-24
浏览量:188