|
17秋学期《可视化程序设计Ⅰ》在线作业3
一、单选题:【20道,总分:100分】
1.确定一个窗体或控件大小属性是 (满分:5)
A. Width或Height
B. Width和Height
C. Top或Left
D. Top和Left
2.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1Click( )Dim array1(10,10) As IntegerDim i,j As IntegerFor i=1 To 3For j=2 To 4array1(i,j)=i+jNext jNext IText1.Text=array1(2,3)+array1(3,4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是 (满分:5)
A. 12
B. 13
C. 14
D. 15
3.用下面语句定义的数组的元素个数是Dim A(-3 To 5) As Integer (满分:5)
A. 6
B. 7
C. 8
D. 9
4.关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是 (满分:5)
A. "dx,dy为传送源左上角坐标"
B. "dx,dy为传送目标左上角坐标"
C. "sw,sh为传送目标的大小"
D. "dw,dh为传送源的大小"
5.在设计阶段,当双击窗体上的某个控件时,所打开的窗口是 (满分:5)
A. 工程资源管理器窗口
B. 工具箱窗口
C. 代码窗口
D. 属性窗口
6.设有如下程序:Option Base 0Private Sub FormClick( )Dim aDim i As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后,单击窗体,则在窗体上显示的是 (满分:5)
A.
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
7.从键盘上输入两个字符串,分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是 (满分:5)
A. Left
B. Mid
C. String
D. Instr
8.删除ListBox对象list1最后一个列表项的可行语句 (满分:5)
A. list1.removeitem list1.listcount
B. list1.removeitem list1.listcount -1
C. list1.deleteitem list1.listcount -1
D. list1.deleteitem list1.listcount
9.设有如下的记录类型Type StudentNumber As StringName As StringAge As IntegerEnd Type则正确引用该记录类型变量的代码是 (满分:5)
A. "Student.name=""张红"""
B. Dim s As Student
C. "Dim s As Type Student s.name=""张红"""
D. "Dim s As Types.name=""张红"""
10.一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Pubilc X As Integer,在Model1中有语句Pubilc Y As Integer,则以下叙述中正确的是 (满分:5)
A. 变量X、Y的作用域相同
B. Y的作用域是Model1
C. 在Form1中可以直接使用X
D. 在Form2中可以直接使用X和Y
11.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程Private Sub Command1Click( ) Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program"End Sub程序运行后,如果单击命令按钮,则在文本框中显示的是 (满分:5)
A. Visual
B. Basic
C. Program
D. 出错
12.假定有如下的Sub过程:Sub S(x As Single,y As Single)t = xx =t/y y =t Mod yEnd Sub在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub CommandlClick( )Dim a As SingleDim b As Singlea =5b =4S a,b Print a,bEnd Sub程序运行后,单击命令按钮,输出结果为 (满分:5)
A. 5 4
B. 1 1
C. 1.25 4
D. 1.25 1
13.对窗体编写如下代码:Option Base 1Private Sub FormKeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1If KeyAscii = 13 ThenFor i =2 To 5If a(i)>ml Thenm1 =a(j)m2 =iEnd IfNext iEnd IfPrint m1Print m2End Sub程序运行后,按回车键,输出结果为 (满分:5)
A. 48 4
B. 237 1
C. 498 5
D. 498 4
14.在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序 (满分:5)
A. TabStop
B. Enabled
C. Visible
D. TabIndex
15.为了暂时关闭计时器,应把该计时器的某个属性设置为False ,这个属性是 (满分:5)
A. Visible
B. Timer
C. Enabled
D. Interval
16.以下叙述中正确的是 (满分:5)
A. 一个记录中所包含的各个元素的数据类型必须相同
B. 随机文件中每个记录的长度是固定的
C. Open命令的作用是打开一个已经存在的文件
D. 使用Input #语句可以从随机文件中读取数据
17.设置一个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属性是( ) (满分:5)
A. Caption
B. Name
C. Text
D. Value
18.在用通用对话框控件建立“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是 (满分:5)
A. “text(.txt)|(*.txt)”
B. “文本文件( .txt) |(.txt)”
C. “text(.txt)( )(*.txt)”
D. “text(.txt)(*.txt)”
19.若有如下定义:Dim fs As New FileSystemObject, f As File现在要引用C盘根目录下存放的文件text.txt,可以使用的代码是( ) (满分:5)
A. f=fs.GetFile(“c:\text.txt”)
B. Set f=fs.GetFile(“c:\text.txt”)
C. f=fs.GetFile(“text.txt”)
D. Set f=fs.GetFile(“text.txt”)
20.取消窗体的最大化功能,需要把它的一个属性设置为False,这个属性是 (满分:5)
A. ControlBox
B. MinButton
C. Enabled
D. MaxButton
更多学习资料请登录www.openhelp100.com
|
|