1樓：匿名使用者
private sub command1_click()dim i as integer, s as integer, a(1 to 10) as integer, max as integer, min as integer
max = 30: min = 100
for i = 1 to 10
randomize
a(i) = int(rnd() * 70) + 30print a(i);
s = s + a(i)
if max < a(i) then max = a(i)if min > a(i) then min = a(i)next i
print "s="; s
print "最大值"; max
print "最小值"; min
end sub
2樓：亂石穿空
private sub command1_click()dim a(1 to 10)
b = 0
c = 0
d = 1000
randomize'使每次生成的隨機數不同for i = 1 to 10
a(i) = int(rnd(now()) * 70 + 0.5) + 30'不加0.5再求整則永遠也得不到值100
print "a(" & i & ")=" & a(i)b = b + a(i)
if a(i) > c then c = a(i)if a(i) < d then d = a(i)next i
print "最大值為：" & c
print "最小值為：" & d
print "平均值為：" & b / 10end sub
3樓：
print "s="& s
print "最大值"& max
print "最小值"& min
end sub
求幫忙一個vb作業答案
4樓：匿名使用者
3。對，4。對，5.對，6。對，8對
其他都是錯的
求大神幫忙，一個vb作業需要完成，急 255
5樓：匿名使用者
沒有人會給你做作業的，作業是練習。。。。
給多點財富還可以考慮……
6樓：匿名使用者
可以做啊
什麼時候要呢
幫忙做vb作業 求幫助~！謝謝嗯~ 5
7樓：匿名使用者
1、d2、d
3、b4、
5、c6、c
7、8、
9、c，試題不完整，估計著應該是c
10、我知道d對，其他的不清楚，自己開啟軟體 試下就知道了、11、b
12、a
13、a（在vb6.0裡，應該是有 4*5=20 ，預設狀態下是總0開始的，即a(0,0)...a(3,4) 共20 個，vb.
net 裡可能是從1開始的，其他的答案看起來都不對！）
14、c
15、b
填空題：
1、2、f8
3、enable
4、5、
6、14
大一一個vb6.0的作業，幫忙做一下 中午交
8樓：
雖然時間過了~~~ 還是做了一下~~
private sub command1_click()text1.text = "紅色"
text1.forecolor = rgb(255, 0, 0)end sub
private sub command2_click(index as integer)
text1.text = "綠色"
text1.forecolor = rgb(0, 255, 0)end sub
private sub command3_click(index as integer)
text1.text = "藍色"
text1.forecolor = rgb(0, 0, 255)end sub
private sub command4_click(index as integer)
unload me
end sub
private sub form_load()text1.text = ""
text1.alignment = 2
end sub
9樓：
改變text.forecolor=rgb(255,0,0) '紅色
text.forecolor=rgb(0，255,0) '綠色
text.forecolor=rgb(0,0,255) '藍色
一個vb作業不會。高手幫忙下！ 10
10樓：匿名使用者
private sub command1_click()
form1.font.name = "楷體_gb2312" '設定字型屬性
form1.font.size = 20 '設定字號屬性
print "中華人民共和國" '輸出文字
end sub
另外：form1.fontbold = true '設定粗體
form1.fontitalic = true '設定傾斜
form1.fontstrikethru = true '設定刪除線
form1.fontunderline = true '設定下劃線
11樓：
private sub form_click()me.fontsize = 32
me.fontbold = true
me.fontname = "楷體_gb2312"
print "中華人民共和國"
me.fontname = "宋體"
print "中華人民共和國"
me.fontname = "黑體"
print "中華人民共和國"
end sub
12樓：匿名使用者
假設每一行的資料的檔案格式。
暗淡升長，s為字串
開放“報銷經費的投入，＃1
做，而不是eof（1）
行輸入＃1張，小號
l = l + clng（s）
迴圈密切＃1
“開啟”總輸出＃1
＃1， str（l）
密切＃1
幫我解決一些簡單的英語問題吧，請幫我解決三個簡單的英語問題 3個完成句子
1.過去時僅僅用來指過去的情況狀態，只是相對於現在。過去分詞通常強調動作的已經發生。1.一般過去時，用過去式，其餘用分詞 2.謂語只能用動詞原形 3.grandfather是單數，所以用was 我有許多問題,你能幫我解決嗎英語翻譯 請幫我解決三個簡單的英語問題 3個完成句子 1,the cinema...
請律師幫我解決遺產問題
主要是看房子是誰的財產！如果是你父母的共同財產，那麼，你母親去世後，法定繼承人有你父親以及你們姐弟四個，因此，你們每人姐弟四個每人擁有房子十分之一的所有權，你父親擁有十分之六的所有權。你父親去世，法定繼承人有你後母以及你們姐弟四個，你們五人平均分配你父親的遺產。如果你父親除了房子十分之六的所有權之外...
請幫我解決問題，OK
是黃瘤病，黃瘤病主要是因為血脂升高，在組織區域性沉著被組織細胞吞噬而出現黃色結節性臨床表現。可以降血脂 後部分病人皮疹可自然消退，否則可區域性手術切除皮損。不影響身體，不要緊的.請一個真心誠意願意幫我解決問題的人 竄門的不要說話 接下來還有很長一段話 5 沒事的。其實小孩就是這樣。吵架也是，不用和解...