智慧树知到答案VISUAL BASIC程序设计（吉林医药学院）最新答案

第三章 单元测试

1、单选题：
结构化程序设计的三种基本结构不包括（ ）。

选项：
A:倒序结构
B:选择结构
C:循环结构
D:顺序结构
答案: 【】

2、单选题：
下面四个语句中，能打印显示20*30字样的是（  ）。

选项：
A:Print“20*30”
B:Print val(“20”)*val(“30”)
C:Print 20*30
D:Print Chr(20)+“*”+Chr(30)
答案: 【】

3、单选题：
关于MsgBox函数，以下说法不正确的是（  ）。

选项：
A:“标题”参数可选，显示在对话框标题栏中的字符串表达式
B:“按钮”参数是数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和
C:“提示”参数用于在MsgBox函数产生的对话框内显示提示信息
D:MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关
答案: 【】

4、单选题：
语句If x=1 Then y=1,下列说法正确的是(  )。

选项：
A:x=1和y=1均为关系表达式
B:x=1和y=1均为赋值语句
C:x=1为关系表达式,y=1为赋值语句

D:x=1为赋值语句, y=1为关系表达式

答案: 【
】

5、单选题：
下面程序段执行结果为(  )。                x = 5 : y = -6If not x > 0 Then      x = y – 3 Else      y = x + 3End IfPrint  x – y; y – x

选项：
A:3  -3
B:-3  3
C:-6  5
D:5  -9
答案: 【】

6、单选题：
编写如下事件过程:   Private Sub Form_Click()    score=Int(Rnd*10)+80     Select Case score          Case Is<  60             a$=”F”          Case 60 To 69         a$=”D”          Case 70 To 79         a$=”C”             Case 80 To 89         a$=”B”          Case Else         a$=”A”     End Select    Print a$   End Sub    程序运行后,单击窗体,则窗体上显示的内容是( )。

选项：
A: B
B: D
C: A
D: C
答案: 【 】

7、单选题：
循环结构For I%= -1 to –17  Step –2 共执行( )次。

选项：
A: 8
B: 9
C: 5
D: 6
答案: 【 】

8、单选题：
下列程序段的执行结果为( )。 a=0:b=1 Do    a=a+b     b=b+1 Loop While a<10 Print a;b
选项：
A: 0  1
B: 10  5
C: a  b
D: 10  30
答案: 【】

9、单选题：
有如下程序,运行后输出的结果是( )。j=0:n=0 Do While  n<3      j=(j+1)*(j+2)     n=n+1 Loop Print j;n
选项：
A: 3  3
B: 0  1
C: 182  3
D: 30  4
答案: 【】

10、单选题：
下列的程序段执行后,x的值为( )。x=0 For i=1 To 10    For j=i To 10         x=x+1     Next j Next i

选项：
A: 5
B: 50
C: 55
D: 105
答案: 【

第四章 单元测试

1、单选题：
以下关于静态数组的描述正确的是（   ）。
选项：
A:

静态数组的大小是可变的，但所有数组元素的类型必须相同

B:

静态数组的大小是固定的，可以有不同类型的数组元素

C:

静态数组的大小是可变的，可以有不同类型的数组元素

D:

静态数组的大小是固定的，所有数组元素的类型必须相同

答案: 【

】

2、单选题：
执行下面程序段后，输出的结果为（  ）。    Dim m(5) As Integer    s = 0    For i = 0 To 5        m(i) = 5    Next i    For j = 0 To 5        s = s + m(j)    Next j

Print s
选项：
A:

20

B:

30

C:

35

D:

25

答案: 【

】

3、单选题：
下面程序：Private Sub Form_Click()    Dim a(100) As Integer    For i = 1 To 10        j = i * i        a(j) = j    Next i    Print a(25)End Sub运行后，单击窗体，则输出的结果是（   ）。
选项：
A:

81

B:

25

C:

49

D:

36

答案: 【

】

4、单选题：

有如下语句：

Option Base 1

Private Sub Command1_Click()

Dim A(2, -1 To 1) As Integer

……

End Sub 以上语句所定义的数组A为（   ）维数组，共有（   ）个元素，第一维下标从（   ）到（   ），第二维下标从（   ）到（   ）。
选项：
A:

2,1,6,-1,1,2

B:

6,2,1,2,-1,1

C:

1,2,6,2,-1,1

D:

2,6,1,2,-1,1

答案: 【

】

5、单选题：
有如下程序：    Const n = -5    Const m = 6    Dim a(n To m) As Integer    For i = LBound(a, 1) To UBound(a, 1)        a(i) = i    Next i    Print a(LBound(a, 1)); a(UBound(a, 1))运行后输出的结果为（   ）。
选项：
A:

-5  6

B:

0  0

C:

0  6

D:

-5  0

答案: 【

】

6、单选题：
下面关于控件数组与一般控件的叙述中正确的是（   ）。
选项：
A:

控件数组的建立通过Dim语句声明，而一般控件不需要声明

B:

控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件

C:

控件数组的Index值为1，而一般控件的Index值为0

D:

控件数组的索引属性值Index值为0，而一般控件的Index值为空

答案: 【

】

7、单选题：
如果要对已经声明的数组重新定义大小，并保留原有数据，可以使用语句（  ）。
选项：
A:

Dim

B:

ReDim

C:

ReDim Preserve

D:

Dim Preserve

答案: 【

】

8、单选题：
下列程序的输出结果为（   ）。

Private Sub Command1_Click()

Dim a

ReDim a(6)

For j=1 To 5

a(j)=j*j

Next j

Print a(a(2)*a(3)-a(4)*2)+a(5)

End Sub
选项：
A:

36

B:

16

C:

25

D:

41

答案: 【

】

9、单选题：
执行下面程序段后，输出的结果为（  ）。    Dim a(10, 10) As Integer    For i = 2 To 4        For j = 4 To 5            a(i, j) = i * j        Next j    Next i    Print a(2, 5) + a(3, 4) + a(4, 5)
选项：
A:

42

B:

52

C:

32

D:

22

答案: 【

】

10、单选题：
要分配存放如下方阵的数据，正确的且最节约存储空间的数组声明语句是（  ）。

1.1  2.2   3.3

4.4  5.5   6.6

7.7  8.8   9.9
选项：
A:

Dim a(-1 To 1, -5 To -3) As Single

B:

Dim a(9) As Single

C:

Dim a(-3 to 1, -5 to 7) As Integer

D:

Dim a(3, 3) As Single

答案: 【

】

第五章 单元测试

1、单选题：
假定有如下的Sub过程：Sub fun(x As Single, y As Single)    t = x    x = t / y    y = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()    Dim a As Single    Dim b As Single    a = 6    b = 4    fun a, b    Print a, bEnd Sub程序运行后，单击命令按钮，输出结果为（   ）。
选项：
A:

5  4

B:

1.5  2

C:

1.25  4

D:

1  1

答案: 【

】

2、单选题：
假定有以下函数过程：Function Fun(s As String) As String    Dim s1 As String    For i = 1 To Len(s)        s1 = UCase(Mid(s, i, 1)) + s1    Next i    Fun = s1End Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()    Dim Str1 As String    Dim Str2 As String    Str1 = InputBox(“请输入一个字符串”)    Str2 = Fun(Str1)    Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后再窗体上输出的结果为（   ）。
选项：
A:

Abcdefg

B:

gfedcba

C:

ABCDEFG

D:

GFEDCBA

答案: 【

】

3、单选题：
有如下函数过程：Function secproc(x As Integer, y As Integer, z As Integer)    secproc = 3 * y + z + 2 * xEnd Function Private Sub Command1_Click()    Dim a As Integer, b As Integer, c As Integer    a = 2: b = 3: c = 4    Print secproc(c, b, a)End Sub该程序的运行结果是（   ）。
选项：
A:

19

B:

20

C:

18

D:

17

答案: 【

】

4、单选题：
有如下函数过程：Function Cys(ByVal x As Integer, ByVal y As Integer) As Integer    Dim quotients    Do While y <> 0        quotients = x / y        x = y        y = quotients    Loop    Cys = xEnd Function以下是调用该函数的事件过程，该程序的运行结果是（   ）。Private Sub Command1_Click()    Dim a As Integer    Dim b As Integer    a = 10    b = 2    x = Cys(a, b)    Print xEnd Sub
选项：
A:

0

B:

100

C:

25

D:

5

答案: 【

5、单选题：
以下是一个能返回数组a中最大数的函数过程代码：

Function maxval(a() As Integer) As Integer

Dim max%

max = 1

For i = 2 To 10

If a(i) > a(max) Then max = i

Next i

maxval = max

End Function

Private Sub Command1_Click()

Dim x(1 To 10) As Integer

For i = 1 To 10

x(i) = Int(Rnd() * 100)

Print x(i);

Next i

Print

Print maxval(x())

End Sub程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（  ）。
选项：
A:

语句“max = 1”应改为“max = a(1)”

B:

语句“For i = 2 To 10”应改为“For i = 1 To 10”

C:

If语句“max = i”应改为“max = a(i)”

D:

语句“maxval = max ”应改为“maxval  = a(max)”

答案: 【

】

6、单选题：
在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：Function Fun1(ByVal a As Integer, b As Integer) As Integer    Dim t As Integer    t = a – b    b = t + a    Fun1 = t + bEnd Function Private Sub Command1_Click()    Dim x As Integer    x = 10    Print Fun1(Fun1(x, (Fun1(x, x – 1))), x – 1)End Sub程序运行后，单击命令按钮，输出结果是(　　)。
选项：
A:

10

B:

0

C:

11

D:

21

答案: 【

】

7、单选题：
下面程序的运行结果为（   ）。Dim a%, b%, c%Sub p1(x%, y%)    Dim c As Integer    x = 2 * x: y = y + 2: c = x + yEnd SubSub p2(x%, ByVal y%)    Dim c As Integer    x = 2 * x: y = y + 2: c = x + yEnd SubPrivate Sub Command1_Click()    a = 2: b = 4: c = 6    Call p1(a, b)    Call p2(a, b)    Print a; b; cEnd Sub
选项：
A:

8  8  6

B:

8  6  6

C:

4  6  6

D:

4  6  10

答案: 【

】

8、单选题：
下面程序：Function a(x)    Static b As Integer    b = b + x ^ 2    Print bEnd Function Private Sub Command1_Click()    Dim c%    c = a(2)End Sub单击两次命令按钮，第二次显示的结果是（   ）。
选项：
A:

4

B:

6

C:

2

D:

8

答案: 【

】

9、单选题：
下列叙述中正确的是（   ）。
选项：
A:

在调用过程时，所有局部变量被系统初始化为0或空字符串

B:

局部变量的作用域可以超出所定义的过程

C:

在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程

D:

在窗体的Form_Load事件中定义的变量是全局变量

答案: 【

】

10、单选题：
若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应将该过程放在  （   ）中。
选项：
A:

类模块

B:

窗体模块

C:

工程

D:

标准模块

答案: 【

】

第六章 单元测试

1、单选题：
若要求显示一个指定窗体,所用的方法是(  )。

选项：
A:

Load

B:

Show

C:

Open

D:

Hide

答案: 【

】

2、单选题：
确定一个窗体或控件大小的属性是(  )。

选项：
A:

Width和Height

B:

Top和Left

C:

Top和Right

D:

Width和Top

答案: 【

】

3、单选题：
当一个工程含有多个窗体时,其中的启动窗体是(  )。

选项：
A:

在“工程属性”对话框中指定的窗体

B:

第一个添加的窗体

C:

最后一个添加的窗体

D:

启动 Visual Basic时建立的窗体

答案: 【

】

4、单选题：
每建立一个窗体,工程管理器窗口中就会增加一个(  )。

选项：
A:

程序模块文件

B:

窗体文件

C:

工程文件

D:

类模块文件

答案: 【

】

5、单选题：
当运行程序时,系统自动执行启动窗体的(  )事件过程。

选项：
A:

GotFocus

B:

UnLoad

C:

Load

D:

Click

答案: 【

】

6、单选题：
若要改变窗体中显示文本的颜色,应该使用的属性是(  )。

选项：
A:

Font

B:

BackColor

C:

ForeColor

D:

Caption

答案: 【

】

7、单选题：

在设计阶段,当双击窗体上的某个控件时,所打开的窗口是(  )。
选项：
A:

代码窗口

B:

工具箱窗口

C:

属性窗口

D:

工程资源管理器窗口

答案: 【

】

8、单选题：
如果要改变窗体的标题,需要设置窗体对象的哪一属性(  )。
选项：
A:

Name

B:

Caption

C:

BackColor

D:

BorderStyle

答案: 【

】

9、单选题：
Cls方法可清除窗体或图片框中的信息是(  )。

选项：
A:

以上方法都对

B:

程序设计时产生的图形和文字

C:

Picture属性设置的背景图案

D:

在设计时放置的控件

答案: 【

】

10、单选题：

窗体的Enable属性的属性值是(  )类型的数据。
选项：
A:

实型

B:

字符型

C:

逻辑型

D:

整型

答案: 【

逻辑型

】

第七章 单元测试

1、单选题：
一般不用来触发事件的对象是(  )。

选项：
A:

文本框

B:

标签

C:

窗体

D:

命令按钮

答案: 【

】

2、单选题：
如果将文本框的Locked属性设置为True,则以下说法(  )是正确的。

选项：
A:

运行时用户不可以在界面上修改文本框中的内容

B:

此时在属性窗口不可以修改文本框的Text属性值

C:

以上均不正确

D:

在程序代码中不可以修改文本框的内容,如：不可以使用语句Text1.Text=”aa”

答案: 【

】

3、单选题：
单击命令按钮Commandl必将调用的事件(  )。

选项：
A:

Dbclick

B:

KeyPress

C:

LostFocus

D:

Click

答案: 【

】

4、单选题：
能够改变复选框中背景颜色的属性是(  )。

选项：
A:

Font

B:

FontColor

C:

Value

D:

BackColor

答案: 【

】

5、单选题：
以下不属于同类的是(  )。

选项：
A:

Click

B:

Top

C:

Caption

D:

Name

答案: 【

】

6、单选题：
列表框中列表项的数目可通过(  )属性的值获得。

选项：
A:

Index

B:

Count

C:

ListCount

D:

SelCount

答案: 【

】

7、单选题：

组合框控件是将(  )组合成一个控件。
选项：
A:

复选框控件和选项按钮控件

B:

标签控件和文本框控件

C:

列表框控件和文本框控件

D:

标签控件和列表框控件

答案: 【

】

8、单选题：
要在图片框P1中打印字符串”How Are You”,应使用语句(  )。

选项：
A:

Picture1.Print=”How Are You”

B:

P1.Picture=LoadPicture(“How Are You”)

C:

Print”How Are You”

D:

P1.Print”How Are You”

答案: 【

】

9、单选题：
在窗体上画一个名称为Timer1的计时器控件,要求每隔0.1秒发生一次计时器事件,则以下正确的属性设置语句是(  )。

选项：
A:

Timer1. Enabled =0.1

B:

Timer1.Interval =0.1

C:

Timer1.Interval=100

D:

Timer1. Enabled=100

答案: 【

】

10、单选题：
以下控件中不属于容器的是(  )。

选项：
A:

Form

B:

Frame

C:

Image

D:

PictureBox

答案: 【

】

第八章 单元测试

1、单选题：
刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是（）。

选项：
A:图片框

B:通用对话框

C:文本框

D:单选按钮
答案: 【
】

2、单选题：
将通用对话框类型,设置为字体对话框,可修改该控件的（）属性。

选项：
A:filter

B:font
C:action

D:filename

答案: 【
】

3、单选题：
下列属性属于颜色对话框的是（）。

选项：
A:FontSize

B:FileName
C:Min

D:Color

答案: 【
】

4、单选题：
在窗体上建立通用对话框必须先将（）添加到工具箱中。

选项：
A:Data控件
B:VBComboBox控件

C:Form控件

D:CommonDialog控件

答案: 【
】

5、单选题：
将通用对话框CommandDialog1的类型设置成另存为对话框,可调用该控件的（）方法。

选项：
A:ShowColor

B:ShowOpen
C:ShowSave

D:ShowFont

答案: 【
】

6、单选题：
下列事件过程可以将打开对话框的标题改为”刑事案件卷宗”的是（）。

选项：
A:

Private Sub Command1_Click()

CommonDialogl.DialogTitle=”刑事案件卷宗”

CommonDialogl.ShowOpen

End sub

B:

Private Sub Command1_Click()

CommonDialogl.DialogTitle=”刑事案件卷宗”

CommonDialogl.Show

End sub

C:

Private Sub Command1_Click()

CommonDialogl.Filter =”刑事案件卷宗”

CommonDialogl.ShowSave

End sub

D:

Private Sub Command1_Click()

CommonDialogl.DialogTitle=”刑事案件卷宗”

CommonDialogl.ShowColor

End sub

答案: 【

】

7、单选题：
窗体上有一公共对话框Commondialog1,和一个命令按钮Command1,当单击按钮时程序的功能是（）。

Private Sub Command1_Click()

Commondialog1.ShowColor

End Sub

选项：
A:打开字体对话框
B:打开保存对话框
C:打开颜色对话框
D:打开文件对话框
答案: 【

8、单选题：

在窗体上建立一个通用对话框，名称为 CommonDialog1，用下面的语句可以建立一个对话框，CommonDialog1.Action=2

与该语句等价的语句是（）：
选项：
A:CommonDialog1.ShowFont
B:CommonDialog1.ShowSave
C:CommonDialog1.ShowColor
D:CommonDialog1.ShowOpen
答案: 【 】

9、单选题：
在窗体上画一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮，并编写如下事件过程：

Private  Sub  Command1_Click()

CommonDialog1.Filter = “all files(*.*)|*.*|text files|*.txt|bat files(*.bat)|*.bat”

CommonDialog1.filterIndex = 2

CommonDialog1.ShowOpen

MsgBox CommonDialog1.FileName

End  Sub

程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（）：
选项：
A:不确定
B:All Files(*.*)
C:Bath Files(*.bat)
D:Text Files(*.txt)
答案: 【】

10、单选题：
以下叙述中错误的是（）。
选项：
A:在程序运行时，通用对话框控件是不可见的
B:调用通用对话框控件的ShowColor方法，可以打开颜色对话框
C:调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件
D:在同一个程序中，用不同的方法，如 ShowOpen 或 ShowSave() 等打开的通用对话框具有不同的作用
答案: 【 】

第九章 单元测试

1、单选题：
下列选项中不正确的是(  )。

选项：
A:每个菜单项都是一个对象,所以也有属性和事件
B:每个菜单项都只有一个Click事件

C:菜单编辑器中,标题可不输入,而名称必须输入

D:菜单项的属性可以在属性窗口中设计

答案: 【
】

2、单选题：
在用菜单编辑器设计菜单时,必须输入的项是(  )。

选项：
A:索引
B:名称
C:快捷键
D:标题
答案: 【】

3、单选题：
假定有一个菜单项,名称为MenuItem,为了运行时使该菜单项失效(变灰),应使用的语句为(  )。

选项：
A:MenuItem.Enabled=False
B:MenuItem.Visible=True

C:MenuItem.Visible=False

D:MenuItem.Enabled=True

答案: 【】

4、单选题：
一个菜单项是不是一个分隔条,由(  )属性决定。

选项：
A:Name(名称)
B:Visible

C:Caption

D:Enabled

答案: 【
】

5、单选题：
要使用菜单项MentOne在程序运行时失效,使用的语句是(  )。

选项：
A:MentOne.Visble=True
B:MentOne.Enabled=True

C:MentOne.Visble=False

D:MentOne.Enabled=False

答案: 【
】

6、单选题：
菜单控件仅支持下面哪一事件（）。

选项：
A:MouseDown
B:Load
C:KeyPress
D:Click
答案: 【

7、单选题：
用键盘的光标键选中某一菜单项,并按回车将触发菜单的（）的事件。

选项：
A:KeyPress
B:KeyDown
C:KeyUp
D:Click
答案: 【】

8、单选题：
设菜单中有一个菜单项为”Open”.若要为该菜单命令设置访问键,即按下ALT及字母O 时,能够执行Open命令,则在菜单编辑器中设置”Open”命令的方式是（）。

选项：
A:把Name属性设置为&Open
B:把Caption属性设置为O&pen
C:把Caption属性设置为&Open
D:把Name属性设置为O&pen
答案: 【】

9、单选题：
下列不能打开菜单编辑器的操作是（）。
选项：
A:执行“工具”菜单中的“菜单编辑器”命令
B:按Shift+Alt+M键
C:单击工具栏中的“菜单编辑器”按钮
D:按 Ctrl+E 健
答案: 【】

10、单选题：

建立弹出式菜单使用的命令是（）。
选项：
A:CreateMenu
B:PopupItem
C:PopupMenu
D:BuildMenu
答案: 【】

第十章 单元测试

1、单选题：
使用 Circle (1000, 1000), 650 语句在窗体上绘制一个圆，则圆的线条颜色由窗体的(     )属性决定。

选项：
A:DrawWidth

B:Caption

C:BackColor
D:ForeColor

答案: 【
】

2、单选题：
执行指令”Line(1200,1200)-Step(1000,500),,B”后,CurrentX=(  )。

选项：
A:1000
B:1700
C:1200
D:2200
答案: 【】

3、单选题：
运行以下程序后,输出的图形是(  )。For r=0 To 150

Circle(320,240),r

For i=1 To l000

Next i Next r

选项：
A:一个固定的空心圆

B:一个半径逐渐变小的空心圆
C:一个半径逐渐变大的空心圆

D:一个固定的实心圆

答案: 【
】

4、单选题：
下面程序运行的输出是(  )。Private Sub Command1_Click()

Cls

Line(60,60)-(70,70),5,B

Line(50,50)-(80,80),1,B

Line(40,40)-(90,90),2,B

Line(30,30)-(100,100),3,B     Line(20,20)-(110,110),4,B End Sub

选项：
A:相交的彩色正方形

B:同心的彩色圆

C:相交的彩色圆

D:同心的彩色正方形
答案: 【】

5、单选题：
以下的属性和方法中,可重定义坐标系的是(  )。

选项：
A:Scale方法

B:Drawstyle属性
C:DmwWidth属性

D:ScaleMode属性

答案: 【Scale方法
】

6、单选题：
Line(100,100)-Step(400,400)将在窗体()画一直线。
选项：
A:(200,200)到(400,400)
B:(100,100)到(300,300)
C:(100,100)到(400,400)
D:(100,100)到(500,500)
答案: 【】

7、单选题：
vb 中的坐标圆点位于（）。

选项：
A:容器正中央
B:容器右上角
C:容器左上角
D:容器右下角
答案: 【】

8、单选题：
可用来改变坐标度量单位的是（）。

选项：
A:DrawWidth属性
B:Drawstyle属性
C:Scale方法
D:ScaleMode属性
答案: 【】

9、单选题：
在VB的图形方法中,要绘制矩形,需要使用（）。

选项：
A:Pset方法
B:Point方法
C:Circle方法
D:Line方法
答案: 【】

10、单选题：
如果在图片框上使用绘图方法绘制一个实心圆,则图片框的（）属性决定了该圆填充的颜色。
选项：
A:FillColor
B:BackColor
C:DrawStyle
D:ForeColor
答案: 【】

第十一章 单元测试

1、单选题：
当用户按键时，KeyPress、KeyDown、KeyUp事件的执行顺序为(  )。

选项：
A:KeyDown事件、KeyPress事件、KeyUp事件

B:D．KeyDown事件、KeyUp事件与KeyPress事件
C:KeyDown事件、KeyUp事件、KeyPress事件
D:KeyPress事件、KeyDown事件、KeyUp事件
答案: 【
】

2、单选题：
文本框Textl的KeyDown事件过程中参数KeyCode值表示(  )。

选项：
A:所按的键盘键的键码

B:是否按下了Alt键或Ctrl键
C:按下的是哪个鼠标键

D:按下的是哪个数字键

答案: 【
】

3、单选题：
编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub一般情况下(即不按住Shift和锁定大写)运行程序，如按“A”键则输出(  )。

选项：
A:a a

B:A a
C:a A

D:A A

答案: 【】

4、单选题：
在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview设置为True（在激活对象上的控件键盘事件之前，优先激活键盘事件,即Form优先）然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1_Click()Text1.Text=Ucase(SaveAll)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll= SaveAll+Chr(KeyAscii)End Sub程序运行后，在键盘上输入“abcdefg”,单击命令按钮，则文本框显示为(  )。

选项：
A:abcdefg
B:不显示任何信息

C:ABCDEFG

D:出错

答案: 【
】

5、单选题：
在上题中，如果把窗体的KeyPreview设置为False，则文本框中显示的内容为(  )。

选项：
A:ABCDEFG

B:abcdefg
C:出错

D:不显示任何信息

答案: 【
】

6、单选题：
下列关于MouseMove事件，描述正确的是()。
选项：
A:每秒激发一次
B:与鼠标的灵敏度有关
C:伴随鼠标的移动而连续不断的发生
D:当鼠标移动时被激活一次然后等待下次移动
答案: 【】

7、单选题：
当鼠标左键按下时，下列哪个事件被激发()。
选项：
A:KeyDown事件
B:MousePress事件
C:KeyPress事件
D:MouseDown事件
答案: 【】

8、单选题：
在鼠标事件中，语句If Button=2 成立的条件是()。
选项：
A:按键盘数字键2
B:单击鼠标右键
C:单击鼠标左键
D:双击鼠标左键
答案: 【】

9、单选题：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Shift = 6 And Button = 2 Then   Print “BBBB”End IfEnd Sub程序运行后，为在窗体上输出“BBBB”，应执行操作为()。
选项：
A:同时按下Shift和鼠标左键
B:同时按下Ctrl、Alt和鼠标左键
C:同时按下Shift和鼠标右键
D:同时按下Ctrl、Alt和鼠标右键
答案: 【

10、单选题：
编写如下事件过程：Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer)If (Button And 3) = 3 Then   Print “AAAA”End IfEnd Sub程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为()。

选项：
A: 左
B: 同时左，右
C: 按什么键都不显示
D: 右
答案: 【 】

第十二章 单元测试

1、单选题：
按文件中数据的编码方式，文件分为(  )。

选项：
A:顺序文件和随机文件
B:程序文件和数据文件

C:源程序文件和可执行文件

D:ASCII码文件和二进制文件

答案: 【
】

2、单选题：
关于顺序文件的描述，下面正确的是(  )。

选项：
A:每条记录的长度必须相同
B:可通过编程对文件中的某条记录方便地修改

C:文件的组织结构复杂

D:数据以ASCII码形式存放在文件中，所以可通过文本编辑软件显示

答案: 【
】

3、单选题：
文件号最大可取的值为(  )。

选项：
A:511
B:256
C:255
D:512
答案: 【】

4、单选题：
下面哪个函数可测试文件指针是否到文件尾(  )。

选项：
A:BOF

B:EOF

C:LOC

D:LOF
答案: 【
】

5、单选题：
下面哪个函数可得到文件的长度(  )。

选项：
A:LOF
B:BOF

C:LOC
D:EOF

答案: 【】

6、单选题：
对语句Open“c:Test.txt”For Output As #2,以下错误叙述是()。
选项：
A:若C盘根目录下不存在Test.txt，则建立一个名为Test.txt的文件
B:通过该语句打开文件后，可以对文件进行读操作
C:若C盘根目录下存在Test.txt，则打开名为Test.txt的文件
D:执行该语句后，就可以通过Print语句向文件Test.txt中写入信息
答案: 【

7、单选题：
Print #1,STR$中的Print是()。
选项：
A:文件的写语句
B:子程序名
C:文件的读语句
D:在窗体上显示的方法
答案: 【】

8、单选题：
在随机文件操作中，定义记录类型的语句()。
选项：
A:Dim
B:Public
C:Private
D:Type…End Type
答案: 【】

9、单选题：
在二进制文件操作中，读数据使用的语句()。
选项：
A:Get
B:Input
C:Put
D:Write
答案: 【】

10、单选题：
要获得当前驱动器，应使用驱动器列表框的属性为()。
选项：
A:Change
B:FilePath
C:Drive
D:Path
答案: 【】