网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
（ 8 ）在窗体上画 1 个名称为 Command1 的命令按钮和 2 个名称分别为 Text1 、 Text2 的文本框，如图 5 所示，然后编写下列程序：
Function Fun(x As Integer,ByVal y As Integer)As Integer
x=x+y
If x<0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Command1_Click( )
Dim a As Integer,b As Integer
a=-10 : b=5
Text1.Text=Fun(a, b)
Text2.Text=Fun(a, b)
End Sub
程序运行后，单击命令按钮， Text1 和 Text2 文本框显示的内容分别是 【 9 】 和 【 10 】 。
参考答案
更多 “ （ 8 ）在窗体上画 1 个名称为 Command1 的命令按钮和 2 个名称分别为 Text1 、 Text2 的文本框，如图 5 所示，然后编写下列程序：Function Fun(x As Integer,ByVal y As Integer)As Integerx=x+yIf x0 ThenFun=xElseFun=yEnd IfEnd FunctionPrivate Sub Command1_Click( )Dim a As Integer,b As Integera=-10 : b=5Text1.Text=Fun(a, b)Text2.Text=Fun(a, b)End Sub程序运行后，单击命令按钮， Text1 和 Text2 文本框显示的内容分别是 【 9 】 和 【 10 】 。 ” 相关考题
考题
在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：Function Fun（x As Integer,ByVal y As Integer）As Integerx=x+yIf x0 ThenFun=xElseFun=yEnd IfEnd FunctionPrivate Sub Command1_Click（）Dim a As Integer,b As Integera=-10：b=5Text1.Text=Fun（a，b）Text2.Text=Fun（a，b）End Sub程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是______和______。
考题
在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1），外观如图所示。编写如下程序：Private Sub Form_Load（）Text1.Text=""Text2.Text=""Text3.Text=""End SubPrivate Sub Command1_Click（）x=Val（Text1.Text）y=Val（Text2.Text）Text3.Text=f（x，y）End SubFunction f（ByVal x As Integer,ByVal y As Integer）Do While y0tmp=x Mod yx=yy=tmpLoopf=xEnd Function运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是（ ）。A．4B．6C．8D．12
考题
设有如下通用过程： Public Sub Fun(a() As Integer, x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5)As Integer, n As Integer For i=1 To 5 art(i)=i+i Next Fun arr, n Text1. Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的内容是______。A．30B．25C．20D．15
考题
在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1 Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)＋x) End Sub Function f(x As Integer) x=x＋3 f=x End Function 程序运行后，单击命令按钮，输出结果为______。A．12B．15C．17D．18
考题
在窗体上画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
考题
设有如下通用过程：Public Sub Fun（a（） As Integer, x As Integer）For i = 1 To 5x = x + a（i）NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click（）Dim arr（5） As Integer, n As IntegerFor i = 1 To 5 arr（i） = i + iNext Fun arr, n Text1.Text = Str（n）End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。A．30B．25C．20D．15
考题
（ 19 ）在窗体上画两个文本框（名称分别为 text1 和 text2 ）和一个命令按钮（名称为 command1 ） , 然后编写如下事件过程：Private Sub Command1_Click()x = 0Do While x 50x = (x + 2) * (x + 3)n = n + 1Looptext1.Text = Str(n)text2.Text = Str(x)End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为A ） 1 和 0B ） 2 和 72C) 3 和 50D ） 4 和 168
考题
窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。Private Sub Command1_Click()Dim x As Integerx=Val(InputBox(“输入数据”))Text1=Str(fun(x)+fun(x)+fun(x))End SubPrivate Function fun(ByRef n As Integer)Ifn Mod 3=0 Thenn=n+nElsen=n*nEnd If________=nEnd Function当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_______。
考题
在窗体上画1个名称为Command1和命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：Function Fun(X As Integer,ByVal y As Integer)As Integerx=x＋yIf X＜0 ThenFun=xElseFun=yEnd IfEnd FunctionPrivate Sub Command1 Click()Dim a As Integer,b As Integera=-10:b=5Text1.Text=Fun(a,B)Text2.Text=Fun(a, B)End Sub程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是【 】和【 】。
考题
在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程： Private Function fun1(n As Integer)As Integer Dim k As Integer If n = 1 Then k = 1 Else k = 1 + fun1(n - 1)* 2 End If fun1 = k End Function Private Sub Command1_Click () Dim m As Integer, x As Integer x = 4 m = fun1 (x) Print m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．4B．6C．9D．15
考题
在窗体上画—个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： PrivateSubCommand1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2，4，6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本眶Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是 ______。A．10B．20C．30D．40
考题
在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x＜20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是 ______。A．15和1B．27和3C．195和3D．600和4
考题
窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integerx=2Text1.Text=Fun2(Fun1(x),y)Text2.Text=Fun1(x)End SubPrivate Function Fun1(x As Integer) As Integerx=x+y:y=x+yFun1=x+yEnd FunctionPrivate Function Fun2(x As Integer，y As Integer) As IntegerFun2=2*x+yEnd Function当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是A．2 4 2 4B．2 4 4 8C．10 10 58 58D． 4 4 8 8
考题
在窗体上绘制一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer，s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是A．6B．7C．8D．9
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click () Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 3 Print fun2 (c, b,A)End Sub Private Function funl (x As Integer, y As Integer, z As Integer) fun1 = 2 * x + y + 3 * z End Function Private Function fun2(x As Integer, y As Integer, z As Integer) fun2 = fun1(z, x, y)+ x End Function程序运行后，单击命令按钮，则窗体上显示的内容是A．7B．14C．17D．30
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程； Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_C1ick() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。A．6B．7C．8D．9
考题
窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：DimY As IntegerPrivate Sub Command1 Click（ ）Dim X As Integerx=2Text1．Text=p2(p1(X)，Y)Text2．Text=p1(x)End SubPrivate Function p1(X As Integer)As Integerx+x+v: y=x+yp1=x+yEnd FunctionPrivate Function p2(X As Integer，Y As Integer)As Integerp2=2*x+yEnd Function当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为（ ）。A.2 42 4B.2 44 8C.4 48 8D.10 1058 58
考题
在窗体上画两个名称为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim x As Integer， n As Integer x=1 n=0 Do While x＜20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。A．9和2B．27．和3C．195和3D．600和4
考题
窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序： Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integer x=2 Text1.Text=p2(p1(x), y) Text2.Text=pi(x)End SubPrivate Function p1(x As Integer) As Integer x=x+y:y=x+y p1=x+yEnd FunctionPrivate Function p2(x As Integer, y As Integer) As Integer p2=2*x+yEnd Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为( )。A．2 4 2 4B．2 4 4 8C．4 4 8 8D．10 10 58 58
考题
在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Textl和Text2，初始内容均为空）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输人姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。
考题
窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序： DimY As Integer Private Sub Command1 Click（ ） Dim X As Integer x=2 Text1．Text=p2(p1(X)，Y) Text2．Text=p1(x) End Sub Private Function p1(X As Integer)As Integer x+x+v: y=x+y p1=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 4B.2 4 4 8C.4 4 8 8D.10 10 58 58
考题
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integerx=2Text1.Text=Fun2(Funl(x),y)Text2.Text=Funl(x)End SubPrivate Function Funl(x As Integer) As Integerx=x+y ∶y=x+yFunl=x+yEnd FunctionPrivate Function Fun2(x As Integer,y As Integer) As IntegerFun2=2*x+yEnd Function当单击1次和单击2次命令按钮后,文本框Text1和Text2内的值分别是A．2 4 2 4B．2 4 4 8C．10 10 58 58D．4 4 8 8
考题
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写下列事件过程： Private Sub Command1 Click（ ） x=0 DO While x50 x=(x+2)*(x4．3) n=n+1 Loop Text1．Text=Str(n) Text2．Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。A.1和0B.2和72C.3和50D.4和168
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click( ) Dim i As Integer，s As Integer S=0 For i=1 To 5 s=s+fun(i) Next Print 3 End Sub 程序运行后，单击命令按钮，在窗体上显示的是A．6B．7C．8D．9
考题
窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序 Dim y As Integer Private Sub Command1_Click() Dim x As Integer X=2 Text1.Text=Fun2(Fun1(x)，y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer)As Integer x=x+y:y=x+y Fun1=x+y End Function Private Function Fun2(x As Integer，y As Integer)As Integer Fun2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Textl和Text2内的值分别是A．2 4 2 4B．2 4 4 8C．10 10 58 58D．4 4 8 8
考题
在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
热门标签
最新试卷