帮帮忙

Casper85

大家好，我是初学者，希望各位大大可以帮我以下问题。谢谢

Dim a,b,c as integer
a = 10
b = 20
c = 30
Select case a
        Case 10
                b=c+10
        Case 20
                b=c+20
        Case 30
                b=c+30
End Select

If b > = 40 then
        b = b + c
End if

If b>50 then
        b = b + c
End if
       
What is the vale for b?

Super-Tomato

大家好，我是初学者，希望各位大大可以帮我以下问题。谢谢  

大家好，我是初学者，希望各位大大可以帮我以下问题。谢谢

Dim a,b,c as integer
a = 10
b = 20
c = 30
Select case a
        Case 10
                b=c+10
        Case 20
                b=c+20
        Case 30
                b=c+30
End Select

If b > = 40 then
        b = b + c
End if

If b>50 then
        b = b + c
End if
        
What is the vale for b?
...
Casper85 发表于 2010-9-1 01:08 PM

帮你回答 b 的值?? 這样的問題我覺得自己打開 vb 後使用 debug 或 output 應該直接就可以得到答案了，要更了解可以一步步 step into
没 VB 的話，我建议楼主把自己心理的答案和自己驗算的步骤先寫出來，要是有問題才是别人帮妳纠正的學習态度

Casper85

回复 2# Super-Tomato


    请问是不是把那些code放进vb就能了？　你可以交我怎样吗？

宅男-兜着走

回复  Super-Tomato


    请问是不是把那些code放进vb就能了？　你可以交我怎样吗？
Casper85 发表于 2010-9-1 04:08 PM

答案是 100

http://www.microsoft.com/express/Downloads/#2010-Visual-Basic
下载Visual Basic Express 2010

可是你的Code 没Output 所以你看到的是 空的Window nia～

发问前请Google。

Casper85

回复 4# 宅男-兜着走


    我 google 了还是找不到要怎样。。。。 那请问我应该怎样放output? 可以可给我玩整的code吗？

宅男-兜着走

1. 
   
2. Dim a,b,c as integer
   
3. a = 10
   
4. b = 20
   
5. c = 30
   
6. Select case a
   
7.         Case 10
   
8.                 b=c+10
   
9.         Case 20
   
10.                 b=c+20
    
11.         Case 30
    
12.                 b=c+30
    
13. End Select
    
14. 
    
15. If b > = 40 then
    
16.         b = b + c
    
17. End if
    
18. 
    
19. If b>50 then
    
20.         b = b + c
    
21. End if
    
22. 
    
23. Console.WriteLine(b)
    
24. Console.ReadKey(True)
    

复制代码

不知道我的 Spelling， 和大小写有没有错，放进Console Program 里面后然后Run 就能看到了。

Casper85

回复 6# 宅男-兜着走


    海，能了， 谢谢你的帮忙。。