土地资源与信息技术.docx

上传人:b****7 文档编号:9025180 上传时间:2023-02-02 格式:DOCX 页数:9 大小:16.89KB
下载 相关 举报
土地资源与信息技术.docx_第1页
第1页 / 共9页
土地资源与信息技术.docx_第2页
第2页 / 共9页
土地资源与信息技术.docx_第3页
第3页 / 共9页
土地资源与信息技术.docx_第4页
第4页 / 共9页
土地资源与信息技术.docx_第5页
第5页 / 共9页
点击查看更多>>
下载资源
资源描述

土地资源与信息技术.docx

《土地资源与信息技术.docx》由会员分享,可在线阅读,更多相关《土地资源与信息技术.docx(9页珍藏版)》请在冰豆网上搜索。

土地资源与信息技术.docx

土地资源与信息技术

2010年湖南农业大学硕士招生自命题科目试题

科目名称及代码:

土地资源与信息技术(832)

适用专业:

土地资源利用与信息技术

考生注意事项:

①所有答案必须做在答题纸上,做在试题纸上一律无效;

②按试题顺序答题,在答题纸上标明题目序号。

一、简答题(共计50分,每小题10分)

1.从生态学角度看,土地具有哪些重要功能?

2.哪些热量指标影响土地的农业利用?

3.我国土地利用现状分类的八大类包括哪些?

4.简述土地适宜性评价和土地经济评价的区别。

5.土地退化主要包括哪些类型?

二、论述题(共计40分,每小题20分)

1.试论述土地资源利用与社会经济发展的关系。

2.分别论述3S技术中各项技术在土地资源调查中的作用。

三、单选题(共计6分,每小题1分)

1.以下关于VisualBasic数据类型的说法,不恰当的是(c)

A)VisualBasic6.0提供的数据类型主要有字符串型和数值型,此外还有字节、货币、对象、日期、布尔和变体数据类型等

B)目前Decimal数据类型只能在变体类型中使用

C)用户不能定义自己的数据类型

D)布尔型数据只能取两种值,用两个字节存储

第1页共8页

2.在代码编辑器中,续行符是用来换行书写同一个语句的符号,用以表示续行符的是(a)

A)一个空格加一个下划线"_"B)一个下划线"_"

C)一个造字符"-"D)一个空格加一个连字符"-"

3.有如下事件过程:

PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

If(ButtonAnd3)=3Then

Print"OK"

EndIf

EndSub

程序运行后,为了在窗体上输出"OK",应当按下的鼠标键是(c)

A)左键B)右键C)同时按下左键和右键D)按什么都不显示

4.设有语句

x=InputBox("输入数值","0""示例")

程序运行后,如果从键盘上输入数值(并按回车键,则下列叙述中正确的是(?

A)变量X的值是数值10B)在InputBox对话框标题栏中显示的是"示例"

C)0是默认值D)变量X值是字符串"10"

5.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:

PrivateSubCommand1_Click()

StaticXAsInteger

StaticYAsInteger

Cls

Y=1

Y=Y+5

X=5+X

PrintX,Y

EndSub

程序运行时,三次单击命令按钮Command1后,窗体上显示的结果为(b)

A)1516B)156C)1515D)56

6.在窗体上画一个名称为Command1命令按钮和三个名称分别为Label1、Label2、Label3的标签,然后编写如下代码:

PrivatexAsInteger

PrivateSubCommand1_Click()

StaticyAsInteger

DimzAsInteger

n=10

z=n+z

y=y+z

x=x+z

Label1.Caption=x

Label2.Caption=y

Label3.Caption=z

EndSub

运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是(c)

A)101010B)303030C)303010D)103030

四、判断题(共计6分,每小题1分。

正确的划“√”,错误的划“×”。

1.一个VisualBasic应用程序可以含有多个标准模块文件。

(v)

2.对象的任何属性既可以通过属性窗口设定,也可以通过程序语句设定。

(v)

3.Mid能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数。

(x)

4.counstA可以作为VisualBasic变量名。

(v)

5.VisualBasic程序不是结构化程序,不具备结构化程序的三种基本结构。

(v)

6.对长度为N的线性表进行顺序查找,在最坏情况下所需要的比较次数为N+1。

(v)

五、填空题(共计12分,每小题2分)

1.软件工程包括3个要素,分别为方法、工具和________

2.表达式3^2Mod36\2^5的值是_______

3.下列语句的输出结果是_____。

PrintFormat(Int(12345.6789*100+0.5)/100,"0000,0.00")4.VisualBasic提供的对数据文件的三种访问方式为随机访问方式、____和二进制访问方式。

5.执行下面的程序段后,变量S的值为____。

S=5

Fori=2.6To4.9Step0.6

S=S+1

Nexti

6.单击窗体上的关闭按钮时,触发的事件是_end______

六、程序阅读题(共计16分,每小题4分)

1.有如下的程序:

PrivateSubCommand1_Click()

DimkAsInteger,mAsInteger

DimPAsInteger

k=4:

m=1

P=Pid(k,m):

PrintP;

P=Pid(k,m):

PrintP

EndSub

PrivateFunctionPid(aAsInteger,bAsInteger)

StaticmAsInteger,iAsInteger

m=5:

i=2

i=i+m+1

m=i+a+b

Pid=m\2

EndFunction

单击命令按钮后,输出结果为_______

2.在窗体上画一个命令按钮,然后编写如下事件过程:

PrivateSubCommand1_Click()

DimmAsInteger,nAsInteger,pAsInteger

m=3:

n=5:

p=0

CallY(m,n,p)

PrintStr(p)

EndSub

SubY(ByValiAsInteger,ByValjAsInteger,kAsInteger)

k=i+j

EndSub

程序运行后,如果单击命令按钮,则在窗体上显示的内容是____。

3.下列程序的执行结果为__________

PrivateSubCommand1_Click()

Dims1AsString,s2AsString

s1="abcd"

CallTransfer(s1,s2)

Prints2

EndSub

PrivateSubTransfer(ByValxstrAsString,ystrAsString)

DimtempstrAsString

i=Len(xstr)

DoWhilei>=1

tempstr=tempstr+Mid(xstr,i,1)

i=i-1

Loop

ystr=tempstr

EndSub

4.在窗体上画1个命令按钮,其名称为Command1,然后编写如下程序:

PrivateSubCommand1_Click()

Dima(10)AsInteger

DimxAsInteger

Fori=1To10

a(i)=8+i

Next

x=2

Printa(f(x)+x)

EndSub

Functionf(xAsInteger)

x=x+3

f=x

EndFunction

程序运行后,单击命令按钮,输出结果为______。

七、程序填空题(共计20分,每空2分)

1.下面是用冒泡法将5个整数按升序排列,请将程序补充完整。

SubGASR()

Dimm

m=Array(10,1,5,6,7)

Fori=0To3

Forj=___1___

Ifm(i)>=m(j)Then

___2___

m(i)=m(j)

m(j)=t

EndIf

Nextj

___3___

Fori=0To4

Printm(i)

Nexti

EndSub

2.在窗体上画1个文本框,名称为Text1,然后编写如下程序:

PrivateSubForm_Load()

Open"d:

\temp\dat.txt"ForOutputAs#1

Text1.Text=""

EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

lf___4___=13Then

IfUCase(Text1.Text)=___5___Then

Close1

End

___6___

Write#1,___7___

Text1.Text=""

EndIf

EndIf

EndSub

3.在窗体上画1个命令按钮,其名称为Command1,然后编写如下事件过程:

PrivateSubCommand1_Click()

Dimarr(1To100)AsInteger

Fori=1To100

arr(i)=Int(Rnd*1000)

Nexti

Max=arr

(1)

Min=arr

(1)

Fori=1To100

If___8___Then

Max=arr(i)

___9___

If___10___Then

Min=arr(i)

EndIf

Nexti

Print"Max=";Max,"Min=";Min

EndSub

 

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 解决方案 > 营销活动策划

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1