窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序：
Private Sub Command1_Click（　）
Dim n
If Text1.Text＜＞"123456"Then
n=n+1
Print"口令输入错误" & n & "次"
End If
End Sub
希望程序运行时得到左图所示的效果，即：输入口令，单击“确定口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是( )

A:在Dim n语句的下面添加一句：n=0 B:把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次" C:把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)＆"次" D:把Dim n改为Static n E:

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

A:Private Sub P1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) B:Print X Y C:End Sub D:Private Sub P1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) E:Picture.Print X,Y F:End Sub G:Private Sub P1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) H:P1.Print X,Y I:End Sub J:Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) K:P1.Print X,Y L:End Sub

计算的近似值的一个公式是π/4=1-13+15-17+…+(-1)n-112n-1。
某人编写下面的程序用此公式计算并输出的近似值：
Private Sub Command1_Click（　）
PI=1
Sign=1
n=20000
For k=3 To n
Sign=-Sign
PI=PI+Sign/k
Next k
Print PI*4
End Sub
运行后发现结果为3.22751，显然程序需要修改。下面修改方案中正确的是( )

A:把For k=3 To n改为For k=1 To n B:把n=20000改为n=20000000 C:把For k=3 To n改为For k=3 To n Step 2 D:把PI=1改为PI=0

下面程序计算并输出的是( )
Private Sub Command1_Click（　）
a=10
s=0
Do
s=s+a*a*a
a=a-1
Loop Until a＜=0
Print s
End Sub

A:13+23+33+…+103的值 B:10! +…+3! +2! +1!的值 C:(1+2+3+…+1O)3的值 D:10个103的和

若在窗体模块的声明部分声明了如下自定义类型和数组：
Private Type rec
Code As Integer
Caption As String
End Type
Dim arr(5)AS rec
则下面的输出语句中正确的是( )

A:Print arr.Code(2),arr.Caption(2) B:Print arr.Code,arr.Caption C:Print art(2).Code,arr(2).Caption D:Print Code(2).Caption(2)

设窗体上有一个通用对话框控件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 If End Sub 但实际显示的对话框中列出了C:/下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是( )

A:把CD1.Action=1改为CD1.Action=2 B:把“CD1.FiIter=”后面字符串中的“所有文件”改为“文本文件” C:在语句CD1.Action=1的前面添加：CD1.FilterIndex=3 D:把CD1.FileName=" "改为CD1.FileName="文本文件/

下面程序运行时，若输入395，则输出结果是( )
Private Sub Command1_Click（　）
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10,x/100,(X Mod 100)/10
End Sub

A:3 9 5 B:5 3 9 C:5 9 3 D:3 5 9

窗体上有List1、List2两个列表框，List1中有若干列表项(见下图)，并有下面的程序： Private Sub Command1_Click（　） For k=List1.ListCout-1 To 0 SteD-1 If List1.Selected(k)Then List2.Addltem List1.List(k) List1.Removeltem k End If Next k End Sub 程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是( )

A:在List2中插入了“外语”、“物理”两项 B:在List1中删除了“外语”、“物理”两项 C:同时产生A和B的结果 D:把List1中最后1个列表项删除并插入到List2中

设工程中有2个窗体：Form1、Form2、Form1为启动窗体。Form2中有菜单，其结构如表所示。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的Ascii码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见，否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序： Private Sub Text1_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.Show End Sub 程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是( )

A:把Form1中Text1文本框及相关程序放到Form2窗体中 B:把Form1.Hide、Form2.Show两行移动至2个End If之间 C:把If KeyAscii=13 Then改为If KeyAscii="Teacher"Then D:把2个Form2.Input.Visible中的"Form2."删去

某人编写了下面的程序，希望能把Text1文本框中的内容写到out.tXt文件中：
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