更多"下列程序段的作用是控制窗体的显示与隐藏。请填空。 Private S"的相关试题:
[填空题]下列程序段的作用是控制窗体的显示与隐藏。请填空。
Private Sub Form_Click( )
Dim msg As Integer
Me. 【5】
MsgBox "单击Ok显示窗体"
Form1. 【6】
End Sub
[填空题]以下程序段的作用是计算数据的和,数据的个数是可变的。请填空。
Private Sub Command1_Click( )
Dim a As Integer
a=0
Sum a, 1, 5, 2
Print "sum of 3 = "; a
a = 0
Call Sum(a, 1, 3, 5, 7, 9)
Print "sum of 5 = "; a
End Sub
Private Sub Sum(x As integer, 【3】
Dim y As Variant
For 【4】
x = x + y
Next y
End Sub
[填空题]以下程序段的作用是计算数据的和,数据的个数是可变的。请填空。
Private Sub Command1_Click( )
Dim a As Integer
a=0
Sum a, 1, 5, 2
Print "sum of 3 = "; a
a = 0
Call Sum(a, 1, 3, 5, 7, 9)
Print "sum of 5 = "; a
End Sub
Private Sub Sum(x As integer, 【3】
Dim y As Variant
For 【4】
x = x + y
Next y
End Sub
[单项选择]有如下程序段,该程序段执行完后,共执行循环的次数是
Private Sub Command1_Click( )
Tota1=0
Counter=1
Do
Print Counter
Tota1=tota1+Counter
Print total
Counter=Counter+1
If total>=10 Then
Exit Do
End lf
Loop While Counter<=10
End Sub
A. 5
B. 10
C. 12 D。20
[单项选择]有如下程序段:
Private Sub Command1_Click( )
Dim a As Integer
a=2
For i=1 To 3
Print G(a)
Next i
End Sub
Function G(a As Integer)
b=0
Static c
b=b + 1
c=c + 1
G=a + b + c
End Function
运行上面的程序后,单击命令按钮,输出结果为( )。
A. 1 2 3
B. 2 3 4
C. 4 5 6
D. 1 4 6
[填空题]以下过程的作用是将26个小写字母逆序打印出来,请填空。
Sub Inverse( )
Fori=122 To______
PrintChr$(i);
Nexti
End Sub
[填空题]以下过程的作用是将26个小写字母逆序打印出来,请填空。
Sub Inverse( )
Fori=122 To______
PrintChr$(i);
Nexti
End Sub
[单项选择]有如下的程序段,该程序段的执行完后,共执行循环的次数是
Private Sub Command1_Click( )
total=0
Counter=l
Do
Print Counter
total=total+Counter
Print total
Counter=Counter+1
If total>=10 Then
Exit Do
End If
Loop While Counter<=10
End Sub
A. 5
B. 10
C. 12
D. 20
[填空题]下列函数过程的作用是计算x和y的最大公约数。请填空。
Private Sub Command1_ Click( )
Dim x As Integer, y As Integer, Result As Integer
x = InputBox (“请输入第一个数”)
y = InputBox (“请输入第二个数”)
Result =______
Print x; "和"; y; "的最大公约数为: "; Result
End Sub
Private Function GYS (ByVal A As Integer, ByVal B As Integer)
Dim T As Integer
T = A Mod B
Do While ______
A = B
B = T
T = A Mod B
Loop
______
End Function
[填空题]下面程序段的运行结果是 【14】 。
Option Base 1
Private Sub swap(a( ) As Integer)
For I = 1 to 10/2
t =a(I)
a(I) = a(10-I+l)
a(10-I+1) = t
Next I
End Sub
Private Sub Form Click( )
Dim x(10) As Integer
For I = 1 to 10
x(I) = I * 2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub
[填空题]下面程序段的运行结果是 【14】 。
Option Base 1
Private Sub swap(a( ) As Integer)
For I = 1 to 10/2
t =a(I)
a(I) = a(10-I+l)
a(10-I+1) = t
Next I
End Sub
Private Sub Form Click( )
Dim x(10) As Integer
For I = 1 to 10
x(I) = I * 2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub
[填空题]下面程序段的运行结果是 【14】 。
Option Base 1
Private Sub swap(a( )As InteSer)
For I=1 to 10/2
t=a(i)
a(i)=a(10-1+1)
a(10-1+1)=t
Next1
End Sub
Private Sub Form_Click( )
Dim x(10)As Integer
For I=1 to 10
x(i)=I*2
Next1
Swap x( )
For1=1 to 10
Print x (i)
Next I
End Sub