第一章 VB开发环境与VB概述 习题答案(7)

Private Sub Command2_Click() Text1.Text = \ List1.Clear End Sub

第七章 程序调试

实验

实验7_1

Private Sub Command1_Click() Dim A(7) As Integer, St As String Dim I As Integer, J As Integer Dim Temp As Long St = Text1.Text Temp = Val(St)

'If Temp < 1000000 Or Temp > 9999999 Then

' MsgBox \数据不合要求 \输入一个7位整数\' Exit Sub 'End If

For I = 1 To Len(Temp) A(I) = Mid$(St, I, 1) Next

For I = 1 To 6

For J = I + 1 To Len(Temp) If A(I) < A(J) Then Temp = A(I) A(I) = A(J) A(J) = Temp End If Next Next St = \

For I = 1 To Len(Temp) St = St & A(I) Next

Text2 = St End Sub

Private Sub Command2_Click() Text1.Text = \Text2.Text = \

End Sub

Private Sub Command3_Click() End End Sub

实验7_1思考题目答案： Private Sub Command1_Click() Dim A(7) As Integer, St As String Dim I As Integer, J As Integer Dim Temp As Long St = Text1.Text Temp = Val(St)

'If Temp < 1000000 Or Temp > 9999999 Then

' MsgBox \数据不合要求 \输入一个7位整数\' Exit Sub 'End If

For I = 1 To Len(Temp) A(I) = Mid$(St, I, 1) Next

For I = 1 To 6

For J = I + 1 To Len(Temp) If A(I) < A(J) Then Temp = A(I) A(I) = A(J) A(J) = Temp End If Next Next St = \

For I = 1 To Len(Temp) St = St & A(I) Next

Text2 = St End Sub

Private Sub Command2_Click() Text1.Text = \Text2.Text = \

End Sub

Private Sub Command3_Click() End

End Sub

实验7_2改错题答案： Option Base 1

Private Sub Command1_Click()

Dim Fb(20) As Integer, i As Integer, j As Integer, k As Integer Fb(1) = 1 Fb(2) = 2 i = 2 Do

i = i + 1

Fb(i) = Fb(i - 1) + Fb(i - 2) Loop Until Fb(i) > 1000 For k = 1 To i - 1

Text1 = Text1 & \ Next

For k = 2 To i - 1

For j = 2 To Sqr(Fb(k))

If Fb(k) Mod j = 0 Then Exit For Next

If j > Sqr(Fb(k)) Then Text2 = Text2 & \ Next End Sub

Private Sub Command2_Click() End End Sub

实验7_3改错题答案 Option Base 1

Private Sub Command1_Click()

Dim i As Integer, j As Integer, s As String

Dim a() As Integer, k As Integer, gcd As Integer, lcd As Integer List1.AddItem \聪明数对如下：\For i = 1 To 9 For j = i To 9 s = \

Call gld(i, j, gcd, lcd)

If i * j - (i + j) = (gcd + lcd) Then k = k + 1

ReDim Preserve a(2, k)

a(1, k) = i a(2, k) = j

s = s & Str$(a(1, k)) & \ List1.AddItem (s) End If Next Next End Sub

Private Sub gld(ByVal a As Integer, ByVal b As Integer, gcd As Integer, lcd As Integer) Dim aa As Integer, bb As Integer, r As Integer aa = a bb = b Do

r = a Mod b a = b b = r

Loop Until r = 0 gcd = a

lcd = (aa * bb) / gcd End Sub

习题答案 选择题

1.D 2.A 3.B 4.D 5.B 6.B 7.C 8.C 9.C

填空题

1.中断 2.ctrl+break 3.本地 4.debug.print k

改错题

Option Explicit Option Base 1

Private Sub Form_Click()

Dim a(10) As Integer, i As Integer, j As Integer Dim b(10) As Integer, k As Integer, l As Integer Randomize For i = 1 To 10

a(i) = Int(Rnd * 19) + 1 Print a(i); Next Print j = 1 k = 10

For i = 1 To 10

For l = 2 To a(i) - 1

If a(i) Mod l = 0 Then Exit For Next

If l = a(i) Then b(j) = a(i) j = j + 1 Else

b(k) = a(i) k = k - 1 End If Next

For i = 1 To 10 Print b(i); Next Print End Sub

编程题

Option Explicit Option Base 1

Private Sub Command1_Click() Dim i As Integer

For i = 1 To Len(Text1.Text)

Text2.Text = Text2.Text & Convert(Mid(Text1.Text, i, 1)) & vbCrLf Next End Sub

Private Function Convert(a As String) As String Dim Ascii As Integer Dim Binary As String Ascii = Asc(a) Do While Ascii > 0

Binary = Ascii Mod 2 & Binary Ascii = Ascii \\ 2 Loop

Convert = Binary End Function

第八章文件实验答案

实验

8_1图片浏览器：

Private Sub Dir1_Change()

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库第一章 VB开发环境与VB概述 习题答案(7)在线全文阅读。