1樓：山水阿銳
您好，這樣的：
dim m as integer, n as integerprivate sub ***mand1_click()m = val(inputbox("輸入正整數"))n = val(inputbox("輸入正整數"))if n * m = 0 then
msgbox "兩數任何乙個數都不能為0!"
exit sub
end if
end sub
private sub ***mand2_click()dim r as integer, s as integerr = m: s = 1
do until m mod r = 0 and n mod r = 0 '最大公約數
r = r - 1
loop
do until s mod m = 0 and s mod n = 0 '最小公倍數
s = s + 1
loop
text1.text = "最大公約數是：" & r & "最小公倍數是：" & s
end sub
Vb程式設計中，怎樣編寫輸入兩個數m和n，求大於m的n個素數的代
private sub command1 click dim i,j,str,n as integera val text1.text b val 1000 n 0 for i a to b swit 1 1為素數 for j 2 to i 1 if i mod j 0 then 其實du不用平方,...
輸入兩個整數a和b,程式設計a存放兩個數中的最小值,b存放兩個數中的最大值,並輸出a
include int main printf d n a return 0 程式設計 輸入兩個整數a,b的值，輸出兩個數中的較大數及其平方根。要求使用公式 a b a b include include int main c語言程式設計 輸入兩個整數a,b的值，輸出兩個數中的較大數及其平方根。要求...
電腦程式設計編寫程式,輸入兩個數,輸出其中最大數
package test import java.util.scanner author jie date 2014 3 1 public class calcmaxnum elsesystem.out.println 最大的數是 maxnum basic dim x,y as integer in...