當前位置:編程學習大全網 - 編程軟體 - VB編程輔導

VB編程輔導

3.從1到100隨機生成n個數(包括1和100),求它們的最大值、最小值和平均值。

私人?Sub?Form_Click ()' Click窗口事件。

n?=?Val(InputBox("請輸入n值")'?顯示壹個輸入框,提示用戶在文本框中輸入文本、數字或選擇單元格範圍,按下確定按鈕後返回文本框內容?Val將文本框的內容轉換為數字類型。

隨機化??使用?號碼?威爾。Rnd?初始化函數的隨機數生成器,它給出。號碼?新的種子值。如果省略?數字,則系統計時器返回的值將用作新的種子值。

打印?n?& amp?隨機數是:“在窗口中打印”,n個隨機數是

為了什麽?我?=?1?去哪?n '循環過程得到n個循環的結果。

答?=?Int(100?*?Rnd?+?1)?答?=?Int((隨機數上限?-?隨機數下限?+?1)?*?Rnd?+?隨機數下限)

如果?我?=?1?然後呢?AMax?=?答:?阿明?=?答?比較以下數與第壹個隨機數作為最大初值和最小初值。

如果?AMax?& lt?答?然後呢?AMax?=?如果最大值小於新的隨機數,則最大值等於新的隨機數。

如果?阿明?& gt?答?然後呢?阿明?=?如果最小值大於新的隨機數,則最小值等於新的隨機數。

b?=?b?+?a '計算下列平均值的所有隨機數之和。

打印?a;?在窗口中打印生成的隨機數。

然後

打印?在新的壹行打印。

打印?"最大值:"?& amp?AMax?打印窗口中的最大值。

打印?"最小值:"?& amp?阿明?打印窗口中的最小值

打印?"平均值:"?& amp?b?/?找到平均值並在窗口中打印出來

結束?潛水艇

  • 上一篇:UI設計學習起來難不難啊?
  • 下一篇:MCU對地址有些疑問。該寄存器的地址是0x19。為什麽程序裏是0x00?求大神指導,妳會采納的!
  • copyright 2024編程學習大全網