VisuaBasic程序设计智慧树知到超星尔雅网课答案文档格式.docx

资源描述

VisuaBasic程序设计智慧树知到超星尔雅网课答案文档格式.docx

《VisuaBasic程序设计智慧树知到超星尔雅网课答案文档格式.docx》由会员分享，可在线阅读，更多相关《VisuaBasic程序设计智慧树知到超星尔雅网课答案文档格式.docx（14页珍藏版）》请在冰点文库上搜索。

VisuaBasic程序设计智慧树知到超星尔雅网课答案文档格式.docx

“Ture”+“Basic”的值是（）。

√

3、执行下列语句后，V的值是（）。

A=“56789”V=Val（Mid（A，3，2））

4、表达式4+567/8Mod4的值是（）。

4.0

5、下列符号（）是VisualBasic中合法的变量名。

x23

6、在一行内写多条语句时，每个语句之间用（）来分隔。

：

7、在VB中，用Single来表示的数据类型是（）。

单精度型

8、下列程序段的运行结果是（）。

DimAAsInteger,BAsIntegerA=15B=4Print4+AB

9、三种逻辑运算符号优先次序为（）。

NOT、AND、OR

10、数学式3abc（d+e）改写为VB表达式为（）。

3abc（d+e）

第3章单元测试

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

倒序结构

2、下面四个语句中，能打印显示2030字样的是（）。

Print“2030”

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

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

4、语句Ifx=1Theny=1，下列说法正确的是（）。

x=1为关系表达式，y=1为赋值语句

5、下面程序段执行结果为（）。

x=5:

y=6Ifnotx>

0Thenx=y–3Elsey=x+3EndIfPrintxy;

6、编写如下事件过程:

PrivateSubForm_Click（）score=Int（Rnd10）+80SelectCasescoreCaseIs<

60a$=”F”Case60To69a$=”D”Case70To79a$=”C”Case80To89a$=”B”CaseElsea$=”A”EndSelectPrinta$EndSub程序运行后,单击窗体,则窗体上显示的内容是（）。

endSub

7、循环结构ForI%=1to–17Step–2共执行（）次。

8、下列程序段的执行结果为（）。

a=0:

b=1Doa=a+bb=b+1LoopWhilea<

10Printa;

105

9、有如下程序,运行后输出的结果是（）。

j=0:

n=0DoWhilen<

3j=（j+1）（j+2）n=n+1LoopPrintj;

1823

10、下列的程序段执行后,x的值为（）。

x=0Fori=1To10Forj=iTo10x=x+1NextjNexti

第4章单元测试

1、以下关于静态数组的描述正确的是（）。

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

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

Dimm（5）AsIntegers=0Fori=0To5m（i）=5NextiForj=0To5s=s+m（j）NextjPrints

3、下面程序：

PrivateSubForm_Click（）Dima（100）AsIntegerFori=1To10j=iia（j）=jNextiPrinta（25）EndSub运行后，单击窗体，则输出的结果是（）。

4、有如下语句：

OptionBase1PrivateSubCommand1_Click（）DimA（2,1To1）AsInteger……EndSub以上语句所定义的数组A为（）维数组，共有（）个元素，第一维下标从（）到（），第二维下标从（）到（）。

输出的是1和2

5、有如下程序：

Constn=5Constm=6Dima（nTom）AsIntegerFori=LBound（a,1）ToUBound（a,1）a（i）=iNextiPrinta（LBound（a,1））;

a（UBound（a,1））运行后输出的结果为（）。

6、下面关于控件数组与一般控件的叙述中正确的是（）。

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

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

ReDimPreserve

8、下列程序的输出结果为（）。

PrivateSubCommand1_Click（）DimaReDima（6）Forj=1To5a（j）=jjNextjPrinta（a

（2）a（3）a（4）2）+a（5）EndSub

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

Dima（10,10）AsIntegerFori=2To4Forj=4To5a（i,j）=i*jNextjNextiPrinta（2,5）+a（3,4）+a（4,5）

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

1.12.23.34.45.56.67.78.89.9

Dima（1To1,5To3）AsSingle

第5章单元测试

1、假定有如下的Sub过程：

Subfun（xAsSingle,yAsSingle）t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）DimaAsSingleDimbAsSinglea=6b=4funa,bPrinta,bEndSub程序运行后，单击命令按钮，输出结果为（）。

1.52

2、假定有以下函数过程：

FunctionFun（sAsString）AsStringDims1AsStringFori=1ToLen（s）s1=UCase（Mid（s,i,1））+s1NextiFun=s1EndFunction在窗体上添加一个命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）DimStr1AsStringDimStr2AsStringStr1=InputBox（“请输入一个字符串”）Str2=Fun（Str1）PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后再窗体上输出的结果为（）。

该问题答案暂未收录，请手动搜索。

3、有如下函数过程：

Functionsecproc（xAsInteger,yAsInteger,zAsInteger）secproc=3y+z+2xEndFunctionPrivateSubCommand1_Click（）DimaAsInteger,bAsInteger,cAsIntegera=2:

b=3:

c=4Printsecproc（c,b,a）EndSub该程序的运行结果是（）。

4、有如下函数过程：

FunctionCys（ByValxAsInteger,ByValyAsInteger）AsIntegerDimquotientsDoWhiley<

0quotients=x/yx=yy=quotientsLoopCys=xEndFunction以下是调用该函数的事件过程，该程序的运行结果是（）。

PrivateSubCommand1_Click（）DimaAsIntegerDimbAsIntegera=10b=2x=Cys（a,b）PrintxEndSub

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

Functionmaxval（a（）AsInteger）AsIntegerDimmax%max=1Fori=2To10Ifa（i）>

a（max）Thenmax=iNextimaxval=maxEndFunctionPrivateSubCommand1_Click（）Dimx（1To10）AsIntegerFori=1To10x（i）=Int（Rnd（）100）Printx（i）;

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

语句“maxval=max”应改为“maxval=a（max）”

6、在窗体上画一个命令按钮（名称为Command1），并编写如下代码：

FunctionFun1（ByValaAsInteger,bAsInteger）AsIntegerDimtAsIntegert=abb=t+aFun1=t+bEndFunctionPrivateSubCommand1_Click（）DimxAsIntegerx=10PrintFun1（Fun1（x,（Fun1（x,x1）））,x1）EndSub程序运行后，单击命令按钮，输出结果是（）。

7、下面程序的运行结果为（）。

Dima%,b%,c%Subp1（x%,y%）DimcAsIntegerx=2x:

y=y+2:

c=x+yEndSubSubp2（x%,ByValy%）DimcAsIntegerx=2*x:

c=x+yEndSubPrivateSubCommand1_Click（）a=2:

b=4:

c=6Callp1（a,b）Callp2（a,b）Printa;

cEndSub

866

8、下面程序：

Functiona（x）StaticbAsIntegerb=b+x^2PrintbEndFunctionPrivateSubCommand1_Click（）Dimc%c=a

（2）EndSub单击两次命令按钮，第二次显示的结果是（）。

9、下列叙述中,正确的是（　）。

二进制正数的反码、补码和原码一致

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

标准模块

第6章单元测试

1、若要求显示一个指定窗体,所用的方法是（）。

Show

2、确定一个窗体或控件大小的属性是（）。

Width和Height

3、当一个工程含有多个窗体时,其中的启动窗体是（）。

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

4、每建立一个窗体,工程管理器窗口中就会增加一个（）。

窗体文件

5、当运行程序时,系统自动执行启动窗体的（）事件过程。

6、若要改变窗体中显示文本的颜色,应该使用的属性是（）。

ForeColor

7、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是___。

代码窗口

8、如果要改变窗体的标题,需要设置窗体对象的哪一属性（）。

Caption

9、Cls方法可清除窗体或图片框中的信息是（）。

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

10、窗体的Enable属性的属性值是（）类型的数据。

逻辑型

第7章单元测试

1、一般不用来触发事件的对象是（）。

标签

2、如果将文本框的Locked属性设置为True,则以下说法（）是正确的。

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

3、单击命令按钮Commandl必将调用的事件（）。

Click

4、能够改变复选框中背景颜色的属性是（）。

BackColor

5、以下不属于同类的是（）。

6、列表框中列表项的数目可通过（）属性的值获得。

ListCount

7、组合框控件是将（）组合成一个控件。

列表框控件和文本框控件

8、要在图片框P1中打印字符串”HowAreYou”,应使用语句（）。

P1.Print”HowAreYou”

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

Timer1.Interval=100

10、以下控件中不属于容器的是（）。

Image

第8章单元测试

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

通用对话框

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

action

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

Color

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

CommonDialog控件

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

ShowSave

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

PrivateSubCommand1_Click（）CommonDialogl.DialogTitle=”刑事案件卷宗”CommonDialogl.ShowOpenEndSub

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

PrivateSubCommand1_Click（）Commondialog1.ShowColorEndSub

打开颜色对话框

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

CommonDialog1.ShowSave

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

TextFiles（*.txt）

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

位图图像放大后，表示图像内容和颜色的像素数量相应增加

第9章单元测试

1、下列选项中不正确的是（）。

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

2、在用菜单编辑器设计菜单时，必须输入的项是。

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

MenuItem.Enabled=False

4、一个菜单项是不是一个分隔条,由（）属性决定。

5、要使用菜单项MentOne在程序运行时失效,使用的语句是（）。

MentOne.Enabled=False

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

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

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

把Caption属性设置为&

Open

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

按Shift+Alt+M键

10、建立弹出式菜单使用的命令是（）。

PopupMenu

第10章单元测试

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

2、执行指令“Line（1200,1200）Step（1000,500）,,B”后,CurrentX=（）。

2200

3、运行以下程序后,输出的图形是（）。

Forr=0To150Circle（320,240）,rFori=1Tol000NextiNextr

一个固定的实心圆

5、以下的属性和方法中,可重定义坐标系的是（）。

Scale方法

6、Line（100,100）Step（400,400）将在窗体（）画一直线。

（100,100）到（500,500）

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

容器左上角

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

ScaleMode属性

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

Line方法

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

FillColor

第11章单元测试

1、当用户按键时，KeyPress、KeyDown、KeyUp事件的执行顺序为（）。

KeyDown事件、KeyPress事件、KeyUp事件

2、文本框Textl的KeyDown事件过程中参数KeyCode值表示（）。

所按的键盘键的键码

3、编写如下两个事件过程：

PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）PrintChr（KeyCode）EndSubPrivateSubForm_KeyPress（KeyAsciiAsInteger）PrintChr（KeyAscii）EndSub一般情况下（即不按住Shift和锁定大写）运行程序，如按“A”键则输出（）。

4、在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview设置为True（在激活对象上的控件键盘事件之前，优先激活键盘事件,即Form优先）然后编写如下代码：

DimSaveAllAsStringPrivateSubCommand1_Click（）Text1.Text=Ucase（SaveAll）EndSubPrivateSubForm_KeyPress（KeyAsciiAsInteger）SaveAll=SaveAll+Chr（KeyAscii）EndSub程序运行后，在键盘上输入“abcdefg”,单击命令按钮，则文本框显示为（）。

ABCDEFG

5、在上题中，如果把窗体的KeyPreview设置为False，则文本框中显示的内容为（）。

不显示任何信息

6、下列关于MouseMove事件，描述正确的是（）。

伴随鼠标的移动而连续不断的发生

7、当鼠标左键按下时，下列哪个事件被激发（）。

MouseDown事件

8、在鼠标事件中，语句IfButton=2成立的条件是（）。

单击鼠标右键

9、PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）IfShift=6AndButton=2ThenPrint“BBBB”EndIfEndSub程序运行后，为在窗体上输出“BBBB”，应执行操作为（）。

同时按下Ctrl、Alt和鼠标右键

10、编写如下事件过程：

PrivateSubForm_Keydown（KeyCodeAsInteger,ShiftAsInteger）If（ButtonAnd3）=3ThenPrint“AAAA”EndIfEndSub程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为（）。

第12章单元测试

1、按文件中数据的编码方式，文件分为（）。

ASCII码文件和二进制文件

2、关于顺序文件的描述，下面正确的是（）。

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

3、文件号最大可取的值为（）。

511

5、下面哪个函数可得到文件的长度（）。

LOF

6、对语句Open“c:

Test.txt”ForOutputAs#2,以下错误叙述是（）。

通过该语句打开文件后，可以对文件进行读操作

7、Print#1,STR$中的Print是（）。

文件的写语句

8、在随机文件操作

展开阅读全文