网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体上画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 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文本框显示的内容分别是【 】和【 】。 ” 相关考题
考题
在窗体上画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文本框显示的内容分别是______和______。
考题
（ 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
考题
在窗体上画一个名称为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
考题
在窗体上画一个命令按钮(名称为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的值变为______。
考题
设有如下通用过程：在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。A. 30B. 25C. 20D. 15
考题
在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序： Private Sub Command1_Click() Dim x As String，y As String， C As String，d As String x = Text1．Text ： y = TextText c = LCase(x)：d = UCase(y) Print c； d End Sub 程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果是A．abcEFGB．abcefgC．ABCefgD．ABCEFG
考题
（ 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个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。
热门标签
最新试卷