设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并有以下事件过程: Private Sub Command1 Click( ) X!=Val(Text1.Text) Select Casc x Case Is-10,Is=20 Print"输入错误" Case Is0 Print 20-x Case Is10 Print 20 Case Is=20 Print x+10 End Seleet End Sub 程序运行时,如果在文本框中输入-5,则单击命令按钮后的输出结果是( )。A.5B.20C.25D.输入错误

设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并有以下事件过程: Private Sub Command1 Click( ) X!=Val(Text1.Text) Select Casc x Case Is<-10,Is>=20 Print"输入错误" Case Is<0 Print 20-x Case Is<10 Print 20 Case Is<=20 Print x+10 End Seleet End Sub 程序运行时,如果在文本框中输入-5,则单击命令按钮后的输出结果是( )。

A.5

B.20

C.25

D.输入错误


相关考题:

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),编写如下事件过程:Private Sub Command1_Click()Dim x As Integer,y As Integer,z As IntegerCall f(x,y,z)End SubSub f(a As Integer,b As Integer,c As Integer)c=b*aEnd Sub打开窗体运行后,单击命令按钮,文本框中显示的内容是( )。

在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1),并在命令按钮中编写如下事件代码: Private Sub Command1_Click() m=2.17 n=Len(Str$(m)+Space(5)) Me!Text1=n End Sub 打开窗体运行后,单击命令按钮,在文本框中显示______。A.5B.8C.9D.10

设窗体上有一个文本框Text1和一个命令按钮Command1,并有下列事件过程: Private Sub Command1_Click() Dim s As String,Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1,k,1) s=ch+s Next k Text1.Text=s End Sub 程序执行时,在文本框中输入“Basic”,然后单击命令按钮,则Text1中显示的是( )。A.BasicB.cisaBC.BASICD.CISAB

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),然后编写如下事件过程:Private Sub Command_Click()Dim x AS Integer, y As Integer, z As Integerx=5:y=7:z=0Me!Textl=””Call pl(x,y,z)Me!Text1=zEnd SubSub pl(a As Integer,b As Integer,c As Integer)C=a+bEnd Sub打开窗体运行后,单击命令按钮,文本框中显示的内容是【 】 。

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),然后编写如下事件过程:打开窗体运行后,单击命令按钮,文本框中显示的内容是( )。

在窗体Form1上放一个名为Text1的文本框和一个名为Command1的命令按钮,然后编写一个事件过程。要求程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设 置为“VB等级考试二级”。以下能正确实现上述操作的事件过程是( )。

在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并编写有如下事件过程:程序运行后,单击命令按钮,在文本框中显示的是( )。A. 2B. 3C. 4D. 5

( 32 ) 在窗体上添加一个命令按钮 ( 名为 Command1 ) 和一个文本框 ( 名为 Text1 ) , 并在命令按钮中编写如下事件代码:Private Sub Command1_Click( )m=2.17n=Len(Str$(m)+Space(5))Me!Text1 =nEnd Sub打开窗体运行后,单击命令按钮,在文本框中显示A ) 5B ) 8C ) 9D ) 10

(26)设窗体上有一个名为Text 1的文本框和一个名为Command 1的命令按钮,并有以下事件过程:Private Sub Commandl Click()x!=Val(Text 1.Text)Select Case xCase Is<-10,Is>=20Prini"输入错误"Case Is<0Print 20-xCase Is<10Print 20Case Is<=20Print x+10End SelectBud Sub程序运行时,如果在文本框中输入一5}则单击命令按钮后的输出结果是A)5B)20C)25D)输入错误