VB普通考试期末自测卷.docx

VB普通考试期末自测卷.docx

《VB普通考试期末自测卷.docx》由会员分享，可在线阅读，更多相关《VB普通考试期末自测卷.docx（16页珍藏版）》请在冰豆网上搜索。

VB普通考试期末自测卷

期末自测题（A卷）

一、单选题（每题1分，共25分）

1、211.66.160.1是Internet上的（）。

（A）IP地址（B）域名（C）密码（D）软件编号

2、在以下四个www网址中，（）网址不符合www网址书写规则。

（A）  　　（B）.edu 　　

（C） （D）

3、下列字符中，其ASCII码值最小的一个是（）。

（A）A（B）a（C）Z（D）X

4、下列软件中属于浏览器的是（）。

（A）Excel（B）InternetExplorer（C）QQ（D）VisualBasic

5、电子邮件（E-mail）地址的正确形式是（）。

（A）用户名@域名    （B）用户名#域名（C）用户名/域名   （D）用户名.域名

6、下面变量名不合法的是（）。

（A）a2（B）abcd（C）a$x（D）Cd_E

7、下列表达式中，正确的Visual Basic表达式是（）。

（A）2sin45°（B）∏*R2（C）x÷y×5（D）（x+1）/（x^2+1）/2

8、下面逻辑表达式的值为真的是（）。

（A）"A">"a"（B）"abc">"bc"

（C）"That">"Thank"（D）12>12.1

9、下列过程定义语句说明不合法的是（）。

（A）Subf1（ByRefn（）AsInteger）（B）Subf1（ByRefnAsInteger）

（C）Subf1（ByValn（）AsInteger）（D）Subf1（ByValnAsInteger）　

10、执行下面的4个打印语句，将出错的是（  ）。

（A）Printa=3+5（B）Print"a=";3+5

（C）Print"a=3+5"（D）Printa=;3+5

11、语句Fori=-3To20Step4的循环次数为（）。

（A）5（B）6（C）7（D）8

12、下列叙述中错误的是（）。

（A）列表框与组合框都有List属性（B）列表框与组合框都有Selected属性

（C）列表框和组合框都有Text属性（D）列表框与组合框都有Enabled属性

13、窗体Form1里有两个对象，分别是图片框P1和标签L1。

那么下面关于Print方法的使用中，错误的语句为（）。

（A）P1.Print 147（B）Print 147

（C）Form1.Print 147（D）L1.Print147

14、通过设置图像框Image的（）属性，可以自动调整图形的大小，以适应图像框Image的尺寸。

（A）Autosize（B）Stretch（C）AutoRedraw（D）Appearance

15、执行语句PrintLeft（"VisualBasic",3），在窗体上显示的内容是（）。

（A）VVV（B）Vis（C）s（D）sualBasic

16、以下叙述中正确的是（）。

（A）窗体的Name属性指定窗体的名称，用来标识一个窗体

（B）窗体的Name属性的值是显示在窗体标题栏中的文本

（C）可以在运行期间改变对象的Name属性的值

（D）对象的Name属性值可以为空

17、设x是整型变量，与函数IIf（x>0,-x,x）有相同结果的代数式是（）。

（A）|x|（B）-|x|（C）x（D）-x

18、将组合框Combo1当前选中的项目内容赋值给变量S，正确的语句是（）。

（A）S=Combo1.Text（B）S=Combo1.Value

（C）S=Combo1.List（D）S=Combo1.List（0）

19、建立一个图书资料管理输入界面，要求选择图书的借阅情况（借出/未借）、语种（中文/英文/日文/其他）及分类（8类，存在重复分类，一本图书既属于1类，也同时属于2类）。

应如何在窗体中利用单选钮和复选框实现（）。

（A）用一组14个复选框来实现

（B）将8种分类用一组8个复选框、借阅情况和语种用一组6个单选钮实现

（C）将8种分类用一组8个单选钮、借阅情况和语种用6个复选框实现

（D）将8种分类用一组8个复选框、借阅情况用一组2个单选钮、语种用一组4个单选钮实现

20、已知A、B、C中C最小，则判断A、B、C可否构成三角形三条边长的逻辑表达式是（）。

（A）A>=BAndB>=CAndC>0（B）A+C>BAndB+C>AAndC>0

（C）（A+B）>=CAndA-B<=C）AndC>0（D）A+B>CAndA-B>CAndC>0

21、执行（）后，会弹出如下图所示的窗口。

（A）x=InputBox（"输入框","请输入VB数据"）

（B）InputBox（"输入框","请输入VB数据"）

（C）x=InputBox（"请输入VB数据","输入框"）

（D）InputBox（"请输入VB数据","输入框"）

22、窗体有Text1文本框和Command1命令按钮，并有以下代码：

PrivateSubCommand1_Click（）

Dimn

IfText1.Text<>"123456"Then

n=n+1

Print"口令输入错误"&n&"次！

"

EndIf

EndSub

希望程序运行时若输入口令不正确，显示出错的次数（如下面图），但实际运行时没有出现预期效果（如上面图）。

修改方案中正确的是（）。

（A）在Dimn后添加一句：

n=0

（B）将Dimn改为Dimn%

（C）将Dimn放到“通用”-“声明”处

（D）将Print"口令输入错误"&n&"次！

"改为Print"口令输入错误"+n+"次！

"

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

（A）单选按钮（B）图片框（C）通用对话框（D）文本框

24、设有语句Open"c:

\Test.Dat"ForOutputAs#1，则以下错误的叙述是（）。

（A）该语句打开C盘根目录下一个已存在的文件Test.Dat

（B）该语句在C盘根目录下建立一个名为Test.Dat的文件

（C）该语句建立的文件的文件号为1

（D）执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息

25、滚动条产生Change事件是因为（）值改变了。

（A）Max（B）Min（C）Value（D）Caption

二、程序阅读题（每题3分，共15分）

1、执行下面的程序段后，列表框List1中余下的两项为【1】。

Fori=1To4

List1.AddItemi

Nexti

Fori=1To2

List1.RemoveItemi

Nexti

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

x=5

ForI=1To20Step2

x=x+I\5

NextI

Printx,I

3、执行下面的程序段后，则在Text1中显示的值为【3】。

DimA%（10,10）,i%,j%

Fori=1To10

Forj=1To10

A（i,j）=i+j

Next

Next

Text1.Text=A（5,A（2,3））+A（7,A（3,4））

4、执行下面的程序段后，在输入对话框中分别输入321和456，则窗体上的输出结果为【4】。

a=InputBox（"请输入一个整数"）

b=InputBox（"请输入一个整数"）

Printa+b

5、程序运行后，单击命令按钮，则两个标签中显示的内容分别为【5】。

PrivateSubCommand1_Click（）

Dimx%,y%

x=5:

y=3

Callproc（x,y）

Label1.Caption=x

Label2.Caption=y

EndSub

PrivateSubproc（ByValaAsInteger,bAsInteger）

a=a*b

b=a+b

EndSub

三、填空题（每空2分,共40分）

1、请完善程序，功能是：

随机生成一个8位数的整数，统计0～9这10个数字在生成的8位整数中出现的次数，并显示统计结果。

Dimi%,s&,j%,a（0To9）AsInteger

s=___【1】_____

Print"这个八位数是";s

Print"其中"

Forj=1To8

c=Val（Mid（s,j,1））

a（c）=___【2】_____

Nextj

Fori=0To9

Ifa（i）<>0Then

Printi;"出现的次数";___【3】_____

___【4】_____

Nexti

2、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个命令按钮，标题分别为“计算”。

编写代码实现：

1）程序启动时，将所有的3位素数添加到列表框中。

函数Prime用于判断一个数是否为素数。

请完善程序。

2）单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。

请完善程序。

FunctionPrime（n%）AsBoolean'判断素数函数

 Dimi%

  Prime=【5】

 Fori=2ToSqr（n）

   If【6】Then  Prime=False     

 Next

EndFunction 

PrivateSubForm_【7】（）

Dimi%,j%,tAsBoolean

Fori=100To999

If【8】ThenList1.AddItemi

Nexti

EndSub

PrivateSubCommand1_Click（）‘计算

Dimi%，sum%

Fori=0To【9】

Sum=sum+【10】

Next

Text1.Text=Sum

EndSub

3、将“ABC”添加到列表框List1中第三项的语句为：

【11】。

4、求分段函数

的值，可用y=IIf（【12】）。

5、设置文本框Text1中的文本字体颜色为红色的语句为：

【13】。

6、命令按钮Command1左移200，实现语句是【14】。

7、将D:

根目录下的顺序文件t1.txt内容读入变量S，并显示在文本框Text1中；继而将其中的字母（包括大小写）、数字及其它字符的分别串成不同的字符串，最后将结果显示在图形框P1中。

请完善程序段。

Dims$,i%,c$,n1$,n2$,n3$

Open"D:

\t1.txt"For【15】As#1

DoWhile【16】

s=【17】'文件的内容逐个读入变量s

Text1.Text=Text1.Text&s

Loop

Close#1

Fori=1ToLen（s）

c=Mid（【18】）

SelectCasec

Case【19】

n1=n1&c

Case"0"To"9"

n2=n2&c

【20】

n3=n3&c

EndSelect

Next

P1.Print"字母串为：

";n1

P1.Print"数字串为：

";n2

P1.Print"其它字符串为：

";n3

四、程序设计题（每题10分，共20分）

1、编程计算圆周率Pi的近似值。

计算公式如下，一直到1/i小于0.0000001为止。

2、编写程序，形成数列1，1，1，3，5，9，17，……的前N项（该数列的规律是从第四项开始，每一项是前三项之和），直到某项的值超过50000。

期末自测题（B卷）

一、单选题（每题1分，共25分）

1、211.66.160.1是Internet上的（）。

（A）IP地址（B）域名（C）密码（D）软件编号

2、是Internet上的（）。

（A）IP地址（B）域名（C）密码（D）软件编号

3、计算机病毒是（）。

（A）一种令人生畏的传染病（B）一种使硬盘无法工作的细菌 

（C）一种可治的病毒性疾病  （D）一种使计算机无法正常工作的破坏性程序

4、下列表示存储容量的数据中，（）是最大的。

（A）1.44MB（B）20480KB（C）1GB（D）48657Byte

5、下列设备中，不能作为计算机输出设备的是（）。

（A）显示器（B）绘图仪（C）扫描仪（D）打印机

6、下列字符序列中，可以作为变量名的是（）。

（A）a24（B）ab*d（C）a$x（D）CdE

7、表达式5Mod3+3\5*2的值是（）。

（A）0（B）2（C）4（D）6

8、改变控件在窗体中的上下位置，应修改控件的（）属性。

（A）Top（B）Left（C）Width （D）Right

9、下列语句错误的是（）。

（A）ExitFor（B）ExitIf（C）ExitDo（D）ExitSub

10、在默认情况下，InputBox函数返回值的类型为（）。

（A）数值（B）字符串（C）变体（D）数值或字符串（视输入的数据而定）

11、窗体上有一水平滚动条，其Max为1，Min为100。

以下叙述中正确的是（）。

（A）程序运行时，若使滚动块向左移动，滚动条的Value属性值会增大

（B）程序运行时，若使滚动块向左移动，滚动条的Value属性值会减小

（C）由于滚动条的Max值小于Min值，程序出错

（D）由于滚动条的Max值小于Min值，程序运行时滚动条的长度会缩为一点，滑块无法移动

12、在窗体上有两个名分别为Op1、Op2的单选按钮，一个名称为Ck1的复选框。

程序运行后，要求Op1和Ck1被选中，以下能实现上述操作的程序段是（）。

（A）Op1.Value=True

Ck1.Value=True

（B）Op1.Value=True

Ck1.Value=1

（C）Op1.Value=False

Ck1.Value=0

（D）Op1.Value=True

Ck1.Value=2

13、设x=30,执行语句y=IIf（x>10,x+10,IIf（x<0,x^2,x^3））后，y值是（）。

（A）30（B）40（C）900（D）2700　

14、以下定义数组或给数组元素赋值的语句中，正确的是（）。

（A）DimaAsVariant

a=Array（1,2,3,4,5）

（B）Dima（10）AsInteger

a=Array（1,2,3,4,5）

（C）Dima%（10）

a

（1）="ABCDE"

（D）Dima（3）,b（3）AsInteger

a（0）=0:

a

（1）=1:

a

（2）=2:

b=a

15、下列语句中错误的是（）。

（A）Text1.Text=List1.Text（B）Label1.Caption=List1.Text

（C）List1.Name=List1.Text（D）Command1.Caption=List1.Text

16、下列叙述中错误的是（）。

（A）列表框与组合框都有List属性（B）列表框有Selected属性，而组合框没有

（C）列表框和组合框都有Style属性（D）组合框有Text属性，而列表框没有　

17、如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（）。

（A）=（B）*（C）&（D）-

18、将组合框Combo1当前选中的项目下标赋值给变量S，正确的语句是（）。

（A）S=Combo1.Text（B）S=Combo1.ListIndex

（C）S=Combo1.List（D）S=Combo1.List（0）

19、要向文件t1.txt添加数据，正确的文件打开命令是（）。

（A）Open"t1.txt"ForWriteAs#1（B）Open"t1.txt"ForAppendAs#1

（C）Open"t1.txt"ForInputAs#1（D）Open"t1.txt"ForOutputAs#1

20、表达式Abs（-5）+Len（"ABCDE"）的值是（）。

（A）-5ABCDE（B）5ABCDE（C）0（D）10

21、执行语句PrintMid（"VisualBasic",3），在窗体上显示的内容是（）。

（A）s（B）Vis（C）sua（D）sualBasic

22、VB中窗体、图片框或图像框装入图形可使用（  ）函数。

（A）LoadPicture（B）PictureLoad（C）LoadImage（D）Imageload

23、有如下声明语句：

Dimstr1AsString*5，则执行语句Str1="VisualBasic"后，str1的值是（）。

（A）Visual（B）Visua（C）VisualBasic（D）V

24、窗体上有两个列表框List1和List2，List1中有若干项目（如下图所示），并有下面程序：

PrivateSubCommand1_Click（）

Fork=0ToList1.ListCount-1

IfList1.Selected（k）Then

List2.AddItemList1.List（k）

List1.RemoveItemk

EndIf

Nextk

EndSub

程序运行时若按图示在List1中选中2个项目并单击命令按钮，则产生的结果是（）。

（A）在List2中添加了“物理”、“计算机”两项

（B）在List1中删除了“物理”、“计算机”两项

（C）同时产生（A）和（B）的结果

（D）出现错误提示

25、能表示身高H超于1.7米且体重W小于62.5千克的逻辑表达式是（）。

（A）H>1.7AndW<=62.5（B）H<=1.7OrW>=62.5

（C）H>1.7AndW<62.5（D）H>1.7OrW<62.5

二、程序阅读题（每题3分，共15分）

1、程序运行后，单击命令按钮，输出结果为【1】。

PrivateSubCommand1_Click（）

DimnumAsInteger

num=1

DoUntilnum>6

Printnum;

num=num+2.4

Loop

EndSub

2、以下程序片段运行后输出a的值是【2】。

a=0

Fori=1To3

Forj=1To3

Ifj

Nextj

Nexti

Printa

3、 程序运行后，单击命令按钮，则两个标签中显示的内容分别为【3】。

PrivateSubCommand1_Click（）

Dimx%,y%

x=5:

y=3

Callproc（x,y）

Label1.Caption=x

Label2.Caption=y

EndSub

PrivateSubproc（aAsInteger,ByValbAsInteger）

a=a*a

b=b+b

EndSub

4、程序运行后，单击命令按钮，则变量a的值是【4】。

PrivateSubCommand1_Click（）

temp=Int（-0.8）

SelectCasetemp

CaseIs<0

a="负"

Case0

a="零"

CaseIs>0

a="正"

EndSelect

EndSub

5、执行下面的程序段后，输出结果为【5】。

DimA%（10,10）,i%,j%

Fori=1To10

Forj=1To10

A（i,j）=i*j

Next

Next

PrintA（5,A（2,3））+A（7,A（3,3））

三、填空题（共40分，每空2分）

1、要使用下列For循环执行20次，请在下划线处填入正确的值。

Fork=【1】To–2Step-5

2、命令按钮Command1右移200，实现语句是【2】。

3、设a、b、c都是整型变量，判断“a和b中有一个小于c”的表达式是【3】。

4、请完善程序，功能是：

在文本框Text1中输入一串字符，在窗体上输出其中出现频率最高的字母（不区分大小写）及其出现次数。

例如：

输入“Thisisabeautifulworld.”则输出“使用频率最高的是i，共出现3次。

”

PrivateSubCommand1_Click（）

Dims$,a%（65To90）,i%,max%,n%

s=Text1.Text

Fori=1ToLen（s）

n=Asc（【4】）

Ifn>=65Andn<=90Then

【5】

EndIf

Next

max=65

Fori=【6】

Ifa（i）>a（max）Then【7】

Next

Print"使用频率最高的是:

"&【8】&",共出现"&a（max）&"次。

"

EndSub

5、窗体上有一个