更多"在窗体上添加一个名称为Command1的命令按钮,然后编写如下事件代码"的相关试题:
[填空题]单击窗体上的命令按钮Command1, 【10】
Private Sub Command1_Click( )
a= "10"
b=20
c=Val(a) +b
Print c
End Sub
[单项选择]
窗体上有一个名为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(10) ,x%
For k=1 To 10
a(K)=Int(Rnd*90+10)
x=x+a(k) Mod 2
Next k
Print x
End Sub
程序运行后,单击命令按钮,输出结果是______。
A. 10个数中偶数的个数
B. 10个数中奇数的个数
C. 10个数中偶数的累加和
D. 10个数中奇数的累加和
[单项选择]
窗体上有一个名为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 Command1_Click( )
Dim i As Integer,j As Integer , k As Integer
Dim s As Double
s=0 ; i=1 ; j=0 ; k=-1
Do While i<6
s=s+k*(j/i)
i=i+1
j=j+1
k=-k
Loop
Print s
End Sub
以上程序所计算的表达式是()。
A. 1/2-2/3+3/4-4/5
B. -1/2+2/3-3/4+4/5
C. 1-1/2+2/3-3/4+4/5
D. -1+1/2-2/3+3/4-4/5
[填空题]在窗体上画一个名为Command1的命令按钮,编写如下程序:
Private Sub Command1_Click( )
Dim M(10)As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Print M(2+M(x))
End Sub
程序运行后,单击命令按钮,输出的结果是______。
[填空题]在窗体上画一个名为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click( )
Dim i As Integer
Sum=0
n=InputBox("Enter a number")
n=Val(n)
For i=1 To n
Sum= (13)
Next i
Print Sum
End Sub
Function fun(t As Integer) As Long
p=1
For i=1 To t
p=p*i
Next i
(14)
End Function
以上程序的功能是,计算1!+2!+3!+…+n!,其中n从键盘输入,请填空。
[单项选择]
窗体上有一个名为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 a(10)As Integer
For k=10 To 1 Step-1
a(k)=20-2*k
Next k
k=k+7
Print a(k-a(k))
End Sub
运行程序,单击命令按钮,输出结果是()。
A. 18
B. 12
C. 8
D. 6
[单项选择]在窗体上画一个名为Command1的命令按钮,然后编写以下程序:
Private Sub Command1_Click( )
Dim M(10)AS Integer
For k=1 To 10
M(k)=12-k
Next k
x=8
Print M(2+M(x))
End Sub
运行程序,单击命令按钮,在窗体上显示的是( )
A. 6
B. 5
C. 7
D. 8
[单项选择]窗体上有一个名为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
[填空题]在窗体上添加一个命令按钮,编写如下事件过程:
Private Sub Command1_Click( )
sum=0
For i=3 To 7
sum=i+2
Next i
MsgBox sum+i
End Sub
运行窗体后,单击命令按钮,消息框的输出结果是______。
[填空题]在窗体上添加一个命令按钮Command1,然后编写如下事件过程。
Private Sub Command1_Click( )
Dim b,k
For k=1 To 6
b=23+k
Next k
MsgBox k+b
End Sub
打开窗体后,单击命令按钮,消息框数据的结果是______。
[单项选择]在窗体上添加如下命令按纽,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim a(10)As Integer
Dim p(3)As Integer
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
该过程的运行结果为______。
A. 35
B. 33
C. 31
D. 29