請VB大師進來做幾個簡單的問題（代別人提問，問過程），得到100分的高分

1. 請定義乙個 5 行 6 列的二維字元陣列。

option base 1'陣列下界從 1 開始。

dim c(5, 6) as char

或。 dim c(4, 5) as char'當未宣告選項基數時，陣列的下限從 0 開始。

2.請寫乙個判斷閏年的條件表示式。 閏年的條件是：年份可以被 4 整除，但不能被 100 整除; 或可被 400 整除。

year mod 4 = 0 and year mod 100 <>0) or year mod 400 = 0

其中 year 是儲存年份編號的變數。

dim year as integer

3. 請將以下數學表示式改寫為 vb 表示式。

1）sin(2x) （2）8ab2

sin (2 * x)

x 是乙個變數。 dim x as double

8 * a * b ^ 2

我認為這是 b 的平方。

a、b 是變數。

dim a as double

dim b as double

4. 計算以下表示式的值。

1）int（100/3） （2）len(“welcome”)

int（100 3） 結果為 33

100 3 結果是 int 函式是引數的整數部分，結果是 33）。

len("welcome"結果是 7

len 函式取字串的長度，歡迎字串總共有 7 個字元，額外的是 len 對漢字和漢字一視同仁"我們"字串的長度也被認為是 2）。

5. x 是小於 50 的非負數，條件表示式為：

x >= 0 and x < 50

dim x as double

x 是乙個變數。

呵呵，我先來！

base 1 將陣列的下標定義為 1

dim sz（5,6） 作為字串，其中"sz"是陣列的名稱，string 是字元型別。

yun mod 4 =0 and yun mod 100 <>0 ) or

yun mod 400 =0 then

.陳述。 end if

上圖“雲"是要判斷的年份，mod 是一種可整除演算法，當結果等於 0 時，表示可整除，反之亦然，不可整除，表示合乎邏輯，或表示合乎邏輯或

1）.如果 x 是度數，則寫為：sin（x*

如果 x 是弧度，則寫為：sin（x）。

2）.8*a*b*2 ,"*"表示乘法符號。

1).int（） 是乙個完整的函式，int（100 3） = 33

2).len（） 是乙個計算字串長度的函式，len（"welcome"） 是用引號計算字串的長度，len（"welcome")=7

5. if x<50 and x>0 then

陳述。

end if

使用 “ ” 符號和 “ ” 符號時，注意不要將其寫成 “0 x 50”。"

為了做到這一點，我什至懶得去看有問題的球賽。

插上一面紅旗！ ＾＿

這個問題一共有3個巢狀，其中I和J被重新分配到x的兩層，可以單獨保留，即到最後i=4和j=3

x=3k=1，x=3+6=9

k=2，x=9+6=15

所以選擇B

b在第二個迴圈中，最後乙個迴圈x的初始值為x=3

實際處理只做迴圈的第三層。

x=3+6+6 =15

初始化了前兩個迴圈，只有最後乙個迴圈有效。

x=3 下行 k=3+6=9 再次迴圈 9+6=15，最後一次列印必須為 15

i、j 兩層 x 重新分配，可以單獨保留，即最後 i=4，j=3x=3k=1，x=3+6=9

k=2，x=9+6=15

所以選擇B

你是什麼意思？ 就是在表單上加乙個按鈕，然後右鍵檢視**，然後輸入上面的**。

b 我不太明白你的意思，請表達清楚！

1. 答案 A. 字串不是數字或科學記數法（例如，2e3），不能轉換為數字進行計算。

2. 答案 A. “print”後面的內容應該是數值或字串，不能進行邏輯操作。

3.如果字串是數字，則可以自動轉換為數字型別，然後轉換為值。

答案是 C，為什麼不是 B

因為數字“16384”被強制為整數，但結果卻超出了整數的範圍。 這應該是正確的：a = clng（16384） *2

24.同樣的問題與上面一樣，因為數字“32763”被強制為整數，但計算超出了整數的範圍。

22. 答案 B。

在 VB 上，測試一下......

fn（i） 返回 i 的平方，即 1 2+2 2+3 2+4 2+5 5=1+4+9+16+25=55

準備3個**，分別是紅燈亮、黃燈亮、綠燈亮**！ ，將乙個定時器控制項、乙個**控制項、2個按鈕、乙個標籤拖到視窗中！

只需在計時器事件中寫上**即可！

dim n as long, m as longprivate sub command1_click()= true

end sub

private sub command2_click()= false

end sub

private sub form_load()n = 10

m = 0 '0 表示紅燈，1 表示黃燈，2 表示綠燈 ="C：紅燈亮。 jpg") true

n= vbred

模擬交通訊號燈"

開始使用" "暫停"

falseend sub

private sub timer1_timer()if m = 0 then

if n = 10 then

C：紅燈亮。 jpg")

end if

n= vbred

n = n - 1

if n = 0 then

m = 1n = 3

end if

exit sub

end if

if m = 1 then

if n = 3 then

C：黃燈亮。 jpg")

end if

n= vbyellow

n = n - 1

if n = 0 then

m = 2n = 10

end if

exit sub

end if

if m = 2 then

if n = 10 then

C：指示燈為綠色。 jpg")

end if

n= vbgreen

n = n - 1

if n = 0 then

m = 0n = 10

end if

exit sub

end if

end sub