1樓：峰崎拳一
private sub command1_click()dim i as integer
text1.text = list1.list(0)for i = 0 to 9
if val(list1.list(i)) > val(text1.text) then text1.text = list1.list(i)
next i
end sub
private sub form_load()randomize
dim i as integer
list1.clear
for i = 1 to 10
list1.additem int(rnd() * 90) + 10next i
end sub
2樓：匿名使用者
我把源程式發到你的郵箱了，請查收
急求vb答案！！！！！考試要用！！！跪求了
3樓：匿名使用者
答案是:
第一題:36
第二題:55
第三題:2 6 4 6 8
4樓：
1. 36
2. 55
3. 2 6 4 6 8
5樓：逐鹿傳說
我就瘋了 你不就是要結果嗎 你能把**敲到baidu上 就不能在vb裡敲一下 然後執行一下啊
6樓：匿名使用者
第一題:36
第二題:55
第三題:2 6 4 6 8
測試過，完全正確。
7樓：匿名使用者
我暈 把**複製到vb上 執行一下不就有了不過這樣你還是看不懂**
第一題 sum=3^3+2^3+1^3=36第二題 相當於求 10到1 的和
第三題就是列印 陣列 a(i)
8樓：匿名使用者
請把**複製到vb，自己看。只有通過自己的努力，才會有真正屬於自己的幸福。
急求vb試題答案
9樓：遠風的夢想家
1.執行下面的程式，單擊窗體後在窗體上顯示的內容是: 126若將程式中的a語句與b語句的位置互換，再次執行程式，單擊窗體後在窗體上顯示的內容是 :45 迴圈體執行了3次。
2.執行下面的程式，單擊窗體後在窗體上顯示的第二行結果是 ghef
第三行結果是 ghefcd
第四行結果是 ghefcdab
3.執行下面的程式，單擊窗體後在窗體上顯示第一行結果是 :1 第三行結果是 1 2 1
4.執行下面的程式，單擊窗體後在窗體上顯示的第一行結果是__1____；第二行結果是___2 2___。
10樓：
1. 126, 45, 3
2. ghef, ghefcd, ghefcdab3. 1, 121
4. 1, 22
**解讀，並經實際驗證過
一道vb程式設計題目{急求答案}
11樓：爛掉の蘿蔔
private sub form_load()
text1.left = 0
text1.top = 0
text1.width = me.scalewidth / 2
text1.height = me.scaleheight / 2
command1.left = me.scalewidth - command1.width
command1.top = me.scaleheight - command1.height
end sub
private sub form_resize()
text1.width = me.scalewidth / 2
text1.height = me.scaleheight / 2
command1.left = me.scalewidth - command1.width
command1.top = me.scaleheight - command1.height
end sub
private sub command1_click()
endend sub
額，你還別說，我看錯成左下角了。呵呵
沒錯，需要改一下。
12樓：
樓上基本正解，但是有乙個地方不符樓主要求
稍稍修改下 command1.left = me.scalewidth - command1.width
把原來那句話「command1.left = 0」改成上面的**，而且在form_resize過程中也要加入這句**，這樣才能實現總在右下角。
急求：vb程式設計題目,謝謝
13樓：匿名使用者
dim a(0 to 3)
private sub command1_click(index as integer)
list1.additem index
end sub
private sub command2_click()
dim n, m
m = 0
n = 0
for i = 0 to 3
for j = 0 to 3
if list1.list(i) = a(j) and i = j then
n = n + 1
end if
if list1.list(i) = a(j) and i <> j then
m = m + 1
end if
next j
next i
label1.caption = n & "個數值猜對以及位置對；" & m & "個數值猜對但位置不對！"
end sub
private sub end_click()
endend sub
private sub form_load()
for i = 0 to 9
command1(i).enabled = false
next i
end sub
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 2 then
form1.popupmenu game
end if
end sub
private sub new_click()
randomize
for i = 0 to 3
a(i) = int(rnd * 10)
next i
for i = 0 to 9
command1(i).enabled = true
next i
list1.clear
end sub
private sub view_click()
label1.caption = a(0) & a(1) & a(2) & a(3)
end sub
14樓：貴州遵義發郎中
晚上幫你弄，另你自己怎麼不試著寫寫？
一道vb程式設計題目急求答案，一道C 程式設計題目 急求答案
private sub form load text1.left 0 text1.top 0 text1.width me.scalewidth 2 text1.height me.scaleheight 2 command1.left me.scalewidth command1.width co...
求vb程式設計題目,VB程式設計題目
dim operatingsystem as string,otherequipment as string private sub mand1 click text2.text otherequipment for i 0 to 2 if check1 i value 1 then othereq...
vb程式設計題，vb程式設計題目
dim a 1 to 80 as integer dim js as integer dim os as integer private sub command1 click dim i,j,k randomize j 0 text1.text for i 1 to 80 a i int rnd 9...