b Form_Click Dim N As Integer n InputBoxquotEnter N:quot ‘输入N的值 k 1 For i 1 To N ‘循环N次，计算出N！ k k I Next i Print N””k ‘数据输出 End Sub 【例3-12】 4 Dim S N S 0: N 0 Do While S lt 100 N N 1 S S N Loop Print S N 【例3-13】 Private Sub Form_Click Dim char As String Count 0 char InputBoxquot请输入一个字符quot While char ltgt quotquot Count Count 1 char InputBoxquot请输入一个字符quot Wend Print quot输入的字符数是:quot Count End Sub 【例3-14】 Private Sub Form_Click Print quot quot For i 1 To 9 Print Tabi 6 i Next i Print For j 1 To 9 Print j For k 1 To j Print Tabk 6 j k quot quot Next k Print Next j End Sub 第4章 课前体验 （1）假定用来输入数学成绩的文本框名称为Text1，该文本框的LostFocus事件过程如下： Private Sub Text1_LostFocus If ValText1.Text lt 0 Or ValText1.Text gt 100 Then Text1.Text quotquot Text1.SetFocus End If End Sub （2）其他文本框的LostFocus事件类似。

     5 （3）假定按钮名称为Command1，该按钮的Click事件过程如下： Private Sub Command1_Click If Check1.Value 1 Then Sum Sum ValText1.Text If Check2.Value 1 Then Sum Sum ValText2.Text If Check3.Value 1 Then Sum Sum ValText3.Text If Check4.Value 1 Then Sum Sum ValText4.Text If Check5.Value 1 Then Sum Sum ValText5.Text Text6.Text Sum End Sub 【例4-1】 Private Sub Command1_Click ‘在其单击事件中编程 For i 1 To 6 ‘外循环，控制输出几行 For j 1 To i ‘内循环，控制输出几列 Print quot quot Next j Print ‘换行 Next i End Sub 【例4-2】 Private Sub Text1_Change Text2.Text LCaseText1.Text Text3.Text UCaseText1.Text End Sub 【例4-3】 Private Sub Check1_Click Text1.FontUnderline Not Text1.FontUnderline End Sub Private Sub Check2_Click Text1.FontItalic Not Text1.FontItalic End Sub Private Sub Option1_Click Text1.Font quot黑体quot End Sub Private Sub Option2_Click Text1.Font quot宋体quot End Sub 【例4-4】 Private Sub Command1_Click If Option1 Then Text1.FontName quot宋体quot Else 6 Text1.FontName quot黑体quot End If If Option3 Then Text1.FontSize 8 Else Text1.FontSize 10 End If End Sub Private Sub Command2_Click End End Sub 【例4-5】 Private Sub Form_Load ‘在窗体的Load事件中输入列表框的各个项目 lstBooks.AddItem quot计算机应用基础quot lstBooks.AddItem quot操作系统quot lstBooks.AddItem quot数据结构quot lstBooks.AddItem quot网络技术基础quot End Sub Private Sub cmdAdd_Click ‘单击添加命令按钮时将文本框中输入的内容添加到列表框中 lstBooks.AddItem txtItem txtItem quotquot End Sub Private Sub cmdDelete_Click ‘删除列表框中选中的项目 lstBooks.RemoveItem lstBooks.ListIndex End Sub Private Sub cmdModify_Click ‘所选项目显示在文本框中，等待修改 txtItem.Text lstBooks.Text cmdAdd.Enabled False cmdDelete.Enabled False cmdModify.Enabled False cmdModify_OK.Enabled True End Sub Private Sub cmdModify_OK_Click ‘所选项目显示在文本框中修改完成后，按下修改确定按钮，更新列表框内容 lstBooks.ListlstBooks.ListIndex txtItem cmdModify_OK.Enabled True 7 cmdAdd.Enabled True cmdDelete.Enabled True cmdModify.Enabled True txtItem quotquot End Sub 【例4-6】 Private Sub Form_Click Picture3.PicturePicture1.Picture Picture1.PicturePicture2.Picture Picture2.PicturePicture3.Picture Pciture3.PictureLoadPicture ??把第3个图片框设置为空 End sub 【例4-7】 Private Sub HScroll1_Change Text1.Text HScroll1.Value End Sub 【例4-8】 Private Timer1_Timer Labe1.Capti