土地资源与信息技术Word下载.docx
- 文档编号:22161310
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:9
- 大小:16.89KB
土地资源与信息技术Word下载.docx
《土地资源与信息技术Word下载.docx》由会员分享,可在线阅读,更多相关《土地资源与信息技术Word下载.docx(9页珍藏版)》请在冰豆网上搜索。
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
程序运行后,为了在窗体上输出"
应当按下的鼠标键是(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
程序运行时,三次单击命令按钮Command1后,窗体上显示的结果为(b)
A)1516B)156C)1515D)56
6.在窗体上画一个名称为Command1命令按钮和三个名称分别为Label1、Label2、Label3的标签,然后编写如下代码:
PrivatexAsInteger
StaticyAsInteger
DimzAsInteger
n=10
z=n+z
y=y+z
x=x+z
Label1.Caption=x
Label2.Caption=y
Label3.Caption=z
运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是(c)
A)101010B)303030C)303010D)103030
四、判断题(共计6分,每小题1分。
正确的划“√”,错误的划“×
”。
1.一个VisualBasic应用程序可以含有多个标准模块文件。
(v)
2.对象的任何属性既可以通过属性窗口设定,也可以通过程序语句设定。
3.Mid能从字符串"
VisualBasic"
中直接取出子字符串"
Basic"
的函数。
(x)
4.counstA可以作为VisualBasic变量名。
(v)
5.VisualBasic程序不是结构化程序,不具备结构化程序的三种基本结构。
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.有如下的程序:
DimkAsInteger,mAsInteger
DimPAsInteger
k=4:
m=1
P=Pid(k,m):
PrintP;
PrintP
PrivateFunctionPid(aAsInteger,bAsInteger)
StaticmAsInteger,iAsInteger
m=5:
i=2
i=i+m+1
m=i+a+b
Pid=m\2
EndFunction
单击命令按钮后,输出结果为_______
2.在窗体上画一个命令按钮,然后编写如下事件过程:
DimmAsInteger,nAsInteger,pAsInteger
m=3:
n=5:
p=0
CallY(m,n,p)
PrintStr(p)
SubY(ByValiAsInteger,ByValjAsInteger,kAsInteger)
k=i+j
程序运行后,如果单击命令按钮,则在窗体上显示的内容是____。
3.下列程序的执行结果为__________
Dims1AsString,s2AsString
s1="
abcd"
CallTransfer(s1,s2)
Prints2
PrivateSubTransfer(ByValxstrAsString,ystrAsString)
DimtempstrAsString
i=Len(xstr)
DoWhilei>
=1
tempstr=tempstr+Mid(xstr,i,1)
i=i-1
Loop
ystr=tempstr
4.在窗体上画1个命令按钮,其名称为Command1,然后编写如下程序:
Dima(10)AsInteger
DimxAsInteger
Fori=1To10
a(i)=8+i
Next
x=2
Printa(f(x)+x)
Functionf(xAsInteger)
x=x+3
f=x
程序运行后,单击命令按钮,输出结果为______。
七、程序填空题(共计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
Nextj
___3___
Fori=0To4
Printm(i)
2.在窗体上画1个文本框,名称为Text1,然后编写如下程序:
PrivateSubForm_Load()
Open"
d:
\temp\dat.txt"
ForOutputAs#1
Text1.Text="
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
lf___4___=13Then
IfUCase(Text1.Text)=___5___Then
Close1
End
___6___
Write#1,___7___
3.在窗体上画1个命令按钮,其名称为Command1,然后编写如下事件过程:
Dimarr(1To100)AsInteger
Fori=1To100
arr(i)=Int(Rnd*1000)
Max=arr
(1)
Min=arr
(1)
If___8___Then
Max=arr(i)
___9___
If___10___Then
Min=arr(i)
Print"
Max="
;
Max,"
Min="
Min
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 土地资源 信息技术