单项选择题

在窗体中添加一命令按钮，并在命令按钮中编写如下代码： 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

<上一题目录下一题>

热门试题

单项选择题

在窗体中添加一个名称为Command1的命令按钮和一个名称为text1的文本框，然后编写如下程序； ( ) Private Sub Commandl_Click() Dim x，y，z As Integer x=5：y＝7：z=O Text1．Text= Call Pl(x，y，z) Text1. Text＝Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub

A．0
B．12
C．Str(
D．没有显示

单项选择题

一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为Func的标准模块。假定在Form1和Func中分别建立了自定义过程，其定义格式为： Form1中定义的过程： Private Sub Fun1() ...... End Sub Func中定义的过程： Public Sub Fun2() ...... End Sub 若要在窗体For2g调用Porm1和Func中分别建立的自定义过程，则调用格式正确的是 ( )

A．Call Form1. Funl() FunFun2()
B．Call Form1. Fun1() Call Fun2()
C．Form1. Fun1() Fun Fun2()
D．Fun1() Fun2()

相关试题