itgle.com

在窗体上有一个命令按钮,然后编如下事件过程:Function SR(x As Double) As DoubleSelect Case Sgn(x)Case 1SR=Sqr(x)Exit FunctionCase 0SR=0Case -1SR=-1End SelectEnd FunctionPrivate Sub Command1_Click()Dim Msg, SRNDim N As DoubleN=InputBox("请输入要计算平方根的数")Msg=N & "的平方根"Select Case SR(

题目

在窗体上有一个命令按钮,然后编如下事件过程:

Function SR(x As Double) As Double

Select Case Sgn(x)

Case 1

SR=Sqr(x)

Exit Function

Case 0

SR=0

Case -1

SR=-1

End Select

End Function

Private Sub Command1_Click()

Dim Msg, SRN

Dim N As Double

N=InputBox("请输入要计算平方根的数")

Msg=N & "的平方根"

Select Case SR(N)

Case 0

Msg=Msg & "是0"

Case -1

Msg=Msg & "是一个虚数"

Case Else

Msg=Msg & "是" & SR(N)

End Select

MsgBox Msg

End Sub

程序运行后,单击命令按钮,在输入对话框内输入-1,输出结果是 【15】 。


相似考题
更多“在窗体上有一个命令按钮,然后编如下事件过程: FunctionSR(xAsDouble)AsDouble SelectCa ”相关问题
  • 第1题:

    在窗体上有一个命令按钮,然后编写如下事件过程。 Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next For Each b h a Print b; Next End Sub 程序运行后,单击命令按钮,输出结果是

    A.ABCDE

    B.1 2 3 4 5

    C.abcde

    D.出错信息


    正确答案:A
    解析:本题考查了数组的赋值操作以及 For Each…In循环语句。本程序段首先定义了一个一维数组变量,然后用For循环为其赋值,Asc()函数的作用是返回字符的ASCII码,字符“A”的ASCII码为65, Chr()函数的作用是将ASCII码值变为相应的字符,而“a(i)=Chr(Asc(“A”)+(i-1))”的作用是将每次比原来大1的ASCII码值变为字符赋给a,所以a的元素是“A,B,C,D,E”。For Each…In用于输出a中元素的值,所以正确答案是选项A。

  • 第2题:

    在窗体上有一个命令按钮,然后编如下事件过程:

    程序运行后,单击命令按钮,在输入对话框内输入-1,输出结果是 。


    正确答案:
    -1的平方根是一个虚数
    【解析】在Sub过程中,定义了一个Double型变量N,并调用InputBox函数,给N赋值,即将从对话框中输入的-1赋给N;通过运算符”&”,将N与字符串”的平方根”连接起来并赋给Msg;在条件块语句中将N作为参数,调用SR事件过程,将Function过程的返回值作为测试表达式;在SR函数中,调用Sgn函数测试x的值为正数还是负数,如果是正数,那么就执行条件块语句中的SR=Sqr(x),即将X的平方根作为返回值,如果x值为零,Sgn函数返回值为零,那么就将0作为返回值;如果为负数。Sgn函数返回值为-1,SR=-1,即将-1作为返回值;在Sub程序的条件块语句中,根据SR返回值的不同,执行不同操作,当返回值为0,将Msg字符串加”是0”,赋给Ms9,如果是-1,将Msg加”是一个虚数”赋给Msg,当为其他时,即在平方根时,将字符串Msg加”是”,再加上这个数的平方根赋给Msg,并用MsgBox函数输出。

  • 第3题:

    窗体上有一个名为Button1的命令按钮和一个标签框,然后编写如下事件过程: 程序运行后,单击命令按钮,则在标签框上显示的内容是()

    A5.8

    B5

    C7

    D无数据


    B

  • 第4题:

    在窗体上有个命令按钮,然后编写如下事件过程

    程序运行后,单击命令按钮,先后在两个输入框中分别输入”1”和”5”,则输出结果为

    A.1

    B.51

    C.6

    D.15


    正确答案:B
    在默认的情况下,InputBox的返回值是一个字符串,而不是变体类型。如果没有事先声明返回值变量的类型,或声明为变体类型,则当把函数的返回值赋给这个变量时,VisualBasic将把它作为字符串来处理。因此当需要用InputBox函数输入数据,并且需要输入的数值参加运算时,必须在进行运算前用Val函数(或其他函数)把它转换为相应类型的数值,否则有可能会得到不正确的结果。如果正确地声明了返回值的变体类型,则可不必进行类型转换;由于本题没有事先声明m、n变量,所以,m、n所获得的为字符“1”和“5”,所以输出n+m时是“51”。

  • 第5题:

    在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl),然后编写如下事件过程:


    正确答案:
    15【解析】本题考查VBA程序中过程调用的知识。由于VBA中,默认情况下,参数是按地址传递(ByRef),对形参的改变会影响到实参。本题中2的值等于a b,这个z值会返回给实参c,所以文本框中显示的内容为15。