资料vb学习笔记.docVIP

--(1) --参考答案 --Private Sub C1 Click() --If Ch2.Value And Ch1.Value Then --Text2 ＝ 我的爱好是体育音乐 --ElseIf Ch2.Value And Ch1.Value ＝ False Then --Text2 ＝ 我的爱好是音乐 --ElseIf Ch1.Value And Ch2.Value ＝ False Then --Text2 ＝ 我的爱好是体育 --Else --Text2 ＝ --End If --If Op1.Value Then --Text1 ＝ 我是男生 --ElseIf Op2.Value Then --Text1 ＝ 我是女生 --Else --Text1 ＝ --End If --End Sub --步骤3：调试并运行程序，关闭程序后按题目要求存盘。 --(2) --参考答案 --第1个？处填入：0 --第2个？处填入：1000 --第3个？处填入：List1.List(i) --步骤3：调试并运行程序，关闭程序后按题目要求存盘。 -- -- --参考答案 --Option Explicit --Private Sub Command1 Click() --Dim a As String --Dim s As String --Open App.Path \in5.txt For Input As #1 --Do While Not EOF(1) --a ＝ Input(1, #1) --s ＝ s a --Loop --Close #1 --Text1 ＝ s --End Sub --Private Sub Command2 Click() --Dim str As String --Dim n1 As Integer --Dim n2 As Integer --Dim n3 As Integer --Dim n4 As Integer --Dim n5 As Integer --Dim n6 As Integer --Dim i As Integer --For i ＝ 1 To Len(Text1) --str ＝ Mid(Text1, i, 1) --Select Case str --　　 Case i， I --　　　　 n1 ＝ n1 ＋ 1 --　　 Case j， J --　　　　 n2 ＝ n2 ＋ 1 --　　 Case k， K --　　　　 n3 ＝ n3 ＋ 1 --　　 Case l， L --　　　　 n4 ＝ n4 ＋ 1 --　　 Case m， M --　　　　 n5 ＝ n5 ＋ 1 --　　 Case n， N --　　　　 n6 ＝ n6 ＋ 1 -- End Select --Next --Text1 ＝ 字母i或I出现的次数为 Format(n1, -- 00) vbCrLf --Text1 ＝ Text1 字母j或J出现的次数为 Format(n2， -- 00) vbCrLf --Text1 ＝ Text1 字母k或K出现的次数为 Format(n3, -- 00) vbCrLf --Text1 ＝ Text1 字母l或L出现的次数为 Format (n4, 00) vbCrLf --Text1 ＝ Text1 字母m或M出现的次数为 Format (n5, 00) vbCrLf --Text1 ＝ Text1 字母n或N出现的次数为 Format (n6, 00) --End Sub --Private Sub Command3 Click() --Open out5.text For Output As #1 --Print #1, Text1.Text --Close 1 --End Sub --步骤3：调试并运行程序，关闭程序后按题目要求存盘。 -- -- --44 --(1) --(2) --参考答案 --Private Sub Command1 Click() --Text1.FontBold ＝ True --End Sub --Private Sub Command2 Click() --Text1.FontItalic ＝ True --End Sub --步骤3：调试并运行程序，关闭程序后按题目要求存盘。 -- --(1) 【 --参考答案 --第1个？处填入：Index --第2个？处填入：Text1 --Private Sub C1 Click() --Timer1.Enabled ＝ True --End Sub --Private Sub C2 Click() --Timer1.