如下事件代码:
Private Sub Command1_Click( )
m=2.17
n=Len(Str$(m)+Space(5))
Me!Text1 =n
E.nd Sub
打开窗体运行后,单击命令按钮,在文本框中显示
A. ) 5
B. ) 8
C. ) 9
D. ) 10
[单选题]在窗体上添加一个命令按钮(名为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
[单选题]在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1),则执行如下事件过程后,文本框中的输出为______。private Sub Command1_ click() for i = 1 To 4 for j = 1 To 3 x = 3 for K = 1 To 2 x=x+3 Next K Next j Next i Text1.Text= Str(x)End SubA.3B.6C.9D.12
[试题]( 15 )在窗体上添加一个命令按钮(名为 Command1 ),然后编写如下事件过程:Private Sub Command1_Click ()D.im b,kF.or k=1 to 6b=23+kNext kMsgBox b+kE.nd Sub打开窗体后,单击命令按钮,消息框的输出结果是 ( 15 ) 。
[单选题]( 34 )在窗体上添加一个命令按钮(名为 Command1 ),然后编写如下事件过程:Private Sub Command1_Click()F.or i=1 To 4x=4F.or j=1 To 3x=3F.or k=1 To2x=x+6Next kNext jNext iMsgBox xE.nd Sub打开窗体后,单击命令按钮,消息框的输出结果是A. ) 7B. ) 15C. ) 157D. ) 538
[单选题]在窗体上添加一个命令按钮,名为command1,事件过程为:Private Sub command1_Click( )x=0D.o Until c=-1a= val(InputBox(“输入a的值”))b= val(InputBox(“输入b的值”))c= val(InputBox(“输入c的值”))LoopPrint aE.nd Sub程序运行后,单击命令按钮,依次在输入对话框中输入5,4,3,2,1,-1后,输出的结果是 ( )A.2B.3C.4D.5
[单选题]在窗体上添加一个命令按钮(名为Command1),编写如下事件过程: Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=-1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后,单击命令按钮,消息框的输出结果是( )。A.7B.15C.157D.528
[主观题]在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),编写如下事件过程:Private Sub Command1_Click()D.im x As Integer,y As Integer,z As IntegerC.all f(x,y,z)E.nd SubSub f(a As Integer,b As Integer,c As Integer)c=b*aE.nd Sub打开窗体运行后,单击命令按钮,文本框中显示的内容是( )。
[单选题]在窗体中添加一个命令按钮(名为Command1) 和一个文本框(名为Text1) ,并在命令按钮中编写如下事例代码: Private Sub Command1_Click( ) Str1="981765" Str2="65" n=InStr(Str1,Str2) Me.Text1=n End Sub 窗体打开运行后,单击命令按钮,在文本框中显示______。A.4B.5C.6D.7
[单选题]在窗体上添加一个命令按钮,名为Command1,一个文本框,名为text1,则执行如下事件过程后,文本框中的输出为 For i=1 To 3 For j=1 To 3 For k=1 To 2 x=x+3 Next k,j,i Text1.Text=str(x)A.21B.42C.54D.72
[单选题]在窗体上添加一个命令按钮,名为Command1,一文本框,名为text1,则执行如下事件过程后,文本框中的输出为F.or i=1 To 3F.or j=1 To 3F.or k=1 To 2x=x+3Next k,j,iText1.Text=str(x)A.21B.42C.54D.72