在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：
　　　 Private　Sub　Command1_Click( )
x=-5
If Sgn(x)Then
y=Sgn(x~2)
Else
y=Sgn(x)
End If
Print y
End Sub
程序运行后，单击命令按钮，窗体上显示的是

单项选择题假字在窗体(名称为Forml)的代码窗口中定义如下记录类型: Private Type animal Anima1Name As String * 20 aColor As String * 10 End Type 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim rec As animal Open c: vbTest.dat For Random As#1 Len = Len(rec) rec.animalName = Cat rec.aColor = White Pat#1 , rec Close#1 End Sub 则以下叙述中正确的是

单项选择题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click( ) n=Val(Text1.Text) For i=2 To n Forj =2 To Sqr(i) If i Mod j=0 Then Exit For Next j lf j＞Sqr(i) Then Print i Next i End Sub 该事件过程的功能是