在设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文...

单项选择题

窗体上有1个名称为Text1的文本框，1个名称为Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为(　　)。

A．Private Sub Label1_Click() Label1.Caption＝Text1.Text End Sub
B．Private Sub Label1_Change() Label1.Caption＝Text1.Text End Sub
C．Private Sub Text1_Click() Label1.Caption＝Text1.Text End Sub
D．Private Sub Text1_Change() Label1.Caption＝Text1.Text End Sub

单项选择题

程序运行时，单击命令按钮，则产生的操作是(　　)。

A．窗体左上角移动到距屏幕左边界、上边界各200的位置
B．窗体左上角移动到距屏幕右边界、上边界各200的位置
C．窗体由当前位置向左、向上各移动200
D．窗体由当前位置向右、向下各移动200

单项选择题

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：Private Sub Form_Load()　　 Show　　 Text1.Text＝""　　 Text2.Text＝""　　 Text1.SetFocusEnd SubPrivate Sub Text1_Change()　　 Text2.Text＝Mid(Text1.Text， 6)End Sub程序运行后，如果在文本框Text1中输入ChinaBeijing，则在文本框Text2中显示的内容是(　　)。

A．ChinaBeijing
B．China
C．Beijing
D．ChinaB

单项选择题

在窗体上画一个水平滚动条，其属性值满足Min

A．增加一个SmallChange量
B．减少一个SmallChange量
C．增加一个LargeChange量
D．减少一个LargeChange量

单项选择题

在菜单编辑器中建立如下图所示的菜单，并为了每个菜单项编写了鼠标单击事件过程。
关于此菜单，以下叙述中错误的是(　　)。

A．针对此菜单进行操作，单击"斜体"菜单项时，将执行它的鼠标单击事件过程
B．针对此菜单进行操作，单击"下划线" 菜单项时，"√"被去掉
C．针对此菜单进行操作，单击"退出"菜单项时，不能执行对应的单击事件过程
D．针对此菜单进行操作，单击"编辑"菜单项时，打开下拉菜单，但不执行相应的单击事件过程

单项选择题

以下关于通用对话框的叙述中，错误的是(　　)。

A．在程序运行状态下，通用对话框控件是不显示的
B．通用对话框控件是Visual Basic的标准控件
C．设计时，通用对话框控件的大小是固定的，不能改变
D．在同一个程序中，一个通用对话框控件可以作为打开、保存等多种对话框

单项选择题

窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮，相应的事件过程如下：Private Sub Command1_Click()　　CD1.Filter＝"All File|.|Text File|.txt|PPT|.ppt"　　CD1.FilterIndex＝2　　CD1.InitDir＝"C："　　CD1.FileName＝"default"　　CD1.ShowSaveEnd Sub关于上述过程，以下叙述中正确的是(　　)。

A．默认过滤器为"*.ppt"
B．指定的初始目录为"C："
C．打开的文件对话框的标题为"default"
D．上面事件过程实现保存文件的操作

单项选择题

以下关于窗体的叙述中，错误的是(　　)。

A．Hide方法能隐藏窗体，但窗体仍在内存中
B．使用Show方法显示窗体时，一定触发Load事件
C．移动或放大窗体时，会触发Paint事件
D．双击窗体时，会触发DblClick事件

单项选择题

以下关于图片框控件的说法中，错误的是(　　)。

A．可以通过Print方法在图片框中输出文本
B．图片框控件中的图形可以在程序运行过程中被清除
C．图片框控件中可以放置其他控件
D．用Stretch属性可以自动调整图片框中图形的大小

单项选择题

为了清除列表框中指定的项目，应使用的方法是(　　)。

A．Cls
B．Clear
C．Remove
D．RemoveItem

单项选择题

定时器的Interval属性的值是一个整数，它表示的是(　　)。

A．毫秒数
B．秒数
C．分钟数
D．小时数

单项选择题

阅读程序：Private Sub Form_Click()　　a＝0　　For j＝1 To 15　　　　a＝a＋j Mod 3　　Next j　　Print aEnd Sub程序运行后，单击窗体，输出结果是(　　)。

A．105
B．1
C．120
D．15

单项选择题

为计算1＋2＋22＋23＋24＋…＋210的值，并把结果显示在文本框Text1中，若编写如下事件过程：Private Sub Command1 Click()　　Dim a&，s&，k&　　s＝1　　a＝2　　For k＝2 To 10　　　　a＝a*2　　　　s＝s＋a　　Next k　　Text1.Text＝sEnd Sub执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是(　　)。

A．把s＝1改为s＝0
B．把For k＝2 To 10改为For k＝1 To 10
C．交换语句s＝s＋a和a＝a * 2的顺序
D．把For k＝2 To 10改为For k＝1 To 10、交换语句s＝s＋a和a＝a * 2的顺序

单项选择题

标准模块中有如下程序代码：Public x As Integer，y As IntegerSub var_pub()　　x＝10∶y＝20End Sub在窗体上有1个命令按钮，并有如下事件过程：Private Sub Command1_Click()　　Dim x As Integer　　Call var_pub　　x＝x＋100　　y＝y＋100　　Print x；yEnd Sub运行程序后单击命令按钮，窗体上显示的是(　　)。

A．100 100
B．100 120
C．110 100
D．110 120

单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()　　 Dim i As Integer， n As Integer　　 For i＝0 To 50　　　　　　i＝i＋3　　　　　　n＝n＋1　　　　　　If i>10 Then Exit For　　 Next　　 Text1.Text＝Str(n) End Sub程序运行后，单击命令按钮，在文本框中显示的值是(　　)。

A．2
B．3
C．4
D．5

单项选择题

设有如下的程序段：n＝0For i＝1 To 3　　For j＝1 To i　　　　For k＝j To 3n＝n＋1　　　　Next k　　Next jNext i执行上面的程序段后，n的值为(　　)。

A．3
B．21
C．9
D．14

单项选择题

命令按钮Command1的单击事件过程如下：Private Sub Command1_Click()　　x＝10　　Print f(x)End SubPrivate Function f(y As Integer)　　f＝y * yEnd Function运行上述程序，如下叙述中正确的是(　　)。

A．程序运行出错，x变量的类型与函数参数的类型不符
B．在窗体上显示100
C．函数定义错，函数名f不能又作为变量名
D．在窗体上显示10

单项选择题

窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程：Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer)　　Print Text1.Text；End Sub运行程序，并在文本框中输入"123"，则在窗体上的输出结果为(　　)。

A．123
B．112
C．12123
D．112123

单项选择题

设有以下程序：Private Sub Form_Click()　　x＝50　　For i＝1 To 4　　　　y＝InputBox("请输入一个整数")　　　　y＝Val(y)　　　　If y Mod 5＝0 Then　　　　　　a＝a＋y　　　　　　x＝y　　　　Else　　　　　　a＝a＋x　　　　End If　　Next i　　Print aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为(　　)。

A．100
B．50
C．120
D．70

单项选择题

设在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books　　Name As String * 10　　TelNum As String * 20End Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是(　　)。

A．Private Sub Command1_Click() Dim B As Books Open "Person.txt" For Output As #1 B.Name＝InputBox("输入姓名") B.TelNum＝InputBox("输入电话号码") Write #1， B.Name， B.TelNum Close #1 End Sub
B．Private Sub Command1_Click() Dim B As Books Open "Person.txt" For Input As #1 B.Name＝InputBox("输入姓名") B.TelNum＝InputBox("输入电话号码") Print #1， B.Name， B.TelNum Close #1 End Sub
C．Private Sub Command1_Click() Dim B As Books Open "Person.txt" For Output As #1 B.Name＝InputBox("输入姓名") B.TelNum＝InputBox("输入电话号码") Write #1， B Close #1 End Sub
D．Private Sub Command1_Click() Open "Person.txt" For Input As #1 Name＝InputBox("输入姓名") TelNum＝InputBox("输入电话号码") Print #1， Name， TelNum Close #1 End Sub

单项选择题

设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为"Teacher"，所有菜单都可见；否则看不到"成绩录入"菜单项。为此，某人在Form1窗体文件中编写如下程序：
Private Sub Text11_KeyPress(KeyAscii As Integer)　　If KeyAscii＝13 Then　　　　If Text1.Text＝"Teacher"Then　　　　　　Form2.input.Visible＝True　　　　Else　　　　　　Form2.input.Visible＝False　　　　End If　　End If　　Form1.Hide　　Form2.ShowEnd Sub程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是(　　)。

单项选择题

在设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框：Private Sub Command1_Click()　　CD1.DialogTitle＝"打开文件"　　CD1.InitDir＝"C："　　CD1.Filter＝"所有文件|.|Word文档|.doc|文本文件|.txt"　　CD1.FileName＝""　　CD1.Action＝1　　If CD1.FileName＝""Then　　　　Print"未打开文件"　　Else　　　　Print"要打开文件"& CD1.FileName　　End IfEnd Sub
但实际显示的对话框中列出了C：\下的所有文件和文件夹，"文件类型"一栏中显示的是"所有文件"。下面的修改方案中正确的是(　　)。

A．把 CD1.Action＝1 改为 CD1.Action＝2
B．把"CD1.Filter＝"后面字符串中的"所有文件"改为"文本文件"
C．在语句CD1.Action＝1的前面添加：CD1.FilterIndex＝3
D．把CD1.FileName＝"" 改为 CD1.FileName＝"文本文件"

你可能感兴趣的试题

下列叙述中正确的是( )。

下列叙述中正确的是( )。

在下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。

软件生命周期是指( )。

一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为( )。

负责数据库中查询操作的数据库语言是( )。

一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是( )。

有三个关系R，S和T如下：则由关系R和S得到关系T的操作是( )。

下列选项中属于面向对象设计方法主要特征的是( )。

以下变量名中合法的是( )。

已知a＝6，b＝15，c＝23，则语句 Print Sgn(a＋b Mod 6－c\a)& a＋b 的输出结果为( )。

以下叙述中错误的是( )。

设a＝2， b＝3， c＝4， d＝5， 下列表达式的值是( )。a＞b And c＜=d Or 2*a＞c

如下关于变体类型变量的叙述中，错误的是( )。

满足下列条件之一的年份是闰年： 1)年份能被4整除但不能被100整除 2)年份能被400整除 若y代表年份，下面判断闰年的正确表达式是( )。

现有如下语句： x＝IIf(a>50， Int(a\3)， a Mod 2) 当a＝52时，x的值是( )。

设有如下数组定义语句：Dim a(－1 To 4， 3)As Integer 以下叙述中正确的是( )。

窗体上有1个名称为Text1的文本框，1个名称为Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为( )。

程序运行时，单击命令按钮，则产生的操作是( )。

在窗体上画一个水平滚动条，其属性值满足Min

在菜单编辑器中建立如下图所示的菜单，并为了每个菜单项编写了鼠标单击事件过程。关于此菜单，以下叙述中错误的是( )。

以下关于通用对话框的叙述中，错误的是( )。

以下关于窗体的叙述中，错误的是( )。

以下关于图片框控件的说法中，错误的是( )。

为了清除列表框中指定的项目，应使用的方法是( )。

定时器的Interval属性的值是一个整数，它表示的是( )。

阅读程序：Private Sub Form_Click() a＝0 For j＝1 To 15 a＝a＋j Mod 3 Next j Print aEnd Sub程序运行后，单击窗体，输出结果是( )。

设有如下的程序段：n＝0For i＝1 To 3 For j＝1 To i For k＝j To 3n＝n＋1 Next k Next jNext i执行上面的程序段后，n的值为( )。

命令按钮Command1的单击事件过程如下：Private Sub Command1_Click() x＝10 Print f(x)End SubPrivate Function f(y As Integer) f＝y * yEnd Function运行上述程序，如下叙述中正确的是( )。

窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程：Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Print Text1.Text；End Sub运行程序，并在文本框中输入"123"，则在窗体上的输出结果为( )。

下列叙述中正确的是(　　)。

下列叙述中正确的是(　　)。

在下列模式中，能够给出数据库物理存储结构与物理存取方法的是(　　)。

软件生命周期是指(　　)。

一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为(　　)。

负责数据库中查询操作的数据库语言是(　　)。

一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是(　　)。

有三个关系R，S和T如下：则由关系R和S得到关系T的操作是(　　)。

下列选项中属于面向对象设计方法主要特征的是(　　)。

以下变量名中合法的是(　　)。

已知a＝6，b＝15，c＝23，则语句 Print Sgn(a＋b Mod 6－c\a)& a＋b 的输出结果为(　　)。

以下叙述中错误的是(　　)。

设a＝2， b＝3， c＝4， d＝5，下列表达式的值是(　　)。a＞b And c＜=d Or 2*a＞c

如下关于变体类型变量的叙述中，错误的是(　　)。

满足下列条件之一的年份是闰年： 1)年份能被4整除但不能被100整除 2)年份能被400整除若y代表年份，下面判断闰年的正确表达式是( 　)。

现有如下语句： x＝IIf(a>50， Int(a\3)， a Mod 2) 当a＝52时，x的值是(　　)。

设有如下数组定义语句：Dim a(－1 To 4， 3)As Integer 以下叙述中正确的是(　　)。

窗体上有1个名称为Text1的文本框，1个名称为Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为(　　)。

程序运行时，单击命令按钮，则产生的操作是(　　)。

在菜单编辑器中建立如下图所示的菜单，并为了每个菜单项编写了鼠标单击事件过程。
关于此菜单，以下叙述中错误的是(　　)。

以下关于通用对话框的叙述中，错误的是(　　)。

以下关于窗体的叙述中，错误的是(　　)。

以下关于图片框控件的说法中，错误的是(　　)。

为了清除列表框中指定的项目，应使用的方法是(　　)。

定时器的Interval属性的值是一个整数，它表示的是(　　)。

阅读程序：Private Sub Form_Click()　　a＝0　　For j＝1 To 15　　　　a＝a＋j Mod 3　　Next j　　Print aEnd Sub程序运行后，单击窗体，输出结果是(　　)。

设有如下的程序段：n＝0For i＝1 To 3　　For j＝1 To i　　　　For k＝j To 3n＝n＋1　　　　Next k　　Next jNext i执行上面的程序段后，n的值为(　　)。

命令按钮Command1的单击事件过程如下：Private Sub Command1_Click()　　x＝10　　Print f(x)End SubPrivate Function f(y As Integer)　　f＝y * yEnd Function运行上述程序，如下叙述中正确的是(　　)。

窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程：Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer)　　Print Text1.Text；End Sub运行程序，并在文本框中输入"123"，则在窗体上的输出结果为(　　)。