在公式QMm=Q(1±XQ)中,QMm为一定统计置信水平下,给出()的流量。
第1题:
在窗体中有一个命令按钮Commandl,编写事件代码如下:Private Sub Commandl Click( ) Dim S As Integer s=p(1)q+p(2)q+p(3)+p(4) debu9.Print S End Sub Public Function P(N As Integer) Dim Sum As IntegerSum==0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后,单击命令按钮,输出的结果是( )。
A.15
B.20
C.25
D.35
第2题:
有如下程序: 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 0
B. 1 1
C.2 2
D.1 2
第3题:
(8)下列这个Sub过程的功能是统计字符串中“a”的个数,请在空白处填上合适的代码,将程序补充完整。Private Sub numCount() Dim num As Integer s$="software And hardware" Num=Len(s$) For i=1 unm b$=。 If b$="a"Then x=x+1 Next i Print"x=";xEnd Sub
第4题:
假定有如下的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 4
B.1 1
C.1.25 4
D.1.25 1
第5题:
执行下面程序,第一行输出结果是【 】,第二行输出结果是47。
Option Explicit
Private Sub Form_Click( )
Dim A As Integer
A=2
Call Sub1 (A) End Sub
Private Sub1 (x As Integer)
x=x*2+1
If x<10 Then
Call Sub1 (x)
End If
x=x*2+1
Print x
End Sub
第6题:
在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x+20 End Sub Private Sub s2() Dim x As Integer x=X+20 End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
A.10
B.30
C.40
D.50
第7题:
假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2 组成。 Model1代码如下: Public X As Integer Public Y As Integer Sub S1( ) x=1 S2 End Sub Sub S2( ) y=10 Form1.Show End Sub Model2的代码如下: Sub Main( ) S1 End Sub 其中Sub Main被设置为启动过程。程序运行后,各模块的执行顺序是( )。
A.Form1→Model1→Model2
B.Model1→Model2→Form1
C.Model2→Model1→Form1
D.Model2→Form1→Model1
第8题:
在窗体中添加一个命令按钮(名为Command1),然后编写如下代码:
Public x as integer
Private Sub Command1_Click( )
x=5
Call s1
Call s2
MsgBox x
End Sub
Private Sub s1( )
x=x+10
End Sub
Private Sub s2( )
Dim x as integer
x=x+10
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果是______
第9题:
在窗体上画一个名称为Com1的命令按钮,然后编写如下事件过程:
Private Sub Com1_Click()
n=10
q=1
sum=0
For i=1 To n
Next
Print sum
End Sub
该事件过程的功能是计算s=1+1/2!+1/3!+…+1/n!的值。请填空。
第10题:
假定有如下的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 2
B.1 1
C.1.25 4
D.2.5 1