单项选择题

在窗体上画一个名称为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
程序运行后，单击命令按钮，窗体上显示的是( )。

A．-5
B．25
C．1
D．-1
<上一题 目录 下一题>
热门 试题

单项选择题
窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=p2(pl(x),y) Text2.Text=pl(x) End Sub Private Function pl(x As Integer)As Integer x=x+y:y=x+y pl=x+y End Function Private Function p2(x As Integer,y As Integer)As Integer p2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是( )。
A．2 4
2 4
B．2 4
4 8
C．10 10
58 58
D．4 4
8 8
单项选择题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是L )：
A．5
B．4
C．3
D．2
相关试题