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

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

在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然后编写如下程序:

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文本框显示的内容分别是______和______。


参考答案

更多 “ 在窗体上画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文本框显示的内容分别是______和______。 ” 相关考题
考题 在名为“Form1”的窗体上添加3个文本框和一个命令按钮,其名称分别为“Text1”、“Text2”、“Text3”和“Command1”,然后编写如下两个事件过程:Private Sub Commandl Click()Text3=Text1+Text2End SubPrivate Sub Form1 Load()Text1=" "Text2=" "Text3=" "End Sub打开窗体Form1后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7,然后单击命令按钮Command1,则文本框(Text3)中显示的内容为【 】。

考题 在窗体上画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的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程: Private Sub Command1_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的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:程序运行后,单击命令按钮,在文本框中显示的值是A.2B.3C.4D.5

考题 在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Textl和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后,在两个文本框中分别输人姓名和年龄,然后单击“显示”按钮,则在窗体上显示两个文本框中的内容,如图所示。要求程序中不得使用任何变量。注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjtl.vbp,窗体文件名保存为sjtl.frm。

考题 在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text 1、Text2,然后编写如下程序:PrivateSubCommand1_Click()a=Text1.textb=Text2.textC=Lcase( )D=Ucase( )PrintC;DEndSub程序运行后,在文本框Text 1、Text2中分别输入AbC和Efg,结果是( ) A、abcEFGB.abcefgC.ABCefgD.ABCEFG

考题 在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在( )处填入适当的内容,将程序补充完整。

考题 ( 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 】 。

考题 在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: 程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入“同学们,”和“你们好”,然后单击命令按钮,则输出结果为多少?