VB 郭賢海 課后答案全.doc

習(xí)題一一、填空題1.“控件工具箱”、“窗體設(shè)計(jì)器”、“工程資源管理器”、“屬性窗口”、“窗體布局窗口”、“代碼編輯器”“立即”、“本地”和“監(jiān)視”窗口等2.三；設(shè)計(jì)（Design）模式、運(yùn)行模式（Run）和中斷（Break）模式3、工程1；1；Form14、選擇菜單“視圖|立即窗口”即可打開“立即”窗口；它是Visual Basic中的一個(gè)系統(tǒng)對(duì)象，叫Debug對(duì)象，可以在調(diào)試程序時(shí)使用它，通常使用Print方法向立即窗口中輸出程序的信息，還可以將語句直接寫在“立即”窗口上，按“回車”鍵后，這行語句會(huì)被立刻執(zhí)行。5、查看代碼、查看對(duì)象；“查看對(duì)象”按鈕；“查看代碼”按鈕二、選擇題1.B 2.C 3.D 4.B 5.C 6.B 7.D三、程序設(shè)計(jì)題1.Private Sub Command1_Click() Text1.Text = 歡迎使用VB！End SubPrivate Sub Command2_Click() Text1.Text = End SubPrivate Sub Command3_Click() EndEnd Sub2.Private Sub Command1_Click() Label1.Caption = 你好，張三！ Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click() Label1.Visible = False Command3.Enabled = True Command2.Enabled = FalseEnd SubPrivate Sub Command3_Click() Label1.Visible = True Command2.Enabled = True Command3.Enabled = FalseEnd Sub習(xí)題二一、填空題1. 02. “除數(shù)為零”錯(cuò)誤3. Long4. False5. Const PI = 3.141596. True7. 48. 49. Dim Mystr As String*1010. True11. 1=x And x=5二、程序設(shè)計(jì)題1.Private Sub Command1_Click() Label1.Left = Label1.Left - 100End SubPrivate Sub Command2_Click() Label1.Left = Label1.Left + 100End SubPrivate Sub Command3_Click() Label1.Top = Label1.Top - 100End SubPrivate Sub Command4_Click() Label1.Top = Label1.Top + 100End Sub2.Private Sub Command1_Click() Label1.Caption = 百位數(shù)： + Left(Text1.Text, 1) + 十位數(shù)： + Mid(Text1.Text, 2, 1) + 個(gè)位數(shù)： + Right(Text1.Text, 1)End Sub3.Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a + b Label1.Caption = + Text3.Text = cEnd SubPrivate Sub Command2_Click() Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a - b Label1.Caption = - Text3.Text = cEnd SubPrivate Sub Command3_Click() Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a * b Label1.Caption = * Text3.Text = cEnd SubPrivate Sub Command4_Click() Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a / b Label1.Caption = / Text3.Text = cEnd SubPrivate Sub Command5_Click() Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command6_Click() EndEnd Sub4.Private Sub Command1_Click() Dim c As String c = InputBox(輸入帶區(qū)號(hào)的電話號(hào)碼，區(qū)號(hào)為4為，號(hào)碼為8位，比如輸入：) MsgBox (區(qū)號(hào)： + Left(c, 4) + Chr(13) + Chr(10) + 號(hào)碼： + Right(c, 8)End Sub習(xí)題二一、填空題1. 02. “除數(shù)為零”錯(cuò)誤3. Long4. False5. Const PI = 3.141596. True7. 48. 49. Dim Mystr As String*1010. True11. 1=x And x= 0（2）i = 0（2）i iMin3Private Sub Command1_Click() Dim str1 As String, str2 As String str1 = Text1.Text str2 = m = 0 Do While m Len(str1) / 2 str2 = str2 + Mid(str1, m + 1, 1) str2 = str2 + Mid(str1, Len(str1) - m, 1) m = m + 1 Loop Form1.Print str2End Sub4Private Sub Command1_Click() Dim str1 As String, str2 As String str1 = Text1.Text str2 = m = 0 Do While m 10 Then y = Sqr(x) + Sin(x * 3.14 / 180) ElseIf x = 0 Then y = 0 Else y = 2 * x 3 + 6 End If Print yEnd Sub2.Private Sub Form_Click() Dim i As Integer, n As Integer, m As Integer, s As Integer n = InputBox() Randomize For i = 1 To n m = Int(Rnd * 90) + 10 If m Mod 2 = 0 Then s = s + m Next i Label1.Caption = sEnd Sub3.Private Sub Command1_Click() Dim i As Integer, n As Integer, a As Integer, b As Integer, c As Integer For i = 1 To 100 n = InputBox() If n = 85 Then a = a + 1 ElseIf n = 60 Then b = b + 1 Else c = c + 1 End If Next i Label1.Caption = a Label2.Caption = a Label3.Caption = aEnd Sub4.Private Sub Command1_Click() Dim i As Integer, n As Integer, s As Single s = 1 n = InputBox() For i = 1 To n s = s + i / (i + 1) * (i + 2) Next i Text1.Text = sEnd Sub5.Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 If i 3 + j 3 + k 3 = i * 100 + j * 10 + k Then Print i * 100 + j * 10 + k End If Next k, j, iEnd Sub6.Private Sub Form_Click() Dim i As Integer, j As Integer Dim m As Integer, n As Integer Dim a As Integer, b As Integer For i = 1 To 99 For j = i + 1 To 100 m = i + j n = j - i a = Sqr(m) b = Sqr(n) If a 2 = m And b 2 = n Then Print i, j End If Next j Next iEnd Sub7.Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer For i = 0 To 9 For j = 0 To 12 k = 36 - i - j If i * 4 + j * 3 + k / 2 = 36 Then Print i, j, k End If Next j Next iEnd Sub8.Private Sub Form_Click() Dim i As Integer, s As Single Do i = i + 1 s = s + 1 / (i 2) Loop Until 1 / (i 2) 10 -5 s = 6 * s Print Sqr(s)End Sub9.Private Sub Form_Click() Dim i As Integer, s As Single, p As Single s = 1 p = 1 Do i = i + 1 p = p * i s = s + 1 / p Loop Until 1 / p a(j) Then p = j Next j If p i Then t = a(i): a(i) = a(p): a(p) = t Next i For i = 1 To n Print a(i); Next i cmdEnd.Enabled = True cmdStart.Enabled = FalseEnd SubPrivate Sub cmdEnd_Click() EndEnd Sub2.三、程序設(shè)計(jì)1.Private Sub Form_Click() Dim x(10) As Integer, i As Integer Dim Max As Integer, m As Integer, Min As Integer, n As Integer Max、m存最大值和最大值位置；Min、n存最小值和最小值位置 For i = 1 To 10 x(i) = InputBox(請(qǐng)輸入第 & i & 個(gè)數(shù)：) Print x(i); 顯示在窗體上 Next i Print 顯示換行 Max = x(1) Min = x(1) m = 1 n = 1 For i = 1 To 10 If Max x(i) Then Min = x(i) n = i 記錄最小值位置 End If Next i If m 1 Then 如果最大元素不是第一個(gè)，則與第一個(gè)交換 x(m) = x(1) x(1) = Max End If If n 0 分解t的每一位，并加入到b(i)中 b(i) = b(i) + (t Mod 10) 取出t的個(gè)位數(shù)，加入b(i)中 t = t 10 t縮小十倍，去掉原來的個(gè)位 Wend Next i （2）完成，下面完成（3）： For i = 1 To 10 Print a(i); Next i Print （3）完成，下面完成（4）： For i = 1 To 10 Print b(i); Next iEnd Sub3.4.Private Sub Form_Click() Dim a() As Single, n As Integer, i As Integer Dim sum As Single, v As Single, s As Single n = InputBox(請(qǐng)輸入元素個(gè)數(shù)：) ReDim a(n) For i = 1 To n a(i) = InputBox(請(qǐng)輸入第 & i & 個(gè)數(shù)：) Print a(i); 顯示在窗體上 Next i Print 顯示換行 求出v： For i = 1 To n sum = sum + a(i) Next i v = sum / n 求出s： sum = 0 For i = 1 To 10 sum = sum + (a(i) - v) 2 Next i s = Sqr(sum) / n 顯示結(jié)果： Print v, sEnd Sub習(xí)題五三、程序設(shè)計(jì)1.Public Sub DToB(dec, bin) Dim res As Integer Dim i As Integer Do res = dec Mod 2 求出除以2的余數(shù) bin = Trim(Str(res) & bin dec = dec 2 Loop While dec 0End SubPrivate Sub Command1_Click() Dim dec As Integer, bin As String dec = InputBox() Call DToB(dec, bin) Print binEnd Sub2.功能：判斷整數(shù)x是否素?cái)?shù)，如果是返回True，否則返回FalseFunction Prime(ByVal x As Integer) As Boolean Dim i As Integer If x 2 Then Exit Function 當(dāng)x2返回False For i = 2 To Sqr(x) If x Mod i = 0 Then Exit Function 如果x被i整除，說明x不是素?cái)?shù)，立刻返回 Next i Prime = True x是素?cái)?shù)End FunctionPrivate Sub Form_Click() Dim i As Integer For i = 1 To 100 If Prime(i) Then Print i; Next iEnd Sub3.功能：在字符串S1中查找子串S2，返回找到的個(gè)數(shù)，未找到返回0Function Find(S1 As String, S2 As String) As Integer Dim i As Integer, j As Integer, L1 As Integer, L2 As Integer L1 = Len(S1) L2 = Len(S2) For i = 1 To L1 - L2 + 1 If Mid(S1, i, 1) = Left(S2, 1) Then 如果S1中第i個(gè)字母與S2的首字母是否相同，進(jìn)行下面的判斷 For j = 2 To L2 判斷S1中第i+1個(gè)開始的字母序列與S2中第2個(gè)開始的字母序列是否相同 If Mid(S1, i + j - 1, 1) Mid(S2, j, 1) Then Exit For Next j If j L2 Then Find = Find + 1 找到相同的子串，子串計(jì)數(shù)+1 End If Next iEnd FunctionPrivate Sub Form_Click() Dim S1 As String, S2 As String, n As Integer S1 = Input(請(qǐng)輸入一個(gè)字符串：) S2 = Input(請(qǐng)輸入要查找的子串：) n = Find(S1, S2) If n 0 Then MsgBox 找到 & n & 個(gè)子串。 Else MsgBox 未找到。 End IfEnd Sub習(xí)題九三、程序填空題1.Private Sub Command1_Click() Dim str1 As String Open E:old.txt For Input As #1 Open E:new.txt For Output As #2 Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop Close #1, #2 Kill E:old.txtEnd Sub2.Private Sub Command1_Click() Dim s As String Open t1.txt For Append As #1 Open t2.txt F