VB程序设计基础 申石磊 答案(9)

sum = sum + n Next n Print sum End Sub

Private Sub Form_Load()

Open \ For n = 1 To 100 Step 1 Print #1, n; Next n Close End Sub 10-6

Private Sub Form_Click() Dim sum As Integer

For n = 10 To 100 Step 10 sum = sum + n Next Print sum End Sub

Private Sub Form_Load()

Open \ For n = 1 To 100

Put #1, , n Next End Sub 11-1

Private Sub Command1_Click() CommonDialog1.Action = 3

Text1.BackColor = CommonDialog1.Color End Sub

Private Sub Command2_Click() CommonDialog1.Flags = 263 CommonDialog1.Action = 4

Text1.FontSize = CommonDialog1.FontSize Text1.FontName = CommonDialog1.FontName Text1.FontBold = CommonDialog1.FontBold Text1.FontStrikethru

CommonDialog1.FontStrikethru

Text1.ForeColor = CommonDialog1.Color Text1.FontUnderline

CommonDialog1.FontUnderline End Sub

Private Sub Command3_Click() CommonDialog1.Action = 2

=

= End Sub

11-2

Private Sub Command1_Click() CD1.InitDir

=

\

and

Settings\\Administrator\\桌面\

CD1.Filter = \图片|*.jpg|文本文件|*.txt|\ CD1.ShowOpen

If CD1.FilterIndex = 1 Then

Image1.Picture = LoadPicture(CD1.FileName) Else

Open CD1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, n

Text1 = Text1 + n + vbNewLine Loop End If End Sub 11-4

Private Sub Form_Resize() Text1.Left = 50 Text1.Top = 50

Text1.Width = Width - 2000

Text1.Height = Height - 5000 End Sub

Private Sub mnuName_Click(Index As Integer) Select Case Index Case 5

Text1.FontName = \宋体\ Case 10

Text1.FontName = \黑体\ Case 15

Text1.FontName = \隶书\ End Select End Sub 11-6

Private Sub Form_Load() Text1.Width = Width Text1.Height = Height End Sub

Private Sub Form_Resize() Text1.Left = 50 Text1.Top = 650

Text1.Width = Width - 200 Text1.Height = Height - 900

End Sub

Private Sub mnuCopy_Click() s = Text1.SelText

mnuPaste.Enabled = True End Sub

Private Sub mnuCut_Click() s = Text1.SelText Text1.SelText = \

mnuPaste.Enabled = True End Sub

Private Sub mnuPaste_Click() Text1.SelText = Text1 + s End Sub 11-7

Private Sub Form_MouseDown(Button As Shift As Integer, X As Single, Y As Single) PopupMenu mnuTitle, 2, 0, 0 End Sub

Private Sub mnuDate_Click() Caption = Date

BackColor = vbYellow End Sub

Integer, Private Sub mnuTime_Click() Caption = Time BackColor = vbRed End Sub