[单选题]

在窗体中添加一命令按钮,并在命令按钮中编写如下代码: Private Sub Commandl_C1ick() Dim a As Single a=-1.234567 b=Int(A)c=Sgn(A)d=Abs(A)e=Fix(A)If a<b Then Print b: If a<c ThenPrint c; H a<d ThenPrint d; H a<e Then Print e; Print End sub 运行后输出结果是 ( )

A.-2 -1 1.234 567 -1

B.-2 1.234 567

C.-1 1.234 567 -1

D.-1 -1.234 567 -1

参考答案与解析:

相关试题

在窗体中添加一个命令按钮,然后编写如下代码: Private Sub Comma

[单选题]在窗体中添加一个命令按钮,然后编写如下代码: Private Sub Command1_Click( ) For i=l To 4 x=4 For j=1 To 3 x=3 For k=l To 3 x=x+6 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,输出结果是A.7B.15C.21D.538

  • 查看答案
  • 在窗体上添加一个命令按钮和一个文本框,并在命令按钮中编写如下代码:Private

    [单选题]在窗体上添加一个命令按钮和一个文本框,并在命令按钮中编写如下代码:PrivateSubCommand1_Click()a=1.2c=Len(Str( )+Space(10))Text1.Text=cE.ndSub程序运行后,单击命令按钮,在文本框中显示( )A.3B.8C.14D.10

  • 查看答案
  • 在窗体上画一个命令按钮,然后编写如下代码:Private Sub Command

    [单选题]在窗体上画一个命令按钮,然后编写如下代码: Private Sub Command1 Click() a&=InputBox("请输入第一个数") b&=InputBox("请输入第二个数") Print b&+a& End Sub 程序运行后,单击命令按钮,在两个输入对话框中先后输入12345和54321,程序的输出结果是A.66666B.5432112345C.1.23455e+009D.出错

  • 查看答案
  • 在窗体上画一个命令按钮,然后编写如下代码:Private Sub Command

    [单选题]在窗体上画一个命令按钮,然后编写如下代码: Private Sub Command1_Click() 0pen "d:/vb/test.txt "For Input As #1 Print LOF(1) Close #1 End Sub 假设文件d:/vb/test.txt的内容为I am a student.,那么程序运行后,单击命令按钮,其输出结果为______.A.13B.14C.15D.16

  • 查看答案
  • 在窗体上添加一命令按钮,其名为Command1,然后编写代码如下:private

    [单选题]在窗体上添加一命令按钮,其名为Command1,然后编写代码如下:private Sub Command1_Click()D.im an(5) As Integer,arrl(5) As Integern=3F.or i=1 To 5arr(i)=iarrl(n)=2*n+iNextPrint arrl(n);arr(n)E.nd Sub程序的运行结果为A.3 11B.11 3C.13 3D.3 13

  • 查看答案
  • 在窗体上添加一命令按钮,其名为Command1,然后编写代码如下。private

    [单选题]在窗体上添加一命令按钮,其名为Command1,然后编写代码如下。 private Sub Command1_Click() Dim arr(5)As Integer,arr1(5)As Integer n=3 For i=1 To 5 an(i)=i arrl(n)=2*n+i Next Print arr1(n);arr(n) End Sub 程序的运行结果为A.3 11B.11 3C.13 3D.3 13

  • 查看答案
  • 在窗体上添加一命令按钮,其名为Command1,然后编写代码如下:private

    [单选题]在窗体上添加一命令按钮,其名为Command1,然后编写代码如下: private Sub Command1_Click() Dim arr(5)As Integer,arr1(5)AS Integer n=3 For i=1 To 5 arr(i)=i arr1(n)=2*n+i Next Print arr1(n);art(n) End Sub 程序的运行结果为A.3 11B.11 3C.13 3D.3 13

  • 查看答案
  • 在窗体中添加一个命令按钮,并编写如下程序:Private Sub Command

    [单选题]在窗体中添加一个命令按钮,并编写如下程序:Private Sub Command1_ Click() x=1: y=2: z=3 x=y: y=z: z=xEnd Sub程序执行后,输出的结果是______。A.3B.0C.2D.1

  • 查看答案
  • 在窗体中添加一个命令按钮,编写如下程序: Private Sub Sub1(p,

    [单选题]在窗体中添加一个命令按钮,编写如下程序:Private Sub Sub1(p,m,n)p=p+1:m=m+1:n=n+1Print "sub1:";p;m;nE.nd SubPrivate Sub Command1_Click()a1=1:b=2:c1=3C.all Sub1(a,b1+3,c1)Print"Main:";a1;b1;c1E.nd Sub程序运行后,输出结果为A.Sub: 2 6 4 Main: 2 6 4B.Sub: 2 6 4 Main: 2 6 4C.Sub: 2

  • 查看答案
  • 在窗体中添加~个命令按钮(名称为Commandl),然后编写如下代码: 窗体打开

    [单选题]在窗体中添加~个命令按钮(名称为Commandl),然后编写如下代码:窗体打开运行后,如果单击命令按钮,则消息框的输出结果为( )。A. 0B. 9C. a=9D. False

  • 查看答案
  • 在窗体中添加一命令按钮,并在命令按钮中编写如下代码:Private Sub Co