下面关于VB数据文件的叙述中错误的是

单项选择题

VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母

A．这3个事件都会触发
B．只触发KeyPress事件
C．只触发KeyDown、KeyUp事件
D．不触发其中任何一个事件

单项选择题

窗体上有一个Text1文本框，并编写了下面事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii=KeyAscii+3
End Sub
程序运行时，在文本框中输入字符“A”，则在文本框中实际显示的是

A．.A
B．.B
C．.C
D．.D

单项选择题

在窗体上画1名为Command1的命令按钮和1名Text1的文本框，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii_
As Integer)
If Chr(KeyAscii)＜＞""Then
ss=ss+Chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Dim m As String, i As Integer
For i=Len(ss) To 1 Step-1
m=m+Mid(ss, i, 1)
Next
Text1.Text=UCase(m)
End Sub
程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是

A．NUMBER 100
B．REBMUN
C．REBMUN 100
D．001 REBMUN

单项选择题

对于文本框Text1，能够获得按键的ASCII码值的事件过程是

A．Text1_KeyUp
B．Text1_KeyPress
C．Text1_Click
D．Text1_Change

单项选择题

文本框Text1的KeyDown事件过程如下：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)…End Sub其中参数KeyCode的值表示的是发生此事件时

A．是否按下了Alt键或Ctrl键
B．按下的是哪个数字键
C．所按的键盘键的键码
D．按下的是哪个鼠标键

单项选择题

将窗体的KeyPreview属性设为True，然后编写如下程序：
Private Sub Form_KeyDown(KeyCode_
As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii
As Integer)
Print Chr(KeyAscii)
End Sub
运行程序时，按下字母键a，则窗体上显示的是

A．A A
B．A a
C．a A
D．a a

单项选择题

在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As String
Private Sub Form_Load()
Text1.Text="":Text1.SetFocus
End Sub
Private Sub Command1_Click()
Text1.Text=LCase(SaveAll)+SaveAll
End Sub
Private Sub Form_KeyPress(KeyAscii_
As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为

A．vbVB
B．不显示任何信息
C．VB
D．出错

单项选择题

窗体上有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

单项选择题

设窗体上有2个文本框Text1和Text2，并有下面的事件过程：
Dim n
Private Sub Text1_KeyPress(KeyAscii As Integer)
If "A"＜=Chr(KeyAscii) And Chr(KeyAscii)＜="Z" Then
n=n+1
End If
If KeyAscii=13 Then Text2.Text=n
End Sub
程序运行时，在文本框Text1中输入“Visual Basic 6.0”并按回车键后，在文本框Text2中显示的是

A．2
B．9
C．13
D．16

单项选择题

若看到程序中有以下事件过程，则可以肯定的是，当程序运行时
Private Sub Click_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single)
Print"VB Program"
End Sub

A．用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B．用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C．用鼠标右键单击名称为“MouseDown”的控件时，执行此过程
D．用鼠标左键或右键单击名称为“Click”的控件时，执行此过程

单项选择题

设有窗体的Form_MouseMove事件过程如下：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If(ButtonAnd 3)=3 Then
Print"检查按键"
End If
End Sub
关于上述过程，以下叙述中正确的是

A．按下鼠标左键时，在窗体上显示“检查按键”
B．按下鼠标右键时，在窗体上显示“检查按键”
C．同时按下鼠标左、右键时，在窗体上显示“检查按键”
D．不论做何种操作，窗体上都不会显示

单项选择题

要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

A．Private Sub P1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Print X, YEnd Sub
B．Private Sub P1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture.Print X, YEnd Sub
C．Private Sub P1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)P1.Print X, YEnd Sub
D．Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)P1.Print X, YEnd Sub

单项选择题

窗体的MouseUp事件过程如下：
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
……
End Sub
关于以上定义，以下叙述中错误的是

A．根据Shift参数，能够确定使用转换键的情况
B．根据X、Y参数可以确定触发此事件时鼠标的位置
C．Button参数的值是在MouseUp事件发生时，系统自动产生的
D．MouseUp是鼠标向上移动时触发的事件

单项选择题

命令按钮Command1的MouseUp事件过程结构如下：
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
……
End Sub
则以下叙述中错误的是

A．X、Y参数表示的是Command1左上角在窗体中的位置
B．Button参数用于确定按下的鼠标键
C．Shift参数用于确定是否按下了Alt、Ctrl或Shift键
D．MouseUp表示抬起鼠标按键时触发的事件

单项选择题

有下面事件过程：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
Form1.PSet(X, Y)"PSet方法可以在X，Y处画一个点
End If
End Sub
程序运行后，产生的效果是

A．在窗体上每单击鼠标左键一次，就在鼠标位置处画一个点
B．按着鼠标左键，移动鼠标，可在窗体上画出鼠标的运动轨迹
C．按着鼠标右键，移动鼠标，可在窗体上画出鼠标的运动轨迹
D．不按任何鼠标键，移动鼠标，可在窗体上画出鼠标的运动轨迹

单项选择题

窗体上已有1个名称为Picture1的图片框，要求实现下面2个功能之一：(1)在窗体上移动鼠标时，立即将Picture1显示在鼠标位置(2)在窗体上单击鼠标时，立即将Picture1显示在鼠标位置下面不能实现上述任何功能的事件过程是

A．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.Move X, YEnd Sub
B．Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.Move X, YEnd Sub
C．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.CurrentX=X:Picture1.CurrentY=YEnd Sub
D．Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.Move X, YEnd Sub

单项选择题

编写如下程序：
Private Sub Form_Click()
Print "Welcome!"
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print"欢迎!"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print"热烈欢迎!"
End Sub
程序运行后，单击窗体，输出结果为

A．欢迎! 热烈欢迎! Welcome!
B．欢迎! Welcome! 热烈欢迎!
C．Welcome! 欢迎! 热烈欢迎!
D．Welcome! 热烈欢迎! 欢迎!

单项选择题

下列操作说明中，错误的是

A．在具有焦点的对象上进行一次按下字母键操作，会引发KeyPress事件
B．可以通过MousePointer属性设置鼠标光标的形状
C．不可以在属性窗口设置MousePointer属性
D．可以在程序代码中设置MousePointer属性

单项选择题

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

A．Private Sub Label1_Click()Label1.Caption=Text1.TextEnd Sub
B．Private Sub Label1_Change()Label1.Caption=Text1.TextEnd Sub
C．Private Sub Text1_Click()Label1.Caption=Text1.TextEnd Sub
D．Private Sub Text1_Change()Label1.Caption=Text1.TextEnd Sub

单项选择题

某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中P
Private Sub Command1_Click()
Open"out.txt" For Output As #2
Print"text1"
Close#2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是

A．把Print"Text1"改为Print#2，Text1
B．把Print"Text1"改为Print Text1
C．把Print"Text1"改为Write"Text1"
D．把所有#2改为#1

单项选择题

设有语句Open"c:\Test.Dat" For Ouput As #1则以下叙述中错误的是

A．该语句打开C盘根目录下的一个文件Test.Dat，如果该文件不存在则出错
B．该语句打开C盘根目录下一个名为Test.Dat的文件，如果该文件不存在则创建该文件
C．该语句打开文件的文件号为1
D．执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息

单项选择题

顺序文件在一次打开期间

A．只能读，不能写
B．只能写，不能读
C．既可读，又可写
D．或者只读，或者只写

单项选择题

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

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

单项选择题

以下关于文件的叙述中，错误的是

A．顺序文件中的记录是一个接一个地顺序存放
B．随机文件中记录的长度是随机的
C．文件被打开后，自动生成一个文件指针
D．EOF函数用来测试是否到达文件尾

单项选择题

以下叙述中错误的是

A．Print群语句和Write#语句都可以向文件中写入数据
B．用Print#语句和Write#语句所建立的顺序文件格式总是一样的
C．如果用Print#语句把数据输出到文件，则各数据项之间没有逗号分隔，字符串也不加双引号
D．如果用Write#语句把数据输出到文件，则各数据项之间自动插入逗号，并且把字符串加上双引号

单项选择题

为了保存数据，需打开顺序文件“E:\UserData.txt”，以下正确的命令是

A．Open E:\UserData.txt For Input As#1
B．Open"E:\UserData.txt"For Input As #2
C．Open E:\UserData.txt For Output As#1
D．Open"E:\UserData.txt"For Output As #2

单项选择题

为了读取数据，需打开顺序文件“D:\data5.txt”，以下正确的命令是

A．Open D:\data5.txt For Input As #1
B．Open "D:\data5.txt"For Input As #2
C．Open D:\data5.txt For Output As #1
D．Open "D:\data5.txt"For Output As #2

单项选择题

在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Type
Record ID As Integer:Name As String*20
End Type
Private Sub Command1_Click()
Dim MaxSize, NextChar, MyChar
Open"d:\temp\female.txt"For Input As #1
MaxSize=LOF(1)
For NextChar=MaxSize To 1 Step-1
MyChar=Input(1, #1)
Next
NextChar
Print EOF(1)
Close#1
End Sub
运行程序，单击命令按钮，其输出结果为

A．True
B．False
C．0
D．Null

单项选择题

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据：
Private Sub Command1_Click()
Dim s1 As String, s2 As String
Open "c:\d4.dat" For Append As #3
Line Input#3, s1 Line Input#3, s2
Text1.Text=s1+s2
Close
End Sub
该程序运行时有错误，应该进行的修改是

A．将Open语句中的ForAppend改为ForInput
B．将LineInput改为Line
C．将两条Line Input语句合并为Line Input #3, s1, s2
D．将Close语句改为Close #3

单项选择题

窗体上有一个名称为Command1的命令按钮。要求编写程序，把文件f1.txt的内容写到文件f2.txt中，然后将f1.txt删除。命令按钮的单击事件过程如下：
Private Sub Command1_Click()
Open"c:\f1.txt"For Input As #1
Open"c:\f2.txt" For Output As #2
Do While Not EOF(2)
Line Input #1, str1 Print #2, str1
Loop
Close Kill"c:\f1.txt"
End Sub
该程序运行时发生错误，应该进行的修改是

A．打开f1.txt应该使用Output方式，打开f2.txt应该使用Input方式
B．Not EOF(2)应该改为Not EOF(1)
C．Line Input应改为Get
D．Close语句改为Close All

单项选择题

窗体上有一个名称为Cornmand1的命令按钮。其单击事件过程如下：
Private Sub Command1_Click()
Open"c:\f1.txt" For Input As#1:Open"c:\f2.txt"For Output As#2
Do While Not EOF(1)
Line Input#1, str1:Print#2, str1
Loop
Close
End Sub
以下关于上述程序的叙述中，错误的是

A．功能是将f2.txt中的内容复制到f1.txt中
B．f1.txt和f2.txt均是顺序文件
C．EOF函数可以判断是否已到文件的末尾
D．Close能够把打开的两个文件都关闭

单项选择题

文件d:\city.txt的内容如下：
BeiJing
TianJin
ShangHai
ChongQing
编写如下事件过程：
Private Sub Form_Click()
DimInD
Open"d:\city.txt"For Input As #1
Do While Not EOF(1)
Line Input #1.InD
Loop
Close 1
Print InD
End Sub
运行程序，单击窗体，输出结果是

A．文件city.txt的全部内容
B．BeiJing
C．ChongQing
D．空白

单项选择题

在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。

设有如下的类型和变量声明：
PriVate Type Person
Name As String8:Major As Stri8ng20
End Type
Dim p As Person
设文本框中的数据已正确地赋值给Person类型的变量p，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是

A．Open"c:\Test2.dat" For Output As #1 Put #1, 1, p Close #1
B．Open"c:\Test2.dat" For Random As #1 Get #1, 1, p Close #1
C．Open"c:\Test2.dat" For Random As #1 Len=Len(p)Put#1, 1, p Close #1
D．Open"c:\Test2.dat" For Random As #1 Len=Len(p)Get #1, 1, p Close #1

单项选择题

关于随机文件，以下叙述中错误的是

A．使用随机文件能节约空间
B．随机文件记录中，每个字段的长度是固定的
C．随机文件中，每个记录的长度相等
D．随机文件的每个记录都有一个记录号

单项选择题

下面语句中能够打开随机文件的是

A．Open"file.txt"For Random As #1
B．Open"file.txt" For Input As #1
C．Open"file.txt" For Output As #1
D．Open"file.txt" For Append As #1

单项选择题

如果改变驱动器列表框的Drive属性，则将触发的事件是

A．Change
B．Scroll
C．KeyDown
D．KeyUp

单项选择题

要使得文件列表框File1中只显示文件扩展名为.jpg的图片文件，则下列正确的语句是

A．File1.Pattern="*.jpg"
B．File1.Parent="*.jpg"
C．File1.Path="*.jpg"
D．File1.Pattern="图片文件|*.jpg"

单项选择题

通过一个属性可以获得文件列表框中当前被选中文件的文件名，这个属性是

A．Dir
B．Path
C．Drive
D．FileName

单项选择题

关于文件操作，以下叙述中正确的是

A．Kill命令的作用是删除用户编写的VB程序文件
B．使用Name命令能够对文件或文件夹重新命名
C．用FileCopy进行文件拷贝时，可以使用通配符
D．用FileCopy可以将打开的文件复制到指定的文件夹

下面关于VB数据文件的叙述中错误的是

你可能感兴趣的试题

VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母

窗体上有一个Text1文本框，并编写了下面事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii=KeyAscii+3 End Sub 程序运行时，在文本框中输入字符“A”，则在文本框中实际显示的是

对于文本框Text1，能够获得按键的ASCII码值的事件过程是

文本框Text1的KeyDown事件过程如下：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)…End Sub其中参数KeyCode的值表示的是发生此事件时

将窗体的KeyPreview属性设为True，然后编写如下程序： Private Sub Form_KeyDown(KeyCode_ As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 运行程序时，按下字母键a，则窗体上显示的是

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

若看到程序中有以下事件过程，则可以肯定的是，当程序运行时 Private Sub Click_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single) Print"VB Program" End Sub

设有窗体的Form_MouseMove事件过程如下： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If(ButtonAnd 3)=3 Then Print"检查按键" End If End Sub 关于上述过程，以下叙述中正确的是

要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

窗体的MouseUp事件过程如下： Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) …… End Sub 关于以上定义，以下叙述中错误的是

命令按钮Command1的MouseUp事件过程结构如下： Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) …… End Sub 则以下叙述中错误的是

有下面事件过程： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=2 Then Form1.PSet(X, Y)"PSet方法可以在X，Y处画一个点 End If End Sub 程序运行后，产生的效果是

窗体上已有1个名称为Picture1的图片框，要求实现下面2个功能之一：(1)在窗体上移动鼠标时，立即将Picture1显示在鼠标位置(2)在窗体上单击鼠标时，立即将Picture1显示在鼠标位置下面不能实现上述任何功能的事件过程是

下列操作说明中，错误的是

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

鼠标拖放控件要触发两个事件，这两个事件是

为了实现对象的自动拖放，应该设置该对象的一个属性。下面设置中正确的是

下列有关文件的叙述中，正确的是

下列关于顺序文件的描述中，正确的是

下面关于文件叙述中错误的是

以下关于文件的叙述中，错误的是

用语句Open"C:\teac.txt"For Input As #1打开文件后，就可以编程序

以下不属于Visual Basic数据文件的是

下面关于VB数据文件的叙述中错误的是

某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中P Private Sub Command1_Click() Open"out.txt" For Output As #2 Print"text1" Close#2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是

设有语句Open"c:\Test.Dat" For Ouput As #1则以下叙述中错误的是

顺序文件在一次打开期间

以下关于文件的叙述中，错误的是

以下叙述中错误的是

为了保存数据，需打开顺序文件“E:\UserData.txt”，以下正确的命令是

为了读取数据，需打开顺序文件“D:\data5.txt”，以下正确的命令是

窗体上有一个名称为Cornmand1的命令按钮。其单击事件过程如下： Private Sub Command1_Click() Open"c:\f1.txt" For Input As#1:Open"c:\f2.txt"For Output As#2 Do While Not EOF(1) Line Input#1, str1:Print#2, str1 Loop Close End Sub 以下关于上述程序的叙述中，错误的是

文件d:\city.txt的内容如下： BeiJing TianJin ShangHai ChongQing 编写如下事件过程： Private Sub Form_Click() DimInD Open"d:\city.txt"For Input As #1 Do While Not EOF(1) Line Input #1.InD Loop Close 1 Print InD End Sub 运行程序，单击窗体，输出结果是

关于随机文件，以下叙述中错误的是

下面语句中能够打开随机文件的是

如果改变驱动器列表框的Drive属性，则将触发的事件是

要使得文件列表框File1中只显示文件扩展名为.jpg的图片文件，则下列正确的语句是

通过一个属性可以获得文件列表框中当前被选中文件的文件名，这个属性是

关于文件操作，以下叙述中正确的是

窗体上有一个Text1文本框，并编写了下面事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii=KeyAscii+3
End Sub
程序运行时，在文本框中输入字符“A”，则在文本框中实际显示的是

将窗体的KeyPreview属性设为True，然后编写如下程序：
Private Sub Form_KeyDown(KeyCode_
As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii
As Integer)
Print Chr(KeyAscii)
End Sub
运行程序时，按下字母键a，则窗体上显示的是

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

若看到程序中有以下事件过程，则可以肯定的是，当程序运行时
Private Sub Click_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single)
Print"VB Program"
End Sub

设有窗体的Form_MouseMove事件过程如下：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If(ButtonAnd 3)=3 Then
Print"检查按键"
End If
End Sub
关于上述过程，以下叙述中正确的是

窗体的MouseUp事件过程如下：
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
……
End Sub
关于以上定义，以下叙述中错误的是

命令按钮Command1的MouseUp事件过程结构如下：
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
……
End Sub
则以下叙述中错误的是

有下面事件过程：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
Form1.PSet(X, Y)"PSet方法可以在X，Y处画一个点
End If
End Sub
程序运行后，产生的效果是

某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中P
Private Sub Command1_Click()
Open"out.txt" For Output As #2
Print"text1"
Close#2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是

窗体上有一个名称为Cornmand1的命令按钮。其单击事件过程如下：
Private Sub Command1_Click()
Open"c:\f1.txt" For Input As#1:Open"c:\f2.txt"For Output As#2
Do While Not EOF(1)
Line Input#1, str1:Print#2, str1
Loop
Close
End Sub
以下关于上述程序的叙述中，错误的是

文件d:\city.txt的内容如下：
BeiJing
TianJin
ShangHai
ChongQing
编写如下事件过程：
Private Sub Form_Click()
DimInD
Open"d:\city.txt"For Input As #1
Do While Not EOF(1)
Line Input #1.InD
Loop
Close 1
Print InD
End Sub
运行程序，单击窗体，输出结果是