某人设计了一个窗体用于登录注册信息,上面有若干控件,其中接收注册时间输入的文本框名称为Text1。他希望,当要输入注册时间时能自动填写当前时间,于是编写了一行代码:Text1.Text=Date 请问,这行代码应该放入______事件的事件过程中才能达到目的。
A. GotFocus
B. LostFocus
Change
D. Click
查看答案
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer Static s As Integer x=Val(InputBox("请输入一个正整数=")) If x<5 Then x=s*x Else s=s*x End If Print s End Sub 运行程序,三次单击命令按钮,依次输入5、4、3,最后一次输出的结果是______。
A. 60
B. 120
C. 20
D. 5
下列方法或事件中,不是组合框与列表框共有的是______。
A. RemoveItem方法
B. AddItem方法
Change事件
D. Click事件
假定编写了如下的Sub过程: Public Sub Proc(a() As Integer) Static i As Integer Do a(i)=a(i)+a(i+1) i=i+1 Loop While i<2 End Sub 编写如下事件过程: Private Sub Form_Click() Dim m As Integer, i As Integer, x(4) As Integer For i=0 To 4 x(i)=i+1 Next i For i=1 To 2 Call Proc(x()) Next i For i=0 To 4 Print x(i); Next i End Sub 运行程序,单击窗体,输出结果是______。
A. 3 4 7 5 6
B. 3 5 7 4 5
C. 2 3 4 4 5
D. 4 5 6 7 8
阅读程序: Private Sub Form_Click() Dim x As Integer, y As Integer x=32:y=42 Call PCS(x,y) Print x;y End Sub Sub PCS(ByVal n As Integer,ByVal m As Integer) n=n Mod 10+10 m=m Mod 10+10 End Sub 运行程序,单击窗体,输出结果为______。
A. 2 32
B. 32 42
C. 2 3
D. 12 3