第三章(数据输入与输出)编程题.docVIP

第三章经典例题及课后习题答案 数据输入输出 课后题 1. Private Sub Command1_Click() Label1.Caption = : Label2.Caption = : Label3.Caption = Dim m, n As Integer, a, b, c As Long m = Val(Text1.Text): n = Val(Text2.Text) a = Int(n + Rnd * (m - n + 1)) b = Int(n + Rnd * (m - n + 1)) c = Int(n + Rnd * (m - n + 1)) Label1.Caption = a Label2.Caption = b Label3.Caption = c End Sub 2. Private Sub Command1_Click() Label1.Caption = Left(Text1.Text, 1) + Right(Text1.Text, 1) End Sub Private Sub Command2_Click() Text1.Text = End Sub 3. Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Single, d As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = a * b * c Label4.Caption = d End Sub 4. Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Long a = Val(InputBox(请输入小时, 转化, 0)) b = Val(InputBox(请输入分钟, 转化, 0)) c = Val(InputBox(请输入小时, 转化, 0)) d = a * 3600 + b * 60 + c MsgBox Str(d) End Sub 5. Private Sub Command1_Click() Dim t As String t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End Sub Private Sub Command2_Click() Text3.Text = Val(Text2.Text + Text1.Text) End Sub 6. Private Sub Command1_Click() Picture1.Picture = LoadPicture(d:\1.jpg) Picture2.Print 此图片是风景图片 End Sub Private Sub Command2_Click() Picture1.Picture = LoadPicture() Picture2.Cls End Sub 图片交换 Private Sub Command1_Click() Picture3.Picture = Picture1.Picture Picture1.Picture = Picture2.Picture Picture2.Picture = Picture3.Picture End Sub 地理与环境科学学院环境工程班卫生哥制作 - 1 - 第三章练习题及课后题答案 2012年6月5日制作