更多"当输入F值为3时,以下 VB程序运行的结果是()。 Private S"的相关试题:
[单项选择]在窗体上画一个命令按钮,名称为Command1。
Private Sub Command1 Click( )
Dim x As Integer,y As Integer
x=10:y:0
Do
x=x+2:y=y+x
Print "x=", x; "y=",y
If y>20 Then Exit Do
Loop Until x=18
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是 ______。
A. x=12y=12
B. x=12 y=12
C. x=12 y=12
D. x= 12 y=12
[单项选择]单击命令按钮时,下列程度段的执行结果是( )。
Private Sub Command1 Click( )
Dim a AS Integer, b As Integer, C AS Integer
a=2:b=4:c=6
Call S1(a,b)
Print "a="; a; "b="; b; "c="; C
Call S2(a,b)
Print "a ="; a; "b="; b; "c="; c;
End Sub
Private Sub S 1(x As Integer, Y As Integer)
Dim CAs Integer
x=2 * x:y=y+2:c=x+y
End Sub
Sub S2(x As Integer, ByVal Y As Integer)
Dim eAs Integer
x=2 * x:Y=Y+2:e=x+y
End Sub
A. a=4 b=6 c=6
B. a=8 b=6 c=6
C. a=4 b=6 c=6
D. a=8 b=6 c=6
[单项选择]Command1_Click( )事件代码如下: Private Sub Command1_Click( ) Dim x As Integer, Y As Integer x = 6 : Y : 8 Call ABC(X, Y) Print X; Y End Sub Private Sub ABC(ByVal X As Integer,Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后,X和Y的值分别为 ______。
A. 6, 8
B. 10, 10
C. 10, 8
D. 6, 10
[单项选择]设有如下程序: Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n<10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b( )As Integer,n As Integer) Dim c(10) As Integer j=0 For i=1 To n b(i)=CInt(Rnd( )*100) If b(i)/2=b(i)/2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub以下叙述中错误的是
A. 数组b的偶数被保存在数组c中
B. 程序运行结束时,在窗体上显示的是c数组中元素的个数
C. GetArray过程的参数n是按值传送的
D. 如果输入的数据大于10,则窗体上不显示任何信息
[填空题]在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1 Click( )
Do While b>=0
a=Val(InputBox("请输入a的值"))
b=Val(InputBox("请输入b的值"))
c=a+b
Loop
MsgBox c
End Sub
程序运行后,依次输入3,2,1,0,-1,-2,则输出结果是______。
[填空题]执行下面的程序,当输入3时,输出的结果是 【11】
Private sub Command1_Click( )
i=2
j= InputBox(" j = ")
On j GoTo 20,30,40,50
i=i+2
20:i=i+2
30:i=i+2
40:i=i+2
50:i=i+2
Print i
End Sub
[单项选择]单击命令按钮执行以下程序,则输出结果为( )。
Private Sub Command1_Click( )
Dim x As Integer,y As Integer
X=14:y=48
Call Proc(x,y)
Print x;y
End Sub
Public Sub Proc(n As Integer,ByVal m As Integer)
n=n Mod 10:m=m Mod 10
End Sub
A. 4 8
B. 14 8
C. 14 48
D. 4 48
[单项选择]下面程序:________
Option Base 1
Private Sub Command1_Click( )
Dim a(10),p(3)As Integer
Dim i,k As Integer
k=5
For i=1 To 10
a(i)=i
Next
For i=1 To 3
p(i)=a(i*i)
Next
For i=1 To 3
k=k+p(i)*2
Next
Print k
End Sub
运行后的输出结果为________。
A. 33
B. 28
C. 35
D. 37
[填空题]窗体上命令按钮Commandl的事件过程如下:
Private Sub Command1_Click( )
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer)As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
s=x
End Function
运行程序,第3次单击命令按钮Command1时,输出结果为【 】。
[填空题]窗体下面有一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
x=0
Do Until x = -1
a=InputBox("请输入第一个数字a的值")
a=Val(a)
b=InputBox("请输入第二个数字b的值")
b=Val(b)
x=InputBox("请输入第三个数字x的值")
x=Val(x)
a=a+b+x
Loop
Print a
End Sub
在程序运行后,单击命令按钮,在对话框中分别输入5,4,8,5,8,-1,输出结果为______。
[填空题]在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Sum =0
For i=3 T0 7
Sum =i+2
Next i
MsgBox sum+i
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是______。
[填空题]在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_click( )
Dim a(1 To 10)
Dim p(1 To 3)
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
程序运行后,单击命令按钮,输出结果是 【13】 。