单项选择题

有如下函数过程：
Function funl(ByVal x As Integer,ByVal y As Integer)As Integer
Do While y＜＞0
reminder=x Mod y
x=y
y=reminder
Loop
fun1=x
End Function
在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a=100
b=25
x=funl(a，b)
Print x
End Sub

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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句( )。 Private Sub Optionl_Click(Index As Integer) Select Case Case 0 a= 宋体 Case 1 a= 黑体 Case 2 a= 楷体 GB2312 End Select Text1. =a End Sub

A．Option Text
B．Index Text
C．Index Font
D．Option Font

单项选择题

要建立一个随机文件记录学生的信息，如下定义了学生的记录类型，由学号、姓名、5门课程成绩(百分制)组成，下列的定义正确的是( )。

A．Type sru
no As Integer
name As String
score(1 To 5)As Single
End Type
B．Type stu
no As Integer
name As String*10
score()As Single
End Type
C．Type stu
no As Integer
name As String*10
score(1 To 5)As Single
End Type
D．Type stu
no As Integer
name As String
score()As Single
End Type

相关试题