Commandl_C1ick()
n=5:x=1:i=1
Do
X=X*l
i=i十1
loop While i>n
Print x
End Sub
(23)在窗体上画一个名称为Commandl的命令按钮,再画两个名称分别为Labell、Label2
的标签,然后编写如下程序代码:
. 二级vlsudBM5c语言程序设计试卷第6页 (共15页)
Private x As Integer
Private Sub Commandl—Click()
X=5:Y=3
Call proc(x,Y)
Labell.Caption=X
Label2.Caption=Y
End Sub
Private Sub proc(ByVal a As Integer,ByVal b As hteger)
x=a* a
Y=b十b
End Sub
程序运行后,单击命令按钮,则两个标签中显示的内容分别是
A)5和3 B)25和3 C)25和6 D)5和6
(24)在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后
编写如下事件过程:
Private Sub Commandl_C1ick()
S=0
For i=1 T0 15
x=2*i一1
1f x Mod 3=0 Then s=s十1
Nexti
Labell.Caption=s
End Sub
. 程序运行后,单击命令按钮,则标签中显示的内容是
A)1 B)5 C)27 D)45
(25)在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell、Label2、
Label3的标签,然后编写如下代码:
Private x As Integer
Private Sub Command1_C1ick()
Static y As Integer
Dimz As Integer
n=10
z=n十z
y=y十z
X=X十Z
Labell.Caption=x
Label2.Caption=y
Label3.Caption=z
End Sub
运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是
A)10 10 10 B)30 30 30 C)30 30 10 D)10 30 30(26)设在窗体上有一个名称为Commandl的命令按钮,并有以下事件过程:
PriVate Sub Commandl_C1ick()
Static b As Variant
b=Array(1,3,5,7,9)
End Sub
此过程的功能是把数组b中的5个数逆序存放(即排列为9,7,5,3,1)。为实现此功
能,省略号处的程序段应该是
A)For i=0 To 5-1\2
tmp=b(i)
b(i)=b(5-i-1)
b(5-i-1)=tmp
Next
B)for i=0 To 5
tmp=b(i)
b(i)=b(5-i-1)
b(5-i-1)=tmp
Next
C) For i=0 T0 5\2
tmp=b(i)
b(i)=b(5-i-1)
b(5-i-1);tmp
Next
D)For i=1 T0 5\2
tmp=b(i)
b(i)=b(5一i一1)
b(5—i—1)=tmp
Next
二级VlsualBM5c语言程序设计试卷第8页 (共15页) (27)在窗体上画一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,两个名称分别为Labell、Label2,标题分别为空白和“共有文件”的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签Labell中显示当前
上一页 [1] [2] [3] [4] [5] [6] 下一页
责任编辑:小草