1樓：匿名使用者
前面的三個題目他們都說了，我直接說四和五吧，我是在vb環境下編譯成功了才給你的
5 private sub command1_click()dim n%, i%, sum%
n = val(text1.text)
for i = 1 to n
sum = sum + i
next i
label1.caption = sum
end sub
6private sub command1_click()dim n%
n = val(text1.text)
select case n
case 1
label1.caption = "monday"
case 2
label1.caption = "tuesday"
case 3
label1.caption = "wednesday"
case 4
label1.caption = "thursday"
case 5
label1.caption = "friday"
case 6
label1.caption = "saturday"
case 7
label1.caption = "sunday"
end select
end sub
2樓：
1,下列哪一個描述是錯誤的？(d)
a)option explicit強制顯示宣告所以變數
b）變數number和number是相同的
c）當宣告變數時，所以變數都必須是通過使用as關鍵字或型別符給出其資料型別
d）宣告語句可以出現在事件過程內任何位置
2,要想從子過程呼叫後返回兩個結果，下面子過程語句宣告合法的是？(c)
a)sub f1 (byval n%,byval m!)
b)sub f2 (n%,byval m!)
c)sub f3 (n%,m%)
d)sub f4 (byval n%,m!)
3,改正下面**的錯誤
private procedure f1(p as integer)as variant
dim p as single
p=p*10
f1=p
end procedure
private procedure f1(p as integer)as variant
redim p as single
p=p*10
f1=p
end procedure
4,請程式設計實現1到n之和，要求如下：
（1）用一個text控制元件接收使用者輸入的n(n>1,n為整數）值；
（2）用一個label控制元件顯示結果；
（3）用一個command控制元件執行計算；
（4）畫出使用者見面草圖，並命名各控制元件名和主要屬性；
（5）編寫command事件過程
function command_onclick()
dim m,i as integer
m=0for i=1 to text1.text step 1
m=m+i
next
label.caption=m
end function
5,輸入一個數字（1到7）,用英文顯示對應的星期一到星期日
用weekdayname（）
3樓：匿名使用者
1、d(宣告語句只能出現在窗體模組或者標準模組的最前面。第一題我敢肯定是選擇d。redlz2500說得有道理，但他說的正好來說明變數必須通過as來宣告其變數型別。)
2、c(如果加byval則要求是變體型別，不能是整型，或是單精度型)3、private procedure f1(p as integer)as variant
dim p as integer
p=p*10
f1=p
end procedure
4、**下面的兩句寫窗體層上
dim n as integer /定義n為整形dim s as integer /定義s為整形**下面寫在命令按鈕事件上
n=val(text1.text)
for i=n to 1 step -1
s=s+n
n=n-1
next i
label1.caption=str(s)5、***首先在窗體層宣告變數
dim x as integer
***畫一個命令按鈕，然後雙擊寫下如下**：
x=input("請輸入一個1-7的值")if x=1 then print "monday"
elseif x=2 then print "tuesday"
elseif x=3 then print "wednesday"
elseif x=4 then print "thursday"
elseif x=5 then print "friday"
elseif x=6 then print "saturday"
elseif x=7 then print "sunday"
end if
注：用case....select case的語句我就不寫了，這個很簡單。自己琢磨琢磨。
希望我寫的能給你一點幫助。
4樓：匿名使用者
1、cdim k as integer是強制命名k為integer型別
如果是dim k 的話則預設k為variant型別
另外dim k ,m,n as integer
和dim k as integer, m as integer , n as integer
是不一樣的
yzy8000最好確認一下
不要亂說
2、c(by val是隻傳遞數值，預設好像是傳遞地址，記得不是很清楚，如果不是c就是a了)
3、private procedure f1(p as integer)就行，後面的as variant要申明function或property才行
as variant去掉（這個沒有錯）
4、汗、沒有這麼多時間來編這個，應該很簡單的吧？主要是使用key_click判斷使用者輸入的是不是整數，然後在裡面新增label.text（好像是這個屬性）=f(text.
text)，其中判斷輸入是不是整數可以使用
chint()或者是int()函式，手頭沒有資料，由msdn98或者vb的話你自己查一下，利用返回的錯誤或者是直接轉換來判斷
差不多可以這樣寫：
dim intt as integer
on error goto errhandle
x=text2.text
intt=int(x)
exit sub
errhandle:
text2.text=""
exit sub
讓你同學幫你改一下
dim f(x as integer)
是一個求和的過程，自己編，一個簡單的遞推公式（我記不得了……）
5、輸入後使用
x=text2.text
select x
case 1
text1.text="monday"
case ...
end select
這裡的text2是你用來輸入的text控制元件名稱
這裡的text1是你用來顯示結果的控制元件名稱
然後上面的**放到什麼你喜歡的地方去
如果你不知道該放到什麼地方我就無語了
6、over
5樓：
暈，第一題當然是c了，題目叫選錯誤的。。。
二叉樹的深度是什麼意思？比如小題目，葉子節點 度為0 有，度為1的節點有，度為2的節
結點層 根結點的層定義為1 根的孩子為第二層結點，依此類推 樹的深度 樹中最大的結點層。如 o 深度為2 o o 關於 葉子節點 度為0 有1個，度為1的節點有11個，度為2的節點為0，怎麼知道該二叉樹的深度為12？這裡葉子節點只有一個，其他的為度為1的結點，該二叉樹每層只有1個結點，如下面二叉樹o...
高數等價無窮小題目，高數等價無窮小的一個題目
如圖所示 你圖中那個方法，可以考慮平方差和立方差的情況，只是延伸到n次方而已。會不會泰勒，在 x 0 處看看吧。高數等價無窮小的一個題目 limf x g x lim x sinax x ln 1 bx lim x sinax x bx lim 1 acosax x 2 3b im 1 cosx x...
VB6 0的考試題目急求馬上就要考試了
二 選擇題 4 退出for迴圈可使用的語句為 a exit for bcaad 三 判斷題 判斷下列正確與否，正確的打 錯誤的打 2 若使用者在鍵盤上按下一個鍵，則會產生一個鍵盤事件 keypress事件 4 vb程式語言兩個基本特點是 結構化和事件驅動程式設計。5 工程資源管理器用於檢視和管理工程...