原创力文档- 1、本文档共10页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
832土地資源与信息技术
2010年湖南农业大学硕士招生自命题科目试题（共计分，每小题分）（共计分，每小题分）
5. 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X,Y
End Sub
程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为( )
A)15 16 B)15 6 C)15 15 D)5 6
6. 在窗体上画一个名称为Command1命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码:
Private x As Integer
Private Sub Command1_Click()
Static y As Integer
Dim z As Integer
n = 10
z = n + z
y = y + z
x = x + z
Label1.Caption = x
Label2.Caption = y
Label3.Caption = z
End Sub
运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是( )
A)10 10 10 B)30 30 30 C)30 30 10 D)10 30 30
四、判断题（共计6分，每小题1分。正确的划“√”,错误的划“×”。）
一个Visual Basic应用程序可以含有多个标准模块文件。（ ）
2. 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定。（ ）
3. Mid能从字符串VisualBasic中直接取出子字符串Basic的函数。（ ）
4. counstA可以作为Visual Basic变量名。（ ）
5. Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构 。（ ）
6. 对长度为N的线性表进行顺序查找，在最坏情况下所需要的比较次数为 N+1。（ ）
五、填空题（共计12分，每小题2分）
1. 软件工程包括3个要素，分别为方法、工具和________
2. 表达式3 ^ 2 Mod 36 ＼ 2 ^ 5的值是_______
3. 下列语句的输出结果是_____。
Print Format(Int(12345.6789*100+0.5)／100，0000，0.00)
4. Visual Basic提供的对数据文件的三种访问方式为随机访问方式、____和二进制访问方式。
5. 执行下面的程序段后，变量S的值为____。
S = 5
For i = 2.6 To 4.9 Step 0.6
S = S + 1
Next i
6. 单击窗体上的关闭按钮时，触发的事件是_______
六、程序阅读题（共计16分，每小题4分）
1. 有如下的程序：
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim P As Integer
k=4: m=1
P=Pid(k, m): Print P;
P=Pid(k, m): Print P
End Sub
Private Function Pid(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=5: i=2
i=i + m + 1
m=i + a + b
Pid=m ＼ 2
End Function
单击命令按钮后，输出结果为_______
2. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim m As Integer, n As Integer, p As Integer
m=3: n=5: p=0
Call Y(m, n, p)
Print Str(p)
End Sub
Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer)
k=i + j
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是____。
3. 下列程序的执行结果为__________
Private Sub Command1_Click()
Dim s1 As String, s2 As String
文档评论（0）