单选题窗体上已有1个名称为Picturel的图片框，要求实现下面2个功能之一：(1)在窗体上移动鼠标时，立即将Picturel显示在鼠标位置(2)在窗体上单击鼠标时，立即将Picturel显示在鼠标位置下面不能实现上述任何功能的事件过程是
单选题窗体上有一个名称为Commandl的命令按钮。要求编写程序，把文件f1．txt的内容写到文件f2．txt中，然后将f1．txt删除。命令按钮的单击事件过程如下： Pfivate Sub Commandl_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，strl Print#2，str1 Loop Close Kill”c：＼f1．txt” End Sub 该程序运行时发生错误，应该进行的修改是
单选题在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程： Private Sub Command1_Click() Counter = 0 For i = 1 To 4 For j = 6 To 1 Step - 2 Counter = Counter + 1 Next j Next i Label1. Caption = Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是( )。 A) 11 B) 12 C) 16 D) 20
单选题当关闭窗体(Form1)或执行Unload语句时所能触发的事件是
单选题在窗体上绘制一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1 000，Enadled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1 Click() Timerl.______ End Sub Private Sub Timer_Timer() Text1.Text=Time End Sub 在横线处应填入的内容是
单选题窗体上添加一个文本框Text1，编写下列代码： Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+5)& KeyCode End Sub 程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。
单选题假定系统日期是1998年12月20日，有如下命令：
MJ=MOD(YEAR(DATE())，100)
执行该命令后，MJ的值是( )
单选题为了使图像(Image)控件中的图像自动适宜控件的大小，下列叙述正确的是
单选题窗体上有名称为Command1的命令按钮，其事件过程如下： Option Base 1 Private Sub Command1—Click() Dim a Dim b(10)As Integer a=Array(2，4，7，3，9，6) For i=LBound(a)To UBound(a) b(i)=a(i)+i Sum=Sum+b(i) Next i Print Sum End Sub运行程序，单击命令按钮时，窗体上显示的是( )。
单选题窗体上有Command1、Command2两个命令按钮。现编写以下程序： Option Base 0 Dim a()As Integer，m As Integer Private Sub Command1_Click() m=InputBox("请输入一个正整数") ReDim a(m) End Sub Private Sub Command2_Click() m=InputBox("请输入一个正整数") ReDim a(m) End Sub 运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是( )。
单选题在窗体上面一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print S End Sub 运行上面的程序，其输出结果是( ) A．1234 B．12 C．34 D．4321
单选题下列有关测试的论述中，错误的是
单选题设有变量声明为“Dim aDate As Date”，则能为变量aDate正确赋值的表达方式是( )。
单选题能够获得一个文本框中被选取文本的内容的属性是______。
A. Text
B. SelLength
C. SelText
D. SelStart
单选题设有命令按钮 Command1 的单击事件过程，代码如下：
Private Sub Command1_Click() Dim a(3,3) As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=i*j+i
Next j
Next i
Sum=0
For i=1 To 3
Sum=Sum+a(i,4-i) Next i
Print Sum
End Sub
运行程序，单击命令按钮，输出结果是______。
单选题在窗体上画一个组合框，一个命令按钮和一个文本框，其名称分别为Combo1，Command1和Text1，然后编写如下事件过程：Private Sub Form_Load()Combo1．AddItem"AAAAA"：Combo1．AddItem"BBBBB"Combo1．AddItem"CCCCC"：Combo1．AddItem"DDDDD"Combo1．AddItem"EEEEE"End Sub程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为
单选题下列程序的执行结果为( )。
Private Sub Commandl_Click()
Dim s1 As String ,s2 As String
s1= "abcd"
Call Transfer(sl，s2)
Print s2
End Sub
Private Sub Transfer (ByVal xstr As String，ystr As String)
Dim tempstr As String
ystr=tempstr
End Sub
单选题某人编写了下面的程序： Private Sub Commandl_Click()
Dim a As Integer,b As Integer
a=InputBox("请输入整数") b=InputBox("请输入整数") pro
a pro b Call pro(a+b) End
Sub Private Sub pro(n As Integer)
While(n＞0) Print n Mod 10; n=n/10
Wend Print End Sub
此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。例如：若输入123和234，则应该输出：
3 2 1 4 3 2
7 5 3
但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是______。
A.把过程pro的形式参数n As Integer改为ByVal n As Integer
B.把Call pro(a+b)改为pro a+b
C.把n=n/10改为n=n/10
D.在pro b语句之后增加语句c%=a+b，再把Call pro(a+b)改为pro c
单选题在窗体上有一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)AS String For i=1 To 5 a(i)=Chr(ASC("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是( )。
单选题窗体的MouseUp事件过程如下：Private Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single) ……End Sub关于以上定义，以下叙述中错误的是( )。