vb程序設計教程pdf

Ⅰ vb演算法教程的下載

http://www.ibook8.com/book/vb.htm

VB編程工具
Visual Basic 6.0簡體中文版 Visual Basic 6.0綠色精簡版 MSDN VB6精簡版

VB入門教程
VB程序設計系列教程 VB 趣味常式 VB6實例教程
中文VB6傻瓜書 VB最簡單入門教程 VB 6.0中文版範例入門與提高
VB初哥教學 VB編程標准 看實例學VB 6.0
VB.NET學習教程 VB.NET控制項時尚編程百例 VB 中文版實用培訓教程
VB經典編程 VB6循序漸進教程 VB 6.0 中文版教程
VB_NET實例解析與應用編程 VB.NET中高級篇 VB精彩編程200例
VB超級教程 VB API函數大全 Visual Basic 6.0實例教程
VB 6.0資料庫開發學習教程 VB.NET資料庫編程從入門到精通 VB6.0入門提高
21天學通Visual Basic.NET Visual Basic.NET實用全書 Visual Basic.NET學習範本
Visual Basic.NET培訓教程 Visual Basic實用編程標准 VB學習教程
VB的控制項的學習

VB編程開發技術
COM+與VB6分布式應用程序設計 Visual Basic 插件開發人員指南 VB.NET高級開發指南
VB.Net高級編程 VB.NET 面向對象可重用組件開發 Visual Basic精彩編程200例
VB.Net多媒體編程 VB.NET高級程序員指南 Visual Basic.NET GDI+技術教程
VB.Net控制項應用編程實例教程 VB.NET XML Web開發人員指南 VB和SQL Server編程指南
用VB.NET開始Asp.NET1.1的開發 VB 游戲編程學習系統 Visual Basic.NET 編碼技術
VB.NET面向對象CLASS的實現 VB.NET應用集錦常式 VB.NET實例解析應用編程
Visual Basic.Net與動態網頁技術 VB6開發寶典 VB系統資源
VB 常式序講解 VB.NET資料庫開發實例 VB.NET與資料庫開發教程
VB語言程序設計 VB.NET面向對象的實現 Visual Basic 6.0應用編程150例
Visual Basic.NET項目開發實踐 Visual Basic 6.0 開發寶典 Visual Basic 6.0網路編程
Visual Basic6.0企業級應用程序開發 Visual Basic6.0資料庫程序設計 Visual Basic .NET程序設計基礎
Visual Basic.NET資料庫開發教程 Visual Basic 6 循序漸進教程 VB游戲編程21天自學通
Visual Basic.NET進銷存程序設計 Visual Basic程序設計導學 Visual Basic.NET技術內幕
VB.NET和SOL Server 2000高級編程 利用VB設計列印復雜報表 Visual Basic.NET編程基礎
Visual Basic6.0元件程序開發指南 VB.Net網路資料庫整合應用 Visual Basic或C#創建WS
Visual Basic.NET程序設計與應用

VB開發手冊與指南
VB.Net與ASP.Net代碼手冊 VB 6.0中文版語言參考手冊 VB編程經驗手冊
VB API 函數使用手冊 VBA高級開發手冊 VB速查手冊之技巧篇
VB.NET Remoting 技術手冊 VB.Net調試技術手冊 Visual Basic 6.0 組件工具指南
VB.Net字元串和正則表達式參考手冊 VBScript語言參考 VB6程序設計參考手冊
VB技巧問答10000例 VB5 開發WEB資料庫指南 VBscript英文幫助手冊
VB6控制項參考手冊 VB6語言參考手冊 VB6程序員指南
VB5開發WEB資料庫指南 VBA 高級開發指南 VB中文版實用參考手冊
VB編程經驗手冊 VB6組件工具指南 Visual Basic API函數參考手冊
Visual Basic 6.0實用參考手冊 Vsual Basic 6.0 控制項參考手冊 Visual Basic.NET類設計手冊
Visual Basic.NET 語言參考手冊 Visual Basic.net 反射參考手冊 Visual Basic.net線程參考手冊
Visual Basic編程經驗手冊 Visual Basic.Net專家指南 Visuai Basic.NET編程培訓教程
VB速查手冊之技巧篇 VBscript英文幫助手冊

VB其它相關資源
VBSCRIPT函數方法速查 Visual Basic 第三方控制項大全 Visual Basic 語言參考-函數速查
Access 2003 VBA 程序員參考書 VB、C快速進階 V3.0 VB系統資源
VB Script語言參考 VB編程技巧集 VBScript 教程及語言參考
VBScript與JScript實例教程 VB精華文摘 Visual Basic 術語解釋
VB常用函數 VBScript學習 VB學習一點通
VB Script基礎 VBScript 幫助手冊 Visual Basic 常用數值演算法集

VB視頻相關
VB編程與應用(電大)29講 編程經典Visual Basic 用多媒體學Visual Basic
電子科大--- VB程序設計 VB.net多媒體教學

Ⅱ 《vb程序設計教程》 王賀明主編 課後習題答案，謝謝啦！

第一題：

(2)vb程序設計教程pdf擴展閱讀

這部分內容主要考察的是程序設計語言的知識點：

開發圖形用戶界面 (GUI) 的方法——不需編寫大量代碼去描述界面元素的外觀和位置，而只要把預先建立的對象add到屏幕上的一點即可。 「Basic」指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 語言，是一種在計算技術發展歷史上應用得最為廣泛的語言。

VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連接資料庫，或者輕松的創建ActiveX控制項，用於高效生成類型安全和面向對象的應用程序 。程序員可以輕松的使用VB提供的組件快速建立一個應用程序。

在使用傳統的程序設計語言編程時，一般需要通過編寫程序來設計應用程序的界面（如界面的外觀和位置等），在設計過程中看不見界面的實際效果。而在Visual Basic 6.0中，採用面向對象程序設計方法（Object-Oriented Programming），把程序和數據封裝起來作為一個對象，每個對象都是可視的。

開發人員在界面設計時，可以直接用Visual Basic 6.0的工具箱在屏幕上"畫"出窗口、菜單、命令按鍵等不同類型的對象，並為每個對象設置屬性。開發人員要做的僅僅是對要完成事件過程的對象進行編寫代碼，因而程序設計的效率可大大提高。

Ⅲ vb程序設計教程答案

Option Explicit

Private Sub Command1_Click()
Dim a() As Integer
Dim i, j, n
ReDim a(9, 9)
For i = 1 To 8
Print Tab(25 - i * 2);
For j = 1 To i
a(i, 1) = 1
a(i, i) = 1
a(i + 1, j + 1) = a(i, j) + a(i, j + 1)
Print a(i, j);
Next j
Print
Next i
End Sub

Ⅳ VB程序設計書

如果是vb6可以網路v：b6教程 pdf
如果是vb.net可以網路：vb2010精典入門

Ⅳ VB 程序設計 編碼

3. 分析：解此問題兩種方法。
第一，可根據公式，26=13*(1+0.008)n ，直接利用
標准對數函數求得；
Private Sub Command1_Click()
N=log(2)/log(1+0.008)
Print n
end sub
第二，利用循環求得，程序如下：
Private Sub Command1_Click()
x = 13： n = 0
Do While x < 26
x = x * 1.008 ： n = n + 1
Loop
Print n, x
End Sub

4 用text1進行輸入數據,然後text2保存修改後的文字，窗體顯示字元串長度
Private Sub Command1_Click()
text2.text=UCase(Text1.text)
Print Len(text1.text)
End Sub

Ⅵ vb程序設計教程答案第六章

第一題
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("d:\My Pictures\1.jpg")
Command1.Visible = False
Command2.Visible = False
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "顯示"
Command2.Caption = "退出"
End Sub

Private Sub Picture1_Click()
Command1.Visible = True
Command2.Visible = True
End Sub

第二題
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontStrikethru = True
Else
Text1.FontStrikethru = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub

Private Sub Option1_Click()
Text1.FontBold = False
Text1.FontItalic = False

End Sub

Private Sub Option2_Click()
Text1.FontItalic = True
End Sub

Private Sub Option3_Click()
Text1.FontBold = True

End Sub

Private Sub Option4_Click()
Text1.FontBold = True
Text1.FontItalic = True
End Sub
Private Sub Form_Load()
Option1.Caption = "普通"
Option2.Caption = "斜體"
Option3.Caption = "粗體"
Option4.Caption = "粗斜體"
Check1.Caption = "刪除線"
Check2.Caption = "下劃線"
Text1.Text = ""
End Sub

Ⅶ 第三版VB程序設計教程課後習題答案 龔沛曾主編的

習題一
答案在教材上找。

習題二

1.對象指現實世界中的實體。每個對象有自己的特徵(屬性)、行為(方法)和發生在該對象上的活動(事件)。
類是對同一種對象的集合與抽象。類包含所創建對象的屬性數據，以及對這些數據進行操作的方法。封裝和隱藏是類的重要特性，將數據結構和對數據的操作封裝在一起，類的內部實現細節對用戶來說是透明的。
VB工具箱中的可視圖標是VB系統設計好的標准控制項類。通過將控制項類實例化，得到真正的控制項對象。在窗體上畫一個控制項，就將類轉換為對象，創建了一個控制項對象。
VB中常用的對象是控制項。此外，VB還提供了系統對象。窗體是個特例，它既是類也是對象。當向一個工程添加一個新窗體時，實質就由窗體類創建了一個窗體對象。
對象的三要素：屬性、事件和方法。
屬性：存放對象的數據(決定對象外觀及功能)對象屬性的設置方法：在設計階段，利用屬性窗口直接設置屬性值；程序運行時，通過語句[對象名.]屬性名=屬性值。若屬性只能在設計階段設置，在程序運行階段不可改變，稱為只讀屬性。
事件：發生在對象上的事情。同一事件，對不同的對象，會引發不同的反應。
事件過程：應用程序處理事件的步驟。應用程序設計的主要工作就是為對象編寫事件過程的代碼。
方法：面向對象的程序設計語言，為程序設計人員提供了一種特殊的過程和函數。方法是面向對象的，調用時一定要指明對象。

2.窗體和控制項具有的基本屬性「
(1) Name屬性：名稱
所創建的對象名稱,在程序中引用。
(2) Caption屬性：標題
該屬性決定了對象上顯示的內容。
(3) Height、Width、Top和Left屬性
決定對象的大小和位置。
(4) Enabled 屬性：對象是否允許操作
(5) Visible 屬性：對象是否可見
(6) Font 屬性組：文本的外觀
FontName字體、FontSize大小
FontBold粗體、FontItalic斜體
FontStrikethru 刪除線
FontUnderline 下劃線
(7) ForeColor屬性：前景顏色
(8) BackColor屬性：背景顏色
(9) MousePointer屬性：滑鼠指針類型, 設置值范圍0～15，由系統指定 。若為99，由用戶提供的圖形文件定義滑鼠指針形狀。
(10) MouseIcon屬性：在MousePointer屬性值為99時，存放自定義的滑鼠圖標文件（.ico或.cur）。圖標庫在Graphics目錄下。

3.窗體的事件：Load事件是在窗體被裝入工作區時觸發的事件。當應用程序啟動，自動執行該事件，該事件通常用來在啟動應用程序時對屬性和變數進行初始化。

窗體的方法:（1）Print方法
用來顯示文本內容，格式：[對象.]print 表達式
（2）Cls方法
清除運行時在窗體或圖形框中產生的文本或圖形, Cls方法不能清除窗體在設計時的文本和圖形。
格式：[對象.]cls
（3）Move方法
可移動窗體或控制項，並可改變其大小。
語法格式如下：
[對象.]Move 左邊距離[,上邊距離[,寬度[,高度]]]

4.標簽作用：用於顯示文本(輸出)信息，不能作為輸入信息的界面。其內容只能通過Caption屬性設置或修改，不能直接編輯。

5.文本框是一個文本編輯區域，可以在該區域輸入、編輯、修改和顯示正文內容。在VB中字元長度以字為單位，也就是一個西文字元與一個漢字都是一個字，長度為1。
重要屬性(1) Text 顯示或輸入的正文內容。
(2) Maxlength 設置文本框可輸入的文字最大長度。默認值為0，表示可以輸入任意長字元串。
(3) MultiLine 多行屬性
設置為True時，文本框可以輸入或顯示多行正文，同時具有文字處理器的自動換行功能，按Enter鍵可插入一空行。
(4) ScrollBars 滾動條屬性
0-None 無滾動條
1-Horizontal 水平滾動條
2-Vertical 垂直滾動條
3-Both 同時加水平和垂直滾動條
注意：當MultiLine為True時，ScrollBars才有效
(5) PassWordChar 設置顯示文本的替代符。例如，當設置為「*」，則在文本框輸入的內容均以「*」顯示，而存儲的值是用戶輸入的原文。一般用於設置口令的輸入。
當MultiLine為True時，該屬性不起作用，密碼不允許多行。
(6) Locked 指定文本控制項是否可被編輯，默認值為False(可編輯)，當設置為True時，文本控制項相當於標簽控制項的作用。
注意：Locked與Enabled的區別。
(7)文本內容進行選擇操作的三個屬性
SelStart 選定的正文開始位置
SelLength 選定的正文長度
SelText 選定的正文內容
這3個屬性互相關聯,例如設置SelStart、SelLength後，SelText 自動存放指定的文本。
注意：屬性窗口中沒有這三個屬性，只能在程序代碼中使用。

6.文本框的事件：(1) Change事件：當Text屬性值發生改變時引發該事件
(2) KeyPress事件：按下並且釋放鍵盤上的一個鍵時，引發焦點所在控制項的KeyPress事件，所按鍵的值存放在參數KeyAscii中。對回車的判斷 KeyAscii=13

7.文本框最有用的方法是SetFocus，把游標移到指定的文本框中。

8.命令按鈕 Picture屬性：按鈕可顯示圖片文件(.bmp和.Ico)，當Style為1時有效。

10. 啟動窗體時將命令按鈕定位在窗體中央的代碼

Private Sub Form_Load()

Command1.Left = Form1.ScaleWidth / 2 - Command1.Width / 2

Command1.Top = Form1.ScaleHeight / 2 - Command1.Height / 2

End Sub

11．vb圖片文件在 C:\Program Files\Microsoft Visual Studio\Common\Graphics 文件夾。

安裝VB時可選擇是否安裝這些圖片文件。

習題三

1. 合法常量：

(1) Double

(2) 錯誤

(3) Double

(4) Double

(5) 錯誤

(6) Integer

(7) String

(8) String

(9) Date

(10) Double

(11) 錯誤（漢字字元）

(12)Integer(八進制)

(13) 錯誤（八進制無數碼8）

(14) Integer

(15) Boolean

(16) 錯誤

(17) 錯誤（十六進制無數碼g）

(18) Single

說明：浮點型變數默認為Double類型而非Single。

2. 合法變數名：

(1) √

(2) √

(3) 誤：數字開頭

(4) 誤：含空格

(5) 誤：關鍵字

(6) √

(7) 誤：關鍵字

(8) 誤：有括弧

(9) √

(10) √

(11) √

(12) √（漢字字元可作為變數名，但不常用，且此名稱易誤解）

變數命名規則見P.41-42。

字母（漢字）開頭，字母（漢字）、數字、下劃線組成，長度為1-255個字元；關鍵字不可作為變數名，但可在變數名中嵌入關鍵字；不區分大小寫。

常量、數組、類型、函數、過程、對象命名規則與此相同。常量名通常全用大寫。

3. 寫VB表達式

(1) Abs(x + y) + z ^ 5

(2) (1 + x * y) ^ 6

(3) (10 * x + Sqr(3 * y)) / (x * y)

(4) (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)

(5) 1 / (1 / r1 + 1 / r2 + 1 / r3)

(6) Sin(45 * 3.14159 / 180) + (Exp(10) + Log(10)) / Sqr(x + y + 1)

4. 根據條件寫表達式

(1) 隨機產生大寫字母 Chr(Int(Rnd * (Asc("L") - Asc("C") + 1) + Asc("C")))

(2) [100,200]內的隨機數 Int(Rnd * 101) + 100

(3) 點(x,y)位於第一或第三象限 x > 0 And y > 0 Or x < 0 And y < 0 或 x * y > 0

(4) x是5或7的整數倍 x Mod 5 = 0 Or Int(x / 7) = x / 7

(5) 將兩位整數x的個位與十位對換 x \ 10 + (x Mod 10) * 10

(6) 四捨五入取兩位小數 Round(x, 2)

(7) 字元變數C是字母字元（不區分大小寫）——准確地說是：字元變數C的第一個字元是字母

C >= "A" And C <= "Z" Or C >= "a" And C < "z"

或 UCase(C) >= "A" And UCase(C) <= "Z"

或 LCase(C) >= "a" And LCase(C) <= "z"

(8) 字元變數S第5個字元起取6個字元 Mid(S, 5, 6)

(9) 10≤x＜20 10 <= x And x < 20

(10) x，y至少有一個小於z x < z Or y < z

(11)x，y都大於z x > z And y > z

5. 寫表達式的值

(1) 188 ——注意運算的優先順序順序，以及整除運算「\」的計算

(2) 200100 —— 計算100 + "100"時，由於兩個操作數類型不同，在可能的情況下自動採用精度較高的類型，即把字元型轉換為數值型，100 +100 得到200；然後進行字元串連接運算200 & 100 ，再自動將兩個數值轉換為字元串，得200100。

(3) 68.56 ——在四捨五入函數產生之前，這就是四捨五入的計算方法

(4) 876554 ——先進行字元串的「+」運算，再轉換成數值。在變數名和函數名後可加上類型符，以強調其類型，但不是必須的。

(5) 2000-2-29

(6) 6

6．Shell函數調用

i = Shell("mspaint.exe", 1) '啟動畫圖

i = Shell("C:\Program Files\Microsoft Office\OFFICE11\winword.exe", 1) '啟動Word

說明：「畫圖」是Windows本身提供的程序，可以省略路徑。

8. 答：單精度浮點型

第7，9題答案在教材中找。

習題四

第1，3，5，8題答案在教材中找。

2. 賦值語句的錯誤

（1）10x 不能做變數名。

上機驗證結果：VB將10識別為行號，x = Sin(x) + y是為變數x賦值。故無語法錯誤。

（2）Sqr函數的參數為負數。

上機驗證結果：「無效的過程調用或參數」

（3）賦值號左邊不是變數名。

上機驗證結果：「缺少子程序、函數或屬性」

（4）除數為0

上機驗證結果：「溢出」。

4. [答案略]

說明：小數位可以使用四捨五入函數Round或輸出格式函數Format。例如Round(x, 2)和Format(x, 「0.00」)均可使結果只保留兩位小數。但如果四捨五入後要進行數值運算，則使用Round函數，例如z=Round(x,2)+Round(y,2)。而Format函數通常只用於輸出格式設置。

6．指出錯誤

（1）「≥」應改為「>=」，前者是中文字元，不具有運算功能。

（2）「10<x<20」應改為「10<x And x<20」，否則運行結果錯誤。

7．寫條件語句

（1）

Dim c As String
c = InputBox("c=")
If Mid(c, 3, 1) = "C" Then
MsgBox "Yes"
Else
MsgBox "No"
End If

（2）

# 使用If語句
Dim x As Single, y As Single
x = Val(InputBox("x="))
If x > 20 Then
y = x ^ 2 + 3 * x + 2
ElseIf x >= 10 Then
y = Sqr(3 * x) - 2
ElseIf x > 0 Then
y = 1 / x + Abs(x)
End If
Print "y="; y

# 使用Select Case語句
Dim x As Single, y As Single
x = Val(InputBox("x="))
Select Case x
Case Is > 20
y = x ^ 2 + 3 * x + 2
Case Is >= 10
y = Sqr(3 * x) - 2
Case Is > 0
y = 1 / x + Abs(x)
End Select
Print "y="; y

（3）

# 使用If語句
Dim x As Single, y As Single, z As Single, Max As Single
x = Val(InputBox("x="))
y = Val(InputBox("y="))
z = Val(InputBox("z="))
Max = x
If y > Max Then Max = y
If z > Max Then Max = z
Print "Max="; Max

# 使用IIF函數
x = Val(InputBox("x="))
y = Val(InputBox("y="))
z = Val(InputBox("z="))
Max = IIf(x > y, x, y)
Max = IIf(z > Max, z, Max)
Print "Max="; Max

9. 計算循環次數

（1） 6
（2）19
（3）0
（4）死循環直至溢出

10. 40號語句執行 4次；第50 號語句執行12次；

執行第90號語句輸出的結果是： 13，0，2

說明：該程序為嵌套循環，其中外循環由j值變化（1，4，7，10）控制執行4次，當j值為13時結束循環；內循環由k值變化（6，4，2）控制執行3次，當k值為0時結束循環。第40 行是外循環的循環體，故執行4次；第50 行是內循環的循環體，故執行4*3=12次。

11. 可以定一個較大的循環次數，在循環體中根據條件用Exit For退出。

但這種情況通常用Do While循環控制。

12. 編程（並非唯一正確答案）

（1）

Dim i As Integer, s As Integer
For i = 1 To 10
s = s + (i + 1) * (2 * i + 1)
Next i
Print "s="; s

（2）

Dim i As Integer, n3 As Integer, n7 As Integer
For i = 1 To 100
If i Mod 3 = 0 Then n3 = n3 + 1
If Int(i / 7) = i / 7 Then n7 = n7 + 1
Next i
Print "1-100中3的倍數有"; n3; "個"
Print "1-100中7的倍數有"; n7; "個"

（3）

Dim s1 As String, s2 As String, i As Integer
s1 = InputBox("Input String")
s2 = ""
For i = 1 To Len(s1)
s2 = Mid(s1, i, 1) + s2
Next i
Print "原序："; s1
Print "反序："; s2

或
For i = Len(s1) To 1 Step -1
s2 = s2 + Mid(s1, i, 1)
Next i

13. 輸出字元串「10100」。該程序功能是將十進制數轉化為二進制。

說明：要理解該程序需要了解數制轉換的計算方法（有興趣者參看網路http://ke..com/view/1426817.htm）。48是字元"0"的ASCII碼。

14. 運行時輸出 22 484

該程序功能是求x和y最大公約數和最小公倍數。

說明：此演算法稱為「輾轉相減法」。可對照例4.17的輾轉相除（輾轉求余）法。

15．[50，100]間的20個隨機數，求最大值、最小值、平均值。

Dim x As Integer, sum As Integer, aver As Single
Dim n%, i%, max%, min%
Randomize
max = 50: min = 100: n = 20
For i = 1 To n
x = Int(Rnd * 51 + 50)
List1.AddItem x
sum = sum + x
If x > max Then max = x
If x < min Then min = x
Next i
aver = sum / n
Print "最大值："; max, "最小值："; min, "平均值："; aver

習題五
1. 指定數組的默認下界 Option Base 1

2．合理的數組聲明
（1）錯。定義數組不可用變數（教材99頁）。
（2）正確。該數組下標為0-11。
（3）錯。VB中數組下標用圓括弧。
（4）正確。三維數組三個下標分別為0-1，0-1，0-2，共12個元素。
（5）錯誤。非動態數組，不可重定義。
（6）錯誤。動態數組重定義時不可改變數據類型。
（7）正確。二維數組兩個下標分別為0-2，0-3，共12個元素。
（8）語法錯誤，二維數組定義中漏寫逗號——可能是印刷錯誤，加上此逗號則正確。

3．當引用數組元素時下標值小於定義的最小下標，或大於最大下標時，會發生「下標越界」錯誤。

4．數組名：a ；數組類型：Single（單精度浮點型）；維數：二維；
各維的上下界：第一維下界（最小下標）為 -1，上界（最大下標）為2，
第二維下界（最小下標）為 0，上界（最大下標）為3；
數組的大小：4行4列共16個元素
以矩陣的格式輸出二維數組：
For i = -1 To 2
For j = 0 To 3
Print a(i, j);
Next j
Print
Next i
或寫成更加通用的代碼形式：
For i = LBound(a, 1) To UBound(a, 1)
For j = LBound(a, 2) To UBound(a, 2)
Print Tab(j * 8); a(i, j);
Next j
Print
Next i

6．一維字元數組
Dim a(1 To 20) As String

Private Sub Command1_Click() '(1)隨機產生字元串
Dim i As Integer, j As Integer, n As Integer, c As String * 1
Randomize
For i = 1 To 20
a(i) = "" '將第i個元素清空
n = Int(Rnd * 10 + 1) '產生[1,10]的隨機數
For j = 1 To n 'a(i)中有n個字元
c = Chr(Int(Rnd * 26 + 97)) '隨機產生字母97是字母a的ASCII碼
a(i) = a(i) + c
Next j
Next i
End Sub

Private Sub Command2_Click() '(2)輸出字元串
Dim i As Integer
For i = 1 To 20
Print Tab(((i - 1) Mod 5) * 11); a(i);
If i Mod 5 = 0 Then Print
Next i
End Sub

Private Sub Command3_Click() '(3)最長的字元串
Dim i As Integer, imax As Integer
imax = 1
For i = 2 To 20
If Len(a(i)) > Len(a(imax)) Then
imax = i
End If
Next i
Print "最長的字元串："; a(imax)
End Sub

第7，8題答案在教材中找。

第9題「自定義變數」含義不明，暫時無法回答。

第5，10 題 [暫略]

習題六

第1，2，6-8題答案可在教材中找到。

3．指出過程說明中的錯誤
（1）Sub子過程不應該定義類型
（2）函數與形式參數不應該同名
（3）數組作為形式參數時，應使用傳地址方式，不可使用傳值（ByVal）
（4）形式參數應該是變數或數組名，不可以是一個數組元素

4．指出調用過程語句的錯誤
（1）無語法錯誤，但因形參sum所對應的實參是常量3，故計算結果無法傳遞給主調程序。
（2）實參變數c與形參sum的類型不一致。
（3）類似於（1），形參sum所對應的實參是表達式a+b，故計算結果無法傳遞給主調程序。
（4）類似於（1）和（2），形參sum所對應的實參是表達式Sqr(c)，故計算結果無法傳遞給主調程序。另外srq(a)存在語法錯誤（拼寫錯）。
（5）與（2）相同，實參c與形參sum的類型不一致。

5．迭代法求平方根
（1）自定義函數的定義及調用
Function FSqr1(a As Single) As Single
Dim x0 As Single, x As Single
x = a
Do
x0 = x
x = (x0 + a / x0) / 2
Loop While Abs(x - x0) > 0.00001
FSqr1 = x
End Function

Private Sub Command1_Click()
Dim x!, y!
x = Val(InputBox("x="))
If x >= 0 Then
y = FSqr1(x)
Print y
End If
End Sub
（2）自定義子過程的定義及調用
Sub FSqr2(a As Single, x As Single)
Dim x0 As Single
x = a
Do
x0 = x
x = (x0 + a / x0) / 2
Loop While Abs(x - x0) > 0.00001
End Sub
Private Sub Command2_Click()
Dim x!, y!
x = Val(InputBox("x="))
If x >= 0 Then
Call FSqr2(x, y)
Print y
End If
End Sub
（3）遞歸函數及調用 [略]

習題七

第1-9題，答案在教材上找；第10，12-14題，略。

11．檢測Ctrl和F3同時按下的代碼：

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If Shift = 2 And KeyCode = 114 Then MsgBox "HAHA"

End Sub

習題八

第1，2，6，7，9題答案可閱讀教材找到。

3．寫Open語句
（1） Open "Seqnew.dat" For Output As #1 '重寫
或 Open "Seqnew.dat" For Append As #1 '添加
（2）Open "Seqold.dat" For Input As #2
（3）Open "Seqappend.dat" For Append As FreeFile

4．編程，將文件Text.dat 讀入變數strTest。
Dim strTest As String
Open "Text.dat" For Input As #2
Do While Not EOF(2)
strTest = strTest + Input(1, #2)
Loop

8．本課程不涉及二進制文件。故此處以順序文件讀寫方式編程。另外合並的結果可以是合並到其中某一個文件，也可以是合並到一個新的文件，此處代碼是合並到其中一個文件F1.txt。
'方法一，在2號文件一次讀一個字元並寫入1號文件
Dim strTemp As String * 1
Open "d:\F1.txt" For Append As #1
Open "d:\F2.txt" For Input As #2
Do While Not EOF(2)
strTemp = Input(1, #2)
Print #1, strTemp; '注意結尾有分號，否則每個字元一行
Loop
Close
'方法二，在2號文件一次讀一個字元並累加，最後將累加結果寫入1號文件
Dim strTemp As String '注意方法一變數定義的區別
Open "d:\F1.txt" For Append As #1
Open "d:\F2.txt" For Input As #2
strTemp = ""
Do While Not EOF(2)
strTemp = strTemp + Input(1, #2)
Loop
Print #1, strTemp
Close

習題九

答案在教材上找。

習題十

答案在教材上找

Ⅷ vb程序設計教程 馬銘 任正權 的課後答案 找了好長時間 百度文庫沒有找不到

這樣找答案的難度是比較大的
你可以提供題目
我可以給你解答
這本書我確實沒有
但是vb題目還是大部分都會的

Ⅸ 關於VB6.0的基礎問題（高等教育出版社《vb程序設計教程》第三版 例2.2）

（1）把窗體的AutoRedraw 屬性，設置為True
（2）這個可能是窗體使用的單位與圖片使用的單位的比例原因。
（3）Print 語句，每輸出一次，回自動換行。如果希望每次在第一行顯示，就：
Me.cls '清除屏幕內容
Print 「歡迎使用VB」

Ⅹ *幫忙推薦一本VB語言程序設計參考書

VB電子書合集
目錄：

《Visual Basic程序設計教程》電子教案
ADO程序員中文開發手冊
Microsoft Visual Basic 6.0 中文版程序員指南
VB6.0中文版語言參考手冊
VB_Heaven
VB編程的好助手－vb源碼之友
vb編程經驗手冊
VB程序設計技術_黃潤發 強莎莎
VB經典編程 破解版
VB精華文摘
Visual Basic6.0資料庫程序設計(王國榮)
Visual Basic6.0控制項參考手冊
Visual Basic 6 網路編程實例教程
Visual Basic 6.0 循序漸進教程
Visual Basic 6.0 中文版控制項大全
Visual Basic 6.0編程實例精解
Visual Basic 6.0程序設計_蔣斌
Visual Basic 6.0實例教程
Visual Basic 6.0中文版參考詳解_李懷明 駱原 王育新
Visual Basic for windows編程訓練
Visual Basic for Windows趣味程序設計
VISUAL BASIC 編程標准
Visual Basic 編程晉級
Visual Basic編程疑難詳解
Visual Basic程序設計與資料庫應用_王新民 張彥玲
Visual Basic開發WEB資料庫指南
Visual Basic開發多媒體
Visual Basic圖形程序設計_=[美]Robert W.Stewart
VISUAL BASIC語言實用教程_張後蘇 張湛 張浩
VisualBasic6.0實用教程
北大青鳥ACCP_VBA
灑店管理系統(分析文檔)
數據訪問技術ADO_OLE_DB
資料庫設計指南
水晶報表範例
希望出版cool系列===VB

---注意購買的要點
1。資料庫方面的，這個比較實用
2。必須有實例，而且有配套源代碼光碟的。