An Introduction to Programming Using Visual Basic® 2005, Sixth Edition

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. An Introduction to Programming Using Visual Basic® 2005, Sixth Edition
   
2. By David I. Schneider -  University of Maryland
   
3. Publisher : Prentice Hall
   
4. Pub Date : March 03, 2006
   
5. Print ISBN-10 : 0-13-030654-1
   
6. Print ISBN-13 : 978-0-13-030654-8
   
7. eText ISBN-10 : 0-13-186104-2
   
8. eText ISBN-13 : 978-0-13-186104-6
   
9. Pages : 752

复制代码

本帖隐藏的内容

An Introduction to Programming Using Visual Basic 2005 Sixth Edition.rar (7.68 MB, 需要: 5 个论坛币) 本附件包括：

• Prentice.Hall.An.Introduction.To.Programming.Using.Visual.Basic.2005.6th.Edition.Mar.2006.ISBN.0130306541.chm

2017-1-9 05:54:00 上传

需要: 5 个论坛币  [购买]

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：introduction Programming troduction Program Edition University

1. Example 6.1
   
2. The following program, in which the condition in the Do loop is "num <=7", displays the numbers from 1 through 7. (After the Do loop executes, the value of num will be 8.)
   
3. 
   
4. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click
   
5.   'Display the numbers from 1 to 7
   
6.   Dim num AsInteger = 1
   
7.   DoWhile num <= 7
   
8.     lstNumbers.Items.Add(num)
   
9.     num += 1    'Add 1 to the value of num
   
10.   Loop
    
11. End Sub
    
12. 
    
13. 
    
14. [Run, and click the button. The following is displayed in the list box.]
    
15. 
    
16. 1
    
17. 2
    
18. 3
    
19. 4
    
20. 5
    
21. 6
    
22. 7
    

复制代码

1. Example 2.
   
2. (This item is displayed on pages 249 - 250 in the print version)
   
3. The following program requires the user to enter a number from 1 through 3. The Do loop repeats the request until the user gives a proper response.
   
4. 
   
5. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click
   
6.   Dim response As Integer, quotation As String = ""
   
7.   response = CInt(InputBox("Enter a number from 1 to 3."))
   
8.   Do While (response < 1) Or (response > 3)
   
9.     response = CInt(InputBox("Enter a number from 1 to 3."))
   
10.   Loop
    
11.   Select Case response
    
12.     Case 1
    
13.       quotation = "Plastics."
    
14.     Case 2
    
15.       quotation = "Rosebud."
    
16.       quotation = "That's all folks."
    
17.   End Select
    
18.   txtQuotation.Text = quotation
    
19. End Sub
    

复制代码

谢谢分享