vb程序设计章节作业

1、程序设计根底1、在Visual Basic中，当将窗体的属性值设置为False时，将不显示窗体的控制菜单、最大化/最小化及关闭按钮。 A) MaxButton B) MinButton C) ControlBox D) WindowState 正确答案是: C 2、要在窗体上显示图片，需设置窗体的属性。 A) Caption B) Icon C) Picture D) ControlBo 正确答案是: C 3、Visual Basic的编程机制是 A) 可视化 B) 面向对象 C) 面向图形 D) 事件驱动 正确答案是: D 4、以下表达中正确的选项是。 A) 同一个事件的名称在不同的程序中可

2、以不同 B) 事件是用户定义的 C) 对象的事件是不固定的 D) 事件是对象能够识别的动作 正确答案是: D 5、在正确安装Visual Basic 6.0后，可以通过多种方式启动Visual Basic 6.0。以下方式中，不能启动Visual Basic 6.0的是 。 A通过“我的电脑找到vb6.exe，双击该文件名 B进入DOS方式，执行vb6.exe文件 C通过“开始菜单中的“运行命令 D通过“开始菜单中的“程序命令正确答案是: B 6、设计窗体时双击窗体的任何位置，将翻开 。 A窗口设计器 B代码窗口 C工具箱窗口 D属性窗口正确答案是: B 7、假定窗体上有一个标签，名为Labe

3、l1，为了使该标签透明并且没有边框，那么正确的属性设置为 。 ALabel1.BackStyle=0 BLabel1.BackStyle=1 CLabel1.BackStyle=True DLabel1.BackStyle=False正确答案是: A 8、以下 控件没有Caption属性。 ACommandButton BCheckBox CTextBox DLabel 正确答案是: C 9、在VB中，要将一个窗体装载到内存中进行预处理，但不显示，应该使用 。 AShow BHide CLoad DUnLoad正确答案是: C 10、为了在按下Esc键时执行某个命令按钮的Click事件过程，需

4、要将命令按钮的某属性值设置为True，该属性是 。 AValue BDefault CCancel DEnabled正确答案是: C VB语言根底1、下面表达式中，的运算结果与其它三个不同。 A) Exp(-3.5) B) Int(-3.5)+0.5 C) -Abs(-3.5) D) Sgn(-3.5)-2.5 正确答案是: A 2、以下是Visual Basic中合法的函数使用。 A) exp.x B) exp(x) C) cosx D) sinx 正确答案是: B 3、表达式left("How are you",3)的值是 A) How B) are C) you D)

5、 How are you 正确答案是: A 4、表达式right("How are you",3)的值是 A) How B) are C) you D) How are you 正确答案是: C 5、在一个语句行内写多条语句时，语句之间应该用分隔。 A) 逗号 B) 分号 C) 冒号 D) 顿号 正确答案是: C 6、VB的数值型数据分为 两种。 A整数和长整数 B整数和浮点数 C单精度浮点数和双精度浮点数 D整数和货币数据类型正确答案是: B 7、表达式Abs(-5)+Len("ABCDE")的值是 。 A5ABCDE B-5ABCDE C10 D0正

6、确答案是: C 8、以下是Visual Basic中所允许的形式数是 。 A±25.74 B3.457E−100 C368 D1.87E+50正确答案是: C 9、设a="Visual Basic"，下面语句中可使b="Basic"的是 。 Ab=Left(a,8) Bb=Mid(a,8,5) Cb=Right(a,8) Db=Left(a,8,5)正确答案是: B 10、设有如下变量声明“Dim aTime As Date，那么为变量aTime正确赋值的表达式是 。 AaTime =#11:34:04# BTime =Fo

7、rmat(Time,"yy:mm:dd") CaTime =#"11:34:04"# DaTime =Format("hh:mm:ss",Time)正确答案是: A数据的输入与输出1、函数MsgBox的返回值的类型为。 A) 字符型 B) 整数 C) 日期 D) 变体型 正确答案是: B 2、MsgBox函数中有4四个参数，其中必须写明的参数是。 A) 指定对话框中显示按钮的数目 B) 设置对话框标题 C) 提示信息 D) 所有参数都是可选的 正确答案是: C 3、如果要显示Visual Basic中的预定义输入对话框,需要调用Vis

8、ual Basic 提供的函数。 A) MsgBox B) Open C) Output D) InputBox 正确答案是: D 4、有如下程序 a=6:b=8 PRINT SQR(a*a+b*b) END 运行时输出的结果是。 A) 6 B) 8 C) 10 D) 14正确答案是: C 5、在立即窗口中执行以下语句： str1=String$(3,"xyz") str2=Space(1) str3=Trim(Len$("32") str4=String(5,69) Print str1;str2;str3;str4 其输出结果是。 A) zzz 2E

9、EEEE B) xxx 32EEEEE C) zzz2EEEEE D) xxx 2EEEEE正确答案是: D 6、以下程序段在图片框中的输出是 a="Your" b="Sname" c="Iscr" print right(a,3) picture1.print mid(b,2,4) print left(c,2) A) name B) our C) IS D) ourname 正确答案是: A 7、如果Tab函数的参数小于1，那么Print方法的打印位置在第列 A) 2 B) 0 C) 3 D) 1 正确答案是: D 8、在窗体上已

10、建立了多个控件，如Text1、Label1、Command1，要使程序一运行焦点就定位在Command1上，应将Command1的属性设置为0 A) TabIndex B) Index C) TabStop D) Enabled 正确答案是: A 9、在窗体上已建立了多个控件，如Text1、Label1、Command1，要使程序一运行焦点就定位在Command1上，应将Command1的TabIndex属性设置为 A) 0 B) 1 C) 2 D) -1 正确答案是: A 10、如果将布尔常量True赋值给一个整型变量,那么整型变量的值为。 A) 0 B) -1 C) Ture D) fal

11、se 正确答案是: B顺序、选择结构1、在Visual Basic中，以下可以作为字符串变量。 A) m B) #01/01/99# C) "m" D) True 正确答案是: A 2、下语句y=y+1的正确含义是： A) 变量y的值与y+1的值相等 B) 将变量y的值加1后赋给变量y C) 变量y的值为1 D) 将变量y的值存入到y+1中 正确答案是: B 3、以下哪一个是变量名是错误的。 A) AB_C B) ABC C) AB.C D) A68 正确答案是: C 4、当程序运行时,在窗体上单击鼠标,以下 事件是窗体不会接收到的? A) MouseDown B) Mou

12、seUp C) Load D) Click 正确答案是: C 5、以下数据中，不属于浮点数的为。 A) 123.4556e-3 B) 234.23d5 C) "0.243D5" D) 23.234 正确答案是: C 6、以下程序执行后，变量x的值为 。 Dim a, b, c, d As Single Dim x As Single a = 10 : b = 30 : c = 400 If b > a Then d = a: a = b: b = d End If If b > c Then x = b ElseIf a > c Then x = c El

13、se x = a End If A10 B30 C400 D430正确答案是: B 7、下面程序段能够实现条件：如果x<y,那么a=16.否那么a=-16 A) if x<y then a=16 B) ifx<y then a=16:print a a=-16 a=-16:print a print a C) if x<y then D) if x<y then a=16 a=16:print a else else a=-16 a=-16:print a print a end if end if正确答案是: C 8、以下程序段的执行结果是 a="1&

14、quot; b="6" a=val(a)+val(b) b=val("16") if a<>b then print a-b else print b-a A) 9 B) -9 C) 7 16 D) 0正确答案是: B 9、要计算当0<x<10时，y=x，应使用语句 A) if 0<x<10 then y=x B) if 0<x or x<10 then y=x C) if 0<x and x<10 then y=x D) if 0<x xor o<10 then y=x正确答案是:

15、 C 10、以下程序的执行结果为 a=75 if a>60 then i=1 if a>70 then i=2 if a>80 then i=3 if a>90 then i=4 print "i="i A) i=1 B) i=2 C) i=3 D) i=4正确答案是: B循环结构 1、语句y=y+1的正确含义是： A) 变量y的值与y+1的值相等 B) 将变量y的值加1后赋给变量y C) 变量y的值为1 D) 将变量y的值存入到y+1中正确答案是: B 2、有如下程序 s=0:i=1 do while i<=100 s=s+i loop pr

16、int s A) 5050 B) 505 C) 死循环，无输出 D) 无穷大的数正确答案是: C 3、单击窗体时输出"斐波那契数列"的前20项.该数列第一项为1,第二项为1,其后每一项的植都是前两项的和.即: 1,1,2,3,5,8,13. 从题后供选的答案中选出正确的答案，填入以下程序中相应处，构成完整程序。 private sub form_click() x1=1 x2=1 n=0 do while n<10 print x1,x2 x1=_ x2=x1+x2 n=n+1 loop end sub A) x1+x2 B) x2 C) x1+n D) x2+n正确

17、答案是: A 4、以下程序的执行结果为 s=0:t=0:u=0 for x=1 to 3 for y=1 to x for z=y to 3 s=s+1 next z t=t+1 next y u=u+1 next x print s;t;u A) 3 6 14 B) 14 6 3 C) 14 3 6 D) 16 4 3正确答案是: B 5、Do while条件- Loop循环对循环体的执行过程是 A) 先执行循环体，再测试条件是否成立 B) 先测试条件是否成立，如果满足条件，才能执行循环体 C) 当条件为假时，执行循环 D) 当条件为真时，循环体的所有语句都被执行正确答案是: B 6、判断下

18、面程序段是计算哪一个数学式的。 n=inputbox("输入n的值") x=inputbox("输入x的值") t=1:s=0:p=1 For i = 2 To 2*n step 2 t=t*i p=p*x s=s+p/t next i print s A) 1+x/2!+x/4!+x/2N! B) 1+x/2!+x2/(2x4)+x3/(2x4x6)+xn/(2x4x6xx2n) C) 1!+x/2+x2/4+x3/6+xn/2n D) 1+x2/2+x4/()2x4+x(2n)/2N!正确答案是: B 7、下面程序段的输出结果是。 p=0 s=0 d

19、o p=p+2 s=s+p loop while p<11 print p,s A) 12 42 B)11 30 C) 10 30 D) 12 30正确答案是: A 8、以下语句组中，不能实现循环100次的有 A) n=0 B) n=0 do do n=n+1 n=n+1 loop until n>=100 loop while n<100 C) n=0 D) n=0 do do while n<100 n=n+1 n=n+1 loop until n<100 loop正确答案是: C 9、以下程序段的结果为 a="ABBACDDCBA" fo

20、r i=6 to 2 step -2 x=mid(a,i,i) y=left(a,i) z=right(a,i) z=x & y & z next i print z A) ABA B) AABAAB C) BBABBA D) ABBABA正确答案是: C 10、为了计算1+3+5+99的值，某人编程如下： k=1 s=0 While k<=99 k=k+2:s=s+k Wend Print s 在调试时发现运行结果有错误，需要修改。以下错误原因和修改方案中正确的选项是 。 AWhileWend循环语句错误，应修改为For k=1 To 99Next k B循环条件错误，

21、应改为 While k<99 C循环前的赋值语句k=1错误，应改为k=0 D循环中两条赋值语句的顺序错误，应改为s=s+k:k=k+2正确答案是: D常用控件1、列表框中的列表项的数目可以通过以下哪个属性的值获得 A) count B) listcount C) listindex D) index 正确答案是: B 2、要去除列表框中所有的列表项时，应使用以下那种方法 A) remove B) clear C) removeitem D) move 正确答案是: B 3、决定控件上文字的字体、字型、大小、效果的属性是 A) text B) caption C) name D) font

22、 正确答案是: D 4、以下不能翻开属性窗口的操作是 A) 执行“视图菜单中的“属性窗口命令 B) 按“f4”键 C) 按ctrl+t D) 单击工具拦上的“属性窗口按钮 正确答案是: C 5、用于设置粗体字的属性是。 A) Fontname B) Fontsize C) FontItalic D) FontBold 正确答案是: D 6、以下说法正确的选项是。 A) 图片框控件除了可以显示图形外，还可以作为控件的容器 B) 图像框控件除了可以显示图形外，还可以作为控件的容器 C) 图片框控件可以延伸任何类型的图形的大小以适应控件的大小 D) 图像框控件不能延伸任何类型的图形的大小以适应控件的

23、大小 正确答案是: A 7、组合框是文本框和 特性的组合。 A复选框 B标签 C列表框 D目录列表框正确答案是: C 8、假定在图片框Picturel中装入了一个图形，为了去除该图形注意，去除图形，而不是删除图片框，应采用的正确方法是 。 A选择图片框，然后按Del键 B执行语句Picturel.Picture = LoadPicture("") C执行语句Picturel.Picture = "" D选择图片框，在属性窗口中选择Picture属性条，然后按回车键正确答案是: B 9、程序运行时，当在空文本框中依次输入1234时，窗体上显示的是 。 Pr

24、ivate sub Text1_Change() Print Text1; End Sub A1234 B12 C1121231234 D10正确答案是: C 10、在窗体上画一个名称为Text1的文本框，然后画一个名称为Hscroll1的滚动条，其Min和Max属性分别为和 错误！未找到目录项。程序运行后，如果移动滑块，那么在文本框中显示滚动条的当前值。以下能实现上述操作的程序是 。 A Private Sub Hscroll1_Change() Text1.Text=HScroll1.Value End Sub B Private Sub Hscroll1_Click() Text1.Te

25、xt=HScroll1.Value End Sub C Private Sub Hscroll1_Change() Text1.Text=Hscroll1.Caption End Sub D Private Sub Hscroll1_Click() Text1.Text=Hscroll1.Caption End Sub 正确答案是: A数组1、用下面语句定义的数组的元素个数是 dim a(-3 to 5) as integer A) 6 B) 7 C) 8 D) 9 正确答案是: D 2、以下程序的执行结果是 。 Private Sub Form_Activate() Dim score(3)

26、 As Integer, total As Integer Dim aa_score As Variant score(1) = 50: score(2) = 14: score(3) = 36 total = 0: i = 0 For Each aa_score In score i = i + 1 tota1 = tota1 + aa_score Print i, aa_score, tota1 Next End Sub A 1 0 0 2 50 50 3 14 64 4 36 100 B 1 50 50 2 14 64 3 36 100 C 0 50 50 1 14 64 2 36 10

27、0 3 36 100 D 0 0 0 1 50 50 2 14 64 3 36 100正确答案是: A 3、有以下程序段，单击命令按钮执行程序后，输出结果为 。 Option Base 1 Private Sub Command1_Click() Dim x x = Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1 = 0 : s2 = 0 For k = 1 To 10 If x(k) > 0 Then s1 = s1 + x(k) Else s2 = s2 + x(k) End If Next k Y = s1/Abs(s2) Print

28、 Y End Sub A148 B40 C-40 D3.7正确答案是: D 4、执行以下程序，在窗体上输出 。 Private Sub Command1_Click() Dim a(20) For j = 1 To 20 Step 2 a(j) = j Next j Print a(1) + a(2) + a(3) End Sub A4 B5 C6 D7正确答案是: A 5、下面语句中错误的选项是 。 AReDim Preserve Matrix(10,Ubound(Matrix,2)+1) BReDim Preserve Matrix(Ubound(Matrix,1)+1,10) CReDim Preserve DynArray(Ubound(DynArray)+1) DReDim DynArray(Ubound(DynArray)+1)正确答案是: B 6、假设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下