1樓：聽不清啊
private sub ***mand1_click()
c = left(inputbox("請輸入表示星期的第一個字母："), 1)
c = ucase(c)
if c = "m" then
w = "monday"
elseif c = "w" then w = "wednesday"
elseif c = "f" then w = "friday"
elseif c = "s" or c = "t" then
c1 = left(inputbox("請輸入第二個字母："), 1)
c1 = ucase(c1)
if c = "s" then
w = iif(c1 = "u", "sunday", "saturday")
else
w = iif(c1 = "u", "tuesday", "thursday")
end if
end if
msgbox ("你輸入了" & c & c1 & "，這是 " & w)
end sub
2樓：匿名使用者
private sub ***mand1_click()dim nme as string
nme = ucase(inputbox("輸入首字母"))if nme = "t" or nme = "s" thennme = nme & ucase(inputbox("輸入第二個字母"))
end if
select case nme
case "m"
nme = "monday"
case "tu"
nme = "tuesday"
case "w"
nme = "wednesday"
case "th"
nme = "thursday"
case "f"
nme = "friday"
case "sa"
nme = "saturday"
case "su"
nme = "sunday"
case else
nme = "error"
end select
msgbox nme
end sub
3樓：匿名使用者
可以自己寫我不寫自己經理你好
4樓：匿名使用者
我也不知道你問我有什麼用？
求vb大佬看看！！謝謝！！**怎麼寫！！
5樓：匿名使用者
本程式使用了控制元件陣列:
**:private type student
stu_id as string
name as string
*** as string
politicalorientation(1) as string
end type
private sub ***mand1_click()
dim stud as student
with stud
.stu_id = text1.text
.name = text2.text
for i = 0 to 1
if option1(i).value then .*** = option1(i).caption
if check1(i).value then
.politicalorientation(i) = check1(i).caption
else
.politicalorientation(i) = "非" + check1(i).caption
end if
next i
picture1.print "學號：" + .stu_id
picture1.print "姓名：" + .name
picture1.print "性別：" + .***
picture1.print "政治面貌1：" + .politicalorientation(0)
picture1.print "政治面貌2：" + .politicalorientation(1)
picture1.print
write #1, .stu_id; .name; .***, .politicalorientation(0); .politicalorientation(1)
close #1
end with
end sub
執行效果:
6樓：
可以實現的哈，戳頭像取數字要答案
7樓：匿名使用者
追加寫檔案
dim s as string
dim filename as stringfilename = shuxiang & xingzuo & ".txt"
open filename for input as #1do while not eof(1)
line input #1, s
print s
loop
close #1
求大佬解決一個vb編寫程式的問題
8樓：志在必得
dim zz as integer '計數用private sub ***mand1_click()if lcase(text1.text) = "user" then '無論大小寫，均轉換為小寫判斷
if text2.text = "888" then '判斷密碼正確
msgbox ("登入成功，歡迎使用系統！")else
zz = zz + 1
if zz <= 3 then
msgbox ("請重新輸入密碼")
text2.text = ""
else
endend if
end if
else
msgbox ("使用者名稱錯誤，請重新輸入")text1.text = ""
text2.text = ""
end if
end sub
vb題目 求大佬寫下完整**，包括建什麼控制元件最好都能寫清楚。編寫程式，當輸入x的值後計算輸出y的值
9樓：
一般情況下，你需要複製**到合適的位置（窗體、事件），vb是一個事件驅動的語言，程式輸入輸出通常會用到控制元件（按鈕、文字框等等），這些都是你在其他文字工具裡沒法直接對應的。
當然，用notepad++編寫完整的vb工程也不是沒有可能的。你可以參考vb自動生成的工程檔案，以此為模板就可以了。簡單的vb工程（不包括第三方控制元件）包含兩個檔案：
form1.frm,工程1.vbp，這兩個是文字檔案，前者包含了事件過程（包括你的程式**），後者包含了窗體的資訊（比如窗體名字、尺寸等等），如果你能自己編寫這兩個檔案，那麼就可以直接在vb裡開啟並執行。
你也可以只寫.frm檔案，然後新建工程把這個窗體新增進去就可以了。
稱：min主要功能：求出一組數中的最
小白髮問，這個C程式該怎麼寫？大佬在哪裡
include include int main include include int main 在防城港，想找一臺車拉貨到貴港 小白髮問，這個c程式該怎麼編寫?大佬請進 include int main 小白髮問，這個c程式怎麼寫，大佬們看看？include void main for i 0 ...
請問大佬這個怎麼建模？花紋這些怎麼做的？請教步驟，複製貼上的走開
這樣的模型不是三言兩語就 能教會的，當然這個模型細節非常多，需要建模者有足夠的耐心，仔細觀察模型的構造，大部分都是對稱的，大部分元素都是重複的，是有很多重複的小元件組成的 所以你單獨看一個小元件你是否可以完成建模，之後就是複製的工裝了，多用陳列複製，沿路徑複製，對稱映象工具等命令，一些異形的造型主要...
這個化學方程式怎麼寫，化學方程式怎麼寫
這種確來定物質的量之比的源 反應，一般地說是兩個反應的總反應方程式。關鍵是要能夠寫出題目中沒有給出的產物 一般不會是反應物 比如此題，其中過氧化鈉既是氧化劑又是還原劑 給出的產物中，沒有它的氧化產物 o2 feso4 3na2o2 na2feo4 na2o na2so4 o2 進行配平 根據fe 1...