内容发布更新时间 : 2024/11/9 4:59:39星期一 下面是文章的全部内容请认真阅读。

Dim M(2) For I=1 To 2 M(I)=0 Next I K=2

For I=1 To K For J=1 To K M(J)=M(I)+1 Print M(K); Next J Next I

(A)1 2 2 3 (B)1 2 3 4 (C)0 2 2 3 (D)0 1 2 3 \18 \【单选题】下列程序段的执行结果为______。D Dim A(10),B(5) For I=1 To 10 A(I)=I Next I

For J=1 To 5 B(J)=J*20 Next J A(5)=B(2)

Print \

(A)A(5)=5 (B)A(5)=10 (C)A(5)=20 (D)A(5)=40\《七》。。。略。。。。 《八》

1 \将图片框的_____属性设置为True时，可使图片框根据图片调整大小。(单选题) C A、AutoSize B、AutoReDraw C、Picture D、Stretch\

2 \下面叙述不正确的是_____。(单选题) C

A、驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框 B、驱动器列表框的Drive属性只能在运行时被设置

C、从驱动器列表框中选择驱动器能自动地变更系统当前的工作驱动器 D、驱动器列表框中的Drive属性一发生改变，一定会触发Change事件\

3 \使用目录列表框的_____属性可以返回或设置当前工作目录的完整路径(包括驱动器盘符)。(单选题) B A、Drive B、Path C、Dir

D、ListIndex\

4 \文件列表框中用于设置或返回所选文件的路径的属性是_____。(单选题) D A、File

B、FilePath C、Path

D、FileName\

5 \要触发目录列表框的Change事件为以下_____操作。(单选题) D A、单击所选目录 B、双击所选目录

C、在属性窗口设置其Path属性 D、以上操作都不对\

6 \在目录列表框中，当前被选中的目录的ListIndex属性值为_____。(单选题) D A、－1 B、0 C、1

D、不确定\

7 \编写如下事件过程：

Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii); Print KeyAscii EndSub

运行程序，按下“a”键输出结果为_______。(单选题) A A、A65 B、a97 C、65A D、97a\

8 \将窗体的KeyPreview属性设置为True，然后编写如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode); End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode + 32) End Sub

按下“a”键时，输出结果为_______。(单选题) A A、Aa B、AA C、aa D、aA\

9 \编写如下事件过程：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Shift = 3 And Button = 2 Then Print \ End If End Sub

运行后，为了在窗体上输出“BBBB”，应执行的操作为_______。(单选题) D

A、同时按下Shift键和鼠标左键 B、同时按下Shift键和鼠标右键

C、同时按下Ctrl键，Alt键和鼠标左键 D、同时按下Ctrl键，Shift键和鼠标右键\

10 \下列关于MouseMove事件的判断，正确的是_______。(单选题) A A、当鼠标指针处在窗体边框内时，窗体和控件均能识别MouseMove事件 B、当鼠标指针在屏幕上移动时就会发生MouseMove事件 C、在鼠标移动时，该事件只发生一次

D、当鼠标指针处在控件的边框外时，窗体和控件均能识别MouseMove事件\《九》

1 \【单选题】下面叙述中错误的是_____。D (A)Visual Basic函数分为内部函数和外部函数

(B)函数过程以Function语句开始，以End Function语句结束 (C)函数过程中的函数体中若没有赋值语句<函数过程名>=<表达式>，则函数过程将返回一个默认值

(D)Function过程中可以再定义一个Function过程\2 \【单选题】可以使用____语句退出Sub过程。A (A)Exit Sub (B)Go Off (C)End Sub (D)Exit\3 \【单选题】在主调过程中的参数称为____。B (A)形参 (B)实参 (C)主参 (D)辅参\4 \【单选题】在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1_Click()

Dim x As Integer,y As Integer,z As Integer x=5：y=7：z=0 Text1.Text=\ Call p1(x,y,z) Text1.Text=Str(z) End Sub

Sub p1(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的内容是____。D (A)0 (B)12 (C)Str(z) (D)没有显示 \

5 \【单选题】通用过程可以通过执行“工具”菜单中的____命令来建立。A (A)添加过程 (B)通用过程 (C)添加窗体 (D)添加模块\6 \【单选题】现有如下程序: Private Sub Form_Click() s=0

For i=1 To 5 s=s+f(5+i) Next Print s End Sub

Public Function f(x As Integer) If x>=10 Then t=x+1 Else t=x+2 End If f=t

End Function

运行程序,则窗体上显示的为____。B

(A)38 (B)49 (C)61 (D)70\

7 \【单选题】单击按钮时，以下程序运行后的输出结果是____。A Private Sub Command1_Click()

Dim x As Integer, y As Integer, z As Integer x=1: y=2: z=3

Call God(x, x, z) Print x; x; z

Call God(x, y, y) Print x; y; y End Sub

Private Sub God(x As Integer, y As Integer, z As Integer) x=3 * z + 1 y=2 * z z=x + y End Sub

(A) 6 6 12 7 11 11

(B) 8 5 10 5 11 11

(C) 9 6 12 9 10 15

(D) 8 10 10 5 9 10\

8 \【单选题】下面说法正确的是______。 C

(A)形参可以是变量名或数组名，也可以是定长字符串变量 (B)在调用过程中，实参和形参的数据类型可以不必一一对应 (C)数组作参数是通过传地址方式传送

(D)形参前加\关键字表示按值传递\《十》。。略。。。 《十一》

1 \【单选题】数据库有三种基本模型，它们是 D。 A、关系、连接、嵌套 B、嵌套、层次、关系 C、网络、层次、嵌套 D、网状、层次、关系\2 \【单选题】以下说法错误的是_____。 C A、一个表可以构成一个数据库

B、多个表可以构成数据库

C、一个表中每一条记录中的各项数据具有相同的数据类型 D、同一个字段的数据具有相同的数据类型\

3 \【单选题】要利用数据控件返回数据库中记录集，则需要设置 属性。 B A、Connect B、DatabaseName C、RecordSource D、RecordType\4 \【单选题】Seek方法可在______记录集中进行查找。 A

A、Table类型 B、SnapShot类型 C、Dynaset类型 D、以上三者 \5 \【单选题】下列 组关键字是Select语句中不可缺少的。 A A、Select From B、Select Where C、From Order By D、Select All \

6 \【单选题】语句“Select * From StuInfo Where stuSex = '女'”中的“*”表示________。C A、所有表

B、指定表中的所有字段 C、所有指定条件的记录 D、所有记录\

7 \【单选题】在使用Delete方法删除当前记录后，记录指针位于 A 。 A、被删除记录上 B、被删除记录的上一条 C、被删除记录的下一条 D、记录集的第一条\

8 \【单选题】使用ADO数据控件的ConnectionString属性与数据源建立连接相关信息，在属性页可以有________种不同的连接方式。 C A、1 B、2 C、3 D、4\

9 \【单选题】下列所显示的字符串中，字符串________ 不包含在ADO数据控件的ConnectionString属性。 D

A、Microsoft Jet 3.51 OLE DB Provider B、Data Source=C:\\Mydb.mdb C、Persist Security Info=False D、2-adCmdTable\

10 \【单选题】要通过ADO控件使用SQL语句，ADO的命令类型(CommandType)应设置为________。 C A、8-adcmdUnKnow B、1-adCmdText C、2-adCmdTable

D、4-adCmdStoredProc\