1樓：匿名使用者
你好,這種情況考慮與鈣片刺激胃腸道有關.建議飯後服用
vb 用隨機函式產生20個兩位數的整數，存於4行5列的二維陣列中，並求出其中的最大元素
2樓：匿名使用者
option explicit
option base 1
dim a%(80), i%, k%, t%, b%(80)private sub command1_click()me.cls
dim j as integer
randomize
for i = 1 to 80
a(i) = int(rnd * 90) + 10next i
k = 0
t = 1
for i = 1 to 79
b(i) = abs(a(i + 1) - a(i))if b(i) > k then
k = b(i)
t = i
end if
next i
print "全部"
for i = 1 to 80
print a(i);
if i mod 10 = 0 then printnext i
print "最大差值:" & k & ",是" & a(t + 1) & "和" & a(t) & "之差"
end sub請參考
vb程式設計**:定義一個5×5的二維陣列，隨機產生25個兩位數（10，99）存於該二維陣列元素中，統
3樓：兄弟連教育北京總校
//#include "stdafx.h"//vc++6.0加上這一行.
#include "stdio.h"
#include "time.h"
#include "stdlib.h"
int main(void)
如果只計算
一條主對角線，則：
int main(void)
vb生成一個4行5列的兩位隨機整數陣列,並在**框中輸出
4樓：
這個很簡單，本程式用vb6.0編寫
新建一窗體，在窗體上放一個picture控制元件，與一個command控制元件，然後在**視窗裡貼上以下**即可。
private sub command1_click()dim a(3, 4) as long
dim i as long
dim j as long
picture1.cls
for i = 0 to 4
for j = 0 to 3
a(j, i) = rnd() * 90 + 10next j
picture1.print
next i
for i = 0 to 3
for j = 0 to 4
picture1.print a(i, j),next j
picture1.print
next i
end sub
private sub form_load()randomize time
command1.caption = "執行"
picture1.autoredraw = truepicture1.backcolor = rgb(255, 255, 255)
end sub
效果圖如下：
VB用隨機函式產生兩位數的整數，存於4行5列的二維陣列中，並求出其中的最大元素
option explicit option base 1 dim a 80 i k t b 80 private sub command1 click me.cls dim j as integer randomize for i 1 to 80 a i int rnd 90 10next i k...
VB用exit do語句，產生隨機的兩位數，當偶數的個數為6的時候結束
private sub form click static i as integer static j as integer static k as integer k 0 j 0 me.cls randomize dok k 1 i rnd 90 10 mod 100me.print i if i...
設陣列，每個元素都是不超過兩位數的正整數，試程式設計統計該數
一樓的演算法好像有點不對，比如a 10 則b 1 但是下邊的又是b 9 我寫了一個，你試下，不懂可直接問我，include include void main n,i printf 請輸入這個陣列的大小 scanf d n a int malloc n sizeof int printf 請輸入這個...