VB的初学者，很简单的一个问题就是没头绪啊~！这个程序要首先弹出一个姓名输入框，然后再算公约数.

发布网友发布时间：2023-05-05 15:57

共1个回答

热心网友时间：2023-11-17 20:39

<html>
<head>
<title>求三个数的最大公约数</title>
</head>
<body>
<h2>求三个数的最大公约数</h2>
<hr> 
<script language="vbscript">
sub welcome(xingming) '该通用过程用来显示欢迎词
dim i,msg 'i为循环变量,msg为要显示的欢迎词
msg="欢迎" & xingming & "使用本工具！" '形成要显示的欢迎词
for i = 1 to 3 '通过循环显示三行欢迎词
document.write "<font face=华文新魏 size = " & i+2 & ">" & msg & "</font><BR>"
next
end sub
Function maxgongyueshu(a, b)
Dim min, max, i
If a <= b Then
min = a: max = b
Else
min = b: max = a
End If
i = max Mod min
If i = 0 Then
maxgongyueshu = min
Exit Function
End If
Do Until a Mod i = 0 And b Mod i = 0
i = max Mod min
max = min
min = i
Loop
maxgongyueshu = i
End Function
Dim xm
xm=inputbox("请输入您的姓名：","姓名输入对话框")
welcome xm
</script>
第一个数：<input type="text" name="num1" ><br>
第二个数：<input type="text" name="num2" ><br>
第三个数：<input type="text" name="num3" ><br>
最大公约数：<input type="text" name="resu" ><br>
<input type="button" name="btnok" value="计算">
<input type="button" name="btncancel" value="重新输入">
<script language="vbscript">
sub btnok_onclick() '计算按钮的OnClick事件过程
dim a,b,c,gyst,gys '定义变量
a = num1.value '取得第一个数
b = num2.value '取得第二个数
c = num3.value '取得第三个数
If IsNumeric(a) And IsNumeric(b) And IsNumeric(c) Then '所有的都是数字
If a * b * c = 0 Then Exit Sub '如果有一个数为0，则退出过程
gyst=maxgongyueshu(a, b) '求得前两个数的最大公约数并存放在变量gyst中
gys=maxgongyueshu(gyst,c) '求得gyst和第三个数的最大公约数并存放在变量gys中
resu.value=gys '把最大公约数显示在第4个文本框中
Else '如果取得的三个数中有一个不是数字
resu.value="您输入的不是数值数据" '显示错误信息
End If
end sub
sub btncancel_onclick() '重新输入按钮的OnClick事件过程
'下述语句的作用是把所有文本框清空
num1.value=""
num2.value=""
num3.value=""
resu.value=""
end sub
</script>
</body>
</html>
错的地方不是一两处，这里也不好一一指出了，你自己对比一下

热心网友时间：2023-11-17 20:39