vb實驗7 找出小於18000的最大素數

2021-08-13 16:35:52 字數 1125 閱讀 6241

———–寫給女朋友的題解

在窗體上畫乙個文字框,名稱為text1,兩個命令按鈕,c1和 c2,標題分別為「計算」和「退出」,並編寫乙個函式過程isprime可以在程式中直接呼叫,其功能是判斷引數a是否為素數,如果是素數,則返回true,否則返回false。

請編寫適當的事件過程,使得在執行時,單擊「計算」按鈕,則找出小於18000的最大素數,並顯示在文字框中。

private

function prime(n as

integer) as

boolean

'函式引數為integer,如果是素數則返回true,不是則返回false

'如果n小於2,就不是素數

if n < 2

then

prime = false

exit

function

endif

dim i as

integer

'先讓返回值等於true

prime = true

'然後檢查2到根號n是不是有數能整除n

for i = 2

to sqr(n)

'如果有數能被整除,就返回false

if n mod i = 0

then

prime = false

exit

function

endif

next i

'如果沒有被前面的if查到,那就是通過了層層篩選而產生的素數

endfunction

dim i as

integer

'從18000開始,每次-1,(為什麼不從1-18000?因為low)

for i = 18000to2

step -1

'如果找到乙個,就輸出到text1,然後退出

VB實驗報告「找出二維陣列n m中的鞍點」

vb實驗報告 找出二維陣列n m中的鞍點 姓名 葉大塽 班級及學號 電氣2班15050342035 日期 2016年5月26日 一 實驗目的 設計vb程式,找出二維陣列n m中的鞍點。二 實驗內容 找出二維陣列n m中的鞍點,所謂的鞍點是指它在本行中值最大,在本列中值最小,輸出鞍點的行,列,有可能在...

編寫函式找出所有小於n的雙素數,並呼叫它

雙素數 孿生素數 是指一對差值為2的素數。例如 3和5就是一對雙素數,5和7是一對雙素數。找出所有小於等於n的雙素數 只需要在素數的基礎上新增判斷就好。如下 import math 引入math 定義並判斷素數函式 defis prime number n 0for i in range 2 int...

實驗9 7 找出總分最高的學生 15 分

給定n個學生的基本資訊,包括學號 由5個數字組成的字串 姓名 長度小於10的不包含空白字元的非空字串 和3門課程的成績 0,100 區間內的整數 要求輸出總分最高學生的姓名 學號和總分。輸入在一行中給出正整數n 10 隨後n行,每行給出一位學生的資訊,格式為 學號 姓名 成績1 成績2 成績3 中間...