1樓：匿名使用者
private sub command1_click()
'交換第二列和第四列
text1.text = ""
text2.text = ""
label1.caption = ""
dim aa(1 to 4, 1 to 4) as integer, bb(1 to 4, 1 to 4) as integer
text1.text = "交換前的資料" & vbcrlf
for i = 1 to 4
for j = 1 to 4
randomize
aa(i, j) = int(rnd * 89 + 11)
bb(i, j) = aa(i, j)
text1.text = text1.text & aa(i, j) & space(2) '顯示交換前的資料
next j
text1.text = text1.text & vbcrlf
next i
for i = 1 to 4
for j = 1 to 4
if j = 2 then
bb(i, j + 2) = aa(i, j) '將第二行資料儲存到第四行
elseif j = 4 then
bb(i, j - 2) = aa(i, j) '將第四行資料儲存到第二行
end if
next j
next i
text2.text = "交換後的資料" & vbcrlf
for i = 1 to 4
for j = 1 to 4
text2.text = text2.text & bb(i, j) & space(2) '顯示交換後的資料
next j
text2.text = text2.text & vbcrlf
next i
end sub
private sub command2_click()
'統計結果
label1.caption = ""
dim xx as string, yy as string, kk as integer, dd() as string, kk1 as integer
xx = text1.text
yy = text2.text
if len(xx) <= 5 then
msgbox "文字框1輸入的字元不能小於5個字元！"
exit sub
end if
if len(yy) <> 1 then
msgbox "文字框2輸入的字元必須是1個字元！"
exit sub
end if
kk = len(xx)
redim dd(1 to kk)
kk1 = 0
for i = 1 to kk
dd(i) = right(left(xx, i), 1)
if asc(dd(i)) = asc(yy) then kk1 = kk1 + 1
next i
label1.caption = "文字框1中包含" & yy & "字元有" & kk1 & "個。"
end sub
vb程式，設有一個二維陣列a（4,5），其中每個元素均由兩位隨機整數構成，然後執行以下操作：
2樓：匿名使用者
private a(1 to 4, 1 to 5) as integer
private sub switcharre(byval aindex as integer, byval bindex as integer)
dim i, k as integer
for i = 1 to 5
k = a(aindex, i)
a(aindex, i) = a(bindex, i)
a(bindex, i) = k
next i
end sub
private sub command1_click()
dim i, j, imax, imin, imaxindex, iminindex, isum as integer
randomize
for i = 1 to 4
isum = 0
for j = 1 to 5
k = int(rnd * 100)
if k < 10 then k = k + 10
a(i, j) = k
isum = isum + k
next j
'列印陣列
picture1.print a(i, 1), a(i, 2), a(i, 3), a(i, 4), a(i, 5)
next i
'交換第一和第三列
switcharre 1, 3
'計算最大行和最小行
for i = 1 to 4
k = 0
for j = 1 to 5
k = a(i, j) + k
next j
if i = 1 then
imax = k
imin = k
imaxindex = i
iminindex = i
else
if k > imax then
imax = k
imaxindex = i
else
if k < imin then
imin = k
iminindex = i
end if
end if
end if
next i
'交換最大和最小行
switcharre imaxindex, iminindex
'列印處理後的陣列
for i = 1 to 4
picture2.print a(i, 1), a(i, 2), a(i, 3), a(i, 4), a(i, 5)
next i
end sub
vb隨機生成由兩位正整數所構成的4行5列的二維陣列,求與之對應的標記陣列.
3樓：匿名使用者
你好,這種情況考慮與鈣片刺激胃腸道有關.建議飯後服用
利用vb，編寫一個3*4的二維陣列輸入任意整數，求所有陣列元素和及平均值
4樓：匿名使用者
利用vb，編寫一個3*4的二維陣列輸入任意整數並且求所有陣列元素和及平均值方法為：
1、輸入標頭檔案和主函式。
2、初始化陣列並定義變數型別。
3、輸入i和j。
4、輸出第i行第j列的元素。
5、編譯、執行。
注意事項：在visual basic 6.0中，採用物件導向程式設計方法（object-oriented programming），把程式和資料封裝起來作為一個物件，每個物件都是可視的。
5樓：匿名使用者
private sub command1_click()
dim i as integer, j as integer, a(1 to 3, 1 to 4) as integer, x as integer
'i、j、x 是變數，a(1 to 3, 1 to 4)是二維陣列變數
for i = 1 to 3 'i是迴圈變數，這
裡迴圈3次
for j = 1 to 4 'j是迴圈變數，這裡迴圈4次
randomize '重新整理隨機數種子
a(i, j) = int(rnd * 90 + 10) '產生隨機數，儲存在a陣列中
x = x + a(i, j) '計算陣列的和
print a(i, j) & " "; '列印陣列的值
next j 'j迴圈結束
print '列印換行
next i 'i迴圈結束
print '設定一個空行
print "3*4陣列的和 = " & x '列印陣列的和
print "平均值 = " & round((x / ((i - 1) * (j - 1))), 2) '列印平均值，取小數後二位
end sub
6樓：聽不清啊
private sub command1_click()print "請輸入一個3*4的二維陣列"
dim a(3, 4)
for i = 1 to 3
for j = 1 to 4
x = val(inputbox("請輸入a(" & i & "," & j & "):"))
a(i, j) = x
s = s + a(i, j)
print a(i, j),
next j
next i
print "元素總和="; s
print "平均值="; s / 12
end sub
使用VB編寫程式的基本步驟哪些，使用VB編寫程式的五個基本步驟哪些
1.開啟vb 2.在窗體上畫控制元件 3.寫 4.除錯程式 5.編譯生成.每個作者總結都不一樣，誰說必須五個不是6個？你把它分為100個也可以了 簡述編寫並執行vb程式的一般步驟 想法 靈感 文案 規劃 建立工程和窗體 模組 類模組 窗體設計 編寫 測試和debug 生成exe檔案 請簡述使用vb開...
vb編寫程式中print是什麼意思
print方法可以在窗體上顯示文字字串和表示式的值，並可在其它圖形物件或印表機上輸出資訊。1 語法說明 在vb中，print方法是用來輸出資訊的專用過程，顯示的文字是作為影象來處理的，因此，print方法顯示的文字字串也往往作為圖形文字。visual basic 允許在窗體 圖形框和印表機用prin...
vb，編寫程式計算1 2100，請高手幫忙糾錯
修改以後的程式如下，已經執行通過，答案正確 private sub form click dim i as integer dim sum as integer for i 1 to 100 sum sum i next i print sum end sub 在for迴圈的內部不能再用i i 1 ...