天津大学网络学院计算机软件技术基本1试题B卷.docx

天津大学网络学院计算机软件技术基本1试题B卷.docx

《天津大学网络学院计算机软件技术基本1试题B卷.docx》由会员分享，可在线阅读，更多相关《天津大学网络学院计算机软件技术基本1试题B卷.docx（9页珍藏版）》请在冰豆网上搜索。

天津大学网络学院计算机软件技术基本1试题B卷

计算机软件技术基础

（1）复习题

一、判断题

1、VB编译生成的可执行文件不再需要工程文件与各个模块文件。

（）

2、VB程序中不区分代码字符的大小写。

（）

3、当把浮点数赋给整型变量时，会出现溢出错误。

（）

4、在同一作用域中，变量名不能重复。

（）

5、日期时间型变量既可以保存日期值，也可以保存时间值，但不能同时保存日期和时间值。

（）

6、框架控件和形状控件都不能响应用户的鼠标单击事件。

（）

7、当定时器控件的Interval属性值为0时，会连续不断地发送Timer事件。

（）

8、一个菜单项是不是分隔条，由Caption属性决定。

（）

9、可以通过语句代码使一个单选框组中的所有单选框均为不选定状态。

（）

10、Windows下窗体的子菜单最多有5级。

（）

答案：

FTTTFFFTTT

二、单项选择题

1.多个语句可以书写在同一行上，但它们之间要加

A）：

B）；C），D）、

2.在窗体Form1的Click事件过程中有以下语句：

Label1.Caption=”VisualBASIC”

设标签的原Caption属性值为默认值，则该语句执行之后该标签控件Name属性和Caption属性的值分别为

A）“Label1”、“VisualBASIC”B）“Label1”、“Caption”

C）“Label”、“VisualBASIC”D）“Label”、“Label1”

3.下面几对数据类型中，哪一对所占的内存大小一致：

A）Integer、SingleB）Integer、BooleanC）Date、SingleD）Long、Variant

4.下面哪条语句可以正确地声明一个动态数组：

A）DimA（n）AsIntegerB）DimA（1Ton）AsInteger

C）DimA（）AsIntegerD）DimA（,）AsInteger

5.如果在模块的声明段中有OptionBase0语句，则在该模块中使用Dima（7,3To5）声明的数组有个元素

A）21B）28C）24D）32

6.菜单控件没有下面哪一个属性：

A）CaptionB）CheckedC）EnabledD）Value

7.一个菜单项是不是一个分隔条，是由：

属性决定的

A）NameB）CaptionC）EnabledD）Visible

8.以下面哪种方式打开的文件，只能读不能写：

A）InputB）OutputC）RandomD）Append

9.下列函数中，返回值是字符串的是：

A）ChrB）InStrC）ValD）Asc

10.调用一次Circle方法，不能绘制出下面哪个图形：

A）圆弧B）椭圆弧C）扇形D）螺旋线

答案：

BABCCBBAAD

三、读程序，写结果

1.下面程序段执行完毕，窗体上显示的结果是什么？

DimbAsSingle,kAsInteger

b=0.2

p=100

n=0

Do

p=p*（1+b）

n=n+1

Loopuntilp>200

Printp,n

2.下面程序段在窗体上输出的是什么？

DimiAsInteger,jAsInteger

DimkAsInteger

Fori=1To10Step3

Forj=0to10

Ifj>=5Theni=i+4:

ExitFor

j=j+1

k=k+1

Next

Ifi>8ThenExitFor

Next

Printi,j,k

3.下面程序段在窗体上输出的是什么？

Dima（4,4）AsInteger

DimncAsInteger,nrAsInteger

DimIasInteger,jAsInteger,kAsInteger

Nc=4:

nr=1:

I=1:

j=1

Fork=1To16

A（I,j）=k

IfI

I=I+1

ElseIfI=ncAndj

J=j+1

ElseIfI>nrAndj=ncThen

I=I-1

ElseIfI=nrAndj>nr+1Then

Nc=nc-1

Nr=nr+1

EndIf

Next

Printa（4,2）,a（3,3）,a（2,2）

4.运行下面的程序，单击窗体后，从键盘上输入字符串“abcdef”，窗体上显示的第一行结果为，第二行输出结果为。

PrivateSubTry（cAsString,dAsString）

DimaAsString

StaticiAsInteger

i=i+1

a=Mid（c,i,1）

Ifa<>""ThenTryc,d

d=d&a

EndSub

PrivateSubForm_Click（）

Dims1AsString,s2AsString

s1=InputBox（"输入一个字符串"）

Trys1,s2

Prints1

Prints2

EndSub

5.执行下面程序，单击窗体后，窗体上显示的第一行结果是，第三行结果是。

PrivateSubForm_Click（）

DimMystrAsString

DimMystr1AsString

DimMystr2AsString

Mystr1="B"

Fori=1To3

Mystr2=LCase（Mystr1）

Mystr1=Mystr1&Mystr2

Mystr=Mystr&Mystr1

PrintMystr

Mystr1=Chr（Asc（Mystr1）+i）

Next

EndSub

6、执行下面程序，窗体上显示的结果是什么？

DimmAsInteger,nAsInteger,kAsInteger

n=20:

k=1

Form=1tonStepk

Printm

n=n-1

k=k+2

Next

Printn,k

7、下面程序段执行完毕，窗体上显示的结果是什么？

DimbAsInteger,kAsInteger

b=1

Fork=1To6

b=b*k

Ifb>=20Then

ExitFor

Else

k=k+1

EndIf

Nextk

Printk,b

8、对下面程序，单击窗体后，在文本框Text1和Text2中显示的内容分别是什么？

ProvateSubForm_Click（）

DimxAsInteger,yAsInteger

X=1:

Y=5

DoWhilex<15

Y=y+x

X=x+2

Loop

Text1.Text=x

Text2.Text=y

EndSub

答案：

1、207.3642、1266

3、5004、abcdeffedcba

5、BbBbCcBbCcEe

6、1234567891011121314151617181920041

7、7，15

8、15，54

四、程序设计

1.编写递归函数求1+2+3+……+m的值。

2.设一窗体上有文本框、按钮、列表框各一个，在文本框中输入任意一个英文句子（包含多个词），单击按钮，程序将该句分解为单词，每一个单词作为一个条目添加到列表框中。

3．编程计算20＋21＋22＋23＋···＋210的值。

4．一个共有15个台阶的楼梯，从下面走到上面。

一次只能迈一个台阶或两个台阶，并且不能后退，走完这个楼梯共有多少种方法。

答案：

1、PrivateFunctionAdd（nAsInteger）AsInteger

Ifn=1Then

Add=1

ExitFunction

EndIf

Add=m+Add（m-1）

EndFunction

2、PrivateSubCommand1_Click（）

Dimstr1AsString

Dimstr2AsString

Dimint1AsInteger

str1=Text1.Text

int1=1

Do

DoWhileMid（str1,int1,1）<>""Andint1<=Len（str1）

str2=str2&Mid（str1,int1,1）

int1=int1+1

Loop

List1.AddItemstr2

str2=""

int1=int1+1

LoopWhileint1<=Len（str1）

EndSub

3、2047

PrivateSubForm_Click（）

DimxAsInteger,sumAsInteger

x=1:

y=1

ForI=1To10

x=x*2

sum=sum+x

Next

Printsum

EndSub

4、至少有119级台阶

PrivateSubCommand1_Click（）

Dimint1AsInteger

Do

Ifint1Mod2=1Andint1Mod3=2Andint1Mod5=4_

Andint1Mod6=5Andint1Mod7=0Then

Text1.Text=int1

ExitDo

EndIf

int1=int1+1

Loop

EndSub