1樓：科技程式迷
**貼出來吧：
private sub command1_click()
dim i as integer
text1.text = "輸出：" '還原文字框內容
if option1.value = true then '選擇「100-200之間的偶數」選項
for i = 100 to 200 step 2 '偶數迴圈每次加2即得偶數
text1.text = text1.text & chr(13) & i
next
else '否則
for i = 200 to 400 step 2 '偶數迴圈每次加2即得偶數
text1.text = text1.text & chr(13) & i
next
end if
end sub
private sub command2_click()
if text1.text = "輸出：" then msgbox "您還沒有生成偶數！", 48, "提示": exit sub
open "d:\out.txt" for output as #1
print #1, text1.text
close #1
msgbox "存檔ok！"
'附加功能
shell "explorer.exe d:\out.txt" '開啟存檔檔案
end sub
問題補充：我也把**都發給你了！難道還不能解決您的問題嗎？
2樓：匿名使用者
private sub cmd1_click()dim i%,sum&
sum=0
if opt1.value=true thenfor i=100 to 200 step 2sum=sum+i
next
elseif opt2.value=true thenfor i=200 to 400 step 2sum=sum+i
next
else
msgbox "你要我計算什麼？"
exit sub
end if
text1=sum
end sub
private sub cmd2_click()open "d:\out.txt" for output as #1print #1,text1
close #1
shell "d:\out.txt",1
end sub
有關vb程式設計的一個問題，急啊 關於VB程式設計的小問題
這需要使用資料庫來做分析。建立職工表 惟一號碼 姓名 職稱 工齡 然後對應職工實際資訊輸入進職工表中。然後執行sql語句。select 四室兩廳住房數 count from 職工表 where 職稱 副高階 and 工齡 20 select 四室一廳住房數 count from 職工表 where ...
從一到十的祝福語關於羊年，從一到十的祝福語
time晴天 除夕?您團聚香甜?初一?您喜慶新春?初二?您富貴滿堂?初三 您福慧雙增 初四?您大吉大利?初五?您滿載而歸?初六?您春風滿面?初七 您人日快樂?初八 您福祿壽存 初九 您如意吉祥?初十 您萬事亨通? 滑竹雨 今天就是除夕了 愉快 在此 祝 我所有朋友 2015 新的一年 一帆風順 二龍...
一到關於橢圓的數學題 急求
聯立橢圓方程x 2 4 y 2 3 1和直線方程y kx m，消去y,得。3 4k 2 x 2 8kmx 4m 2 12 0 由於直線和橢圓有兩個不同的交點，故。64k 2m 2 4 3 4k 2 4m 2 12 0,化簡得 m 2 4k 2 3 設m,n的座標為 x1,y1 x2,y2 則滿足。x...