VB的練習題,我剛入門,不懂,請教一下大家

時間 2022-04-09 18:00:27

1樓:

控制元件有計時器 timer1 **框picture1private sub form_load()timer1.interval=1000

timer1.enabled=false

end sub

private sub timer1_timer()if picture1.top

picture1.top=picture1.top+100else

picture1.top=200

end if

private sub form_keypress(keyascii as integer)

if keyascii =asc("p") thentimer1.enabled = falseelseif keyascii=asc("g") thentimer1.enabled=true

end if

end sub

end sub

2樓:年幼大叔

private sub form_keypress(keyascii as integer)

if keyascii = 80 or 112 thentimer1.enabled = not timer1.enabled

end if

end sub

private sub timer1_timer()'放置**跳動語句

end sub

vb初學者,有題請教,很簡單,但我不會,請高手指教

vb程式設計題目不會,請教我

3樓:

6:通用過程?通用函式吧??

獲得值以後,素數就是:大於等於2的數,只能被1和他本身整除的數!

n 就是輸入的數

for i=2 to n-1

if n mod i=0 then

exit for

next i

判斷一下,如果能被整除的話,就不是素數!如果不能的話,肯定是素數了!呵呵~~~~

8:dim myvalue

for i=1 to 20

myvalue = int((100 * rnd) + 1)randsize

next

生成1-100之間的隨機數!

10:這個題,陣列賦值你會不會??上面是隨機數你也會了吧??

然後再利用迴圈來判斷陣列的最大值!

dim s=0;

for i=1 to 5

for j=1 to 5

if s

s=num(i,j)

end if

next

next

找到最後就是最大的s值,再輸出就ok了!

4樓:岑智靖懷慕

搞個隨機函式,或一個演算法(網上找),

5樓:卿允佴海兒

不懂彩票,但是應該是隨機數吧~~

int(rnd+10)

應該懂了

請教大家一道vb的題,對我來說挺難的,希望會的人都進來看看!

有一個vb題需要請教一下

一些VB練習題,急!考試複習的!高手幫幫忙

選bdim s 9 for i 0 to 9 s i 3 i next i print s s 3 a 12 b 27 c 0 d 出錯 32 下列陣列宣告正確的是 b a n 5 dim a 1 to n as integer b dim a 10 as integer redim a 1 to ...

七年級英語練習題,英語練習題(初一上冊的)

零碎炊煙 1 what day is your birthday?sep.23rd 2 how old are you?i m fifteen.3 when is your mother s birthday?nov.12nd 4 does any school anniversary in you...

一些簡單的資訊科技練習題

1 4 8 2 20 3 專線接入方式 無線接入方式 區域網接入方式4 雙絞線 同軸電纜 光纖 5 電腦 傳真 6 eniac 埃尼阿克 7 ie 8 ip 9 del 10 1024 11 bmp 12 world wide web 13 硬體和軟體 14 資訊網路 15 中國 16 區域網 答案...