第 1 页:选择题 |
第 5 页:基本操作 |
第 6 页:简单应用题 |
第 7 页:综合应用题 |
以下关于文件及相关操作的叙述中错误的是( )。
A. 以Append 方式打开的文件可以进行读写操作
B. 文件记录的各个字段的数据类型可以不同
C. 随机文件各记录的长度是相同的
D. 随机文件可以通过记录号直接访问文件中的指定记录
参考答案:A 系统解析:以Append 方式打开是以追加方式输出,并不是进行读写操作。
12
下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。请选择正确的程序段( ),完成程序。
Private Sub Co mmand1Click( )
Di marr(1To 20)
For i =1To 20
arr(i)=_________
Textl .Text =Textl .Text &arr(i )&Chr(13)&Chr(10)
Next i
Sum=0
For Each X
If X>50Then
Print Tab(20);X
Sum=Sum+X
End If
Next X
Print Tab(20);"Sum=";Sum
End Sub
A. Int(Rnd*99+1)In arr
B. Int(Rnd)In arr
C. Int(Rnd*99+1)In arr( )
D. Int(Rnd)In arr( )
参考答案:A 系统解析:Rnd 函数用于产生一个小于1但大于或等于0的实数,题中要求0~100之间的随机整数,所以需要对Rnd 产生的实数进行计算处理Int(Rnd*99+1)。使用For Each…Next 语句处理数组元素时,Each 后只需写出数组名,不能使用小括号。
13
在窗体上画1个命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m or n=4-m Then
a(m,n)=m+n
Else
a(m,n)=0
End If
Print a(m,n);
Next n
Next m
End Sub
运行程序,单击命令按钮,窗体上显示的内容为( )。
A. 200
040
006
B. 204
040
406
C. 230
340
006
D. 200
045
056
参考答案:B 系统解析:本题考查了嵌套的For循环,答案为B选项。
14
最简单的交换排序方法是( )。
A. 快速排序
B. 选择排序
C. 堆排序
D. 冒泡排序
参考答案:D 系统解析:交换排序方法是指借助数据元素之间的互相交换进行排序的一种方法,包括冒泡排序和快速排序。冒泡排序是一种最简单的交换排序方法,它通过相邻元素的交换,逐步将线性表变成有序。
15
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp 的事件过程如下:
Private Sub Text1_KeyUp(KeyCode As Integer ,shiftAs Integer)
Di m CAs stri ng
Text2.Text =Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a 时,文本框Text2中显示的是( )。
A. A
B. a
C. C
D. c
参考答案:C 系统解析:Asc(c)函数表示c 对应的ASCII 码值,而Chr()函数是将AscII 码值转换为对应的字符,当输入a时,先转换为AscII 码值为97,加上2,变为99,最后转换为对应的字符,即C。
16
假定有下列程序段:
For i =1TO 3
For j=5To 1Step -1
Print i*j
Next j
Next i
则语句Print i*j 的执行次数是( )。
A. 15
B. 16
C. 17
D. 18
参考答案:A 系统解析:For…Next 循环语句可提供一个重复执行的语句序列,遵循"先检查,后执行"的规则,执行过程中,循环次数=Int(终值-初值)/步长+1。本题代码是一个嵌套的For 循环,其中每次执行内循环时的循环次数=(Int(1-5)/-1)+1=5,外循环的循环次数为3,因此执行循环体语句:PrintI*J的次数为15次。
17
下列描述中正确的是( )。
A. 程序就是软件
B. 软件开发不受计算机系统的限制
C. 软件既是逻辑实体,又是物理实体
D. 软件是程序、数据与相关文档的集合
参考答案:D 系统解析:软件是程序、数据与相关文档的集合,它是一个逻辑实体。软件的开发要受计算机系统的限制,例如硬件系统的限制、软件操作系统的限制等。
18
窗体上有1个名称为Text1的文本框和1个名称为Co mmand1.的命令按钮。要求程序运行时,单击命令按钮,就可把文本框中的内容写到文件out .txt 中,每次写入的内容附加到文件原有内容之后。下列能够正确实现以上功能的程序是( )。
A. Private Sub Co mmand1_Click()
Open "out .txt"For Input As #1
Print #1,Text1.Text
Close #1
End Sub
B. Private Sub Co mmand1_Click()
Open "out .txt"For Output As #1
Print #1,Text1.Text
Close #1
End Sub
C. Private Sub Co mmand1_Click()
Open "out .txt"For Append As #1
Print #1,Text1.Text
Close #1
End Sub
D. Private Sub Co mmand1_Click()
Open "out .txt"For Rando m As #1
Print #1,Text1.Text
Close #1
End Sub
参考答案:C 系统解析:文件的输入/输出方式:Output 是顺序输出方式,Input 是顺序输入方式,Apend 也是指定顺序输出方式,与Output 不同的是当用Append 方式打开文件时,文件指针被定位在文件末尾,若对文件执行写操作,则写入的数据附加到原来的文件的后面,即Append 是追加方式写入数据。Rando m 是指定随机存取方式,也是默认方式。结合题目要求,易知应该选C。
19
设已经在"菜单编辑器"中设计了窗体的快捷菜单,其顶级菜单为Bs ,取消其"可见"属性,运行时,在以下事件过程中,可以使快捷菜单响应鼠标右键菜单的是( )。
A. Private Sub Form_MouseDown(Button As Integer ,Shift As Integer ,X As Si ngle ,Y As Si ngle) If Button =2Then Popup Menu Bs ,2
End Sub
B. Private Sub Form_MouseDown(Button As Integer ,ShiftAs Integer ,X As Single ,Y As Single) Popup Menu Bs
End Sub
C. Private Sub Form_MouseDown(Button As Integer ,ShiftAs Integer ,X As Single ,Y As Single) Popup Menu Bs ,0
End Sub
D. Private Sub Form_MouseDown(Button As Integer ,ShiftAs Integer ,X As Single ,Y As Single) If (Button =vbLeftButton)Or (Button =vbRightButton)Then Popup Menu Bs
End Sub
参考答案:A 系统解析:Popup Menu 方法用来显示弹出式菜单,其格式为:[对象.]Popup Menu 菜单名[,Flags][,X,Y ,][BoldCo mmand]。其中,[,Flags][,X,Y ,]用来设置菜单的显示位置。为了显示菜单,通常把Popup Menu 方法放到MouseDown 事件中,按照惯例,一般通过单击右键显示菜单,这可以用Button 参数来实现,鼠标右键的参数为2,因此选项A 正确。
20
为了使命令按钮(名称为Co mmand1)右移200,应使用的语句是( )。
A. Co mmand1.Move -200
B. Co mmand1.Move 200
C. Co mmand1.Left =Co mmand1.Left +200
D. Co mmand1.Left =Co mmand1.Left -200
参考答案:C 系统解析:本题考查Visual Basic 控件的Left 属性。为了使Co mmand1右移200,只需将其Left 属性值加上200。选项A、B为错误用法,Co mmand 没有Move 属性。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |