第三章实习训练.doc

例3-2Private Sub Command1_Click() Print 123456789012345678901234567890 Print 1, 2, 3 Print 1; 2; 3 Print -1; -2; -3 Print A; B; C, D Print 3, Print 4; 5; Print 6 Print Print 7; 8; Print Print TimeEnd SubPrivate Sub Command2_Click() ClsEnd SubPrivate Sub Form_Load() Command1.Caption = 显示 Command2.Caption = 清除End Sub例3-2例3-1Private Sub Form_Click() Dim x$, y$, z$ x = InputBox(请输入一个同学的姓名) y = InputBox(请输入一个地点) z = InputBox(请输入一个动作) MsgBox x & 在 & y & z Form1.Caption = x & 在 & y & zEnd Sub例3-3Private Sub Command1_Click() Me.Picture = LoadPicture(C:Documents and SettingsAdministrator桌面xph.gif)End SubPrivate Sub Command2_Click() Me.Picture = LoadPicture()End SubPrivate Sub Form_Load() Me.Caption = 背景切换 Command1.Caption = 添加背景&A Command2.Caption = 清除背景&DEnd Sub 例3-4Private Sub Form_Load() With Label1 .Caption = 中华人民共和国 .FontBold = True .ForeColor = vbWhite .AutoSize = True .BackStyle = 0 .FontName = 隶书 .FontSize = 24 End With With Label2 .Caption = Label1.Caption .FontBold = True .FontSize = 24 .AutoSize = True .BackStyle = 0 .FontName = 隶书 End WithEnd SubPrivate Sub Label1_Click() Label1.Top = Label2.Top + 40 Label1.Left = Label2.Left + 40End Sub 例3-5Private Sub Form_Load() Text1.Text = Text2.Text = End SubPrivate Sub Text1_GotFocus() Text1.BackColor = vbRedEnd SubPrivate Sub Text1_LostFocus() Text1.BackColor = vbWhiteEnd SubPrivate Sub Text2_GotFocus() Text2.BackColor = vbRedEnd SubPrivate Sub Text2_LostFocus() Text2.BackColor = vbWhiteEnd Sub例3-6Private Sub Form_Load() Text1.Text = With Label1 .Caption = .AutoSize = True End WithEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Label1.Caption = 您刚按的那个字符的ASCII码是 & KeyAsciiEnd Sub例3-7Private Sub Command1_Click() Text1.Text = Label1.Caption = 当前文本框中有0个字符End SubPrivate Sub Command2_Click() Unload MeEnd Sub Private Sub Form_Load() Text1.Text = With Label1 .Caption = .AutoSize = True End With Command1.Caption = 清除 Command2.Caption = 退出End SubPrivate Sub Text1_Change() Label1.Caption = 当前文本框中有 & Len(Text1.Text) & 个字符End Sub例3-8Private Sub Text2_lostfocus() If Text2.Text 100 Then MsgBox 输入错误，请重新输入！ Text2.SetFocusEnd Sub例3-9Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Text2.Text = Text1.SelStart Text3.Text = Text1.SelLength Text4.Text = Text1.SelTextEnd Sub例3-10Private Sub Form_Load() Image1.Picture = LoadPicture(C:Documents and SettingsAdministrator桌面未命名.bmp)End SubPrivate Sub Image1_Click() Image1.Picture = LoadPicture(C:Documents and SettingsAdministrator桌面123.bmp)End SubPrivate Sub Image1_DblClick() Image1.Picture = LoadPicture()End Sub例3-11Private Sub Command1_Click() Picture1.Print 努力学好计算机 Picture1.FontSize = 12 Picture1.Print 努力学好计算机End SubPrivate Sub Command2_Click() Picture1.Circle (800, 800), 300 Picture1.Line (1500, 500)-Step(600, 600), , BEnd Sub习题3-1Private Sub Command1_Click() Dim x As Integer, y As Integer x = (4 * Text1.Text - Text2.Text) / 2 y = (Text2.Text - 2 * Text1.Text) / 2 Label3.Caption = 计算结果： & 鸡有 & x & 只， & 兔有 & y & 只。End Sub 习题3-2Private Sub Form_Load() Image1.Picture = LoadPicture(C:UsersadminDesktop人民币.jpg)End SubPrivate Sub Command1_Click() Dim x$, z$, y&, a&, b&, c&, d&, e&, f& x = InputBox(请输入整数金额, 计算) a = x 100 b = (x - a * 100) 50 c = (x - a * 100 - b * 50) 20 d = (x - a * 100 - b * 50 - c * 20) 10 e = (x - a * 100 - b * 50 - c * 20 - d * 10) 5 f = x - a * 100 - b * 50 - c * 20 - d * 10 - e * 5 y = a + b + c + d + e + f z = MsgBox(x & 元需要支付的钱币总张数为： & a & + & b & + & c & + & d & + & e & + & f & = & y, , 结果)End Sub习题3-3Private Sub Command1_Click() Dim x$x = MsgBox(升级后的电话号码为： & Text1.Text & -