设有如下声明:Dim x As Integer如果Sgn(x)的值为-1,则x的值是A.整数B.大于0的整数C.小于0的整数D
相似题目
-
有如下函数过程: Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 * y + z + 2 * x End Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a) End Sub 该程序的运行结果是( )。
-
设有下列函数过程 Function fun(m As Integer)As Integer Dim k As Integer,sum As Integer sum=0 For k=m To 1 Step -3 sum=sum+k Next k fun=sum End Function 若在主程序中使用语句 s=fun(9)调用此函数,则s 的值为( )。
-
使用语句”Dim t(5) As Integer”声明数组t后,以下叙述中正确的是( )。
-
有如下函数过程:Function secproc(x As Integer, y As Integer, z As Integer)secproc = 3 * y + z + 2 * xEnd FunctionPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = 2: b = 3: c = 4Print secproc(c, b, a)End Sub该程序的运行结果是( )。
-
设有如下声明语句: Option Base 1 Dim arr(3,-1 To 4) As Integer 则数组arr中数组元素的个数是( )
-
求1!+2!+……+10!的程序如下: Private Function s(x As Integer) f=1 For i=1 To x f=f*i Next s=f End Function Private Sub Command1_Click() Dim i As Integer Dim y As Long For i=1 To 10 _____________ Next Print y End Sub
-
依据如下声明语句: Dim X,Y As Single 变量X和Y的数据类型分别是()。
-
设有声明语句 Dim x As Integer ,如果 Sign(x) 的值为 1 ,则 x 的值是( )。
-
在窗体上画一个命令按钮,然后编写如下程序:Sub S1(ByVal X AS Integer,ByVal y As Integer) Dim
-
设有如下程序。要使程序的输出结果n的值为5,请将程序补充完整。 Dim x As Integer,n As Integer x=1 Do设有如下程序。要使程序的输出结果n的值为5,请将程序补充完整。 Dim x As Integer,n As Integer x=1 Do x=x+3 n=n+1 Loop Until x=______ MsgBox"n="&n
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Public Enum S a=4 b=3 End Enum Private Sub Command1 Click() Dim x As Integer x=a If x>=3 Then MsgBox"Pass!" End Sub 运行程序,其结果是()。
-
设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下: Private Sub Command1 Click() Static x A S Integer x=f(x+5) Cls Print X End Sub Private Function f(x As Integer)As Integer f=x+x End Function 连续单击命令按钮3次,第3次单击命令按钮后,窗体显示的计算结果是()。
-
设有以下函数过程: Function fun(a As Integer,b As Integer) Dim c As Integer If a<b The
-
设有如下通用过程:Public Sub Fun(a()As Integer,x As Integer) For i=1 To 5 x=x+a(i) Next
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序代码: Option Base 1 Dim arr() As Integer Private Sub Command1_Click() Dim i As Integer, j As Integer Dim s As Integer ReDim arr(4, 2) s = 0 For i = 1 To 3 For j = 1 To 2 arr(i, j) = i + j Next j Next i ReDim Preserve arr(4, 4) For j = 3 To 4 arr(3, j) = j + 10 Next j For i = 1 To 4 s = s + arr(i, i) Next i Print s End Sub 程序运行过程中,当单击Command1时,输出结果为________。
-
如果存在如下过程: Private Function FMax(a() As Integer) Dim First As Integer, Last As Integer, i As Integer First = LBound(a) Last = UBound(a) Max = a(First) For i = First To Last If a (i)>Max Then Max=a (i
-
在窗体上画—个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer,y As Integer)M=IIf(x>y,x,y) End FUNction Private Sub Command1 Click()Dim a As Integer,b As Integera=100b=200Print M(a,B) End Sub 程序运行后,单击命令按钮
-
在窗体上有一个名称为Command1的命令按钮,并有如下事件过程和函数过程: Private Sub Command1_Click() Dim p as Integer p=m(1)+m(2)+m(3) Print p End Sub Private Function m(n As Integer) As Integer Static s As Integer For k=1 To n s=s+1
-
在窗体上面画一个命令按钮,然后编写如下程序: Function M(x As Integer,y As Integer)As IntegerM=IIf(x>y,x,y) End Function Private Sub Command1_Click()Dim a As Integer,b As Integera=1b=2Print M(a,B) End Sub 程序运行后,单击命令按钮,输出结果为
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer,y As Integer)As Integer M=IIf(x>y,x,y) End Function Private Sub Command1_Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,b) End
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序; Function M(x As Integer,y As Integer)M=IIf(x>y,x,y) End Function Private Sub Commandl_Click()Dim a As Integer,b As Integera=100b=200PrintM(a,B) End Sub 程序运行后,单击命令按钮,
-
在窗体上有1个名称为Command1的命令按钮,并有如下事件过程和函数过程: Private Sub Command1_Click() Dim p As Integer p=m(1)+m(2)+m(3) Print p End Sub Private Function m(n As Integer)As Integer Static s As Integer Fork=1 To n s=s+1 N
-
有如下函数过程: Function Fun(By Val x As Ingeger,ByVal y As Integer) As Integer DO While …y<>0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程,该程序的运行结果是 Private Sub Command1_Click() Dim
-
在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下程序: Function Fun(x As Integer, ByValy 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
推荐题目
- 下列属于应用软件的是()
- 以下不属于分镜头稿本格式中用于描写声音的栏目的是()。
- 欧阳修在《新五代史》中对冯道的品德并不认同。
- 因钛产业发达而使陕西哪座城市被称为中国钛谷?()
- 能力的结构大体上分为三种理论模型,其中不包括()。
- 患者,男,18岁,反复鼻腔、口腔出血2年,每次出血量约150~250ml。检查:轻度贫血貌。血压114/63mmHg,HR87次/分,HB7.8。鼻腔检查:左鼻腔后段可见淡红色新生物,表面有血迹,触之易出血。电子鼻咽镜检查:鼻咽部有约3cm×2.5cm×2cm新生物,表面可见血管纹。术前可做以下哪些检查以了解肿瘤的血供及肿瘤与颈部大血管的关系()
- 哈罗德-多马模型和索洛模型都认为()是最重要的。
- 见经输血传播的病毒是()
- 定期检查()信号线位置,防止修泵时损坏信号线。
- 日本侵华期间实行的惨无人道的“三光”政策不包括()。