VB程序设计试题及答案一.docx

1、VB程序设计试题及答案一VB程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向 B 的编程环境。 (A) 机器 (B) 对象 (C) 过程 (D) 应用 2. 要使FormI窗体的标题栏显示欢迎使用VB，以下 D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption=欢迎使用VB (C) Forml.Caption=欢迎使用VB (D) Forml.Caption=欢迎使用VB 3. 若要使命令按钮不可操作，要对 A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption

2、4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面 A 是合法的变量名。 (A) X_yz (B) 123ab。 (C) integer (D) X-Y 6. 以下关系表达式 中，其值为False的是 A 。 (A) ABCAbC (B) 女男 (C) BASIC=UCase(basic) (D) 123O Then n=n+l (B) If sex=男 And age=4O And (duty=教授 Or duty=副教授) Th

3、en n=n+l (C) If sex=男 And age=4O And Right(duty，2)=教授 Then n=n+l (D) If sex=男 And age=4O And duty=教授 And duty=副教授 Then n=n+l 10.下列关于DoLoop循环结构执行循环次数的描述正确的是 D 。 (A) Do WhileLoop循环和DoLoop Until循环至少都执行一次 (B) Do WhileLoop循环和DoLoop Until循环可能都不执行 (C) Do WhileLoop循环至少执行一次和DoLoop Until循环可能不执行 (D) Do WhileLo

4、op循环可能不执行和DoLoop Until循环至少执行一次 11.以下 B 是正确的ForNext结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 Next x Next x (C) For x=1 To 10 (D) For x=3 to 10 step 3 re: Next x Next y If i=10 Then GoTO re 12.如下数组声明语句， B 是正确的。 (A) Dim a3,4 As Integer (B) Dim a(3,4) As Integer (C) Dim a(n,n) As Integer (D)

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

6、 m%) (B) Sub f1(n%, ByVal m%) (C) Sub f1(n%, m%) (D) Sub f1(ByVal n%, m%) 15.设有如下程序段： Public Sub F1(n%) n=3*n+4 End Sub Private Sub Command1_Click( ) Dim n%, m% n=3 m=4 调用F1语句 End Sub 则在Command1_Click事件中有效的调用语句是 B 。 (A) Call F1(n+m) (B) Call F1(m) (C) Call F1(5) (D) Call F1(m+5) 16.用来设置粗体字的属性是 C 。 (

7、A) FontItalic (B) FontName (C) FontBold (D) FontSize 17.假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为 D 。 Dim x As Integer Sub Timer1_Timer( ) For i=1 to 10 x=x+1 Next i End Sub (A) 1000 (B) 10000 (C) 10 (D) 以上都不对 18.在下列关于通用对话框的叙述中，错误的是 B 。 (A) CommonDialog1.ShowFont显示“字体”对话框 (B) 在“打开

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

9、的某行方便地进行修改 (C) 数据以ASCII码的形式存放在文件中，所以可通过记事本打开 (D) 文件的组织结构复杂 21.随机文件是因为 C 。 (A) 文件中的内容是通过随机数产生的 (B) 文件中的记录号通过随机数产生的 (C) 可对文件中的记录根据记录号随机地读/写 (D) 文件的每条记录的长度是随机的 22.从磁盘上读入一个文件名为“c:t1.txt”顺序文件，如下 A 正确。 (A) F=“c:t1.txt” Open F For Input As #1 (B) F=“c:t1.txt” Open “F” For Input As #2 (C) Open “c:t1.txt” Fo

10、r Input As #1 (D) Open c:t1.txt For Input As #2 23.坐标度量单位可由通过来 D 改变。 (A)Drawstyle属性 (B) DrawWidth属性 (C) Scale方法 (D) ScaleMode属性 24.指令“Circle (1000, 1000), 500, 8, -6, -3”将绘制 A 。 (A) 画圆 (B) 椭圆 (C) 圆弧 (D) 扇形 25.用ADO数据控件建立与数据源的链接，设置操作过程按 A 顺序进行。 选择数据源连接方式；选择数据库类型；指定数据库文件名；指定记录源 (A) (B) (C) (D) 二、填空题 1V

11、B是建立在BASIC语言基础上的 可见 化编程语言或编程环境。 2在窗体上已建立多个控件如Text1、Label1、Command1，若要程序一运行时焦点就定位在Command1控件上，应对Command1控件设置 TabIndex 属性的值为 0 。 3在VB中，1234、123456&、1.2346E+5、1.2346D+5这4个常数分别表示 整形 、 长整形 、 单精度 、 双精度 类型。 4表示x是5的倍数或是9的倍数的逻辑表达式为 x mod 5 = 0 or x mod 9=0 。 5数组声明时下标下界默认为0，利用 Opation Base 1 语句可以使下标为1。 6传地址方式

12、是当过程被调用时，形参和实参共享 存储单元 。 7窗体中的模块级变量应在 窗口模块 段声明，它作用于该窗体的 全局范围 。 8当用户单击滚动条的空白处时，滑块移动的增量值由 LargeChange 属性决定。 9如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“ - (减号) ”符号，那么显示时形成一个分隔符。 10使用 Scale 方法可以自定义坐标系。 11使用Line方法画矩形，不许在指令中使用关键字 B 。 12使用SQL语句设置ADO控件的RecordSource属性，这CommandType属性需要设置成 1(adCmdTe

13、xt)或者(adCmdUnknown) 。 13为了显示一个窗体，所使用的方法为show；而为了隐藏一个窗体，所使用的方法为_Hide_。 14如果要将某个命令按钮不显示，则可将_Visible_属性设置为False 15在VB中窗体文件的扩展名为_.FRM_。 三、编程应用题 1.程序阅读，写出下列程序的运行结果。 (1) Private Sub Command1_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

14、) For i=1 to UBound(a) sum=sum+a(i) If a(i)= AAnd UCase=ZThen VB程序设计试题及答案（二） 一、单选题 1. VB6.0集成开发环境不包括 A 窗口。 (A) DOS界面窗口 (B) 窗体窗口 (C) 代码窗口 (D) 属性窗口 2. 有程序代码如下: C Tex1.Text= Tex1.Text 则Tex1、Text、 Tex1.Text 分别代表 (A) 对象、值、属性 (B) 对象、方法、属性 (C) 对象、属性、值 (D) 属性、对象、值 3. 下面关于对象的描述中， A 是错误的。 (A) 对象就是自定义结构变量 (B)

15、对象代表正在创建的系统中的一个实体 (C) 对象是一个特征和操作的封装体 (D) 对象之间的信息传递是通过消息进行的 4. 要使某控件在运行时不可显示，应对 B 属性进行设置。 (A) EnabIed (B) Visible (C) Backco lor (D) Caption 5. 与数学表达式 对应 ，不正确的VB算术表达式是 D 。 (A) a*b/(3*c*d) (B) a/3*b/c/d (C) a*b/3/c/d (D) a*b/3*c*d 6. InputBox函数返回值的类型是 B 。 (A) 整型数值 (B) 字符串 (C) 变体 （D） 数值或字符串 7. 下面正确的赋值语

16、句是 C 。 (A) x+y=30 (B) y= *r*r (C) y=x+30 (D) 3y=x 8. 下面程序段运行后，显示的结果是 C 。 Dim x If x Then Print x Else Print x+1 (A)l (B)O (C)-1 (D)显示出错信息 9. 下面程序段，运行后显示的结果是 A 。 Dim x x=Int(Rnd)+5 Select Case x Case 5 Print 优秀 Case 4 Print 良好 Case 3 Print 通过 CaseE Else Print 不通过 EndSelect (A) 优秀 (B) 良好 (C) 通过 (D) 不通

17、过 10.下列循环结构能正常结束循环的是 C 。 (A) i=5 (B) i=1 Do Do i=i+1 i=i+2 Loop Until i0 Loop Until i=1 11.下面的程序段的运行结果为多少？ D Private Sub Command1_Click( ) For i=1 to 5 n=0 For j=i to 5 n=n+1 Next j Next i Print n End Sub (A) 10 (B) 5 (C) 15 (D) 1 12.要分配存放如下矩阵的数据， C 数组声明语句能实现（不浪费空间）。 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8

18、9.9 (A) Dim a(9) As Single (B) Dim a(3,3) As Single (C) Dim a(-1 to 1, -5 to -3) As Single (D) Dim a(-3 to -1, 5 to 7) As Integer 13.在窗体的通用声明段自定义了数据类型Students，下列 A 定义方式是正确的。 (A) Private Type Students (B) Type Students Name As Sting*10 Name As Sting*10 Studno As Integer Studno As Integer End Type End Students (C) Type Students (D) Type Students Name String*10 Name As Sting*10 Studno Integer Studno As Integer