编制班计划时,t中的计算为:2×∑Nt中/(N中到+N中发)。
有如下程序: Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single,y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后,a和b的值分别为A.0 0B. 1 1C.2 2D.1 2
点击查看答案
假定有以下两个过程: Sub S1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=K x=y y=t End Sub Sub S2(x As Integer, y As Integer) Dim t As Integer t=K x=y y=t End Sub 则以下说法中正确的是 ( )A.用过程S1可以实现交换两个变量值的操作,S2不能实现B.用过程S2可以实现交换两个变量值的操作,S1不能实现C.用过程S1和S2都可以实现交换两个变量值的操作D.用过程S1和S2都不能实现交换两个变量值的操作
假定有如下的Sub过程: Sub S(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a,b Print a,b End Sub 程序运行后,单击命令按钮,输出结果为 ______ 。A.5 4B.1 1C.1.25 4D.1.25 1
【程序说明】 计算下列算式的值。a,Ai为正整数,从键盘输入。其小∑Ai=1+2…+ Ai,Ai!=1 *2*3*Ai(i=1,2… a)。【程序】SET TAIK OFFCLEARINPUT“M=”TO MSTORE 0 TO S1,S2FOR I=1 TO M(8)DO SUB1DO SUB2ENDFOR? ” 所求算式的值为:“+ALLTRIM(STR(S1/S2,15,3))SET TALK ONPROCEDURE SUB1(9)FOR R=1 TO AK=K+RENDFOR(10)RETURNPROCEDURE SUB2(11)FOR P=1 TO AT=T*PENDFOR(12)RETURN(8)A.INPUT“A=”TO AB.INPUT“I=”TO IC.INPUT“R=”TO STR(R)D.INPUT“K=”TOK
假定有如下的Sub过程: Sub S(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=2 S a,b print a,b End Sub 程序运行后,单击命令按钮,输出结果是( )。A.5 2B.1 1C.1.25 4D.2.5 1
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下程序:Public X As Integer Private Sub Commandl Click( )x=10 Call slCall s2MsgBox x End Sub Private Sub sl( )x=x+20 End Sub Private Sub s2( )Dim x As Integer x=x+20End Sub窗体打开运行后,单击命令按钮,则消息框的输出结果为( )。A.10B.30C.40D.50
编写如下事件过程: Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i>= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后,单击窗体,则窗体上显示的内容是A.rehcaetB.tahreeeC.themeeD.eerthea