———–寫給女朋友的題解
在窗體上畫乙個文字框,名稱為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 中間...