网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体中有一个文本框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．1
B．2
C．3
D．4
参考答案和解析
D
更多 “在窗体中有一个文本框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” 相关考题
考题
（ 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
考题
在窗体中使用一个文本框（名为 x ）接受输入值，有一个命令按钮 test ，事件代码如下：Private Sub test_Click()y = 0For i=0 To Me!xy=y+2*i+1Next iMsgBox yEnd Sub打开窗体后，若通过文本框输入值为 3 ，单击命令按钮，输出的结果是 【 12 】
考题
在窗体上放一个文本框Text1，在文本框中输入456，并有下列事件过程： Private Sub Form_Click() x＝InputBox（＂请输入一个整数＂） Print x ＋ Text1.Text End Sub单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示的是。A. 123 B. 456 C. 579 D. 123456
考题
在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Command1_click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is＞=10,Is＜=-10 y=x Case-10 To 10 y=-x End Select End Sub 程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是______。A．执行y=x*xB．执行y=-xC．先执行y=x*x，再执行y=-xD．程序出错
考题
在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如图所示。编写如下程序 Private Sub Form. Load() Text1.Text=" " Text2.Text=" " Text3.Text=" " End Sub Private Sub Command1 Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByVal y As Integer) Do While y＜＞0 tmp=x Mod y x=y y=tmp Loop f=x EndFunction 运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是______。A．4B．6C．8D．12
考题
在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为______。A． 123B．456C．479D．123456
考题
（ 32 ）设有以下程序：Private Sub Form_Click()X=50For i=1 To 4Y=InputBox( “ 请输入一个整数 ” )Y=Val(y)If y Mod 5=0 Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入 15 、 24 、 35 、 46 ，输出结果为A ） 100B ） 50C ） 120D ） 70
考题
在窗体中有一个文本框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
考题
在窗体中有一个命令按钮Command1和一个文本框Test1，编写事件代码如下： 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
考题
在窗体中添加一个命令按钮(名称为Command1)和一个文本框(名为text1)，然后编写如下事件过程： Private Sub Command_Click() Dim x As Integer, y As Integer,z As Integer x=5: y=7: z=0 Me!Text1="" Call p1(x, y, z) Me!Textl=z End Sub Sub p1 (a As Integer, b As Integer, Byval c As Integer) c=a+b End Sub 打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。A．12B．0C．5D．7
考题
在窗体中添加一个命令按钮(名为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打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()X=0Do While X＜＞-1X=Val(InputBox("请输入数据X:"))Y=Val(InputBox("请输入数据Y:"))If X*Y＜X+Y Then Print X，YLoopEnd Sub程序运行后，依次输入7，2，-3，8，-5，-10，18，-1，-1，则输出结果是【 】
考题
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Text1)，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer，y As Integer，z As Integerx=5：y=7：z=0Me!Text1=””Call p1(x,y,z)Me!Text1=zEnd SubSub p1(a As Integer，b As Integer，c As Integer)c=a+bEnd Sub打开窗体运行后，单击命令按钮，文本框中，显示的内容是【 】。
考题
在窗体中使用一个文本框(名为x)接受输入值，有一个命令按钮test，事件代码如下：Privme Sub test_Click()y=0For i=0 To Me!xy=y+2*i+1Next iMsgBox yEnd Sub打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是【 】。
考题
在窗体上放一个文本框Text1，在文本框中输入456，并有如下事件过程： Private Sub Form_Click() x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示是( )。A．123B．456C．579D．123456
考题
设有以下程序：Private Sub Form_ Click() x=50 For i=1 To 4 y=InputBox(“请输入—个整数”) y=Val(y) If y Mod 5=0 Then a=a+ y x=y Else a=a+ x End If Next i Print aEnd Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为 ______。A．100B．50C．120D．70
考题
在窗体中添加一个命令按钮(名为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打开窗体运行后，单击命令按钮，文本框中显示的内容是【 】 。
考题
在窗体上放一个文本框Text1，在文本框中输入456，并有下列事件过程：Private Sub Form_Click()x=InputBox("请输入一个整数")Print x+Text1.TextEnd Sub单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示的是( )。A．123B．456C．579D．123456
考题
在窗体上画一个命令按钮(名称为Command1)和一个文本框(名称为Text1)，然后编写如下事件过程：Private Sub Command1_Click()x＝Val(Text1.Text)Select Case xCase 1,3y＝x*xCase IS＞＝10,IS＜＝-10y＝xCase-10 To 10y＝-xEnd SelectEnd Sub程序运行后，在文本框中输入3，然后单击命令按钮，则y的值变为______。
考题
在窗体中有一个文本框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
考题
在窗体中使用一个文本框名为x．接受输入值，有一个命令按钮test，事件代码如下： Private Sub test_Click y = 0 For i = 0 To Me!x y = y + 2 * i + 1 Next i MsgBox y End Sub 打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是 【12】 。
考题
设有下列程序 Private Sub Form. Click（ ） X=50 For i=1 T0 4 y=InputBox("请输入一个整数") y=Val(v) If y Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。A.100B.50C.120D.70
考题
在窗体中有一个文本框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
考题
在窗体上画一个命令按钮，然后编写如下代码。运行程序后，单击命令按钮，依次在输人对话框中输入2，7，5，3，8，5，12，6，12，在窗体上输出的结果是______。 Private Sub Command1 Click() z=5 Do Until z＜＞5 x=InputBox“请输入x值”) x=Val(x) y=InputBox(“请输入y值”) y=Val(y) z=InputBox(“请输入z值”) z=Val(z) y=x+y+2 * z Loop Print y End SubA．19B．21C．42D．19
考题
在窗体中有一个文本框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，在文本框中输入456，并有如下事件过程， Private Sub Form. Click() x=InputBox("请输入一个整数") Print x+Text1. Text End Sub 单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示是( )。A．123B．456C．579D．123456
热门标签
最新试卷