Visual Basic程序设计（吉林医药学院）智慧树知到答案章节测试2023年

第一章测试以下关于VB语言的说法中，正确的是（

）。

A:VB是一种机器语言

B:VB是一种面向过程的语言

C:VB是一种面向对象的语言

D:VB是一种低级语言

答案:C在VisualBasic环境下，当写一个新的VisualBasic程序时，所做的第一件事是（

）。

A:进入VisualBasic环境

B:编写代码

C:新建一个工程

D:打开属性窗口

答案:C以下可以构成语句的是（

）。

A:对象名.属性

B:对象名.事件名

C:对象名.方法名

D:对象名.函数名

答案:C（

）是由VisualBasic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。

A:窗体

B:文件

C:属性

D:方法

答案:D下列不是VisualBasic文件的是（

）。

A:.cls文件

B:.txt

C:.frm文件

D:.bas

答案:B下列不能打开工具箱窗口的操作是()。

A:按Alt+V，然后按Alt+X键

B:按Alt+F8键

C:单击工具栏上的“工具箱”按钮

D:执行“视图”菜单中的“工具箱”命令

答案:B下列可以打开立即窗口的操作是()。

A:Ctrl+E

B:Ctrl+F

C:Ctrl+G

D:Ctrl+D

答案:CVisualBasic6.0集成环境的主窗口中不包括()。

A:工具栏

B:状态栏

C:菜单栏

D:标题栏

答案:B

在Visual

Basic中，不能关闭的窗口是()。

A:属性窗口

B:工程窗口

C:立即窗口

D:窗体设计器窗口

答案:B

VisualBasic是一种面向对象的可视化程序设计语言，采取了()的编程机制。

A:从窗体开始执行

B:事件驱动

C:按书写顺序执行

D:从主程序开始执行

答案:B第二章测试下列符号常量的声明中，（

）是不合法的。

A:ConstaAsSingle=1.1

B:ConstaAsDouble=Sin（1）

C:ConstaAsInteger=“12”

D:Consta=“OK”

答案:C表达式“Turbo”+“c”>“Ture”+“Basic”的值是（

）。

A:Null

B:出错信息

C:True

D:False

答案:D执行下列语句后，V的值是（

）。A=“56789”

V=Val（Mid（A，3，2））

A:0

B:89

C:67

D:78

答案:D表达式4+56*7/8Mod4的值是（

）。

A:7

B:6

C:4

D:5

答案:D下列符号（

）是VisualBasic中合法的变量名。

A:END

B:8xy

C:x23

D:X8[B]

答案:C在一行内写多条语句时，每个语句之间用（

）来分隔。

A:，

B:、

C:：

D:；

答案:C在VB中，用Single来表示的数据类型是（

）。

A:长整型

B:字符型

C:单精度型

D:逻辑型

答案:C

下列程序段的运行结果是（

）。DimAAsInteger,BAsIntegerA=15B=4Print4+AB

A:7.75

B:-7

C:7

D:8

答案:C

三种逻辑运算符号优先次序为（

）。

A:OR、NOT、AND

B:NOT、OR、AND

C:NOT、AND、OR

D:AND、NOT、OR

答案:C

数学式3abc(d+e)改写为VB表达式为（

）。

A:3abc(d+e)

B:3abc(d+e)

C:3abcd+3abce

D:3abc(d+e)

答案:D第三章测试结构化程序设计的三种基本结构不包括（）。

A:倒序结构

B:循环结构

C:顺序结构

D:选择结构

答案:A下面四个语句中，能打印显示2030字样的是（

）。

A:Print2030

B:Printval(“20”)*val(“30”)

C:PrintChr(20)+“”+Chr(30)

D:Print“2030”

答案:D关于MsgBox函数，以下说法不正确的是（

）。

A:“按钮”参数是数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和

B:“提示”参数用于在MsgBox函数产生的对话框内显示提示信息

C:“标题”参数可选，显示在对话框标题栏中的字符串表达式

D:MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关

答案:D语句Ifx=1Theny=1,下列说法正确的是(

)。

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

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

C:x=1和y=1均为赋值语句

D:x=1和y=1均为关系表达式

答案:A下面程序段执行结果为(

)。

x=5

:y=-6Ifnotx>0Then

x=y–3

Else

y=x+3EndIfPrint

x-y;

y-x

A:5

-9

B:3

-3

C:-6

5

D:-3

3

答案:D编写如下事件过程:

PrivateSubForm_Click()

score=Int(Rnd*10)+80

SelectCasescore

CaseIs<

60

a$="F"

Case60To69

a$=“D”

Case70To79

a$="C"

Case80To89

a$=“B”

CaseElse

a$="A"

EndSelect

Printa$

EndSub

程序运行后,单击窗体,则窗体上显示的内容是()。

A:

D

B:

B

C:

A

D:

C

答案:B循环结构ForI%=-1to–17

Step–2共执行()次。

A:

6

B:

5

C:

9

D:

8

答案:C下列程序段的执行结果为()。a=0:b=1Do

a=a+b

b=b+1LoopWhilea<10Printa;b

A:

0

1

B:

10

5

C:

10

30

D:

a

b

答案:B有如下程序,运行后输出的结果是()。j=0:n=0DoWhile

n<3

j=(j+1)*(j+2)

n=n+1LoopPrintj;n

A:

30

4

B:

0

1

C:

182

3

D:

3

3

答案:C下列的程序段执行后,x的值为()。x=0Fori=1To10

Forj=iTo10

x=x+1

NextjNexti

A:

5

B:

55

C:

105

D:

50

答案:B第四章测试以下关于静态数组的描述正确的是（

）。

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

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

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

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

答案:C执行下面程序段后，输出的结果为（

）。

Dimm(5)AsInteger

s=0

Fori=0To5

m(i)=5

Nexti

Forj=0To5

s=s+m(j)

Nextj

Prints

A:35

B:25

C:30

D:20

答案:C下面程序：PrivateSubForm_Click()

Dima(100)AsInteger

Fori=1To10

j=i*i

a(j)=j

Nexti

Printa(25)EndSub运行后，单击窗体，则输出的结果是（

）。

A:36

B:25

C:81

D:49

答案:B有如下语句：OptionBase1PrivateSubCommand1_Click()

DimA(2,-1To1)AsInteger

……EndSub 以上语句所定义的数组A为（

）维数组，共有（

）个元素，第一维下标从（

）到（

），第二维下标从（

）到（

）。

A:1,2,6,2,-1,1

B:2,6,1,2,-1,1

C:6,2,1,2,-1,1

D:2,1,6,-1,1,2

答案:B有如下程序：

Constn=-5

Constm=6

Dima(nTom)AsInteger

Fori=LBound(a,1)ToUBound(a,1)

a(i)=i

Nexti

Printa(LBound(a,1));a(UBound(a,1))运行后输出的结果为（

）。

A:-5

6

B:

0

6

C:-5

0

D:

0

0

答案:A下面关于控件数组与一般控件的叙述中正确的是（

）。

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

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

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

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

答案:D如果要对已经声明的数组重新定义大小，并保留原有数据，可以使用语句（

）。

A:Dim

B:ReDim

C:ReDimPreserve

D:DimPreserve

答案:C下列程序的输出结果为（

）。

Private

Sub

Command1_Click()

Dim

a

ReDim

a(6)

For

j=1

To

5

a(j)=jj

Next

j

Print

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

End

Sub

A:

36

B:

25

C:

16

D:

41

答案:D

执行下面程序段后，输出的结果为（

）。

Dima(10,10)AsInteger

Fori=2To4

Forj=4To5

a(i,j)=i*j

Nextj

Nexti

Printa(2,5)+a(3,4)+a(4,5)

A:

22

B:

32

C:

52

D:

42

答案:D要分配存放如下方阵的数据，正确的且最节约存储空间的数组声明语句是（

）。

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(-3to1,-5to7)

As

Integer

C:Dim

a(9)

As

Single

D:Dim

a(3,3)

As

Single

答案:A第五章测试假定有如下的Sub过程：Subfun(xAsSingle,yAsSingle)

t=x

x=t/y

y=tModyEndSub在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()

DimaAsSingle

DimbAsSingle

a=6

b=4

funa,b

Printa,bEndSub程序运行后，单击命令按钮，输出结果为（

）。

A:1

1

B:5

4

C:1.5

2

D:1.25

4

答案:C假定有以下函数过程：FunctionFun(sAsString)AsString

Dims1AsString

Fori=1ToLen(s)

s1=UCase(Mid(s,i,1))+s1

Nexti

Fun=s1EndFunction在窗体上添加一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()

DimStr1AsString

DimStr2AsString

Str1=InputBox(“请输入一个字符串”)

Str2=Fun(Str1)

PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后再窗体上输出的结果为（

）。

A:gfedcba

B:ABCDEFG

C:Abcdefg

D:GFEDCBA

答案:D有如下函数过程：Functionsecproc(xAsInteger,yAsInteger,zAsInteger)

secproc=3*y+z+2*xEndFunction

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger,cAsInteger

a=2:b=3:c=4

Printsecproc(c,b,a)EndSub该程序的运行结果是（

）。

A:19

B:18

C:20

D:17

答案:A有如下函数过程：FunctionCys(ByValxAsInteger,ByValyAsInteger)AsInteger

Dimquotients

DoWhiley<>0

quotients=x/y

x=y

y=quotients

Loop

Cys=xEndFunction以下是调用该函数的事件过程，该程序的运行结果是（

）。PrivateSubCommand1_Click()

DimaAsInteger

DimbAsInteger

a=10

b=2

x=Cys(a,b)

PrintxEndSub

A:5

B:100

C:25

D:0

答案:A以下是一个能返回数组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

PrivateSubCommand1_Click()

Dimx(1To10)AsInteger

Fori=1To10

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

Printx(i);

Nexti

Print

Printmaxval(x())EndSub程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（

）。

A:If语句“max

=

i”应改为“max

=

a(i)”

B:语句“For

i

=

2

To

10”应改为“For

i

=

1

To

10”

C:语句“max

=

1”应改为“max

=

a(1)”

D:语句“maxval

=

max

”应改为“maxval

=

a(max)”

答案:D

在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：FunctionFun1(ByValaAsInteger,bAsInteger)AsInteger

DimtAsInteger

t=a-b

b=t+a

Fun1=t+bEndFunction

PrivateSubCommand1_Click()

DimxAsInteger

x=10

PrintFun1(Fun1(x,(Fun1(x,x-1))),x-1)EndSub程序运行后，单击命令按钮，输出结果是()。

A:

21

B:

0

C:

11

D:

10

答案:B下面程序的运行结果为（

）。Dima%,b%,c%Subp1(x%,y%)

DimcAsInteger

x=2*x:y=y+2:c=x+yEndSubSubp2(x%,ByValy%)

DimcAsInteger

x=2*x:y=y+2:c=x+yEndSubPrivateSubCommand1_Click()

a=2:b=4:c=6

Callp1(a,b)

Callp2(a,b)

Printa;b;cEndSub

A:

8

8

6

B:

4

6

6

C:

4

6

10

D:

8

6

6

答案:D下面程序：Functiona(x)

StaticbAsInteger

b=b+x^2

PrintbEndFunction

PrivateSubCommand1_Click()

Dimc%

c=a(2)EndSub单击两次命令按钮，第二次显示的结果是（

）。

A:

6

B:

8

C:

2

D:

4

答案:B下列叙述中正确的是（

）。

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

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

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

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

答案:B若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应将该过程放在

（

）中。

A:类模块

B:窗体模块

C:工程

D:标准模块

答案:D第六章测试若要求显示一个指定窗体,所用的方法是(

)。

A:Hide

B:Show

C:Open

D:Load

答案:B确定一个窗体或控件大小的属性是(

)。

A:Top和Right

B:Width和Height

C:Width和Top

D:Top和Left

答案:B当一个工程含有多个窗体时,其中的启动窗体是(

)。

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

B:启动VisualBasic时建立的窗体

C:第一个添加的窗体

D:最后一个添加的窗体

答案:A每建立一个窗体,工程管理器窗口中就会增加一个(

)。

A:窗体文件

B:工程文件

C:类模块文件

D:程序模块文件

答案:A当运行程序时,系统自动执行启动窗体的(

)事件过程。

A:Load

B:Click

C:GotFocus

D:UnLoad

答案:A

若要改变窗体中显示文本的颜色,应该使用的属性是(

)。

A:BackColor

B:Font

C:Caption

D:ForeColor

答案:D在设计阶段,当双击窗体上的某个控件时,所打开的窗口是(

)。

A:工程资源管理器窗口

B:代码窗口

C:属性窗口

D:工具箱窗口

答案:B

如果要改变窗体的标题,需要设置窗体对象的哪一属性(

)。

A:BackColor

B:Caption

C:Name

D:BorderStyle

答案:B

Cls方法可清除窗体或图片框中的信息是(

)。

A:在设计时放置的控件

B:以上方法都对

C:Picture属性设置的背景图案

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

答案:D窗体的Enable属性的属性值是(

)类型的数据。

A:

字符型

B:

逻辑型

C:

实型

D:

整型

答案:B第七章测试一般不用来触发事件的对象是(

)。

A:文本框

B:命令按钮

C:标签

D:窗体

答案:C如果将文本框的Locked属性设置为True,则以下说法(

)是正确的。

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

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

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

D:以上均不正确

答案:B单击命令按钮Commandl必将调用的事件(

)。

A:LostFocus

B:Dbclick

C:Click

D:KeyPress

答案:C能够改变复选框中背景颜色的属性是(

)。

A:Font

B:FontColor

C:BackColor

D:Value

答案:C以下不属于同类的是(

)。

A:Name

B:Click

C:Top

D:Caption

答案:B

列表框中列表项的数目可通过(

)属性的值获得。

A:ListCount

B:Count

C:SelCount

D:Index

答案:A组合框控件是将(

)组合成一个控件。

A:列表框控件和文本框控件

B:标签控件和列表框控件

C:标签控件和文本框控件

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

答案:A

要在图片框P1中打印字符串”HowAreYou”,应使用语句(

)。

A:P1.Print”HowAreYou”

B:P1.Picture=LoadPicture(“HowAreYou”)

C:Print”HowAreYou”

D:Picture1.Print=“HowAreYou”

答案:A

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

)。

A:Timer1.Enabled=0.1

B:Timer1.Interval=0.1

C:Timer1.Interval=100

D:Timer1.Enabled=100

答案:C

以下控件中不属于容器的是(

)。

A:PictureBox

B:Form

C:Image

D:Frame

答案:C第八章测试刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是（）。

A:文本框

B:通用对话框

C:图片框

D:单选按钮

答案:B将通用对话框类型,设置为字体对话框,可修改该控件的（）属性。

A:action

B:font

C:filter

D:filename

答案:A下列属性属于颜色对话框的是（）。

A:FontSize

B:FileName

C:Color

D:Min

答案:C在窗体上建立通用对话框必须先将（）添加到工具箱中。

A:Data控件

B:CommonDialog控件

C:VBComboBox控件

D:Form控件

答案:B将通用对话框CommandDialog1的类型设置成另存为对话框,可调用该控件的（）方法。

A:ShowOpen

B:ShowColor

C:ShowFont

D:ShowSave

答案:D

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

A:

PrivateSubCommand1_Click()CommonDialogl.Filter=“刑事案件卷宗”

CommonDialogl.ShowSave

Endsub

B:

PrivateSubCommand1_Click()CommonDialogl.DialogTitle=“刑事案件卷宗”

CommonDialogl.Show

Endsub

C:

PrivateSubCommand1_Click()CommonDialogl.DialogTitle=“刑事案件卷宗”

CommonDialogl.ShowColor

Endsub

D:

PrivateSubCommand1_Click()CommonDialogl.DialogTitle=“刑事案件卷宗”

CommonDialogl.ShowOpen

Endsub

答案:D

窗体上有一公共对话框Commondialog1,和一个命令按钮Command1,当单击按钮时程序的功能是（）。PrivateSubCommand1_Click()Commondialog1.ShowColorEndSub

A:打开保存对话框

B:打开字体对话框

C:打开文件对话框

D:打开颜色对话框

答案:D在窗体上建立一个通用对话框，名称为CommonDialog1，用下面的语句可以建立一个对话框，CommonDialog1.Action=2与该语句等价的语句是（）：

A:CommonDialog1.ShowColor

B:CommonDialog1.ShowSave

C:CommonDialog1.ShowOpen

D:CommonDialog1.ShowFont

答案:B

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

Sub

Command1_Click()CommonDialog1.Filter=“allfiles(.)|.|textfiles|.txt|batfiles(.bat)|.bat”CommonDialog1.filterIndex=2

CommonDialog1.ShowOpen

MsgBoxCommonDialog1.FileNameEnd

Sub

程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（）：

A:AllFiles(.)

B:BathFiles(.bat)

C:TextFiles(*.txt)

D:不确定

答案:C

以下叙述中错误的是（）。

A:在程序运行时，通用对话框控件是不可见的

B:在同一个程序中，用不同的方法，如ShowOpen或ShowSave()等打开的通用对话框具有不同的作用

C:调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件

D:调用通用对话框控件的ShowColor方法，可以打开颜色对话框

答案:C第九章测试下列选项中不正确的是(

)。

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

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

C:每个菜单项都是一个对象,所以也有属性和事件

D:每个菜单项都只有一个Click事件

答案:B在用菜单编辑器设计菜单时,必须输入的项是(

)。

A:索引

B:标题

C:名称

D:快捷键

答案:C假定有一个菜单项,名称为MenuItem,为了运行时使该菜单项失效(变灰),应使用的语句为(

)。

A:MenuItem.Enabled=True

B:MenuItem.Enabled=False

C:MenuItem.Visible=True

D:MenuItem.Visible=False

答案:B一个菜单项是不是一个分隔条,由(

)属性决定。

A:Visible

B:Enabled

C:Caption

D:Name(名称)

答案:C要使用菜单项MentOne在程序运行时失效,使用的语句是(

)。

A:MentOne.Visble=True

B:MentOne.Enabled=True

C:MentOne.Visble=False

D:MentOne.Enabled=False

答案:D

菜单控件仅支持下面哪一事件（）。

A:KeyPress

B:MouseDown

C:Click

D:Load

答案:C

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

A:KeyDown

B:Click

C:KeyUp

D:KeyPress

答案:B

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

A:把Caption属性设置为&Open

B:把Caption属性设置为O&pen

C:把Name属性设置为&Open

D:把Name属性设置为O&pen

答案:A

下列不能打开菜单编辑器的操作是（）。

A:按Shift+Alt+M键

B:单击工具栏中的“菜单编辑器”按钮

C:按Ctrl+E健

D:执行“工具”菜单中的“菜单编辑器”命令

答案:A建立弹出式菜单使用的命令是（）。

A:PopupMenu

B:BuildMenu

C:CreateMenu

D:PopupItem

答案:A第十章测试使用Circle(1000,1000),650

语句在窗体上绘制一个圆，则圆的线条颜色由窗体的(

)属性决定。

A:BackColor

B:Caption

C:DrawWidth

D:ForeColor

答案:D执行指令”Line(1200,1200)-Step(1000,500),,B”后,CurrentX=(

)。

A:1000

B:2200

C:1200

D:1700

答案:B运行以下程序后,输出的图形是(

)。Forr=0To150Circle(320,240),rFori=1Tol000NextiNextr

A:一个半径逐渐变大的空心圆

B:一个固定的实心圆

C:一个固定的空心圆

D:一个半径逐渐变小的空心圆

答案:B下面程序运行的输出是(

)。PrivateSubCommand1_Click()ClsLine(60,60)-(70,70),5,BLine(50,50)-(80,80),1,BLine(40,40)-(90,90),2,BLine(30,30)-(100,100),3,B

Line(20,20)-(110,110),4,BEndSub

A:同心的彩色正方形

B:相交的彩色圆

C:同心的彩色圆

D:相交的彩色正方形

答案:A以下的属性和方法中,可重定义坐标系的是(

)。

A:ScaleMode属性

B:Drawstyle属性

C:Scale方法

D:DmwWidth属性

答案:C

Line(100,100)-Step(400,400)将在窗体()画一直线。

A:(100,100)到(400,400)

B:(100,100)到(300,300)

C:(100,100)到(500,500)

D:(200,200)到(400,400)

答案:C

vb中的坐标圆点位于（）。

A:容器右下角

B:容器正中央

C:容器右上角

D:容器左上角

答案:D

可用来改变坐标度量单位的是（）。

A:Drawstyle属性

B:DrawWidth属性

C:Scale方法

D:ScaleMode属性

答案:D

在VB的图形方法中,要绘制矩形,需要使用（）。

A:Pset方法

B:Point方法

C:Circle方法

D:Line方法

答案:D

如果在图片框上使用绘图方法绘制一个实心圆,则图片框的（）属性决定了该圆填充的颜色。

A:BackColor

B:ForeColor

C:FillColor

D:DrawStyle

答案:C第十一章测试当用户按键时，KeyPress、KeyDown、KeyUp事件的执行顺序为(

)。

A:KeyDown事件、KeyPress事件、KeyUp事件

B:KeyPress事件、KeyDown事件、KeyUp事件

C:D．KeyDown事件、KeyUp事件与KeyPress事件

D:KeyDown事件、KeyUp事件、KeyPress事件

答案:A文本框Textl的KeyDown事件过程中参数KeyCode值表示(

)。

A:所按的键盘键的键码

B:按下的是哪个数字键

C:是否按下了Alt键或Ctrl键

D:按下的是哪个鼠标键

答案:A编写如下两个事件过程：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintChr(KeyAscii)EndSub一般情况下(即不按住Shift和锁定大写)运行程序，如按“A”键则输出(

)。

A:A

a

B:a

A

C:A

A

D:a

a

答案:A在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview设置为True（在激活对象上的控件键盘事件之前，优先激活键盘事件,即Form优先）然后编写如下代码：DimSaveAllAsStringPrivateSubCommand1_Click()Text1.Text=Ucase(SaveAll)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序运行后，在键盘上输入“abcdefg”,单击命令按钮，则文本框显示为(

)。

A:ABCDEFG

B:不显示任何信息

C:出错

D:abcdefg

答案:A在上题中，如果把窗体的Key