【問題】【VB】會VB的人進來吧>"<

[小7 10]

請有能力的人幫忙回答一下~~感謝

回答不出來電腦會被當掉阿>"<~~~

拜託哩

1.若一表單中有一指令按鈕期Name是cmd按鈕，下列程序能使表單改變大小時，指令按鈕一直維持在表單正中央。

Private Sub For,__ _____________( )

cmd按鈕.Left = ________________________________________

cmd按鈕.Top = ________________________________________

2.若要判斷某一整數變數Num中之值，不是2或7或9之倍數，請再 If 後面填入適當程式碼：

If _________________________________ Then

Print Num & "不是2或7或9之倍數"

End If

3.下列程式能顯示右圖，空格中要填入什麼？

(圖片就是"12345,1234,123,12,1,12,123,1234,12345"每個","就是換一行)

For i = 1 to 9

For j = ________________________________

Print _______________

Next

print

Next

4.下列程式執行結果為何，請寫在旁邊？

For i = 1 to 5 Step 2

For j = 1 to i

Print i * j ;

Next

Print

Next

5.下列程式可找出100筆資料中最大的數，請在For i = 1 to 99 ... Next中填入適當程式碼。

Dim Max as Byte , i as Byte , j as Byte , t as Byte

Dim Num(99) as Byte

For i = 0 to 99

'產生0~100的任一整數填入陣列中

Num(i) =Int(Rnd * 101)

Next

Max = Num(0)

For i = 1 to 99

____________________________________________

Next

Print "最大數是：" & Max

乘上題，若要將100筆資料，由大到小排列，請寫出程式碼：

For i = 0 To 98

For j = i + 1 To 99

_____________________________________________

_____________________________________________

_____________________________________________

Next

Next

[jimmykuo 10]

1.3題看不太懂

第=題

中間要填 Num Mod 2 <> 0 Or Num Mod 7 <> 0 Or Num Mod 9 <> 0

第4題

1

3 6 9

5 10 15 20 25

第五題

If Num(i) > Num(i - 1) Then Num(0) = Num(i)

程上題那個是要重寫還是要包含之前的程式碼?

[小7 10]

最初由 jimmykuo 發表

1.3題看不太懂

第=題

中間要填 Num Mod 2 <> 0 Or Num Mod 7 <> 0 Or Num Mod 9 <> 0

第4題

1

3 6 9

5 10 15 20 25

第五題

If Num(i) > Num(i - 1) Then Num(0) = Num(i)

程上題那個是要重寫還是要包含之.............(論壇訊息:引文過長 恕刪) [/quote

1包含

[jimmykuo 10]

第五題更正

If Num(i) > Num(0) Then Num(0) = Num(i): Max = Num(0)

[easygodkimo 10]

:$ 有問題不要問我

1:

Private Sub Form_Load()

Command1.Left = (Form1.Width - Command1.Width) / 2

Command1.Top = (Form1.Height - Command1.Height) / 2

End Sub

Private Sub Form_Resize()

Command1.Left = (Form1.Width - Command1.Width) / 2

Command1.Top = (Form1.Height - Command1.Height) / 2

End Sub

[電腦狂 10]

你的問題...很詭異...