编写下列程序:
Private Sub Form_Load()
Text1.Text=" "
Text2.Text=" "
Text3.Text=" "
End Sub
Private Sub Command1_Click()
x=Val(Text1.Text)
y=Val(Text2.Text)
Text3.Text=f(x,y)
End Sub
Function f(ByVal x As Integer,ByVal y As Integer)
Do While y<>0
tmp=x Mod y
x=y
y=tmp
Loop
f=x
End Function
运行程序 , 在 Text1 文本框中输入 36 , 在 Text2 文本框中输入 24 , 然后单击命令按钮 , 则在 Text 3
文本框中显示的内容是()。
A ) 4
B ) 6
C ) 8
D ) 12
第1题
《锅炉水(介)质处理监督管理规则》的制定是为了防止和减少锅炉由于结垢和腐蚀而造成的事故。因此锅炉结垢后的酸洗不在此管理规则范围内。()
第3题
第5题
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!