1樓：匿名使用者
如果是病毒感染導致的發熱，是容易反**熱的，一般病程在一週左右。還是建議檢查血常規，瞭解感染情況，明確診斷，再對症用藥。注意多給孩子喝水。
其次，還有一種情況，就是如果有血象的升高，抗生素不能控制感染，也是有可能導致發熱的。所以還是建議先檢查血常規，瞭解感染的情況，對症用藥。
你好發燒是很多疾病都會有的症狀，一定要把引起發燒的病治好了，燒才能真正的退下來。如果還有咳嗽、流鼻涕等感冒症狀，需要用雙撲偽麻分散片、小兒氨酚黃那敏顆粒等感冒藥**。體溫在三十八點五度以上時，可用美林或泰諾林退燒**；體溫在三十八點五度以下時，或勤些用溫水擦浴以降溫，或用兵兵退熱貼敷額以降溫能起到退熱護腦的作用。
2樓：fm網路
dim a(20) as int
dim i as int
dim j as int
j=0for i=0 to 19
a(i)=rnd()*79+20
if a(i) mod 2=1 then
j=j+1
end if
next
print j
vb程式設計問題：1使用隨機函式產生10個10~100之間的隨機整數存放在一維陣列a中,並把該陣列排序後顯示在一個
3樓：匿名使用者
根據已有的程式行，缺的內容主要就是一個排序過程。新增一個排序的過回
程就答行了。但是不知道該添在**，請說明程式的空白處是在**？能不能標出來，比如用括號，星號什麼的，標一下需要補充到**？
或者，能不能說明一下，各文字框，按鈕的功能是什麼？ d = val(text3.text)，這個應該是要插入的資料了，說明text3是用來輸入的，text2.
text = text2.text & str(a(i))，這說明text2是顯示排序後的結果的，
那有沒有text1？用作什麼？兩個按鈕定義的功能是什麼？插入的資料怎麼插？是隨機插入一個位置，並替換掉原來的資料還是將陣列重新定義隨機插入後，後面的數向後移？
這些需要說明一下，或者把需要填寫的位置標清楚，不然，不好確定該怎麼填。
隨機函式產生100個10-99之間的隨機整數
4樓：百度文庫精選
內容來自使用者:範衛超10
利用隨機函式產生100個10-99之間的隨機整數，找出其中的奇數和素數，並將奇數按由小到大的順序排列。
private sub command1_click()dim a(1 to 100) as integer, b() as integer
show
redim b(100) as integerrandomize timer
print "隨機產生的資料是："
for i = 1 to 100
a(i) = int(rnd * 90 + 10)print a(i); " ";
if i mod 10 = 0 then printnext i
print "找到的素數是："
for i = 1 to 100
if fnprime(a(i)) thenprint a(i); " ";
c = c + 1
if c mod 10 = 0 then printend if
next i
print "找到的奇數是："
for i = 1 to 100
if a(i) mod 2 = 1 thenk = k + 1
b(k) = a(i)
end if
next i
redim preserve b(k)
for i = 1 to k
print b(i); " ";
d = d + 1
if d mod 10 = 0 then printnext i
for i = 1 to k - 1
for j = i + 1 to k
if b(i) > b(j) then
t = b(i): b(i) = b(j): b(j) = tend if
next j
next i
print "排序結果："
for j = 1 to k
print b(j);
g = g + 1
if g mod 10 = 0 then printnext j
end sub
private sub form_load()end sub
function fnprime(m as integer) as boolean
dim e as integer, f as booleanf = true
for e = 2 to m - 1
if m mod e = 0 then
vb題目：用隨機函式產生10個0到100之間的隨機整數存入一堆陣列a中……
5樓：匿名使用者
private sub form_click()me.cls
dim n(1 to 10) as integerdim i%,nmax%,pos%
dim str as string
'產生10個0-100的隨機數並寫入陣列
randomize
for i = 1 to 10
n(i) = int((100 - 0 + 1) * rnd + 0)
str = str & n(i) & " "
next i
'找最大值
nmax=n(1)
for i = 1 to 10
if n(i)>nmax then nmax=n(i)next i
'找最大值位置
pos=1
for i=1 to 10
if n(i)=nmax then
pos =i
exit for
end if
next i
print str '窗體顯示隨機數
print "最大值：" & nmax
print "位置：" & pos
end sub
vb程式設計，用隨機函式產生10個50以內（包括50）的隨機整數存入一維陣列。求出最大值並和陣列中的首個
6樓：草原上之狼
根據已有的程式行，缺的內容主要就是一個排序過程。新增一個排序的過程就行了。但是不知道該添在**，請說明程式的空白處是在**？
能不能標出來，比如用括號，星號什麼的，標一下需要補充到**？
或者，能不能說明一下，各文字框，按鈕的功能是什麼？ d = val(text3.text)，這個應該是要插入的資料了，說明text3是用來輸入的，text2.
text = text2.text & str(a(i))，這說明text2是顯示排序後的結果的，
那有沒有text1？用作什麼？兩個按鈕定義的功能是什麼？插入的資料怎麼插？是隨機插入一個位置，並替換掉原來的資料還是將陣列重新定義隨機插入後，後面的數向後移？
這些需要說明一下，或者把需要填寫的位置標清楚，不然，不好確定該怎麼填。
7樓：數學與計算機程式設計
private sub command1_click()randomize
dim a(9) as integer, max as integer
dim k as integer, i as integerdim t as integer
max = 0
for i = 0 to 9
a(i) = int(rnd * 51)
print a(i);
if a(i) > max then
max = a(i)
k = i
end if
next i
if k > 0 then
t = a(0)
a(0) = a(k)
a(k) = t
end if
for i = 0 to 9
print a(i);
next i
end sub
VB語言中隨機函式，VB中隨機函式的用法
rnd，產生隨機函式，所得值在0 1之間 所以要產生0 100的隨機數，那麼就用100 rnd 1 就可以產生0 100的隨機數 如果要取正的話 就用int rnd 100 1 還有一點要強調 如果每次都要使隨機數不一樣，那麼還要在產生隨機數之前加上randomize 這個表示產生的隨機數不一樣例子...
設計程式vb隨機產生10到100之間（包括10和
private sub command1 click on error resume next dim a 5 as integer randomize int upperbound lowerbound 1 rnd lowerbound for i 0 to 3 b c 0 for j 1 to ...
怎麼用vb設計隨機產生100到200之間的數求出
刺友互 1 首先需要啟動vb6.0，新建一個標準exe工程。2 開啟vb6.0之後，在窗體上繪製一個命令按鈕。3 接下來需要雙擊命令按鈕進入 視窗。4 接下來開始編輯按鈕的單擊事件。5 最後就可以按f5執行測試。求出最大值與最小值。 指尖遊戲 dim a 9 as integer 定義一個整數變數陣...