1樓：岔路程式緣
錯誤。「 」是含有一個空格的字串
「」是一個空字串
2樓：ok米寶的春天
1t2t3f4f5f6t7t
vb填空題題目求大神告知
3樓：匿名使用者
2、 true 3、new 4、locked 5、checked 6、interval 7、close 8、me 9、可用 10、資料連線
一個vb程式，要求為算隨機題目的答案，判斷正誤，並計算題目總數，答對題目總數，答錯題目總數，正確率。
4樓：匿名使用者
實際上是缺少end if
如果你不想使用endif ，那麼then後請不要直接換行。
求大神解答vb上機題目
5樓：匿名使用者
dim rnddata(1 to 30) as integerprivate sub command1_click()dim i as integer
picture1.cls
for i = 1 to 30
randomize
rnddata(i) = int(99 * rnd() + 1)next
for i = 1 to 5
picture1.print rnddata((i - 1) * 6 + 1) & " " & rnddata((i - 1) * 6 + 2) & " " & rnddata((i - 1) * 6 + 3) & " " & rnddata((i - 1) * 6 + 4) & " " & rnddata((i - 1) * 6 + 5) & " " & rnddata((i - 1) * 6 + 6)
picture1.print
next
end sub
private sub command2_click()dim i as integer
dim datasub as integerfor i = 1 to 30
datasub = datasub + rnddata(i)next
text1.text = datasub
end sub
private sub command3_click()dim i as integer
dim datamax as integerdatamax = rnddata(1)
for i = 1 to 30
if rnddata(i) > datamax thendatamax = rnddata(i)
end if
next
text2.text = datamax
end sub
private sub command4_click()dim i as integer
dim datamin as integerdatamin = rnddata(1)
for i = 1 to 30
if rnddata(i) < datamin thendatamin = rnddata(i)
end if
next
text3.text = datamin
end sub
6樓：小羅哥
option explicit
dim k1 as integer, k2 as integer, k3 as integer, k4 as integer, k5 as integer
private sub command1_click()randomize
k3 = 0
for k1 = 1 to 50
k2 = int(rnd() * 99 + 1)k3 = iif(k3 > k2, k3, k2)if k1 = 1 then
k4 = k2
else
k4 = iif(k4 > k2, k2, k4)end if
k5 = k5 + k2
label1.caption = label1.caption & k2 & " "
next
end sub
private sub command2_click()text1.text = k5
end sub
private sub command3_click()text2.text = k3
end sub
private sub command4_click()text3.text = k4
end sub
vb題目求大神解答
7樓：聽不清啊
① btoh = mid(str,s,1)
② asc1 = asc1 \ 2
一些vb題目，求大神解答
8樓：
1題：private sub f2(a() as single , max as single, min as single)
max = a(lbound(a))
min = a(lbound(a))
for i = lbound(a)+1 to ubound(a)if a(i)> max then max = a(i)if a(i) < min then min =a(i)next i
end sub
vb多重判斷問題，求大神告知
9樓：
private sub form_load()dim a(5) as long, b(5) as long' 賦值過程略
for i = 0 to 5
if a(i) mod 3 <> b(i) mod 3 then' action goes here
end if
next i
end sub
10樓：匿名使用者
for i=1 to 6
f=a(i) mod 3 <> b(i) mod 3if not f then exit fornext
if f then(action)end if
11樓：匿名使用者
六組條件要同時滿足好像只能像你那樣寫，如果（action）只有一條語句的話「end if」不用寫。
vb題目求大神解答
12樓：匿名使用者
private sub command1_click()dim x as single
x = val(text1.text)
text2.text = (5 / 9) * (x - 32)select case val(text2.text)case is > 40
msgbox "hot"
case is > 30
msgbox "warm"
case is > 20
msgbox "room temperature"
case is > 10
msgbox "cool"
case is > 0
msgbox "cold"
case is <= 0
msgbox "freezing"
end select
end sub
vb試題的答案 求大神幫幫忙
13樓：匿名使用者
1.b 2.a 3.
b 4.d 5.c 6.
b 7.d 8.c 9.
d 10.b 11.c 12.
b 13 d 14 b 15.c
VB程式設計題目
我也是初學者,比較冗繁,還有點小bug 建立一個按鈕控制元件陣列 command1 0 command1 1 command1 2 command1 3 一個 框控制元件picture1 如下 dim a as integer private sub form load command1 0 cap...
VB高中題目
s a i i i 1 const n as integer 10 n為城市數 dim a 1 to n as string 陣列a儲存城市名 dim b 1 to n as single 陣列b儲存日照時間 private sub command1 click dim i as integer,s...
判斷正誤 青春期身高和體重明顯增長
對的吧青春期身高 體重的變化 身高 體重是評價形態發育水平的兩個常用指標。1.身高 從人體生長髮育的過程來看，身高發育出現兩次高峰。第一次是在胎兒期至出生後1歲 第二次是在青春期。在青春期，男孩身高每年可以增長7至9cm，最多可達10至12cm 女孩身高每年可以增長5至7cm，最多可達9至10 cm...