vb试题及答案

一、选择题(1-30 题每小题1分,共30分,31-45题每小题2分,共30分,总计60分)要使窗体Form1的标题栏中显示“正在复制文件…”,正确的语句是:a A.Form1.Caption=“正在复制文件…” B.Form1.Title=“正在复制文件…” C.Form1.Text=“正在复制文件…” D.Form1.名称=“正在复制文件…” 如果要求设置定时器时间间隔为1秒钟,那么它的Interval属性值应该等于:a A.1000 B.100 C.10 D.1 3、下列关于控件的基本操作中,错误的是 A)当控件处于活动状态时,可以对控件进行缩放 B) 在 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 阶段不能移动控件 C) Visual Basic 6.0 允许对画好的控件进行复制和删除 D) 可以通过属性窗口改变控件的位置和大小 4、用Visual Basic 开发应用程序的一般步骤有:①设置窗体和控件的属性、②编写代码、③建立用户界面,其中正确的顺序是: A) ①②③B) ①③②C) ③②①D) ③①② 5、为使文本框只能显示不能输入,即只读,应设置文本框的属性是:c A.MaxLength设置为0 B.Cancel设置为True C.Locked设置为True D.Read设置为True 6、InputBox函数返回值的类型为。B A.数值 B.字符串 C.变体 D.数值或字符串(视输入的数据而定) 7、为了把焦点移到某个指定的控件,所使用的 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 是:A A.SetFocus B.Visible C.ReFresh D.GetFocus 8、函数String(3,”str”)的功能是:b A.把数值型数据转换成字符串 B.返回有3个字符串组成的字符串 C.从字符串中第3个字符 D.从字符串中第3个字符的位置开始取字符串 9、双击窗体中的对象后,Visual Basic将显示的窗口是:c A.项目(工程)窗口 B.工具箱 C.代码窗口 D.属性窗口 10、用于获得字符串s最左边4个字符的函数是:a A.Left(s,4) B.Left(1,4) C.LeftStr(s) D.LeftStr(3,4) 11、以下程序段的输出结果是:d a=Sqr(3) b=Sqr(2) c=a>b Print c A.-1 B.0 C.False D.True 12、用下面语句定义的数组的元素个数是:c Dim A (-4 to 6) As Integer A.6 B.7 C.11 D.9 13、若x=-5,执行If x Then x=0 Else x=1的结果为:d A.实时错误 B.编译错误 C.x=1 D.x=0 列程序段的循环结构执行后,i的输出值是:c For i=1 To 10 Step 2 y=y+i Next i Print i A.25 B.10 C.11 D.因为y的初值不知道,所以不确定 15、可以用作其他控件容器的控件有:c A.窗体、列 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 框、图像框 B.窗体、文本框、框架 C.窗体、框架、图片框 D.窗体、标签、图片框 16、以下不属于Visual Basic 支持的循环结构的是:d A.For …Next B.For Each …Next C.Do …Loop D.While …End 17、下列可以打开立即窗口的操作是:D A.Ctrl+D B.Ctrl+E C.Ctrl+F D.Ctrl+G 18、下列可作为Visual Basic变量名的是 A)A_3 B)4A C)?xy D)Integer 19、设a=8,b=5,执行语句Print a>b后,窗体上显示的是 A)True B)False C)1 D)出错信息 20、以下能够触发文本框Change事件的操作是 A) 文本框失去焦点B) 文本框获得焦点 C) 设置文本框的焦点D) 改变文本框的内容 21、列表框图标的英文名称是 A)ListBox B)ComboBox C)Frame D)CommonDialog 22、下列类型说明符中表示整型的是 A) % B) ! C) $ D) & 23、执行下列语句a$ = "abcdefg": Print Len(a$)后,在窗体上输出的结果是 A) 1 B) 2 C) 7 D) 14 24、文本框不具有的属性是 A) Caption B)text C) left D)font 25、设a=6,则执行x=IIf(a>5,1,2)后,x 的值为: A)1 B)2 C)5 D)0 26、语句Print 5/4*6\5 Mod 2的输出结果是 A) 0 B) 1 C) 2 D) 3 27、滚动条控件的largeChange属性所设置的是 A)滚动条所能表示的最小值 B)滚动条所能表示的最大值 C)单击滚动条中滚动框前面或后面的部位时,Value属性增加或减小的增量值 D)单击滚动条两端的箭头时,Value属性增加或减小的增量值 28、按钮控件数组元素是:c A.共享一个事件过程的 B.只共享一个Click事件过程的 C.共享该控件的所有事件过程 D.各自有自己的部分事件过程 有如下的 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 类型 Type student id As String name As String age As Integer End Type 则正确引用该记录类型变量的代码是:B A.student.name=”Sias” B.Dim s As student s.mane=”Sias” C.Dim s As type student s.name=”Sias” D.Dim s As type s.name=”Sias” 有如下语句:d str1=InputBox(“输入”,””,”联系”) 从键盘上输入字符串“学生”后,str1的值为: A.“输入” B.“” C.“联系” D.“学生” 31、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:C Private Sub Command1_Click() s = 2 For n = 1 To 6 If n Mod 3 <> 0 Then s = s + 1 Next n Print s End Sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是 A)2 B)5 C)7 D)6 32、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: B Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num > 6 num = num + 2 Loop Print num End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 A)6 B)7 C)8 D)9 33、在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程: Option Base 0 Private Sub Command1_Click() Dim km As Variant km = Array("音乐", "体育", "化学", "物理") Print km(2) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是 A)音乐B)体育C)化学D)物理 34、以下程序代码正确的是: A) If a=1 Then b=0 Else c=0 End If B) If a=1 Then :b=0:ElseIf c=0 End If C) If a=1 Then b=0 Else c=0 End If D) If a=1 Then b=0 ElseIf c=0 d=0 End If 35、在窗体中添加一个命令按钮Command1,并编写如下程序: Private Sub Command1_Click( ) dim x as integer x=InputBox("x") If x^2=9 Then y=x If x^2<9 Then y=1/x If x^2>9 Then y=x^2+1 Print y End Sub 程序运行后,在输入对话框中输入3,单击命令按钮,程序的运行结果是 A.3 B.0.33 C.17 D.0.25 36、以下关于过程及过程参数的描述中,错误的是 A)过程的参数可以是控件名称 B)用数组作为过程的参数时,使用的是“传地址”方式 C)只有函数过程能够将过程中处理的信息传回到调用的程序中 D)窗体可以作为过程的参数 37、在窗体上添加一个命令按钮,名为command1,事件过程为: Private Sub command1_Click() x=0 Do Until c=-1 a= val(InputBox(“输入a的值”)) b= val(InputBox(“输入b的值”)) c= val(InputBox(“输入c的值”)) Loop Print a End Sub 程序运行后,单击命令按钮,依次在输入对话框中输入5,4,3,2,1,-1后,输出的结果是a A.2 B.3 C.4 D.5 38、窗体有一个名为text1的文本框,执行如下语句后,文本框中的内容为:C For j=1 To 3 x=3 For k=1 To 2 x=x+3 Next k Next j text1.Text=Str(x) A.3 B.6 C.9 D.12 39、以下定义数组或给数组元素赋值的语句中,正确的是 A) Dim a As Variant a=Array(1,2,3,4,5) B) Dim a(10) As Integer a=Array(1,2,3,4,5) C) Dim a%(10) a(1)="ABCDE" D) Dim a(3),b(3) As Integer a(0)=0 a(1)=1 a(2)=2 b=a 40、在窗体上画一个命令按钮,名称为Command1,单击命令按钮时,执行如下事件过程: Private Sub Command1_Click() a$ = "Microsoft Visual Basic" b$ = Mid(a$, 1, 9) c$ = Right(a$, 5) MsgBox a$, , b$, c$, 1 End Sub 则在弹出的信息框的标题栏中显示的信息是 A)Visual B)Microsoft C)Basic D)1 41、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:D Option Base 1 Private Sub Command1_Click() Dim s As Integer Dim aa(3, 2) As Integer For i = 1 To 3 For j = 1 To 2 aa(i, j) = i + j Next j Next i s = aa(1, 2) + aa(2, 1) Print s End Sub 程序运行后,单击命令按钮,窗体上显示的值是 A) 4 B) 5 C)6 D) 7 42、以下叙述中错误的是d 双击鼠标可以触发DblClick事件 控件的名称可以由编程人员设定 文本框可以获得焦点 窗体或控件的事件过程的名称可以由编程人员确定 43、设窗体上有一个列表框控件List1,且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是 A)List1.List B)List1.ListIndex C)List1. Text D)List1.Index 44、Private Sub Command1_Click() dim I as integer dim x as integer x=0 For I=1 to 5 x=x+2 If x>4 Then exit for next I print x End Sub 程序运行后,单击命令按钮,窗体上显示的是 A)1 B)6 C)5 D)7 45、有如下定义 Sub test(a(),b()) … End Sub 下列调用语句中正确的是: A)call test(a(),b()) B)call test a(),b() C)call test a() D)test( a(),b()) 二、填空题(每空2分,共40分) (1)假定一个文本框的Name属性为Text1,为了在该文本框中显示“Hello!”,应使用什么语句【1】。(Text1.Text = "Hello!") (2)哪两个属性确定一个控件的大小【2】(width height) (3)在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程: Private Sub Command1_Click() Text1.Text = "sias" Text2.Text = Text1.Text Text1.Text = "university" End Sub 程序运行后,单击命令按钮,在文本框1中显示【3】(university),在文本框2中显示【4】(sias)。 (4)将此数学式子2a2(4+b)写成Visual Basic表达式【5】。(2 * a^2 * (4 + b) ) (5)设a=2,b=3,c=4,d=5, 表达式 a = c And b <> c Or c > d的值【6】。(False) (6)写出下列语句的输出结果Print "st"; "u", "d" 【8】。(stu d) (7)为了在运行时把c:\ucdos 文件夹下的图形文件arrow.ico装入图片框Picture1,所使用的语句为【9】。Picture1.Picture = LoadPicture("c:\ucdos\arrow.ico") 或Picture1 = LoadPicture("c:\ucdos\arrow.ico") (8)在编写程序时,Command1.enabled = False此语句的作用是【10】。(使命令按钮在运行时不可用) (9)为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的【11】interval属性设置为500。 (10)执行下面的程序段后,i的值为【12】【11】,s的值为【13】【6】。 s = 2 For i = 3 To 10 Step 2 s = s + 1 Next I (11)编写如下事件过程 Sub Form_Click() Dim a As Integer, b As Integer a =20: b = 30 tryout a, b Print "a="; a, "b="; b End Sub Sub tryout(x As Integer, y As Integer) x = x + 10 y = y * 2 End Sub 单击窗体后,窗体上显示a 和b的值,分别是a=【15】(30),b=【16】(60) (12) 设有如下程序: Option Base 0 Private Sub Form_Click( ) Dim a Dim i As Integer a=array(1,2,3,4,5,6,7,8,9) For i =2 to 5 Print a(5-i); Next End Sub 程序运行后,单击窗体,则在窗体上显示的是【18】(4 3 2 1 (13)程序段 Static arr As Variant arr=Array(“a”,”b”,”c”,”d”,”e”,”f”) Print arr(4) 执行的结果是输出:e__ (7)_ ______ (14)执行以下语句后,输出的结果是:0(14) s$=”student” Print Instr(s$,”DEN”) (15)下列循环语句,要求和数达到或超过10即停止累加,退出循环: For j=1 To 20 step 2 s=s+j If a>10 Then Exit For(11)_____ Next j (16)下列程序段用来计算2+4+6+…+20,请补充该程序 Dim i,s,k As Integer s=0:k=0 For i=20 To 2 Step -2 k=k+1 s=s+k Next i Print s (17)执行下面程序段后,b的值为200 (22)_______ a=200 b=40 a=a+b b=a-b a=a-b (18)下列语句的输出结果是:12345.68____(28)_______ Print int(12345.6789*100+0.5)/100 (19)命令按钮单击事件过程: Option Base 1 Private Sub command1_Click() Dim a a=Array(1,2,3,4) j=1 For i= 4 To 1 Step –1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行结果输出是:1234__(23)_________ (20)命令按钮单击事件过程: Private Sub command1_Click() a=InputBox(“enter the first Integer”) b=InputBox(“enter the second Integer”) Print b+a End Sub 程序运行后,单击命令按钮,在两个输入对话框中分别输入234和789,则输出的结果是: 789234_______(26)_______ 三、判断题(判断下列正确与否,正确的打√,错误的打ⅹ。) 1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。(Х) 2、图象框中的Stretch属性为true时,其作用是图形自动调整大小以适应图象控件。(Х) 3、在菜单编辑器中使用“索引”时,可有一组菜单项具有相同的“名字”。(Х) 4、通过改变属性窗口中的Name属性,来改变窗体的标题。(√) 5、创建VB应用程序的三个主要步骤是:(1)创建应用程序界面(2)设置控件(3)编写代码。(Х) 6、变量是指在程序运行过程中其值可以改变的那些量,而值不能改变的是常量。(√) 7、已知P=MsgBox(“Howareyou?",VbYesNo+VbQuestion,“Hello!”),变量P是Integer数据类型。(√) 8、工程文件的扩展名是.vbg 。(√) 9、VB允许设计和使用用户自己设计的控件。(√) 10、OptionButton控件没有DblCliek事件。(Х) 11、同一条记录中的各数据具有相同的类型。(√) 12、使用Data控件可以直接显示数据库中的数据。(Х) 13、ImageList 是一个图像容器控件,可用作工具栏的图像库。(√) 14、当用户单击工具栏按钮时,将触发工具栏按钮的ButtonClick事件。(√) 15、在VB的工程资源管理器中,如果从工程中移除已经保存过的文件,该文件仍然被物理删除(真正删除)。(Х) 16、如果列表框的ListConut的属性为10,则列表框最后一项的ListIndex值为10。(Х) 17、要是某个命令按钮不起作用,应将该按钮的Enabeld属性设置为False。(√) 18、使用数组定义语句:Dim D$(10),则数组D中各元素的值为空。(Х) 19、如果在一行中输入多条语句,各语句之间用使用;分隔。(Х)