VB程序设计教程(第3版)课后实验答案最新版2.doc
文本预览下载声明
1、完成实验A（P.259）中的第1、2、3、5题。
2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。
1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题
2．完成实验C 选择结构 （P.266）中的第1、2、4、5题
3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。
1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。
2、选做实验E数组（P.271）中的第1、2、3题中的任意二题
3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。
A．1
Private Sub Command1_Click()
Label3 = Text1
End Sub
A．2
Private Sub Form_Load()
Timer1.Interval = 0
End Sub
Private Sub Command1_Click() 自动
Timer1.Interval = 200
End Sub
Private Sub Command2_Click() 手动
Timer1.Interval = 0
Call MyMove
End Sub
Private Sub Timer1_Timer()
Call MyMove
End Sub
Sub MyMove()
Label1.Move Label1.Left - 50
If Label1.Left 0 Then Label1.Left = Form1.Width
End Sub
A．3
Private Sub Form_Click()
Text1 = Val(Text1) + 1
End Sub
Private Sub Form_Load()
Text1 = 0
End Sub
A．5
Sub Command1_Click()
Text1.FontName = 隶书
Text1.FontSize = 25
End Sub
Sub Command2_Click()
Text2.Text = Text1.SelText
Text2.FontName = Text1.FontName
Text2.FontSize = Text1.FontSize
End Sub
B．1
Private Sub Command1_Click()
Text2 = Format(5 / 9 * (Val(Text1) - 32), 0.00)
End Sub
Private Sub Command2_Click()
Text1 = Format(9 / 5 * Val(Text2) + 32, 0.00)
End Sub
或
Private Sub Command1_Click()
Dim f!, c! 声明两个变量
f = Val(Text1)
c = 5 / 9 * (f - 32)
Text2 = Format(c, 0.00) 保留两位小数
End Sub
Private Sub Command2_Click()
Dim ff!, cc! 声明两个变量
cc = Val(Text2)
ff = 9 / 5 * cc + 32
Text1 = Format(ff, 0.00) 保留两位小数
End Sub
B．2
Private Sub Command1_Click()
Label2 = Format(Val(Text1) * Val(Text1) * 3.14, 0.00)
End Sub
Private Sub Command2_Click()
Label3 = Format(Val(Text1) * 3.14 * 2, 0.00)
End Sub
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1.Text) Then
MsgBox 输入有非数字字符，请重新输入, , 警告
Text1.Text =
Text1.SetFocus
End If
End Sub
或
Private Sub Command1_Click()
Label2 = Format(Val(Text1) * Val(Text1) * 3.14, 0.00)
End Su
显示全部