更多"窗体上有一个名为Command1的命令按钮,并有如下程序: Priv"的相关试题:
[单项选择]
窗体上有一个名为Command1的命令按钮,并有如下程序:
Private Sub Command1_Click( )
Dim a As Integer, b As Integer
a=8
b=12
Print fun(a, b); a; b
End Sub
Private Function Fun(ByVal a As Integer, b As Integer)As Integer
a=a Mod 5
b=b/5
Fun=a
End Function
程序运行时,单击命令按钮,则输出结果是()。
A. 3 3 2
B. 3 8 2
C. 8 8 12
D. 3 8 12
[单项选择]窗体上有一个名为Command1的命令按钮,并有如下程序:
Private Sub Command1_Click( )
Dim a As Integer,b As Integer
a=13
b=27
Print Fun(a,b);a;b
End Sub
Private Function Fun(ByVal a As Integer,b As Integer) As Integer
a=a Mod 5
b=b/5
Fun=a
End Function
程序运行时,单击命令按钮,则输出的结果是______。
A. 3 8 5
B. 3 13 5
C. 3 13 27
D. 13 13 27
[单项选择]
窗体上有一个名为Command1的命令按钮,并有下面的程序:
Private Sub Command1_Click( )
Dim arr(5) As Integer
For k = 1 To 5
arr(k) = k
Next k
prog arr( )
For k = 1 To 5
Print arr(k);
Next k
End Sub
Sub prog(a( ) As Integer)
n = UBound(a)
For i = n To 2 step-1
For j = 1 To n-1
if a(j) < a(j+1) Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时,单击命令按钮后显示的是()。
A. 1 2 3 4 5
B. 5 4 3 2 1
C. 0 1 2 3 4
D. 4 3 2 1 0
[单项选择]
窗体上有一个名为Command1的命令按钮,并有下面的程序:
Private Sub Comand1_Click( )
Dim arr(5) As Integer
For k=1 To 5
arr(k)=k
Next k
prog arr( )
For k=1 To 5
Print arr(k)
Next k
End Sub
Sub prog(a( ) As Integer)
n=Ubound(a)
For i=n To 2 step -1
For j=1 To n-1
if a(j)< p>
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时,单击命令按钮后显示的是()
A. 12345
B. 54321
C. 01234
D. 43210
[单项选择]窗体上有一个名为Command1的命令按钮,并有下面的程序:
Private Sub Command1_Click( )
Dim arr(6) As Integer
For k=1 To 6
arr(k)=k
Next k
prog arr( )
For k=1 To 6
Print arr(k);
Next k
End Sub
Sub prog(a( )As Integer)
n=UBound(a)
For i=n To 2 Step-1
For j=1 To n-1
If a(j)<a(j+1)Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时,单击命令按钮后显示的是______。
A. 0 1 2 3 4 5
B. 1 2 3 4 5 6
C. 5 4 3 2 1 0
D. 6 5 4 3 2 1
[单项选择]
窗体上有一个名为Command1的命令按钮,并有如下程序:
Private Command1_Click( )
Dim m As Integer , n As Integer
m=InputBox(“输入第一个数”)
n=InputBox(“输入第二个数”)
Do While m<>n
Do While m>n
m=m-n
Loop
Do While n>m
n=n-m
Loop
Loop
Print m
End Sub
该程序的功能是()。
A. 求数值m和n的最大公约数
B. 求数值m和n的最小公倍数
C. 求数值m和n 中的较大数
D. 求数值m和n中的较小数
[单项选择]在窗体上有一个命令按钮Command1,编写下列程序:
Private Sub Command1_Click( )
Print ppl(3,7)
End Sub
Public Function ppl(X As Single,n As Integer)As Single
If n=0Then
ppl=1
Else
If n M0d 2=1 Then
ppl=x*x+n
EIse
ppl=x*x-n
End If
End If
End Function
程序运行后,单击该命令按钮,屏幕上显示的是( )
A. 2
B. 1
C. 0
D. 16
[单项选择]在窗体上有一个命令按钮Command1,编写事件代码如下。
Private Sub Command1_Click( )
Dim x As Integer,y As Integer
x=12:y=32
Call Proc(x,y)
Debug.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. 2 32
B. 12 3
C. 2 2
D. 12 32
[单项选择]窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序:
Private Sub Command1_Click( )
Dim n
If Text1.Text<>"123456"Then
n=n+1
Print"口令输入错误" & n & "次"
End If
End Sub
希望程序运行时得到左图所示的效果,即:输入口令,单击“确定口令”命令按钮,若输入的口令不是“123456”,则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果,程序需要修改。下面修改方案中正确的是( )
A. 在Dim n语句的下面添加一句:n=0
B. 把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"
C. 把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)&"次"
D. 把Dim n改为Static n