Visual Basic 6.0程序设计教程 第3版 教学课件 作者 罗朝盛习题答案 第7章 习题参考答案.docVIP

第7章 习题参考答案 一、判断题 题号 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 答案 × × √ √ × × × √ √ √ × × √ √ × √ 二、填空题 1．___Multiline_______ 2．____Value______ 3．___Selected______、____List______、____0______、___List1.ListCount-1____ 4． 下拉式列表框 5．___LargeChange_______、____Value______ 6． Shift+Ctrl 7．KeyAscii=0 if KeyAscii57 OR KeyAscii48 then KeyAscii=0 三、程序填空 1． Label1.Font = Combo1.Text Combo2.Text Label1.FontBold = True Label1.FontItalic = True Label1.FontSize = Val(Combo3.Text) 2．2.List(List2.ListIndex) List2.RemoveItem 四、选择题 题号 1 2 3 4 5 6 7 8 答案 A D D B D D C D 五、编程题 1．添加功能 Private Sub cmdAdd_Click() Dim i% If Combo1.Text = Then Exit Sub For i = 0 To Combo1.ListCount - 1 逐个判断是否有与输入内容相同的项目 If Combo1.Text = Combo1.List(i) Then Exit Sub 找到相同项目则退出 Next i Combo1.AddItem Combo1.Text 未找到则添加 End Sub 删除功能 Private Sub cmdDelete_Click() If Combo1.ListIndex = 0 Then 是否选中某一项目 Combo1.RemoveItem Combo1.ListIndex 删除选中项目 Else 删除与输入内容相同的项目 For i = 0 To Combo1.ListCount - 1 If Combo1.List(i) = Combo1.Text Then Combo1.RemoveItem i End If Next i End If End Sub 清除 Private Sub Command3_Click() Combo1.Clear End Sub 2． Private Sub Command1_Click() ‘ 产生随机数 Dim i% Randomize For i = 1 To 10 List1.AddItem Str(Int(Rnd * 90) + 10) Next i List2.Clear End Sub Private Sub Command2_Click() ‘ 迁移偶数 Dim i% i = 0 Do While i = List1.ListCount - 1 If Val(List1.List(i)) Mod 2 = 0 Then List2.AddItem List1.List(i) List1.RemoveItem i Else i = i + 1 End If Loop End Sub 3． Private Sub List1_DblClick() Dim i As Integer For i = 0 To List2.ListCount - 1 防止重复点歌 If List2.List(i) = List1.Text Then Exit Sub End If Next i List2.AddItem List1.Text End Sub Pr