1樓：閃星
option explicit
private sub ***mand1_click()
dim inputstr as string
dim inputvalue as double
inputstr = inputbox("請輸入一個數", "等待輸入")
if len(inputstr) = 0 then exit sub
inputvalue = val(inputstr)
if inputvalue mod 2 = 0 and inputvalue mod 3 = 0 and inputvalue mod 5 = 0 then
msgbox "輸入的數為：" & cstr(inputvalue) & "，可以被2、
3、5整除", vbinformation
else
msgbox "輸入的數為：" & cstr(inputvalue) & "，不可以被2、3、5整除", vbinformation
end if
end sub
2樓：風起雪落
'需求不夠嚴謹，以下
請參考sub test()
dim a as integer
a = int(inputbox("輸入一個整數", "輸入"))if a mod 2 = 0 then
msgbox ("能被2整除")
end if
if a mod 3 = 0 then
msgbox ("能被3整除")
end if
if a mod 5 = 0 then
msgbox ("能被5整除")
end if
end sub
編寫vb程式輸入數然後按從大到小的順序在
private sub mand1 click dim a as integer,b as integer,c as integer dim max as integer,min as integer a val inputbox 輸入du 第1個整 zhi數dao input b val inpu...
vb編寫程式計算分段函式，VB編寫程式，計算分段函式
在窗體上放一個命令按鈕，將 複製到窗體裡，程式執行單擊一次命令按鈕可輸入一次n的值 如下 private sub command1 click dim n,y as single n inputbox 請輸入n的值 select case n case is 0 y 2 n 5 case 0 y 0...
如何用vb編寫程式判斷數是完全平方數
思路 1 判斷值是否copy大於等於0 2 開平方這個數 3 判斷開平方後取整和開平方後的數是否相等,如果相等是完全平方數,否則不是 例子 dim a,b for a 1 to 100 if a 0 then b sqr a if int b b then 完全平方數 else 不是完全平方數 en...