1樓:永墨之陽
private sub command1_click()dim num%, i%, m%, n%
clsn = val(text1)
num = int(rnd * 99 + 1)'先隨即乙個數print num;
max = num'當前他最大
min = num'同時也最小
for i = 2 to n
num = int(rnd * 99 + 1)'生成其餘的隨機數print num;
if num > max then'大於最大max = num
elseif min > num then'小於最小!這裡還要判斷,而不是直接else
min = num
end if
next
label5 = "最大值為:" & max'不要每次都改變,在迴圈完成後再顯示。
label6 = "最小值為:" & minend sub
2樓:匿名使用者
private sub command1_click()dim a as integer, b() as integer, i as integer, t as integer
a = val(inputbox("請輸入要輸入數字個數", , 5))
redim b(a - 1)
for i = 0 to ubound(b)b(i) = val(inputbox("輸入第" & i + 1 & "個數", , int(rnd * 101)))
print b(i);
if b(i) > t then t = b(i)next
msgbox "最大的數是:" & t
end sub
3樓:匿名使用者
dim d() as integer
dim i as integer
dim mymax as integer
dim n as integer
n = val(inputbox("輸入n!"))redim d(n) as integerfor i = 1 to n
d(i) = val(inputbox("輸入第" & i & "個數!"))
next i
mymax = d(1)
for i = 2 to n
if d(i) > mymax then mymax = d(i)next i
print mymax
vb程式設計,輸入十個數字,找出最大值,並找出最大值的位置。
4樓:匿名使用者
private type num
xuhao as integer
i as integer
end type
dim a(10) as num
dim temp as num
private sub command1_click()for i = 1 to 10
a(i).i = inputbox("請輸入第" & i & "個數字")
a(i).xuhao = i
print a(i).i
next i
for i = 1 to 10
for j = 1 to 10 - i
if a(j).i > a(j + 1).i thentemp = a(j + 1)
a(j + 1) = a(j)
a(j) = temp
end if
next j
next i
print "最大數字是" & a(10).i & " 位置是" & a(10).xuhao
end sub
輸入兩個數,如何使用函式求其中最大值?
5樓:
程式如下:
#include
int max(int x, int y)int main()
程式設計是編寫程式的中文簡稱,就是讓計算機為解決某個問題而使用某種程式語言編寫程式**,並最終得到相應結果的過程。為了使計算機能夠理解人的意圖,人類就必須要將需解決的問題的思路、方法、和手段通過計算機能夠理解的形式告訴計算機,使得計算機能夠根據人的指令一步一步去工作,完成某種特定的任務。這種人和計算機之間交流的過程就是程式設計。
求c語言程式。 輸入n個數,求他們的平均值,最大值,最小值,並排序。用陣列的知識。謝謝!
6樓:匿名使用者
#include
#include
int main()
for(i=0;i,降
專序,若公升屬
序將」<「改為「>」
printf("平均值為%d,最大值為%d,最小值為%d",sum/n,a[0],a[n-1]);
printf("排序後的陣列為:\n");
for(i=0;i printf("%d ",a[i]); system("pause"); return(0);} 網海1書生 private sub command1 click dim n as long n val text1.text if n 0 then if n mod 4 0 and n mod 100 0 or n mod 400 0 then text2.text n 是閏年 else tex... dim a 6 b 6 dim i,j as int dim min as int min 0 a 1 1 a 2 4 a 3 2 a 4 5 a 5 3 a 6 6 for i 1 to 6 for j i to 6 if min 0 then min a j else if a j min a ... 實現了功能,就是覺得 比較繁瑣,竟然用了三個for,很是鬱悶,希望能對你有所啟發,拋磚引玉 private sub command1 click dim a 1 to 10 as integerdim temp as integer temp 100 for i 1 to 10 randomize ... include stdafx.h vc 6.0加上這一行.include stdio.h include string.h int main void int n,u 40 i,k while 1 if scanf d n n 0 break scanf d k for i 0 i 或者 inclu... 要看具體設定 option base 在模組級別中使用,用來宣告陣列下標的預設下界option base後面只能是0或者1 由於預設是0 所以是0的時候可以不用option base語句只有當你想option base 語句來取代陣列下標的預設值 0時才有必要用option base 1而且只能是o...vb程式設計從文字框輸入年份n單擊判斷按鈕
vb程式設計實現將陣列a 1,4 2,5 3,6轉置為陣列b 1,2,3
vb程式設計題 求陣列中的最小數及其位置
c語言輸入n個整數到陣列u中輸入正整數
vb如何定義m行n列的二維陣列,vb如何定義乙個m行n列的二維陣列