建站
咨詢
售后
建站咨詢
新聞中心
VB.NET程序題目求解！在線等
... 先后按順序LABLE1，LABLE2，LABLE3，LABLE4
成都創(chuàng)新互聯(lián)公司專注于太湖企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè),商城建設(shè)。太湖網(wǎng)站建設(shè)公司,為太湖等地區(qū)提供建站服務(wù)。全流程按需定制，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，成都創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)
（1）x1=1 Y1:X2=0 Y2=1x3=2 y3=3 x4=1 y4=3
(2)x2=0 y2=cx3=2 y3=3
(3)A ABC
(4)
16 6 10
30 10 20
46
vb.net學(xué)生綜合知識(shí)技能展示答案，急求?。。。?/h2>
呵呵 看著這題目 好像又回到大學(xué)時(shí)代了 好像動(dòng)手寫下 絕不是為了分 簡(jiǎn)單而綜合 。。
求 vb.net應(yīng)用教程（第2版）課后考場(chǎng)答案
這種資源還是在百度或GOOGLE上搜一下，如果曾經(jīng)有人在網(wǎng)上發(fā)布，或有網(wǎng)站下載，一般都會(huì)被搜索引擎收錄；如果搜不到，你可以找一下相關(guān)的論壇，最好是那種人氣比較高的論壇，注冊(cè)會(huì)員，發(fā)帖求助，會(huì)有高手幫你的。
vb.net的兩道題
1.編程求1!+3!+5!+....+n! N由inputbox獲取
Function Math(ByVal N As Integer) As Integer
Dim c As Integer = 1
For i = 1 To N
c *= i
Next
Return c
End Function
Dim N As String = InputBox("輸入N的值.")
If N = "" Then Return
MessageBox.Show(Math(N))
2.用最簡(jiǎn)單的方法將個(gè)位數(shù)和十位數(shù)互換,一定要最簡(jiǎn)單的方法..比如31換成13.
Dim s As String = InputBox("輸入一個(gè)十位數(shù).")
If s = "" Then Return
MessageBox.Show(StrReverse(s))
第三版VB程序設(shè)計(jì)教程課后習(xí)題答案 龔沛曾主編的
習(xí)題一
答案在教材上找。
習(xí)題二
1.對(duì)象指現(xiàn)實(shí)世界中的實(shí)體。每個(gè)對(duì)象有自己的特征(屬性)、行為(方法)和發(fā)生在該對(duì)象上的活動(dòng)(事件)。
類是對(duì)同一種對(duì)象的集合與抽象。類包含所創(chuàng)建對(duì)象的屬性數(shù)據(jù)，以及對(duì)這些數(shù)據(jù)進(jìn)行操作的方法。封裝和隱藏是類的重要特性，將數(shù)據(jù)結(jié)構(gòu)和對(duì)數(shù)據(jù)的操作封裝在一起，類的內(nèi)部實(shí)現(xiàn)細(xì)節(jié)對(duì)用戶來(lái)說(shuō)是透明的。
VB工具箱中的可視圖標(biāo)是VB系統(tǒng)設(shè)計(jì)好的標(biāo)準(zhǔn)控件類。通過(guò)將控件類實(shí)例化，得到真正的控件對(duì)象。在窗體上畫(huà)一個(gè)控件，就將類轉(zhuǎn)換為對(duì)象，創(chuàng)建了一個(gè)控件對(duì)象。
VB中常用的對(duì)象是控件。此外，VB還提供了系統(tǒng)對(duì)象。窗體是個(gè)特例，它既是類也是對(duì)象。當(dāng)向一個(gè)工程添加一個(gè)新窗體時(shí)，實(shí)質(zhì)就由窗體類創(chuàng)建了一個(gè)窗體對(duì)象。
對(duì)象的三要素：屬性、事件和方法。
屬性：存放對(duì)象的數(shù)據(jù)(決定對(duì)象外觀及功能)對(duì)象屬性的設(shè)置方法：在設(shè)計(jì)階段，利用屬性窗口直接設(shè)置屬性值；程序運(yùn)行時(shí)，通過(guò)語(yǔ)句[對(duì)象名.]屬性名=屬性值。若屬性只能在設(shè)計(jì)階段設(shè)置，在程序運(yùn)行階段不可改變，稱為只讀屬性。
事件：發(fā)生在對(duì)象上的事情。同一事件，對(duì)不同的對(duì)象，會(huì)引發(fā)不同的反應(yīng)。
事件過(guò)程：應(yīng)用程序處理事件的步驟。應(yīng)用程序設(shè)計(jì)的主要工作就是為對(duì)象編寫事件過(guò)程的代碼。
方法：面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，為程序設(shè)計(jì)人員提供了一種特殊的過(guò)程和函數(shù)。方法是面向?qū)ο蟮?，調(diào)用時(shí)一定要指明對(duì)象。
2.窗體和控件具有的基本屬性“
(1) Name屬性：名稱
所創(chuàng)建的對(duì)象名稱,在程序中引用。
(2) Caption屬性：標(biāo)題
該屬性決定了對(duì)象上顯示的內(nèi)容。
(3) Height、Width、Top和Left屬性
決定對(duì)象的大小和位置。
(4) Enabled 屬性：對(duì)象是否允許操作
(5) Visible 屬性：對(duì)象是否可見(jiàn)
(6) Font 屬性組：文本的外觀
FontName字體、FontSize大小
FontBold粗體、FontItalic斜體
FontStrikethru 刪除線
FontUnderline 下劃線
(7) ForeColor屬性：前景顏色
(8) BackColor屬性：背景顏色
(9) MousePointer屬性：鼠標(biāo)指針類型, 設(shè)置值范圍0～15，由系統(tǒng)指定 。若為99，由用戶提供的圖形文件定義鼠標(biāo)指針形狀。
(10) MouseIcon屬性：在MousePointer屬性值為99時(shí)，存放自定義的鼠標(biāo)圖標(biāo)文件（.ico或.cur）。圖標(biāo)庫(kù)在Graphics目錄下。
3.窗體的事件：Load事件是在窗體被裝入工作區(qū)時(shí)觸發(fā)的事件。當(dāng)應(yīng)用程序啟動(dòng)，自動(dòng)執(zhí)行該事件，該事件通常用來(lái)在啟動(dòng)應(yīng)用程序時(shí)對(duì)屬性和變量進(jìn)行初始化。
窗體的方法:（1）Print方法
用來(lái)顯示文本內(nèi)容，格式：[對(duì)象.]print 表達(dá)式
（2）Cls方法
清除運(yùn)行時(shí)在窗體或圖形框中產(chǎn)生的文本或圖形, Cls方法不能清除窗體在設(shè)計(jì)時(shí)的文本和圖形。
格式：[對(duì)象.]cls
（3）Move方法
可移動(dòng)窗體或控件，并可改變其大小。
語(yǔ)法格式如下：
[對(duì)象.]Move 左邊距離[,上邊距離[,寬度[,高度]]]
4.標(biāo)簽作用：用于顯示文本(輸出)信息，不能作為輸入信息的界面。其內(nèi)容只能通過(guò)Caption屬性設(shè)置或修改，不能直接編輯。
5.文本框是一個(gè)文本編輯區(qū)域，可以在該區(qū)域輸入、編輯、修改和顯示正文內(nèi)容。在VB中字符長(zhǎng)度以字為單位，也就是一個(gè)西文字符與一個(gè)漢字都是一個(gè)字，長(zhǎng)度為1。
重要屬性(1) Text 顯示或輸入的正文內(nèi)容。
(2) Maxlength 設(shè)置文本框可輸入的文字最大長(zhǎng)度。默認(rèn)值為0，表示可以輸入任意長(zhǎng)字符串。
(3) MultiLine 多行屬性
設(shè)置為True時(shí)，文本框可以輸入或顯示多行正文，同時(shí)具有文字處理器的自動(dòng)換行功能，按Enter鍵可插入一空行。
(4) ScrollBars 滾動(dòng)條屬性
0-None 無(wú)滾動(dòng)條
1-Horizontal 水平滾動(dòng)條
2-Vertical 垂直滾動(dòng)條
3-Both 同時(shí)加水平和垂直滾動(dòng)條
注意：當(dāng)MultiLine為True時(shí)，ScrollBars才有效
(5) PassWordChar 設(shè)置顯示文本的替代符。例如，當(dāng)設(shè)置為“*”，則在文本框輸入的內(nèi)容均以“*”顯示，而存儲(chǔ)的值是用戶輸入的原文。一般用于設(shè)置口令的輸入。
當(dāng)MultiLine為True時(shí)，該屬性不起作用，密碼不允許多行。
(6) Locked 指定文本控件是否可被編輯，默認(rèn)值為False(可編輯)，當(dāng)設(shè)置為True時(shí)，文本控件相當(dāng)于標(biāo)簽控件的作用。
注意：Locked與Enabled的區(qū)別。
(7)文本內(nèi)容進(jìn)行選擇操作的三個(gè)屬性
SelStart 選定的正文開(kāi)始位置
SelLength 選定的正文長(zhǎng)度
SelText 選定的正文內(nèi)容
這3個(gè)屬性互相關(guān)聯(lián),例如設(shè)置SelStart、SelLength后，SelText 自動(dòng)存放指定的文本。
注意：屬性窗口中沒(méi)有這三個(gè)屬性，只能在程序代碼中使用。
6.文本框的事件：(1) Change事件：當(dāng)Text屬性值發(fā)生改變時(shí)引發(fā)該事件
(2) KeyPress事件：按下并且釋放鍵盤上的一個(gè)鍵時(shí)，引發(fā)焦點(diǎn)所在控件的KeyPress事件，所按鍵的值存放在參數(shù)KeyAscii中。對(duì)回車的判斷 KeyAscii=13
7.文本框最有用的方法是SetFocus，把光標(biāo)移到指定的文本框中。
8.命令按鈕 Picture屬性：按鈕可顯示圖片文件(.bmp和.Ico)，當(dāng)Style為1時(shí)有效。
10. 啟動(dòng)窗體時(shí)將命令按鈕定位在窗體中央的代碼
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時(shí)可選擇是否安裝這些圖片文件。
習(xí)題三
1. 合法常量：
(1) Double
(2) 錯(cuò)誤
(3) Double
(4) Double
(5) 錯(cuò)誤
(6) Integer
(7) String
(8) String
(9) Date
(10) Double
(11) 錯(cuò)誤（漢字字符）
(12)Integer(八進(jìn)制)
(13) 錯(cuò)誤（八進(jìn)制無(wú)數(shù)碼8）
(14) Integer
(15) Boolean
(16) 錯(cuò)誤
(17) 錯(cuò)誤（十六進(jìn)制無(wú)數(shù)碼g）
(18) Single
說(shuō)明：浮點(diǎn)型變量默認(rèn)為Double類型而非Single。
2. 合法變量名：
(1) √
(2) √
(3) 誤：數(shù)字開(kāi)頭
(4) 誤：含空格
(5) 誤：關(guān)鍵字
(6) √
(7) 誤：關(guān)鍵字
(8) 誤：有括號(hào)
(9) √
(10) √
(11) √
(12) √（漢字字符可作為變量名，但不常用，且此名稱易誤解）
變量命名規(guī)則見(jiàn)P.41-42。
字母（漢字）開(kāi)頭，字母（漢字）、數(shù)字、下劃線組成，長(zhǎng)度為1-255個(gè)字符；關(guān)鍵字不可作為變量名，但可在變量名中嵌入關(guān)鍵字；不區(qū)分大小寫。
常量、數(shù)組、類型、函數(shù)、過(guò)程、對(duì)象命名規(guī)則與此相同。常量名通常全用大寫。
3. 寫VB表達(dá)式
(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. 根據(jù)條件寫表達(dá)式
(1) 隨機(jī)產(chǎn)生大寫字母 Chr(Int(Rnd * (Asc("L") - Asc("C") + 1) + Asc("C")))
(2) [100,200]內(nèi)的隨機(jī)數(shù) Int(Rnd * 101) + 100
(3) 點(diǎn)(x,y)位于第一或第三象限 x 0 And y 0 Or x 0 And y 0 或 x * y 0
(4) x是5或7的整數(shù)倍 x Mod 5 = 0 Or Int(x / 7) = x / 7
(5) 將兩位整數(shù)x的個(gè)位與十位對(duì)換 x \ 10 + (x Mod 10) * 10
(6) 四舍五入取兩位小數(shù) Round(x, 2)
(7) 字符變量C是字母字符（不區(qū)分大小寫）——準(zhǔn)確地說(shuō)是：字符變量C的第一個(gè)字符是字母
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個(gè)字符起取6個(gè)字符 Mid(S, 5, 6)
(9) 10≤x＜20 10 = x And x 20
(10) x，y至少有一個(gè)小于z x z Or y z
(11)x，y都大于z x z And y z
5. 寫表達(dá)式的值
(1) 188 ——注意運(yùn)算的優(yōu)先級(jí)順序，以及整除運(yùn)算“\”的計(jì)算
(2) 200100 —— 計(jì)算100 + "100"時(shí)，由于兩個(gè)操作數(shù)類型不同，在可能的情況下自動(dòng)采用精度較高的類型，即把字符型轉(zhuǎn)換為數(shù)值型，100 +100 得到200；然后進(jìn)行字符串連接運(yùn)算200 100 ，再自動(dòng)將兩個(gè)數(shù)值轉(zhuǎn)換為字符串，得200100。
(3) 68.56 ——在四舍五入函數(shù)產(chǎn)生之前，這就是四舍五入的計(jì)算方法
(4) 876554 ——先進(jìn)行字符串的“+”運(yùn)算，再轉(zhuǎn)換成數(shù)值。在變量名和函數(shù)名后可加上類型符，以強(qiáng)調(diào)其類型，但不是必須的。
(5) 2000-2-29
(6) 6
6．Shell函數(shù)調(diào)用
i = Shell("mspaint.exe", 1) '啟動(dòng)畫(huà)圖
i = Shell("C:\Program Files\Microsoft Office\OFFICE11\winword.exe", 1) '啟動(dòng)Word
說(shuō)明：“畫(huà)圖”是Windows本身提供的程序，可以省略路徑。
8. 答：?jiǎn)尉雀↑c(diǎn)型
第7，9題答案在教材中找。
習(xí)題四
第1，3，5，8題答案在教材中找。
2. 賦值語(yǔ)句的錯(cuò)誤
（1）10x 不能做變量名。
上機(jī)驗(yàn)證結(jié)果：VB將10識(shí)別為行號(hào)，x = Sin(x) + y是為變量x賦值。故無(wú)語(yǔ)法錯(cuò)誤。
（2）Sqr函數(shù)的參數(shù)為負(fù)數(shù)。
上機(jī)驗(yàn)證結(jié)果：“無(wú)效的過(guò)程調(diào)用或參數(shù)”
（3）賦值號(hào)左邊不是變量名。
上機(jī)驗(yàn)證結(jié)果：“缺少子程序、函數(shù)或?qū)傩浴?/p>
（4）除數(shù)為0
上機(jī)驗(yàn)證結(jié)果：“溢出”。
4. [答案略]
說(shuō)明：小數(shù)位可以使用四舍五入函數(shù)Round或輸出格式函數(shù)Format。例如Round(x, 2)和Format(x, “0.00”)均可使結(jié)果只保留兩位小數(shù)。但如果四舍五入后要進(jìn)行數(shù)值運(yùn)算，則使用Round函數(shù)，例如z=Round(x,2)+Round(y,2)。而Format函數(shù)通常只用于輸出格式設(shè)置。
6．指出錯(cuò)誤
（1）“≥”應(yīng)改為“=”，前者是中文字符，不具有運(yùn)算功能。
（2）“10x20”應(yīng)改為“10x And x20”，否則運(yùn)行結(jié)果錯(cuò)誤。
7．寫條件語(yǔ)句
（1）
Dim c As String
c = InputBox("c=")
If Mid(c, 3, 1) = "C" Then
MsgBox "Yes"
Else
MsgBox "No"
End If
（2）
# 使用If語(yǔ)句
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語(yǔ)句
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語(yǔ)句
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函數(shù)
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. 計(jì)算循環(huán)次數(shù)
（1） 6
（2）19
（3）0
（4）死循環(huán)直至溢出
10. 40號(hào)語(yǔ)句執(zhí)行 4次；第50 號(hào)語(yǔ)句執(zhí)行12次；
執(zhí)行第90號(hào)語(yǔ)句輸出的結(jié)果是： 13，0，2
說(shuō)明：該程序?yàn)榍短籽h(huán)，其中外循環(huán)由j值變化（1，4，7，10）控制執(zhí)行4次，當(dāng)j值為13時(shí)結(jié)束循環(huán)；內(nèi)循環(huán)由k值變化（6，4，2）控制執(zhí)行3次，當(dāng)k值為0時(shí)結(jié)束循環(huán)。第40 行是外循環(huán)的循環(huán)體，故執(zhí)行4次；第50 行是內(nèi)循環(huán)的循環(huán)體，故執(zhí)行4*3=12次。
11. 可以定一個(gè)較大的循環(huán)次數(shù)，在循環(huán)體中根據(jù)條件用Exit For退出。
但這種情況通常用Do While循環(huán)控制。
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的倍數(shù)有"; n3; "個(gè)"
Print "1-100中7的倍數(shù)有"; n7; "個(gè)"
（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”。該程序功能是將十進(jìn)制數(shù)轉(zhuǎn)化為二進(jìn)制。
說(shuō)明：要理解該程序需要了解數(shù)制轉(zhuǎn)換的計(jì)算方法（有興趣者參看百度百科）。48是字符"0"的ASCII碼。
14. 運(yùn)行時(shí)輸出 22 484
該程序功能是求x和y最大公約數(shù)和最小公倍數(shù)。
說(shuō)明：此算法稱為“輾轉(zhuǎn)相減法”?？蓪?duì)照例4.17的輾轉(zhuǎn)相除（輾轉(zhuǎn)求余）法。
15．[50，100]間的20個(gè)隨機(jī)數(shù)，求最大值、最小值、平均值。
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
習(xí)題五
1. 指定數(shù)組的默認(rèn)下界 Option Base 1
2．合理的數(shù)組聲明
（1）錯(cuò)。定義數(shù)組不可用變量（教材99頁(yè)）。
（2）正確。該數(shù)組下標(biāo)為0-11。
（3）錯(cuò)。VB中數(shù)組下標(biāo)用圓括號(hào)。
（4）正確。三維數(shù)組三個(gè)下標(biāo)分別為0-1，0-1，0-2，共12個(gè)元素。
（5）錯(cuò)誤。非動(dòng)態(tài)數(shù)組，不可重定義。
（6）錯(cuò)誤。動(dòng)態(tài)數(shù)組重定義時(shí)不可改變數(shù)據(jù)類型。
（7）正確。二維數(shù)組兩個(gè)下標(biāo)分別為0-2，0-3，共12個(gè)元素。
（8）語(yǔ)法錯(cuò)誤，二維數(shù)組定義中漏寫逗號(hào)——可能是印刷錯(cuò)誤，加上此逗號(hào)則正確。
3．當(dāng)引用數(shù)組元素時(shí)下標(biāo)值小于定義的最小下標(biāo)，或大于最大下標(biāo)時(shí)，會(huì)發(fā)生“下標(biāo)越界”錯(cuò)誤。
4．?dāng)?shù)組名：a ；數(shù)組類型：Single（單精度浮點(diǎn)型）；維數(shù)：二維；
各維的上下界：第一維下界（最小下標(biāo)）為 -1，上界（最大下標(biāo)）為2，
第二維下界（最小下標(biāo)）為 0，上界（最大下標(biāo)）為3；
數(shù)組的大?。?行4列共16個(gè)元素
以矩陣的格式輸出二維數(shù)組：
For i = -1 To 2
For j = 0 To 3
Print a(i, j);
Next j
Next i
或?qū)懗筛油ㄓ玫拇a形式：
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
Next i
6．一維字符數(shù)組
Dim a(1 To 20) As String
Private Sub Command1_Click() '(1)隨機(jī)產(chǎn)生字符串
Dim i As Integer, j As Integer, n As Integer, c As String * 1
Randomize
For i = 1 To 20
a(i) = "" '將第i個(gè)元素清空
n = Int(Rnd * 10 + 1) '產(chǎn)生[1,10]的隨機(jī)數(shù)
For j = 1 To n 'a(i)中有n個(gè)字符
c = Chr(Int(Rnd * 26 + 97)) '隨機(jī)產(chǎn)生字母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)最長(zhǎng)的字符串
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 "最長(zhǎng)的字符串："; a(imax)
End Sub
第7，8題答案在教材中找。
第9題“自定義變量”含義不明，暫時(shí)無(wú)法回答。
第5，10 題 [暫略]
習(xí)題六
第1，2，6-8題答案可在教材中找到。
3．指出過(guò)程說(shuō)明中的錯(cuò)誤
（1）Sub子過(guò)程不應(yīng)該定義類型
（2）函數(shù)與形式參數(shù)不應(yīng)該同名
（3）數(shù)組作為形式參數(shù)時(shí)，應(yīng)使用傳地址方式，不可使用傳值（ByVal）
（4）形式參數(shù)應(yīng)該是變量或數(shù)組名，不可以是一個(gè)數(shù)組元素
4．指出調(diào)用過(guò)程語(yǔ)句的錯(cuò)誤
（1）無(wú)語(yǔ)法錯(cuò)誤，但因形參sum所對(duì)應(yīng)的實(shí)參是常量3，故計(jì)算結(jié)果無(wú)法傳遞給主調(diào)程序。
（2）實(shí)參變量c與形參sum的類型不一致。
（3）類似于（1），形參sum所對(duì)應(yīng)的實(shí)參是表達(dá)式a+b，故計(jì)算結(jié)果無(wú)法傳遞給主調(diào)程序。
（4）類似于（1）和（2），形參sum所對(duì)應(yīng)的實(shí)參是表達(dá)式Sqr(c)，故計(jì)算結(jié)果無(wú)法傳遞給主調(diào)程序。另外srq(a)存在語(yǔ)法錯(cuò)誤（拼寫錯(cuò)）。
（5）與（2）相同，實(shí)參c與形參sum的類型不一致。
5．迭代法求平方根
（1）自定義函數(shù)的定義及調(diào)用
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）自定義子過(guò)程的定義及調(diào)用
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）遞歸函數(shù)及調(diào)用 [略]
習(xí)題七
第1-9題，答案在教材上找；第10，12-14題，略。
11．檢測(cè)Ctrl和F3同時(shí)按下的代碼：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = 114 Then MsgBox "HAHA"
End Sub
習(xí)題八
第1，2，6，7，9題答案可閱讀教材找到。
3．寫Open語(yǔ)句
（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．本課程不涉及二進(jìn)制文件。故此處以順序文件讀寫方式編程。另外合并的結(jié)果可以是合并到其中某一個(gè)文件，也可以是合并到一個(gè)新的文件，此處代碼是合并到其中一個(gè)文件F1.txt。
'方法一，在2號(hào)文件一次讀一個(gè)字符并寫入1號(hào)文件
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; '注意結(jié)尾有分號(hào)，否則每個(gè)字符一行
Loop
Close
'方法二，在2號(hào)文件一次讀一個(gè)字符并累加，最后將累加結(jié)果寫入1號(hào)文件
Dim strTemp As String '注意方法一變量定義的區(qū)別
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
習(xí)題九
答案在教材上找。
習(xí)題十
答案在教材上找
求VB.NET題目答案?。。●R上就要，急?。?！
我做出來(lái)了,很簡(jiǎn)單,用一個(gè)Text文本框,一個(gè)命令按鈕,前者用來(lái)輸入的數(shù)據(jù).在命令按鈕的單擊事件中寫:
If IsNumeric(Me.TextBox1.Text) Then
MsgBox("數(shù)據(jù)的位數(shù)是:" Len(Me.TextBox1.Text) _
",倒數(shù)是: " StrReverse(Me.TextBox1.Text))
Else
MsgBox("非法內(nèi)容,結(jié)束")
End If
思想:把輸入的整數(shù)當(dāng)作數(shù)字字符串,.net中有求字符串長(zhǎng)度和倒置的函數(shù),所以可以直接用消息框顯示就可以了.
當(dāng)前文章：vb.net教程課后答案 vb程序設(shè)計(jì)第一章答案
URL分享：http://fisionsoft.com.cn/article/doceipi.html
