[单选题]

在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程:

Private Sub Command1_Click()

x=Val(Text1.Text)

Select Case x

C.ase 1,3

y=x*x

C.ase Is>=10,Is<=-10

y=x

C.ase -10 To 10

y=-x

E.nd Select

E.nd Sub

程序运行后,在文本框中输入3,然后单击命令按钮,则以下叙述中正确的是( )。

A.执行y=x*x

B.执行y=-x

C.先执行y=x*x,再执行y=-x

D.程序出错

参考答案与解析:

相关试题

在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1)

[单选题]在窗体上画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

  • 查看答案
  • 3在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Text1

    [单选题]3在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Text1),然后编写如下事件过程: Private Sub Commandl_Click() x=Val(Text1.Text) SelectCaseX Case 1,3 y=X*X CaseIS>=10,IS<=-10 y=X Case-10 To 10 y=-X End Select End SA.执行y=x*xB.执行y=-xC.先执行y=x*x,再执行y=-xD.程序出错

  • 查看答案
  • 在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然

    [单选题]在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:程序运行后,单击命令按钮,在文本框中显示的值是A.2B.3C.4D.5

  • 查看答案
  • 在窗体上画一个名称为Command1 的命令按钮和一个名称为Text1的文本框,

    [单选题]在窗体上画一个名称为Command1 的命令按钮和一个名称为Text1的文本框,然后编写如下程序: Private Sub Command1_Click( ) Dim x,y,z As Integer x=5 y=7 z=0 Texttext = " " Call P1 (x,y,z) TextText = Str(z) End Sub Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub 程序运行后

  • 查看答案
  • 在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然

    [单选题]在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:Private Sub Command1_Click()n = Val(Text1.Text) If n/2 = n/2 Then f = f1(n)Else f = f2(n)End IfPrint f; nE.nd SubPublic Function f1(ByRef x)x=x*xf1=x+xE.nd FunctionPublic Function f2(

  • 查看答案
  • 在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然

    [单选题]在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程: Private Sub Command1_Click() n = Val(Text1.Text) If n/2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByV

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在

    [单选题]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:Microsoft Visual Basic Programming然后编写如下事件过程:Private Sub Command1_Click()Open "d:/temp/outf.txt" For Output As #1F.or i = 1 To Len(Text1.Text) c = Mid(Text1.Text, i, 1) If c >= "A" And c

  • 查看答案
  • 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然

    [单选题]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()D.im array1(10, 10) As IntegerD.im i As Integer, j As IntegerF.or i = 1 To 3F.or j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)E.nd Sub程

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然

    [单选题]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Private Sub Command1_Click()n = Val(Text1.Text)F.or i = 2 To nF.or j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j > Sqr(i) Then Print iNext iE.nd Sub该事件过程的功能是( )。A.输出n以内的奇数B.输出n以内的偶数C.输出n以内的

  • 查看答案
  • 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然

    [单选题]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Option Base 1Private Sub Command1_Click( )D.im s As IntegerD.im aa(3, 2) As IntegerF.or i = 1 To 3F.or j = 1 To 2aa(i, j) = i + jNext jNext is = aa(1, 2) + aa(2, 1)Print sE.nd Sub程序运行后,单击命令按钮,窗体上显示的值是

  • 查看答案
  • 在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)