网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

( 32 )在窗体中有一个文本框 text1, 编写事件代码如下:

Private sub form_click()

X=val(inputbox( “ 输入 x 的值 ” ))

Y=1

If x<> then y=2

Text1.value=y

End sub

打开窗体运行后。在输入框中输入整数 12 ,文本框 text1 中输出的结果是

A ) 1

B ) 2

C ) 3

D ) 4


参考答案

更多 “ ( 32 )在窗体中有一个文本框 text1, 编写事件代码如下:Private sub form_click()X=val(inputbox( “ 输入 x 的值 ” ))Y=1If x then y=2Text1.value=yEnd sub打开窗体运行后。在输入框中输入整数 12 ,文本框 text1 中输出的结果是A ) 1B ) 2C ) 3D ) 4 ” 相关考题
考题 请输入B的值在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox("请输入A的值")a=Val(a)b=InputBox("请输入B的值")b=Val(b)x=InputBox("请输入x的值")x=Val(x)() A.2B.3C.15D.14

考题 ( 33 )在窗体中有一个命令按钮 command1 和一个文本框 text1, 编写事件代码如下:Private sub command1_click()For i=1 to 4X=3For j=1 to 3For k=1 to 2X=x+3Next kNext jNext iText1.value=str(x)End sub打开窗体运行后,单击命令按钮,文本框 text1 输出的结果是A ) 6B ) 12C ) 18D ) 21

考题 在窗体中有一个文本框Test1,编写事件代码如下: Private Sub Form_Click() X=Val(InputBox("输入X的值")) Y=1 If X<>0 Then Y=2 Text1.Value=Y End Sub 打开窗体运行后,在输入框中输入整数12,文本框Text1中输出的结果是( )。A.1B.2C.3D.4

考题 在窗体中有一个文本框Textl,编写事件代码如下:Private Sub Form. Cl ick() ’X=val(Inputbox(“输入X的值”))Y=1If X0 Then Y:2Textl.Value=YEnd Sub打开窗体运行后,在输入框中输入整数12,文本框Textl中输出的结果是A.1B.2C.3D.4

考题 在窗体中有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:Private Sub Command1_Click()For I=1 To 4X=3For j=i To 3For k=1 To 2X=x+3Next kNext jNext IText].value=Str(x)End Sub打开窗体运行后,单击命令按钮,文本框Text1输出的结果是A.6B.12C.18D.21

考题 在窗体中有一个文本框Textl,编写事件代码如下: Private Sub Form. Click( ) X=val(Inputbox(‘‘输入x的值‘‘))Y=1IfX◇0 Then Y=2Textl.Value=YEnd Sub打开窗体运行后,在输入框中输入整数12,文本框Textl中输出的结果是( )。【考点4 VBA流程控制语句】A.1B.2C.3D.4

考题 在窗体中有一个命令按钮Command1和一个文本框Text1,编写事件代码如下: Private Sub Command1_Click(. For I =1 To 4 x = 3 For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next j Next I Text1.value = Str(x. End Sub 打开窗体运行后,单击命令按钮,文本框Text1输出的结果是A.6B.12C.18D.21

考题 在窗体中有一个文本框Testl,编写事件代码如下: Private Sub Form. Click( ) X=val(Inputbox(”输入x的值”))Y=1 If X0 Then Y=2Text1.Value=YEnd Sub. 打开窗体运行后,在输入框中输入整数12,文本框Textl中输出的结果是( )。A.1B.2C.3D.4

考题 在窗体中有一个文本框Text1,事件代码如下: Private Sub Form_Click() X = val(Inputbox("输入x的值")) Y = 1 If X<>0 Then Y = 2 Text1.Value = Y End Sub 打开窗体运行后,在输入框中输入整数12,文本框Text1中输出的结果是______。A.1B.2C.3D.4