单项选择题

有以下函数过程： Function Gys (ByVal x As Integer， ByVal y As Integer) As Integer Do While y＜＞0 Reminder = x Mod y x = y y= Reminder Loop Gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 50 b = 10 x=Gys (a，b) Print x End Sub

A．0
B．10
C．50
D．100

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 2 = n + z y=y+z x = x + z Label1.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

单项选择题

在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称为Filel的文件列表框，两个名称分别为Label1、Label2、标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Labell中显示当前文件夹中文件的数量。如图所示。能够正确实现上述功能的程序是

A．PriVate Sub Dir1_Change() FilePath=Dir1.Path End Sub Private Sub Dirvel_Change() Dir1.Path=DriveDrive LabelCaption=FileListCount End Sub
B．Private Sub Dir1_Change() FilePath=Dir1.Path End Sub Private Sub Drivel_Change() DirPath=DriveDrive LabelCaption=FileList End Sub
C．Private Sub Dir1_Change() FilePath=Dir1.Path LabelCaption=File1.ListCount End Sub Private Sub Drivel_Change() Dir1.Path=DriveDrive LabelCaption=Fil1.ListCount End Sub
D．Private Sub Dir1_Change() File1.Path=Dir1.Path LabelCaption=FileList End Sub Private Sub Drivel_Change() Dir1.Path=DriveDrive LabelCaption=FileList End Sub

相关试题