1樓：匿名使用者
打包發給你了，4個按鈕4道題
2樓：匿名使用者
今日心情不太差,答你個主要程式片吧,基本上修改下就完成的了
1.s=(text1.text)
print mid(s,2,1)
print mid(s,1,1)
print mid(s,3,1)
反正既然約定了輸入的是三位整數.直接把text中輸入當字串來弄省事了.
2.i = val(text1.text)
select case i '條件選擇
case 90 to 100:
msgbox "優秀" '自己把這塊程式片改成自己要的動作,比如把i放入相應陣列之類的
case 80 to 90:
msgbox "良好"
case 70 to 80:
msgbox "中等"
case 60 to 70:
msgbox "及格"
case is < 60:
msgbox "不合格" '要注意順序哦,如果把這幾個case從低分依次判斷下來的話,會有問題的,至於什麼問題
'可以自己試試 :)
case else: msgbox "error"
end select
3.const n=100
for i =1 to n
sum=sum+i
next i
print sum '總和
4.dim y as single
y = val(text1.text)
if y mod 400 = 0 then
msgbox str(y) & "是"
else
if y mod 4 = 0 and not y / 100 = fix(y / 100) then
msgbox str(y) & "是"
else
msgbox str(y) & "不是"
end if
end if
跪求vb高手幫忙做幾題vb選擇題、急！！！會追加分的！謝謝！ 10
3樓：匿名使用者
8.c 9. 10 .b11 a 12
8.10.11一定對9.12暫時還不會
求vb高手幫忙程式設計 三個題目 謝謝了 急
求會vb的高手 幫忙做下 題、 跪謝 前輩了~
4樓：西廂之狼
馬上發給你
好了哈 文字自己改總會吧 我寫的小樓一夜聽春雨
5樓：匿名使用者
那還上啥學，又費時，又費錢。
跪求vb高手幫忙做兩題vb選擇題、急！！！寫為什麼選這個，會追加分！
6樓：
18題似乎有點問題（**補全）
19 a
20 b
求高手教我做幾道vb程式設計題
求高手幫忙做下vb題
7樓：匿名使用者
你再畫乙個timer1控制項，然後複製以下**執行即可。
（所有控制項：text1、command1、command2、timer1）
dim a, b, c, d, e as longprivate sub command1_click()timer1.interval = 10
end sub
private sub command2_click()timer1.interval = 0
end sub
private sub form_load()a = 0: b = 0: c = 0: d = 0: e = 0end sub
private sub timer1_timer()a = a + 1
if a = 99 then
b = b + 1 '毫秒
a = 0
end if
if b = 59 then
c = c + 1 '秒
b = 0
end if
if c = 59 then
d = d + 1 '分
c = 0
end if
if d = 59 then
e = e + 1 '時
d = 0
end if
text1.text = format(d, "00") & ":" & format(c, "00") & ":" & format(b, "00") & a
end sub
效果如下圖：
8樓：匿名使用者
不懂 文字框顯示的是什麼 你想要time做什麼事
求vb高手幫忙做一道vb題，關乎在下生死，求好心人幫忙！ 做乙個坦克，可以上下左右自由移動，並且可以發射
9樓：匿名使用者
是這個樣子吧，等有時間幫你寫吧，確實挺麻煩的
10樓：
哎…… 準備後事吧~
VB高手進來幫忙看看啊，VB高手進來幫忙看看啊！
夠浪漫,但你的程式裡錯誤太多,特別是一些不該有的錯誤 如command.enabled false 應該是command1.enabled false吧?為了女朋友,耐心還是要有的,程式設計序是要耐得住性子的 急急急 vb高手幫忙看看 謝謝 private sub form queryunload ...
求VB題的答案，請高手指教
text1為被除數 text2為除數 private sub command1 click 執行除法運算 text3 val text1.text val text2.text 商 text4 val text1.text val text2.text 整數商 text5 val text1.tex...
求vb高手詳解set acreateobject
宣告乙個物件庫，下一步就是使用這個庫裡面的函式 實際上這個庫就是wshom.ocx檔案 wscript是庫的名字，shell是裡面的乙個物件 vbs中createobject wscript.shell 是什麼意思 給你個正解吧 其實使用者 1029291429 的更改是對的。wscript.cre...