VB程序设计试题及答案

1、VB程序设计试题及答案(一)一、单选题1. 是一种而向B的编程环境。(A) 机器(B)对象(C)过程(D)应用2. 要使FormI窗体的标题栏显示”欢迎使用VB'以下D语句是正确的。(A) = “欢迎使用VB”(B) -欢迎使用VB'(C) =欢迎使用VB(D) =H欢迎使用VB"3. 若要使命令按钮不可操作，要对A属性进行设置。(A) Enabled (B)Visible(C) Backcolor (D)Caption4. 如果在窗体上己经创建了一个文本框对象Textl ,可以通过C事件获得输入键值的ASCII码。(A) Change (B) LostFocus(C

2、) KeyPress (D) GotFocus5. 下而A是合法的变量名。(A) X_yz (B) 123ab (C) integer (D) X-Y6. 以下关系表达式中，其值为False的是A。(A) “ABC”>”AbC“ (B) “ 女">"男”(C) "BASICH=UCase("basic) (D) T23”v“23“7. 为了给x、y、z三个变量赋初值1,下面正确的赋值语句是A。(A) x=l:y=l:z=l (B) x=l,y=l,z=l(C) x=y=z= 1 (D) xyz=l8. VB提供了结构化程序设计的三种基本结构，

3、三种基本结构是D。(A) 递归结构、选择结构、循环结构(B) 选择结构、过程结构、顺序结构(C) 过程结构.输入输岀结构.转向结构 (D)选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是Do(A) If sex="男 ” And age =40 And InStr(duty,"教授")>O Then n=n+l(B) If sex="男"And age =40 And (duty="教授"Or duty=" 副教授")Then

4、 n=n+l(C) Ifsex=M男"And age =40 And Right(duty,2)="教授"Then n=n+l(D) If sex=M男"And age=4O And duty=” 教授"And duty=” 副教授"Thenn=n+110下列关于Do Loop循环结构执行循环次数的描述正确的是D o(A) Do WhileLoop循环和 Do Loop Until 循环至少都执行一次(B) Do WhileLoop循环和Do Loop Until循环可能都不执行(C) Do WhileLoop循环至少执彳丁一次和Do

5、 Loop Until循环可能不执行(D) Do WhileLoop循环可能不执行和 Do Loop Until 循环至少执行一次11. 以下B是正确的For Next结构。(A) For x=l To Step 10 (B) For x=3 To -3 Step -3Next x Next x(C) For x=l To 10 (D) For x=3 to 10 step 3Ne xt x Ne xt yIfi=10 Then GoTO re12. 如下数组声明语句，B是正确的。(A) Dim a3,4 As Integer(B) Dim a(3,4) As Integer(C) Dim a

6、(n,n) As Integer(D) Dim a(3 4) As Integer13下列语句中(假定变量n有值)，能正确声明可变长数组的是A o(A) Dim a() As Integer (B) Dim a() As IntegerRe Dim a(n) Re Dim a(n) As String(C) Dim a() As Integer (D) Dim a(10) As IntegerRe Dim a(3, 4) Re Diin a(n+10)Re Dim Preserve a(4, 4)14. 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是C。(A) Sub f2(ByV

7、al n%, By Vai m%) (B) Sub fl (n%, By Vai m%)(C) Sub fl(n%, m%) (D) Sub fl (ByVai n%, m%)15. 设有如下程序段：Public Sub Fl(n%)n=3*n+4End SubPrivate Sub Comma nd l_Click()Dim n%, m%n=3m=4'调用Fl语句End Sub则在Commandl_CUck事件中有效的调用语句是B。(A)CallFl(n+m) (B) Call Fl(m) (C) CallFl(5)(D) Call Fl(m+5)16. 用来设置粗体字的属性是C o

8、(A) Fontltalic (B) FontName (C) FontBold (D) FontSize17. 假定定时器的Interval 属性为1000, Enabled属性为True ,调用下面的事件过程，程序运行结束后变量x的值为D oDim x As IntegerSub Timerl_Tiiner()For i=l to 10x=x+lNe xt iEnd Sub(A) 1000 (B) 10000 (C) 10 (D)以上都不对18. 在下列关于通用对话框的叙述中，错误的是B。(A) 显示“字体”对话框(B) 在“打开”或“另存为”对话框中，用户选择的文件名可以经File Ti

9、tle 属性返回(C) 在“打开”或“另存为”对话框中，用户选择的文件名机器路径可以经File Na me属性返回(D)19. 当用户按下并且释放一个键后会触发KeyPress、KeyUp和Key Down事件，这三个事件发生的顺序 是C。(A) KeyPress、Key Down、KeyUp(B) KeyDown > KeyUp> KeyPress(C) Key Down、KeyPress、KeyUp(D) 没有规律20. 在下面关于顺序文件的描述中，正确的是 C。(A) 顺序文件中每行的长度都是相同的。(B) 可以通过编程对文件中的某行方便地进行修改(C) 数据以ASCII码的

10、形式存放在文件中，所以可通过记事木打开(D) 文件的组织结构复杂21. 随机文件是因为C。(A)文件中的内容是通过随机数产生的(B) 文件中的记录号通过随机数产生的(C) 可对文件中的记录根据记录号随机地读/写(D) 文件的每条记录的长度是随机的22. 从磁盘上读入一个文件名为“ c:”顺序文件，如下 A正确。(A) F= “c:”Open F For Input As #1(B) F= “c:”Open “F” For Input As #2(C) Open “c:” For Input As #1(D) Open c: For Input As #223. 坐标度量单位可由通过来D改变。(

11、A)Drawstyle 属性(B) DrawWidth 属性(C) Scale 方法(D) Scale Mode 属性24. 指令 “ Circle (1000, 1000), 500, 8,-6, -3” 将绘制 A。(A)画圆(B)椭圆(C)圆弧(D)扇形25. 用ADO数据控件建立与数据源的链接，设置操作过程按 A顺序进行。选择数据源连接方式；选择数据库类型；指定数据库文件名；指定记录源(A)(B)(C)(D)®二、填空题1. VB是建立在BASIC语言基础上的 可见 化编程语言或编程环境。2. 在窗体上己建立多个控件如Textl > Labell > Comman

12、d 1,若要程序一运行时焦点就定位在Command 1控件上，应对Command 1控件设置Tabindex 属性的值为0。3 .在VB中，1234、123456&. +5、+5这4个常数分别表示整形、 长整形 、 单精度 、双精度类型。4表示x是5的倍数或是9的倍数的逻辑表达式为 x mod 5 = 0 or x mod 9=0。5.数组声明时下标下界默认为0,利用Opation Basel语句可以使下标为1。6.传地址方式是当过程被调用时，形参和实参共享存储单元7. 窗体中的模块级变量应在窗口模块 段声明，它作用于该窗体的全局范围8. 当用户单击滚动条的空口处时，滑块移动的增量值由

13、LargeChange属性决定。9. 如果菜单标题的某个字母前输入一个“ &”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“(减号)”符号，那么显示时形成一个分隔符。10. 使用Scale方法可以自定义坐标系。11. 使用Line方法画矩形，不许在指令中使用关键字 B。12. 使用 SQL语句设置ADO控件的 RecordSource 属性，这 CommandType属性需要设置成l(adCmdText)或者(adCmdUnknown) o13为了显示一个窗体，所使用的方法为show；而为了隐藏一个窗体，所使用的方法为_Hideo14. 如果要将某个命令按钮不显

14、示，则可将 _Visible 属性设置为False15. 在VB中窗体文件的扩展名为。三、编程应用题1. 程序阅读，写出下列程序的运行结果。(1)Private Sub Comma nd l_Click()Dim a, i%, min%, imin%, sum%, t%a=Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69)min=a(0): imin=0: sum=a(0)For i=l to UBound(a)sum=sum+a(i)If a(i)< min Then min=a(i): iinin=iNe xt it=a(O): a(0)=a(

15、imin): a(iinin)=tPrint sum; a(0)End Sub输出结果:510 19(2)Private Sub Commandl_Click()Dim ch as String*lch= ” 8 nThenIfUCase(ch)>= " A" And UCase<= " Zch; ”是字母字符”Elselfch>= " 0 " And ch<= " 9 n ThenCh； ”是数字字符”Elsech; ”是其他字符”End IfEnd Sub输出结果：是数字字符(3)Public Sub Pr

16、oc(a%()Static i%Doa(i)=a(i)+a(i+l)i=i+lLoop While i<2End SubPrivate Sub Commandl_Click()Dim m%, n%, x%(10)For i=0 to 4: x(i)=i+l: Next iFor i=l to 2: Call Proc(x): Next iFor i=0 to 4: Print x(i); : Next iEnd Sub输出结果：357452. 补充程序(1) 如下是账号和密码输入的检验程序，运行界而如下图1所示。输入帐号和密码后，单击“检验密码”按钮，如果密码正确则程序结束，假定密码为“ sOOl”；如果密码不正确， 则弹出如下图2所示对话框，单击“取消”则程序结束，单击“重试”则返回图1窗体，且密码文本框 Text2内容被清空，等待再次输入。补充完整如下程序。图1图2Private Sub Comma nd 1 _Click()Dim i As IntegerIf os 001 Theni = MsgBox(M 密码错误",5 + vbExclamation," 警告")Ifi<>4 ThenEndElseEndEnd IfEnd IfEnd