1樓：陽光上的橋
編寫一個判斷素數的函式：
function prime(x as long) as boolean
dim i as long
for i=2 to x-1
if x mod i=0 then
prime=false
exit function
end if
next i
prime=true
end function
主程式迴圈2~50，依次呼叫上面的函式prime判斷是否素數，**如下：
sub main()
dim i&
for i=2 to 50
if prime(i) then
print i
end if
next i
end sub
2樓：匿名使用者
private function isprime(byval n as integer) as boolean
dim pb as integer
pb = n - 1
isprime = true
for i = 2 to pb
if n mod i = 0 then
isprime = false
exit for
end if
next i
end function
vb程式設計題 編寫程式，在窗體上輸出50到100以內所有的質數
3樓：
private sub command1_click()for i = 50 to 100
for j = 2 to sqr(i)
if i mod j = 0 then exit fornext
if j > sqr(i) then print i;
next
end sub
vb程式設計輸出100以內的所有素數
4樓：匿名使用者
我記得素數是隻能被1和它本身除的數，如是的話如下**能夠實現。
private sub command1_click()for i = 1 to 100
for j = 2 to i - 1
if i mod j = 0 then
exit for
end if
if j = i - 1 then
print i
end if
next j
next i
end sub
vb程式設計：求100以內所有的素數。
5樓：匿名使用者
private sub form_click()me.cls
dim i, j, k as integerfor i = 2 to 100
k = 0
for j = 2 to i
if i mod j = 0 then k = k + 1next j
if k = 1 then print inext i
end sub
vb程式設計輸出100以內的素數
6樓：心感自然
具體是這樣子的：
從for i = 1 to 100到next i這是一個完整的for迴圈，而for j = 2 to i - 1到next j是一個內層迴圈，外層迴圈用來控制數字是幾，就是1到100麼，內層是x當作標記來看，給他附初值，0，然後開始內層迴圈就是那個 j 迴圈，開始判斷素數，什麼時素數？就是不能被1和他本身整除的數字，就是素數，這樣可以設定最大迴圈判斷的那個數字是比她小的，其實可以改為i/2，也是對的，甚至是sqr(i)也可以，x是一個標誌，如果可以被一個數字整除，那麼x就不是1了，再迴圈結束的時候進行判斷，如果還是0，那麼說明是素數，在窗體上輸出，如果不是0，就不是素數了唄，什麼也不做，進行下一個迴圈！
純手打……不含假……不懂追問我，謝謝
望採納，謝謝
7樓：匿名使用者
你知道什麼是素數嗎？
c++怎麼程式設計輸出100以內的素數？
8樓：在秋浦河擊沙袋的龍柏
#include
using namespace std;
int main()
if(j>i/2) //判斷上面迴圈是否正常結束cout< }cout< 9樓：手機使用者 樓上的都太複雜，什麼年代的。看我這個，短小精悍！ #includevoid main() ;if(i==n) /驗i n是否一致（質數只有1和它本身約數），是就列印 printf("%d\n",i); i++; /做完一個數，i加一，進行下一個數，同時因子n歸2，重複迴圈 n=2; };} vb6.0可使用ucase 函式可將小寫字母變成大寫。ucase 函式，返回 variant string 其中包含轉成大寫的字串。ucase 函式示例 本示例使用 ucase 函式來將某字串轉成全部大寫。說明，只有小寫的字母會轉成大寫 原本大寫或非字母之字元保持不變。dim lowercase,u... 1 繪製線表後肯定要先找到這兩個控制元件。2 然後在這裡先畫上x和y兩軸線。4 接下來，用標籤輸入這兩個標誌。4 在使用這個形狀按鈕繪製。5 一個個畫過去線條就可以了。注意事項 vb可以輕易的使用dao rdo ado連線資料庫，或者輕鬆的建立active x控制元件，用於高效生成型別安全和麵向物件... 假設 dim a as integerredim a 100 重定義陣列 為101個元素 保留原回有陣列資訊，新增一個元素 redim preserve a ubound a 1 至此陣列元素有102個 若不需答保留原有陣列資訊，去掉preserve關鍵字即可。ubound ubound函式 返回抄...在vb程式設計中如何把小寫變成大寫，VB中如何把原來字母中的小寫改為大寫，大寫改為小寫
在VB中畫線（急！），請問，VB中可以畫線的粗細和指定畫出的線是什麼顏色嗎？
Ubound在VB中怎麼用啊，vb裡的lbound和ubound的用法